 
ô > TEST65io/src : ô 6502 BBC MOS Equates (ô ==================== 2!ESCFLG  =&FF   :ô Escape flag <(FAULT   =&FD   :ô Last error message FOSARGS  =&FFDA P.OSRDCH  =&FFE0 :ô Wait for character input Z,OSASCI  =&FFE3 :ô Output ASCII character d-OSNEWL  =&FFE7 :ô Output newline sequence n!OSWRCR  =&FFEC :ô Output <CR> x&OSWRCH  =&FFEE :ô Output character ‚3OSWORD  =&FFF1 :ô System info via control block Œ/OSBYTE  =&FFF4 :ô System info via registers –%OS_CLI  =&FFF7 :ô Execute command  *BRKV    =&0202 :ô Error handler vector ª"EVENTV  =&0220 :ô Event vector ´: ¾ CODELOAD=&4000:Þ mcode% &400 Èã P=0 ¸ 1:opt%=P*3+4 ÒP%=CODELOAD:O%=mcode% Ü[OPT opt% æ\ CODE HEADER ð\ ----------- ú.CODESTARTJMP CODEENTRYBRK:BRK:BRKEQUB &42"EQUB COPYMSG-CODESTART,
EQUB 06
.TITLE@!EQUS "65x02 I/O test program"J.COPYMSGT%EQUB 0:EQUS "(C)2014 J.G.Harston"^
EQUB 0hEQUD CODELOADr:|.CODEENTRY†PHP:PHA:TYA:PHA:TXA:PHALDA &FFFB:BPL CHECK2š.BRK:EQUB 255:EQUS "Not running on I/O":BRK¤:®.CHECK2¸%LDX #TITLE € 255:LDY #TITLE  256ÂJSR PRSTRING:JSR OSNEWL:TSXÌ JSR PRTEXT:EQUS "A=&":EQUB 0ÖLDA &103,X:JSR PRHEXà"JSR PRTEXT:EQUS "  X=&":EQUB 0êLDA &101,X:JSR PRHEXô"JSR PRTEXT:EQUS "  Y=&":EQUB 0þLDA &102,X:JSR PRHEX$JSR PRTEXT:EQUS "  S=&01":EQUB 0TXA:CLC:ADC #4:JSR PRHEX"JSR PRTEXT:EQUS "  P=&":EQUB 0&LDA &104,X:JSR PRHEX0::-JSR PRTEXT:EQUB 13:EQUS "MEMBOT=&":EQUB 0D"LDA #&83:JSR OSBYTE:JSR PR2HEXN'JSR PRTEXT:EQUS "  MEMTOP=&":EQUB 0X"LDA #&84:JSR OSBYTE:JSR PR2HEXb+JSR PRTEXT:EQUB 13:EQUS "CMD=> ":EQUB 0l)LDA #&01:LDX #&A8:LDY #&00:JSR OSARGSv
.CMDlp€LDA (&A8),Y:JSR OSASCIŠINY:CMP #13:BNE CMDlp”:ž	.EXIT¨PLA:PLA:PLA:PLA²RTS¼:Æ.PRTEXTÐPLA:STA &F6:PLA:STA &F7ÚJSR PSTR3:JMP (&00F6)ä.PRSTRINGîSTX &F6:STY &F7ø
.PSTR2LDY #0:LDA (&F6),YBEQ PSTR3:JSR OSASCI
.PSTR3 INC &F6:BNE PSTR4:INC &F7*
.PSTR44TAY:BNE PSTR2:RTS>:H.PR2HEXRTYA:JSR PRHEX:TXA\
.PRHEXfPHA:LSR A:LSR A:LSR A:LSR ApJSR PNYB:PLAz	.PNYB„!€ #15:CMP #10:BCC PDIG:ADC #6Ž	.PDIG˜ADC #—"0":JMP OSWRCH¢:¬.PRSPACE:LDA #32:JMP OSWRCH¶
.PRKEYÀ;JSR PRTEXT:EQUB 13:EQUB 13:EQUS "Press a key...":EQUB 0ÊJSR OSRDCH:JMP OSWRCRÔ:Þ7.TEST3:EQUS "This is using PRSTRING":EQUB 13:EQUB 0è .CMDHELP:EQUS "help":EQUB 13ò.BRKSAVE:EQUW 0ü:]í@ñ"*SAVE TEST65io ";~mcode%;" ";~O%;" "~CODELOAD;" "~CODELOADÿ