!L
   1        ORG $3280
   2        OBJ $800
   3        NLS
   4 ;
   5 ;
   6 UNLINK LDY #$03
   7 UNL    LDA $1E88,Y
   8        LDX $1E02
   9        BNE REVOC
  10        LDA CONST,Y
  11 REVOC  STA $AA53,Y
  12        DEY
  13        BPL UNL
  14        JSR $A851
  15        LDX $1E02
  16        BEQ NT/SLT
  17        LDX $1E09
  18        CPX #$01
  19        BNE NT/ECH
  20        LDA #$85
  21        JSR $FDED
  22        LDA "B
  23        JSR $FDED
  24        BNE NT/SLT
  25 NT/ECH CPX #$03
  26        BNE NT/SLT
  27        LDA #$85
  28        JSR $FDED
  29        LDA "3
  30        JSR $FDED
  31        LDA "E
  32        JSR $FDED
  33 NT/SLT LDA #$00
  34        STA $06
  35        STA $08
  36        LDA #$20
  37        STA $07
  38        LDA #$08
  39        STA $08
  40 MV1    LDY #$00
  41 MV2    LDA ($06),Y
  42        STA ($08),Y
  43        INY
  44        BNE MV2
  45        INC $07
  46        INC $09
  47        LDA $07
  48        CMP #$33
  49        BNE MV1
  50        RTS
  51 ;
  52 ;
  53 CONST  HEX F0FD1BFD
  54        END