
 1000  *SAVE S.SCREEN PRINTER
 1010  *--------------------------------
 1020  *      INSTANT HARDCOPY PROGRAM
 1030  *      BY ULF SCHLICHTMANN
 1040  *--------------------------------
 1050  SLOT   .EQ 1
 1060  BASL   .EQ $28
 1070  BASH   .EQ $29
 1080  *--------------------------------
 1090  COLUMNS    .EQ $678
 1100  DOS.REHOOK .EQ $03EA
 1110  AS.VTAB    .EQ $F25A
 1120  MON.PR     .EQ $FE95
 1130  MON.CROUT  .EQ $FD8E
 1140  MON.COUT   .EQ $FDED
 1150  MON.SETVID .EQ $FE93
 1160  *--------------------------------
 1170         .OR $300
 1180  HCOPY  LDA #SLOT    SET UP OUTPUT VECTOR
 1190         JSR MON.PR   TO POINT AT PRINTER
 1200         JSR MON.CROUT     START A NEW LINE
 1210         STA COLUMNS+SLOT  DISABLE SCREEN
 1220         LDX #0       START AT TOP OF SCREEN
 1230  .1     JSR AS.VTAB  COMPUTE BASE ADDRESS
 1240         LDY #0       START IN COLUMN 1
 1250  .2     LDA (BASL),Y NEXT CHARACTER FROM THIS LINE
 1260         JSR MON.COUT
 1270         INY
 1280         CPY #40      END OF LINE YET?
 1290         BNE .2       NO
 1300         JSR MON.CROUT
 1310         INX          NEXT LINE
 1320         CPX #24      END OF SCREEN YET?
 1330         BNE .1       NO
 1340         JSR MON.SETVID
 1350         JMP DOS.REHOOK

