
 1000  *--------------------------------
 1010         .OR $3200
 1020         .TF PATCH
 1030  *--------------------------------
 1040  CH     .EQ $24
 1050  BASL   .EQ $28
 1060  XSAVE  .EQ $40
 1070  WBUF   .EQ $200
 1080  *--------------------------------
 1090  ESCAPE.C
 1100         CPX #0       BEGINNING OF LINE?
 1110         BNE .2       NO, RETURN
 1120         LDY #1
 1130  .1     LDA MSG-1,Y  GET CHARACTER
 1140         STA (BASL),Y PUT ON SCREEN
 1150         STA WBUF,X   PUT IN BUFFER
 1160         INY
 1170         INX
 1180         CPY #8       DONE?
 1190         BNE .1       NO
 1200         STY CH
 1210         STX XSAVE    TELL THE ASSEMBLER
 1220         TSX          THAT THIS WAS AN
 1230         LDA #$CC     ESCAPE-L, SO IT WILL
 1240         STA $103,X   GO AHEAD AND EXECUTE
 1250         LDX XSAVE    THE COMMAND
 1260  .2     RTS
 1270  *--------------------------------
 1280  MSG    .AS -/CATALOG/

