 ORG 7680
 PUT *
 
 JSR 35242
 JSR 36483
 
 PSHS CC
 ORCC #$10
 STA $FFDF
 
 LDY #$B000
 LDA #9
 STA CNT2
LP0 LDA #15
 STA CNT1
LP LDU #$D100
 LDA ,X+
 BEQ EMPTY
 LDB #32
 MUL
 LEAU D,U
EMPTY STU ,Y++
 DEC CNT1
 BNE LP
 LEAX 1,X
 DEC CNT2
 BNE LP0
 
BCK2 LDY #$600
 LEAY 1,Y
 LDX #$B000
 STS K3+2
 LDA #9
 STA CNT2
VLP2 LDA #15
 STA CNT1
HLP2 STX K4+1
 LDS ,X
 BEQ BLK2
 PULS D,X,U
 STD ,Y
 STX 32,Y
 STU 64,Y
 LEAY 96,Y
 PULS D,X,U
 STD ,Y
 STX 32,Y
 STU 64,Y
 LEAY 96,Y
 PULS D,X,U
 STD ,Y
 STX 32,Y
 STU 64,Y
 LEAY 96,Y
 PULS D,X,U
 STD ,Y
 STX 32,Y
 STU 64,Y
 LEAY 96,Y
 PULS D,X,U
 STD ,Y
 STX 32,Y
 STU 64,Y
 LDU ,S
 STU 96,Y
 LEAY -384,Y
BLK2 LEAY 2,Y
K4 LDX #0
 LEAX 2,X
 DEC CNT1
 BNE HLP2
 LEAY 482,Y
 DEC CNT2
 BNE VLP2
K3 LDS #0
 STA $FFDE
 PULS CC,PC
 
 ORG 7900
 PUT *
 
 JSR 35242
 JSR 36483
 STX TEMP
 JSR 35242
 JSR 36483
 
 PSHS CC
 ORCC #$10
 STA $FFDF
 
 LDU TEMP
 LDA #16
 STA CNT1
SLP LDD ,U++
 STD ,X
 LEAX 32,X
 DEC CNT1
 BNE SLP
 
 STA $FFDE
 PULS CC,PC
 
 ORG 1024
 
CNT1 RMB 1
CNT2 RMB 1
TEMP RMB 1
 
 
 
