
 1000  *SAVE WETZEL'S PATCHES TO 1.1
 1010         .OR $F600
 1020         .TF SCM.PATCH
 1030  *----------------------------------------------------------
 1040  CH     .EQ $24
 1050  BASL   .EQ $28
 1060  YSAVE  .EQ $40
 1070  WBUF   .EQ $200
 1080  LCPROT .EQ $C080    LC Protect
 1090  LCWRT  .EQ $C083    LC Write enable
 1100  UCFLAG .EQ $D016    UC/LC Flag
 1110  BELL   .EQ $FF3A    Monitor Bell
 1120  *----------------------------------------------------------
 1130  CONTROL.A
 1140         CMP #$81     Was a CNTL-A entered
 1150         BNE ERROR    No - then signal error
 1160         LDA LCWRT    Write enable Language card
 1170         LDA LCWRT    
 1180         LDA UCFLAG   Get upper case flag
 1190         EOR #$FF     Reverse it 
 1200         STA UCFLAG   Put it back 
 1210         LDA LCPROT   Write protect Language card
 1220         RTS
 1230  ERROR
 1240         JSR BELL     Ring bell to signal error
 1250         RTS          Return
 1260  *----------------------------------------------------------
 1270  ESCAPE.C
 1280         CPX #0       Start of line?
 1290         BNE .2       No, rtn
 1300         LDY #0
 1310  .1     LDA MSG,Y    Get message
 1320         STA WBUF,Y   Put in buffer
 1330         STA (BASL),Y Put on screen (40-column)
 1340         INY
 1350         CPY #7       Finished ?
 1360         BNE .1       Not yet 
 1370         STY YSAVE
 1380         INY
 1390         STY CH       Tell assembler
 1400         TSX          this was an 
 1410         LDA #$CC     ESC-L so it will
 1420         STA $103,X   exec command
 1430         LDX YSAVE
 1440  .2     RTS
 1450  MSG    .AS -/CATALOG/

