shave some bytes and fix Dinkey-DOS regression

src/patchers/corrupter.a

@@ -44,7 +44,6 @@
          bcs   .exit      ; passport-test-suite/Squire.woz [C=0] matches
          jsr   PrintByID
          !byte s_corrupter
-         lda   #$0E
          ldy   #$01
          jsr   modify
          !byte $60        ; RTS

src/patchers/origin.a

@@ -17,21 +17,15 @@
          lda   #$0F
          sta   .sector+1
 .sector  lda   #$FF       ; modified at runtime
-         ldx   #$81
-         ldy   #$18
+         ldx   #$8B
+         ldy   #$0C
          jsr   compare
          !byte $BD,$8C,$C0; LDA $C08C,X
-         !byte $10,$FB    ; BPL -
-         !byte $C9,$DE    ; CMP #$DE
-         !byte $F0,$0E    ; BEQ +
-         !byte $EA        ; NOP
-         !byte $BD,$8C,$C0; LDA $C08C,X
          !byte $C9,$AB    ; CMP #$AB
          !byte $D0,$0C    ; BNE +
          !byte $38        ; SEC
          !byte $A5,$5D    ; LDA $5D
          !byte $E9,$11    ; SBC #$11
-         !byte $85,$5D    ; STA $5D
          bcs   +          ; passport-test-suite/Ultima V.woz [C=0] matches
          jsr   PrintByID
          !byte s_origin

src/strings/en.a

@@ -341,7 +341,7 @@ StringTableHigh
 .passport
          !text "Passport ",$00
 .header
-         !text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2021-06-17",$00
+         !text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2021-06-18",$00
 .bar9
          !text "_________",$00
 .bar18

src/universalstyle.a

@@ -36,6 +36,7 @@ UseUniversal
 ; read unprotected disks. A separate patcher finds the actual code that
 ; alters the sector number to print it to the log.
 ;
++
          lda   gIsDinkeyDOS
          bne   +
          ldy   #$0F