|
I don't really expect anything from this other than a few "you could have done this better" - well, I probably could have ;-(
I can't remember what dum1 was for, but I seem to remember INKEY-1 is shift.
But if anyone wants to play or get inspired, here it is:
10*K.10O.|MREN.|M*FX12,3|ML.|M
20MODE7
30fx=&FFF4
40PROCass
50FOR X%=0 TO 255:rscr?X%=?(&C000+(X%DIV 32)+(X% MOD 32)*8):NEXT
60MODE2
70?dum1=1-INKEY-1
80FOR C=1TO3
90READ A,B
100?&FE00=A:?&FE01=B
110NEXT
120?&FE40=4:?&FE40=5
130DATA 1,64,2,90,8,193
140CALL intit
150FOR X=1 TO 64:?(&3FFF+RND(&4000))=RND AND 25:NEXT
160!&4000=&3F3F3F3F
170END
180DEFPROCass:FOR pass=0 TO 3 STEP 2-INKEY-1
190P%=&1100
200[:OPT pass
210.blob:EQUS STRING$(60,CHR$(&F)+CHR$(&00)+CHR$(&3)+CHR$(&C)):.dum1 :EQUD 0:EQUD 0:EQUD 0:EQUW 0:.blobx:EQUB 1:.bloby:EQUB 1
220.rscr:EQUS STRING$(255,CHR$&12):EQUB &FF
230.Print:STA &81:LDA #0:STA &80:LDY #254
240LDA (&80),Y:INY:ASL A:ASL A:ASL A:STA &70:LDA (&80),Y:ROL A:AND #63:ORA #64:STA &71
250.lp1:LDY #79:.lp3:LDA (&80),Y:EOR (&70),Y:STA (&70),Y:DEY:BPL lp3
260INC &71:INC &71:LDA &71:BPL lp2:SBC #79:STA &71
270.lp2:CLC:LDA &80:ADC #80:STA &80:CMP #240:BNE lp1:RTS
280.intit:php:sei:LDA #int MOD 256:sta &220:lda #int DIV 256:sta &221:lda #14:ldx #4:jsr &FFF4:LDA #&11:STA &F9:JSR Print:plp:LDA #0:STA &70:rts
290
300.int:PHP:SEI:PHA:TXA:PHA:TYA:PHA
310LDA dum1:EOR #1:STA dum1:BNE endnot:jmp ending:.endnot
320LDA lo:ASL A:ASL A:ASL A:STA &70:LDA ry:ROL A:AND #63:ORA #64:STA &71
330INC lo:BNE ai2:INC hi:LDA hi:AND #7:BNE ai2:LDA #8:STA hi:.ai2
340LDA lo:AND #63:BNE a13:INC ry:.a13
350LDA #13:STA &FE00:LDA lo:STA &FE01:LDA #12:STA &FE00:LDA hi:STA &FE01
360
370LDX #31:.rs1:LDY #7:.rs
380LDA rscr,X:STA scc1
390.scc2:LDA #3:ASL scc1:BCS scc3
400LDA #0:.scc3:STA (&70),Y
410DEY:BPL scc2:INC &71:BPL rs4:LDA #&41:STA &71:JMP rs5:.rs4:INC &71:BPL rs5:LDA #&40:STA &71:.rs5
420DEX:BPL rs1:CLC:LDA rs+1:ADC #32:STA rs+1
430
440LDA #&11:JSR Print:INC &11FE:LDA &11FE:AND #63:BNE ai1:INC &11FF:.ai1:LDA #&11:JSR Print
450
460.ending:LDA #0:STA &FE21:PLA:TAY:PLA:TAX:LDA #7:STA &FE21:PLA:PLP:RTS:.lo:EQUB 0:.hi:EQUB 8:.rx EQUB 0:.ry EQUB 0:.scc1 EQUB 0
470]:NEXT:ENDPROC
|
