erase MECC site-license info (#103)

src/patchers/mecc.a

@@ -12,7 +12,7 @@
          bpl   .jmpexit
          lda   gMECCFastloadType
          cmp   #ID_MECC1
-         bcc   .jmpexit
+         bcc   .scaninfo
          cmp   #ID_MECC4+1
          bcs   .jmpexit
          asl              ; passport-test-suite/Coordinate Math v1.0 (MECC variant 1).woz [C=0] reaches here
@@ -56,6 +56,48 @@
 .jmpexit
          jmp   .exit
 
+.scaninfo
+         lda   gIsProDOS
+         bne   .noinfo
+         lda   #$0B
+         ldx   #$2B
+         ldy   #$27
+         jsr   compare
+         !byte $16        ; storage type (seedling) and name length
+         !text "IDINFO"   ; filename
+         !byte $00,$00,$00,$00,$00,$00,$00,$00,$00
+                          ; pad
+         !byte $06        ; filetype (binary)
+         !byte $07, $00   ; key pointer
+         !byte $01, $00   ; blocks used
+         !byte $00, $02, $00
+                          ; filesize
+         !byte WILDCARD, WILDCARD, WILDCARD, WILDCARD
+                          ; creation date
+         !byte $08        ; creator ProDOS version (might need -> WILDCARD)
+         !byte $00        ; minimum ProDOS version
+         !byte $E3        ; access rights
+         !byte $00, $00   ; auxtype
+         !byte WILDCARD, WILDCARD, WILDCARD, WILDCARD
+                          ; last-mod date
+         !byte $02, $00   ; header pointer
+         bcs   .noinfo
+         lda   #s_idinfo
+         jsr   PrintByID
+         ldy   #$00
+         tya
+.erase   sta   (BASEPAGE << 8) + $100, y
+         sta   (BASEPAGE << 8) + $F00, y
+         iny
+         bne   .erase
+         lda   #$BD
+         sta   (BASEPAGE << 8) + $FFE
+         sta   (BASEPAGE << 8) + $FFF
+         inc   gPatchCount
+
+.noinfo
+         jmp   .exit
+
 .table
          ; MECC1
 

src/strings/en.a

@@ -136,6 +136,7 @@ StringTableLow
          !byte <.sve
          !byte <.cmpnopnop
          !byte <.tsr
+         !byte <.idinfo
 
 StringTableHigh
          !byte >.header
@@ -258,6 +259,7 @@ StringTableHigh
          !byte >.sve
          !byte >.cmpnopnop
          !byte >.tsr
+         !byte >.idinfo
 
 ;
 ; Text can contain substitution strings, which
@@ -614,4 +616,6 @@ StringTableHigh
          !text "T%t,S%0 Found SVE protection check",$8D,$00
 .tsr
          !text "T00,S00 Found TSR bootloader",$8D,$00
+.idinfo
+         !text "T00,S01 Erasing site license information",$00
 }

src/strings/enid.a

@@ -122,4 +122,5 @@ s_pdi        = $74
 s_sve        = $75
 s_cmpnopnop  = $76
 s_tsr        = $77
-STRINGCOUNT =  $78
+s_idinfo     = $78
+STRINGCOUNT =  $79