home *** CD-ROM | disk | FTP | other *** search
/ A.N.A.L.O.G. Magazine 1985 September / 85_sep.atr / bootcamp.asm next >
Assembly Source File  |  2023-02-26  |  2KB  |  1 lines
  1. 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 ¢