O LDY #$4000+32 LDD #1 STD $6033 ORB $E7C3 STB $E7C3 O1 LDX #CT+8 LDA #4 STA C1 O2 LDD ,--X EXG A,B STD ,Y++ DEC C1 BNE O2 LEAY 32,Y CMPY #$5F40 BMI O3 LDY #$4000+32 LDB #$3C JSR $E81E O3 LDX #DAM LDD #$440 PSHS Y LDY #TAB2 P1A LDU ,Y++ STU ,X++ DECA BNE P1A PULS Y STB C1 P1B DEC C1 BMI P2 LDA C1 TFR A,B ANDA #7 STA BT ANDB #56 LSRB LSRB LSRB LDX #CT LEAX B,X STX OCCP LDU #TAB LEAU A,U LDA ,U ANDA ,X BEQ P1B LDA BT LSLA LDX #CEOR LEAX A,X LDD ,X LDX OCCP LEAX 8,X EORA ,X STA ,X CMPX #DAM BEQ S1A LEAX -1,X TFR B,A EORA ,X STA ,X+ S1A CMPX #DAM+7 LBEQ P1B LEAX 1,X EORB ,X STB ,X JMP P1B P2 LDA #8 LDX #DAM P2A LDB ,X+ BNE P3 DECA BNE P2A LDD #$53C P2B JSR $E81E DECA BNE P2B SWI P3 LEAX -8,X CMPX #CT+8 BNE P3A LDX #CT+7 P3A LDA #0 INC ,X CMPA ,X LBNE O1 CLR ,X LEAX -1,X CMPX #CT-1 BNE P3A LDD #$531 P3B JSR $E81E DECA BNE P3B SWI ORG $7F00 CT FDB 0,0,0,0 DAM RMB 8 C1 FCB 0 BT FCB 0 OCCP FDB 0 TAB FCB 1,2,4,8,16,32,64,128 CEOR FDB $203,$507,$A0E,$141C FDB $2838,$5070,$A0E0,$40C0 TAB2 FCB 255,255,255,255 FCB 255,255,255,255 END