10 ;›20  .TITLE "PRNTSC ROUTINE"›30  .PAGE "ROUTINE FOR PRINTING ON THE SCREEN"›40 ;›50  *=$5000›60 ;›70 BUFLEN=23›80 ;›0100 EOL=$9B›0105 ;›0110 OPEN=$03›0120 OWRIT=$0B›0130 PUTCHR=$0B›0135 ;›0140 IOCB2=$20›0170 ICCOM=$342›0180 ICBAL=$344›0190 ICBAH=$345›0200 ICBLL=$348›0210 ICBLH=$349›0220 ICAX1=$34A›0230 ICAX2=$34B›0235 ;›0240 CIOV=$E456›0250 ;›0260 SCRNAM .BYTE "E:",EOL›0270 ;›0280 OSCR LDX #IOCB2;OPEN SCREEN ROUTINE›0300  LDA #OPEN›0310  STA ICCOM,X›0320 ;›0330  LDA #SCRNAM&255›0340  STA ICBAL,X›0350  LDA #SCRNAM/256›0360  STA ICBAH,X›0370 ;›0380  LDA #OWRIT›0390  STA ICAX1,X›0400  LDA #0›0410  STA ICAX2,X›0420  JSR CIOV›0430 ;›0440  LDA #PUTCHR›0450  STA ICCOM,X›0460 ;›0470  LDA #TXTBUF&255›0480  STA ICBAL,X›0490  LDA #TXTBUF/256›0500  STA ICBAH,X›0510  RTS›0520 ;›0530 PRNT›0540  LDX #IOCB2›0550  LDA #BUFLEN&255›0560  STA ICBLL,X›0570  LDA #BUFLEN/256›0580  STA ICBLH,X›0590  JSR CIOV›0600  RTS›0610 ;›0620 TXTBUF=*›0630 ;›0640  *=*+BUFLEN›0650 ;›0660  .END››