10 ;›20       .TITLE "PRNTSC ROUTINE"›30       .PAGE "ROUTINES FOR PRINTING ON THE SCREEN"›40 ;›50       *=  $5000›60 ;›70 BUFLEN =  25›80 ;›90 EOL   =   $9B     ;ATASCII CODE FOR END OF LINE CHARACTER›0100 ;›0110 OPEN =  $03     ;TOKEN FOR OPENING A DEVICE OR FILE›0120 OWRIT = $08     ;TOKEN FOR "OPEN FOR WRITE OPERATIONS"›0130 PUTCHR = $0B    ;TOKEN FOR "PUT CHARACTER"›0140 CLOSE = $0C     ;TOKEN FOR CLOSING A DEVICE OR FILE›0150 ;›0160 IOCB2 = $20     ;OFFSET FOR IOCB NO.2›0170 ICCOM = $0342   ;COMMAND BYTE (CONTROLS CIO OPERATIONS)›0180 ICBAL = $0344   ;BUFFER ADDRESS (LOW BYTE)›0190 ICBAH = $0345   ;BUFFER ADDRESS (HIGH BYTE)›0200 ICBLL = $0348   ;BUFFER LENGTH (LOW BYTE)›0210 ICBLH = $0349   ;BUFFER LENGTH (HIGH BYTE)›0220 ICAX1 = $034A   ;AUXILIARY BYTE NO.1›0230 ICAX2 = $034B   ;AUXILIARY BYTE NO.2›0240 ;›0250 CIOV =  $E456   ;CIO VECTOR›0260 ;›0270 DEVNAM .BYTE "E:",EOL›0280 ;›0290 OPNSCR›0300     LDX #IOCB2›0310     LDA #OPEN›0320     STA ICCOM,X›0330 ;›0340     LDA #DEVNAM&255›0350     STA ICBAL,X›0360     LDA #DEVNAM/256›0370     STA ICBAH,X›0380     ;   ›0390     LDA #OWRIT›0400     STA ICAX1,X›0410     LDA #0›0420     STA ICAX2,X›0430     JSR CIOV›0440 ;›0450     LDA #PUTCHR›0460     STA ICCOM,X›0470 ;›0480     LDA #TXTBUF&255›0490     STA ICBAL,X›0500     LDA #TXTBUF/256›0510     STA ICBAH,X›0520     RTS ›0530 ;›0540 PRNT›0550     LDX #IOCB2›0560     LDA #BUFLEN&255›0570     STA ICBLL,X›0580     LDA #BUFLEN/256›0590     STA ICBLH,X›0600     JSR CIOV›0610     RTS ›0620 ;›0630 CLOSED›0640     LDX #IOCB2›0650     LDA #CLOSE›0660     STA ICCOM,X›0670     JSR CIOV›0680     RTS ›0690 ;›0700 TXTBUF = *›0710 ;›0720     *=  *+BUFLEN›0730 ;›0740     .END ›