Section 2 - Commodore Computers

More documents

Recommendations

Info

IF4F 856C 3200 STA BUPSTR 1F4F B56C 3200 STA BUFSTR 1F51 IF51 A555 3210 LDA LOA COLORS COLCRS 1F53 IF53 856D 8560 3220 STA BUFSTR+1 SUFSTR+l 3230 EGETC1 EGETCI 1F55 IF55 20791F 2079lP 3240 JSR NEWKGETCH NEWKGETCtl ; What we really r wanted to replace r 1F58 IP58 844C 3250 STY DSTAT ; < ( 1F5A 1 F5A ADFB02 ADF B02 3260 LDA LOA ATACHR ; « 1F5D IF5D C99B 3270 CMP ICR 'CR ; « 33280 1F5F lP5F F015 33290 BEO GOEGETC2 was just EGETC2 3300 330" 1F61 IF61 20ADF6 3310 331" JSR DOSS : < ( 1F64 IF64 20B3FC 20B3rC 3320 JSR SWAP : < ( 1F67 IF67 A563 3330 LDA LOA LOGCOL ; « 1F69 lP69 C971 3340 CMP #113 1113 : « 1F6B lF6B D003 0003 3350 BNE EGETC6 : « 1F6D lF6D 200AF9 3360 JSR JS R BELL ; « 3370 EGETC6 1F70 IF70 4C551F 3380 JMP EGETC1 EGETCI : « 3390 3400 GOEGETC3 1F73 IF73 4C7CF6 3410 JMP EGETC3 £GETC3 ;becuz branch can't n ' t get there e 3420 3430 GOEGETC2 1F76 IF76 4C6EF6 3440 JMP EGETC2 :becuz branch can't get there 3450 1F79 IF79 3990 . PAGE " The replacement KGETCH routine" 4000 4010 10 ::::::;;;;:::;;;;:;;:::;;;;;::;::::;:;;;;;:;::; 4020 4030 This is the routine that replaces r the 4040 ROM-baaed ROM-based KGETCH (Keyboard GET Character) 4050 routine. This routine is designed 4060 especially for NEWEGETCH, ETCtl , but could be 4070 called in place of KGETCH if the user 4080 wished. . 4090 4100 411?10 ; ;;;:;:;:;;:::::;; ;: :::;: : :;;:;:;:: :;:::::;:;; 4110 4120 NEWKGETCH IF79 1F79 ADC61F AOC61F 4130 LDA LOA KPTR+1 KPTR+l msb of ptr to multikey string 1F7C lF7C F024 4140 BEO NOSTRING but no string, so normal KGETCH 1F7E IF7E A5E7 85E7 4150 41 50 STA ZTEMPl+l ZTEMP1+1 need to put it in zero page IF80 1F80 ADC51F ADC51f' 4160 LDA LOA KPTR ditto the LSB IF83 1F83 85E6 4170 STA ZTEMPI ZTEMP1 IF85 1F85 EEC5lf' EEC51F 41B0 4180 INC KPTR bump ptr for next time lPSS 1F88 0003 D003 4190 BNE NI:."WKI NEWK1 lFSA 1F8A EEC61F 4200 INC KPTR+l KPTR+1 MSB also if needed 4210 NEWKI NEWK1 4220 IPSO 1FBD A000 4230 LOY LDY ,. #0 IFSP 1F8F BlE6 B1E6 4240 LOA LDA (ZTEMPl), (ZTEMP1),YY ; get next char in str string If'9l 1F91 1003 4250 BPL NEWK2 last char has MSB on If'93 1F93 8CC6lF 8CC61F 4260 STY KPTR+l KPTR+1 so reset pointer & flag 4270 NEWK2 l1F96 297P 297F 4280 AND 'S7F #$7F ensure onlyy 7 bits If'9S 1F98 0002 D002 4290 BNE NEWK3 except... •.. If'9A 1F9A A99B 430" 4300 LOA LDA 'CR #CR null nul1 becomes CR 4310 NEWK3 lF9C 1F9C BOFS02 8DFB02 4320 STA ATACHR tthis is whatt KGETCH does IF9F 1F9F 4C34F6 4330 GORETURN JM JMPP RETURI RETUR1 seems silly, but it works r 4340 4350 no string waiting fo forr us us--.get ... a real key 4360 4370 NOSTRING IFA2 1FA2 20E2P6 20E2F6 4380 JSR KGETCH a rreal key IFA5 1FA5 84'1C 844C 4390 STY DSTAT why??? just in case IFA7 1FA7 C900 441'10 4400 CMP ,. #0 control-comma, the heart IFA9 1FA9 F0l F0177 4410 BEO BEQ REALCTL handled special I1FAB C91S C91B 4420 CMP 127 #27 one more than control-ZZ IFAO 1FAD B0F0 4430 BCS GORETURN a regular key 4440 : « : « : < < 4450 ; if here, we have h control-A through control-Z l-Z 1FAF IFAF 0A 011. 4460 4470 ASL A 1FB0 lFS0 A8 4480 TAY ; doubled value used as index 1FB1 If'Bl B9FE1F B9FEl.F 4490 4491'1 LDA LOA STABLE-2.Y STABLE-2, Y; [ -2 - 2 becuz control-A is 1FB4 IFS4 8DC51F BOC5lF 4500 STA KPTR ; value of 1 instead of zero 1FB7 lFS7 B9FF1F B9f'FlF 4510 LDA LOA STABLE-l.Y STABLE-l, Y 1FBA lFBA 8DC61F 80C61F KPTR+1 ; ; 4520 1FBD IPSO F0E0 4530 4 STA BEQ SEQ l GORETURN MSB of addr of string oops...no oope no string for this key 4540 1FBF IFSF 4C791F 4550 4560 JMP J MP ; NEWKGETCH and pass back first char c of string 4570 4580 4590 special handling for control-comma ol-comma I1111 I I I 4600 REALCTL 1FC2 IFC2 4CE2F6 4610 JMP J MP KGETCH ; it is used as an escape key 4620 ; to allow real control chars c I 4630 4900 4910 MISCELLANEOUS NEOUS RAM USAGE 1FC5 lFC5 0000 4920 4930 30 KPTR 4921'1 .WORD 0 :master ptr to next char c 4940 1FC7 IFC7 0000 001'10 4950 NEWETBL -WORD .WORD 0,00 , 0 : jto be filled in 1FC9 lFC9 0000 01'11'10 1FCB IPCB 0000 4960 NEWETBLGC .WORD 0,0,0,0,0,0 0,B,e,e,e,0 1FCD IFCO 0000 001'11'1 1FCF IPCF 1'100" 0000 1FD1 IFOI 0000 el0e10 1FD3 IFD3 1'1000 0000 1FD5 lFD5 0000 1FD7 IFD7 4970 4990 . PAGE" The pointer table" 50"'0 5000 5010 ; :::::;::::::;; ; ::::::;:;:::: ::::;;:::: ;;: ; ; :: 5020 5030 The strings and String TA.BLE TABLE 5040 5050 5060 5070 5080 5090 Each string in use has its address placed in the corresponding location in STABLE Any control ol ccharacter whichh should not be translated should have S0000 $0000 as its etring string address in STADLE. STABLE. 5100 5110 5120 :::; (~l~!~~; ~~~: ~~: ~ ~~~; ~~~~~~~~) ; ; : :;;;; : ::;;: (first, get on even boundary) lFD7 1FD7 5U0 5130 *= • • ORIGIN+$100 ORIGIN+S100 5140 STABLE 2000 "'000 0000 5150 .WORD SA,SB,SC,SD,SE,SF,SG,SH,SI SS,SC,SD, SE, SF,SG, SH,SI 20"'2 2002 01'100 0000 2804 2004 0000 2006 3420 2009 2008 0000 20011. 200A 0000 200C 0"'0" 0000 200E 0000 20113 2010 0000 }·**ERROR ]***ERROR - 2012 0000 5-UNOEFINED 5-UNDEFINED 5160 .WORD SJ,SK,SL,SM,SN,SO,SP,SQ,SR , SK,SL,SM, SN ,SO,SP,SQ, S R 2014 0000 2016 "000 0000 21318 2018 001'10 0000 201A ""00 0000 20lC 201C 0800 0000 2"1£ 201E 7F2e 7F20 21320 2020 0000 2022 0000 }***ERROR ]***ERROR 2024 862" 8620 2026 "' 0000 2828 2028 001'10 0000 5-UNDEFINED 5170 .WORD SS SS,ST.SU,SV,SW,SX,SY,SZ , ST , SU,SV, SW,SX,SY,SZ & n o J: ... c ~ !!! ~ ~ i ~
202A 2e2A 0000 202C 0000 000£1 202E 2e2E 0000 00£10 20302 03£1 0000 £1£1£10 2032 0000 £1£1£10 }···ERROR }***ERROR - 2034 21!l34 5-UNDEFINED 5990 .PAGE • " The soft key strings" 6000 61H'0 ; 6010 tr: 1 r i; r r :: stiiirttTT I : 1111 r I: I;:::;;: I:; f: I;:;: 11:' I;;:': 6020 6030 f The actual strings 6040 6050 6£150 6060 we need supply strings only for the desired softkeys 6070 6080 6090 611190 6100 6110 Note that inverse Inverse video is not allowed, except that the last character of a string has its MSBit on, , same as inverse video 6120 6130 613111 614£1 6140 Note that zero bytes ('NUL1) ') get converted to RETURN (S9B) ($9B) characters 6150 6160 ; :;::::; :;;;: ;::;;;;;:;;:::::::;:::;::::;;:; 6170 6200 SD SO .BYTE "CLOSE 17:0PEN #7:OPEN #7,6,0," '7,6,0," 6210 .BYTE -BYTE QUOTE,"D!*.*",QUOTE QUOTE,"D:·.· ",QUOTE 6220 6230 6240 .BYTE -BYTE ":FOR 1-0 1=0 TO 256:GET 17,1" #7,1" .BYTE ":PRINT CHRS(I);:NEXT CHR$(I)::NEXT I" .BYTE NUL+KQUIT NbL+KQUIT 6250 6260 SP ..BYTE "PRINT ",KQUIT+'# , 6270 6280 SS 55 .BYTE "SETCOLO",KQUIT+'R 6290 6300 630111 6310 6320 Note the methods of getting quoted strings in .BYTE . statements and turning on the MSBitB MSBits of a character 7000 7010 finally, , we set up for LOAD-AND-G0 LOAD-AND-GO 7020 711120 7030 •- • • S2E0 $2E0 7040 7050 9999 -WORD .WORD . END HOOKUP Program 2. 1000 ••••••••••••••••••••••••••••••••• 1000 REM ********************************* 1010 REH REM ■• 1020 REM *• EASYLOAD —-- 1030 REM *• A BASIC PROGRAM THAT ALLOWS 1040 U40 REM *• THE USER TO MAKE HIS/HER HER OWN 1050 REM • SET OF "SOFTKEYS" FOR USE 1060 REM· * WITH THE "EASYKEY" PROGRAM 1070 REM *• 1080 ■ — "■■""""•■•■*■**••*•■••■■■■••■■■• REM ••••••••••••••••••••••••••••••••• 1090 REM 1100 REM :BEFORE : RUNNING THIS PROGRAM, BE SURE 1110 REM :THAT "EASYKEY" "EJ\SYKEY" HAS BEEN LOADED LOA.DED AND 112111 1120 REM sRUN. :RUN . YOU MAY VERIFY THIS BY CHECKING 1130 REM 1140 REM 1150 REM :THE VALUE OF PEEK(744) —-- IT SHOULD :MA.TCH MATCH THE NEWLOMEM PAGE VALUE IN : THE LISTING OF EASYKEY 1160 REM:( [ PEEK(744) = - 34 IF EASYKEY IS 1170 REM : ASSEMBLED AS GIVEN HERE IIERE ] 1180 REM 1190 REM == -- FIRST, SET UP ADDRESSES, ETC. == 12"0 1200 STABLE=8192iREM 8192:REM STABLE. = $2000 121" 1210 STRINGS=STABLE+(2*26) STRINGS- STABLE+(2·26) 1220 REM 123" 1230 DIM KEY$(130) KEYS(130) 124" 1240 REM 1250 REM FIRST, CLEAR OUT OLD SOFTKEY DEFINITIONS 1260 REM 1270 FOR ADDR=STABLE TO STRINGS-1:POKE STRINGS-l : ADDR,0:NEXT ADDR 1280 REM 1290 PRINT CHRS{125)r CHR$(125); 130" 1300 PRINT "When " prompted, enter a softkey string" 1310 PRINT "for the given control-key." . " 1320 PRINT 1330 PRINT "Remember: : no inverse keys and use" 1340 PRINT "control-comma (the heart) to request" 1358 1350 PRINT "a RETURN key code- code. Actual use of the" 1360 PRINT "Return key terminates the string for" 1378 1370 PRINT "the given softkey." 1380 13B0 PRINT :PRINT "(just "[just RETURN will undefine that key]" 1390 PRINT :PRINT 140" 1400 ADDR=STRINGS:REM ADDRa : REM WHERE WE START STORING SOFTKEY STRINGS 2000 REM MAIN LOOP 2010 2810 FOR KEY=0 KEY".0 TO 25 2020 PRINT "ConTRoL-";CHR$(65+KEY);:INPUT "ConTRoL-":CHR${65+KEY)::INPUT KEYS KEY$ 2030 KLEN=LEN(KEY$):IF KLEN~LEN(KEY$)'IF NOT KLEN THEN 2290 2040 KEY$(KLEN)"CHRS(ASC(KEY5(KLEN))+128):REM KEY${KLEN) - CHR$(ASC(KEY$(KLEN»+128):REM SET MSB HSB OF LAST CHARACTER 2050 2"50 IF ADDR+KLEN>=STABLE+512 THEN PRINT "too much defined!";CHRS(253):END I ":CHR$(253):ENO 2070 REM SET ADDRESS OF STRING IN STABLE 20B0 2080 TEMP=lNT(ADDR/256):POKE TEMP=INT(ADDR/256):POKE STABLE+KEY+KEY+1,TEMP STABLE+KEY+KEY+l,TEMP 2090 POKE STABLE+KEY+KEY,ADDR-256*TEMP STABLE+KEY+KEY,ADOR-256·TEMP 2100 FOR KPT=1 KPTul TO KLEN 2110 2118 POKE ADDR,ASC(KEY$(KPT)) 2120 ADDR=ADDR+1 ADDR_ADDR+ 1 2130 2138 NEXT KPT 2200 2208 REM END OF PROCESSING FOR THAT KEY 2290 NEXT KEY 3000 REM *•****•**************♦♦•**•••***• ••••••••••••••••••••••••••••••••• 3010 REM 3020 REM NOW WE ALLOW YOU TO SAVE THIS NEWLY DEFINED SET ON DISK 3030 REM 3040 REM SIMPLY HIT BREAK AT THE QUESTION IF YOU DON'T WANT TO SAVE 3050 3850 REM 3100 31"0 PRINT !PRINT :PRINT :PRINT "What set of softkeya should we save" 3110 PRINT" " this definition under (1-999) ";:INPUT ": : SET 3120 IF SETINT(SET) THEN 3100 3150 KEYS="D:SOFTKEY.":KEYS(LEN{KEY$)+1)=STR$(SET) KEY$a"D:SOFTKEY.":KEY$(LEN{KEY$)+l)-STR$(SET) 3200 3208 OPEN 11,8,8,KEY$ #1,8,0,KEYS 3210 FOR KPT=STABLE KPT- TO ADDR 3220 PUT #1,PEEK(KPT) U,PEEK{KPT) 3230 NEXT KPT 3250 CLOSE #1 U 3280 32B" PRINT :PRINT "==== "m.. normal end ====" ......." 3290 END Program 3. Program 3. 30000 REM **********************'********** ••••••••••••••••••••••••••••••••• 30010 REM 30020 REM THIS PROGRAM OR PROGRAM FRAGMENT IS 30030 30038 REM INTENDED TO BE USED TO RELOAD ONE 30040 REM THE SETS Of' OF SOFTKEYS Sm'TKEYS CREATED BY 30050 REM "EASYLOAD". 30060 REM 30100 STABLE=8192:REM STABLE-B192 : STABLE=S2000 30110 DIM NAME$f20) NAME$(20) 30200 PRINT "What set of softkeys should be" 30210 PRINT" " reloaded from disk (1-999) ";:INPUT " SET 30220 NAMES-"D: NAME$ : SOFTKEY." ":NAMES(LEN( : NAME$(LEN(NAME$)+l) NAMES ) + D-STRS - STR$(SET) 30250 OPEN #1,4,0,NAMES 'l,4,0 ,NAME $ 30290 TRAP 30400 30300 FOR KPT=STABLE TO STABLE+512 30310 GET #1,KEY:POKE 'l,KEY:POKE KPT,KEY , KEY 30320 NEXT KPT 30400 3040" CLOSE 'I #1 30500 REM COULD RETURN FROM SUBROUTINE, IF DESIRED © f ~ '" g ~ 8 .. 31: c ~ !!! §
Page 1 and 2:
1\ MALA Educational Programs M\~ Fo
Page 3 and 4:
May. 1982. Issue 24 COMPUTEI 101 Ma
Page 5 and 6:
• the battle for the moons of Jup
Page 7 and 8:
May, May. 1Q82lssue 1982, Issue 24
Page 9 and 10:
i i ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~,
Page 11 and 12:
• Announcing the Printing Breakth
Page 13 and 14:
May. 1982. Issue 24 COMPUTEI 111 Ma
Page 15 and 16:
APPLE • ALTOS • ATARI • MAXEL
Page 17 and 18: CBM Maintenance In-House DOWNEY, CA
Page 19 and 20: NEW PET/CBM SOFTWARE NEW PET/CBM SO
Page 21 and 22: CALL TOLL FREE CALL TOLL 800424 -27
Page 23 and 24: OLYMPIC SALES COMPANY 'ANY Vuthonze
Page 25 and 26: May, May. 1982, 1982. Issue 24 COMP
Page 27 and 28: OSI TRS-80 COLOR-80 OSI OSI TRS-80
Page 29 and 30: THEE MOSAIC 32K RAM FOR ATARI 32K R
Page 31 and 32: VOUNEED YOU NEED SpeedRead+ • Opt
Page 33 and 34: MOV, May, 1Q82, 1982, Issue 2A 24 C
Page 35 and 36: May. May, 1982, Issue 24 2.::1 COMP
Page 37 and 38: May, 1982, Issue 24 COMPUTEI 135 Ma
Page 39 and 40: MENAGERIE . ... $11.95 GRAFIX MENAG
Page 41 and 42: May. Mav. 1Q82.lssue 1982. Issue 24
Page 43 and 44: May. JIAov, 1982. 1Q82,lssue Issue
Page 45 and 46: May, 1982. 1982, Issue l$Sue 7& 2.4
Page 47 and 48: Micrn BEST PRICES BEST PRICES VIC-2
Page 49 and 50: May, May.1982, Issue 24 COMPUTEI ,.
Page 51 and 52: May, 1982.I$Ue 24 COMPUTEI 149 May,
Page 53 and 54: May, 1982, 19S2. Issue 201 24 COMPU
Page 55 and 56: tvk:rv. 1Q82.lssue 24 COMPUTEI 153
Page 57 and 58: ASERT yourself", with CFI's new Dat
Page 59 and 60: The retailer contains The retailer
Page 61 and 62: BgeREM* * 900 1080 1000 DIM DIM Y '
Page 63 and 64: May, May. 1982. Issue 24 2A COMPUTE
Page 65 and 66: May. 1982. Issue 24 COMPUTE! PUTEI
Page 67: Program 1- Program I. 0000 13131313
Page 71 and 72: Mov. May. 1982.lssue 1982, Issue 24
Page 73 and 74: May, 1982. 1982, Issue 24 211 COMPU
Page 75 and 76: May. WIoy. 1982, 1982. Issue 24 21:
Page 77 and 78: HP·S5 HP*85 ao BO Column Printer H
Page 79 and 80: ECLECTIC SYSTEMS CORPORATION P.O. B
Page 81 and 82: ECLECTIC SYSTEMS CORPORATION P.O. 8
Page 83 and 84: SOFTWARE STREET PRESENTS &JOOOo@~~~
Page 85 and 86: COI'l1lnodore commodore SHOW SPECTA
Page 87 and 88: Lyco Computer Marketing & Consultan
Page 89 and 90: EXTRA SPECIAL SPECIALS K-razJI K-ra
Page 91 and 92: & 0W «*$ cr ^ o & 0oV \P s —~ -
Page 93 and 94: E S o a. E g « JS M U I £ g g §
Page 95 and 96: : ;■:■■■■-.;-.■ ■;-.
show all

Section 2 - Commodore Computers

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?