;PART OF RUNTIME BY MIRAGE››PROC MOVEBLOCK=*(CARD DK,SK,IL)›[$85 $A0 ;    STA $A0› $86 $A1 ;    STX $A1› $84 $A2 ;    STY $A2› $A0 $00 ;    LDY #$00› $A5 $A5 ;    LDA $A5› $F0 $16 ;    BEQ TAM› $B1 $A2 ;N1  LDA ($A2),Y› $91 $A0 ;    STA ($A0),Y› $C8     ;    INY › $D0 $F9 ;    BNE N1› $E6 $A1 ;    INC $A1› $E6 $A3 ;    INC $A3› $C6 $A5 ;    DEC $A5› $D0 $F1 ;    BNE N1› $F0 $05 ;    BEQ TAM› $B1 $A2 ;N2  LDA ($A2),Y› $91 $A0 ;    STA ($A0),Y› $C8     ;    INY › $C4 $A4 ;TAM CPY $A4› $D0 $F7 ;    BNE N2›]RETURN››PROC SETBLOCK=*(CARD SK,IL BYTE CO)[› $85 $A0 ;    STA $A0› $86 $A1 ;    STX $A1› $84 $A2 ;    STY $A2› $A0 $00 ;    LDY #$00› $A5 $A3 ;    LDA $A3› $F0 $14 ;    BEQ TAM› $A5 $A4 ;N1  LDA $A4› $91 $A0 ;    STA ($A0),Y› $C8     ;    INY › $D0 $F9 ;    BNE N1› $E6 $A1 ;    INC $A1› $C6 $A3 ;    DEC $A3› $D0 $F3 ;    BNE N1› $F0 $05 ;    BEQ TAM› $A5 $A4 ;N2  LDA $A4› $91 $A0 ;    STA ($A0),Y› $C8     ;    INY › $C4 $A2 ;TAM CPY $A2› $D0 $F7 ;    BNE N2›]RETURN››PROC ZERO(CARD SK,IL)› SETBLOCK(SK,IL,0)›RETURN›››