home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
A.N.A.L.O.G. Magazine 1985 September
/
85_sep.atr
/
bootcamp.asm
next >
Wrap
Assembly Source File
|
2023-02-26
|
2KB
|
1 lines
0100 .OPT NO LIST¢0110 ;¢0120 ;KEYBOARD INPUT TEST PROGRAM¢0130 ;¢0140 OPEN = $03¢0150 CLOSE = $0C¢0160 GETCHR = $07¢0170 PUTCHR = $0B¢0180 GETREC = $05¢0190 PUTREC = $09¢0200 STATUS = $0D¢0210 ;¢0220 ;SCREEN COLOR REGISTERS¢0230 ;¢0240 COLOR2 = $02C6¢0250 COLOR4 = $02C8¢0260 ;¢0270 ;CIO EQUATES¢0280 ;¢0290 ICCMD = $0342¢0300 ICSTA = $0343¢0310 ICBAL = $0344¢0320 ICBAH = $0345¢0330 ICBLL = $0348¢0340 ICBLH = $0349¢0350 ICAX1 = $034A¢0360 ICAX2 = $034B¢0370 CIOV = $E456¢0380 ;¢0390 ;NOW, HERE'S THE PROGRAM!¢0400 ;¢0410 *= $3000 ;START AT $3000¢0420 LDX #$10 ;POINT TO IOCB #1¢0430 LDA #OPEN ;OPEN COMMAND¢0440 STA ICCMD,X ;PUT IN IOCB #1¢0450 LDA #KEYBD/256 ;HI ADDR OF "K:"¢0460 STA ICBAH,X ;PUT IN IOCB #1¢0470 LDA #KEYBD&255 ;LO ADDR OF "K:"¢0480 STA ICBAL,X ;PUT IN IOCB #1¢0490 LDA #4 ;INPUT¢0500 STA ICAX1,X ;PUT IN IOCB #1¢0510 LDA #0 ;NO AUX 2 USED¢0520 STA ICAX2,X ;PUT IN IOCB #1¢0530 JSR CIOV ;NOW OPEN IT!¢0540 BMI ERROR ;IF Y<0, BAD OPEN!¢0550 ;¢0560 ;NOW THAT THE KEYBOARD IS OPEN,¢0570 ;WE WILL GET CHARACTERS FROM IT¢0580 ;AND CHANGE THE SCREEN COLOR¢0590 ;ACCORDING TO THE CHARACTER!¢0600 ;¢0610 GETKEY LDX #$10 ;IOCB #1¢0620 LDA #GETCHR ;GET CHAR COMMAND¢0630 STA ICCMD,X ;STORE COMMAND¢0640 LDA #0 ;ZERO OUT BUFFER...¢0650 STA ICBLL,X ;LENGTH (PUTS BYTE...¢0660 STA ICBLH,X ;IN ACCUMULATOR)¢0670 JSR CIOV ;GET A BYTE!¢0680 BMI ERROR ;IF Y<0, BAD GET!¢0690 ;¢0700 ;NOW TURN BYTE INTO A NUMBER¢0710 ;FROM 0-9 FOR SCREEN COLOR!¢0720 ;¢0730 SEC ;GET READY FOR SUB.¢0740 SBC #48 ;SUBTRACT 48 FROM IT¢0750 CMP #10 ;>9?¢0760 BCS GETKEY ;YES, TRY AGAIN!¢0770 ASL A ;SHIFT BYTE...¢0780 ASL A ;LEFT 4 TIMES...¢0790 ASL A ;FOR THE...¢0800 ASL A ;COLOR,¢0810 ORA #$04 ;ADD BRIGHTNESS¢0820 STA COLOR2 ;STORE IT¢0830 JMP GETKEY ;AND LOOP BACK!¢0840 ;¢0850 ;CHANGE BORDER TO RED IF ERROR¢0860 ;¢0870 ERROR LDA #$32 ;GET RED COLOR¢0880 STA COLOR4 ;CHANGE BORDER!¢0890 FOREVER JMP FOREVER¢0900 ;¢0910 ;OTHER DATA¢0920 ;¢0930 KEYBD .BYTE "K:",$9B¢0940 ;¢0950 ;THAT'S ALL, FOLKS!¢0960 ;¢0970 .END ¢