; TODOs: ; + Moves berechnen ; + Exit open (disable cursor, stop game) ; + PAL/NTSC ; + Flackern beim Laden eines neuen Puzzles ; + Sound (stop cursor, finished/optimal) ; + optimierte Puzzles (mehr freie Flächen) processor 6502 include vcs.h ;=============================================================================== ; A S S E M B L E R - S W I T C H E S ;=============================================================================== DEBUG = 0 DEMO = 0 ILLEGAL = 1 CURMOVE = 1 DISABLE = 0 PAL = 1 SYNCFRAMES = 5 ; bei 5 flackert's bei längerer Auswahl ;=============================================================================== ; C O N S T A N T S ;=============================================================================== EXITROW = 2 GRIDSIZE = 6 NUMSTRIPS = GRIDSIZE*2 NUMPATTERN = 22 NUMBLOCKS = GRIDSIZE*2-1 MAXCARS = 14 ; has been verified! MAXLEVEL = 6 Y0 = 12 CH = 20+1 SH = 6+1 BH = CH+SH BW = [4*4] OFFSETX = 31 OFFSETY = CH*6+SH*7+Y0-18 CARRIGHT = 6*BW+4 NUMDIGITS = 5 ; colors: BLOCKCOL = $0e CARCOL = $1e STOPCOL = $48 ARROWCOL = $88 CARCOL_PAL = $5c ;$2e STOPCOL_PAL = $68 ARROWCOL_PAL = $d8 ; sounds: SOUND_CAR = 2 SOUND_TRUCK = SOUND_CAR + 1 ; must! IF DEMO SOUND_BEST = SOUND_TRUCK + 5 ELSE SOUND_BEST = SOUND_TRUCK + 17 ENDIF SOUND_SOLVED = SOUND_BEST + 3 ; masks for carLst: CARMASK_X = %00000111 CARMASK_Y = %00111000 CARMASK_3 = %01000000 ; masks for State: RESETMASK = %00000001 ; SWCHB SELECTMASK = %00000010 ; SWCHB SWITCHESMASK = RESETMASK|SELECTMASK BUTTONMASK = %00001000 ; from INPT4 SOLVEDMASK = %10000000 ; opcodes: opBIT_B = $24 ; opcode for bit.b opBIT_W = $2c ; opcode for bit.w opLAX = $af ; illegal opcode for lax absolute opLAX_ZP = $a7 ; illegal opcode for lax ZP opLAX_IY = $b3 ; illegal opcode for lax(),y opLAX_Y = $bf ; illegal opcode for lax,y opNOP_W = $0c ;=============================================================================== ; Z P - V A R I A B L E S ;=============================================================================== SEG.U variables ORG $80 tmpVar .word tmpVar2 = tmpVar + 1 column .word row = column + 1 lastCar .byte movedCar .byte CurEnd .byte CurPtr = column ;.word CurCol = movedCar ;.byte CarPosX .byte SyncFrames .byte ;--------------------------------------- ; these variables are cleared together CurXY .word CurY = CurXY CurX = CurXY + 1 CurMoveXY .ds 3 CurMoveY = CurMoveXY CurMoveX = CurMoveXY + 1 CarMoveX = CurMoveXY + 2 State .byte PlusMinus .byte ; $80 ;--------------------------------------- ; audio variables: AudTim0 .byte AudIdx0 .byte ;--------------------------------------- ; playfied variables: PF1Left .ds NUMBLOCKS PF2Left .ds NUMBLOCKS PF2Right .ds NUMBLOCKS PF1Right .ds NUMBLOCKS PFLst = PF1Left ;--------------------------------------- FrameCnt .byte ;--------------------------------------- ; level variables: Level .byte Card .byte Moves .byte numCars .byte carLst .ds MAXCARS ;--------------------------------------- ; score display variables: digitPtr ds.w NUMDIGITS ; 10*8 Kernel (digits only) digitColPtr .word minusPatPtr .word ;--------------------------------------- ; static decompress variables: valuePtr .word valueIdx .byte shift .byte oldValues .ds shift-valuePtr+1 ;------------------------------------------- ORG PFLst ; temporary decompress variables: stripPat .ds NUMSTRIPS curStripPat .byte rowColIdx .byte gridLst .ds NUMSTRIPS ;=============================================================================== ; M A C R O S ;=============================================================================== MAC BIT_B .byte opBIT_B ENDM MAC BIT_W .byte opBIT_W ENDM MAC LAX_IY IF ILLEGAL lax ({1}),y ELSE lda ({1}),y ; tax ENDIF ENDM ;=============================================================================== ; R O M - C O D E ;=============================================================================== SEG Bank0 ORG $f000 IF SYNCFRAMES DoSync: dec SyncFrames bpl ContSync ENDIF ;*********************************************************** DrawScreen SUBROUTINE ;*********************************************************** .waitTim: lda #$c0 eor INTIM bne .waitTim sta WSYNC ;*** display score: *** sta HMOVE ; 3 ; sta VBLANK ; 3 = 6 end the VBLANK period with a zero sta PF1 ; sta PF2 lda FrameCnt ; 3 and #%00111000 ; 2 lsr ; 2 lsr ; 2 lsr ; 2 adc #PF2), a (->PF1) ; Output: x, y = 0 ; Flags : ZF = 1, CF = 0 ; Uses : a, x, y ; Cycles: ;*************************************************************** ldy #SH ; 2 stx PF2 ; 3 .loopRows: sta WSYNC ; 3 sta PF1 ; 3 ldx #6 ; 2 .waitRow: dex ; 2 bne .waitRow ; 2³ lsr ; 2 sta PF1 ; 3 rol ; 2 dey ; 2 bne .loopRows ; 2 rts ; 6|51 ;DrawBlock END ;*********************************************************** CalcXPos SUBROUTINE ; Input : a (= xpos) ; Output: a (=HMOVE), y (=delay) ; Uses : a, y, ; tmpVar ; Cycles: 43-49 (avg.:~45) ;*********************************************************** tay ; 2 lsr ; 2 lsr ; 2 lsr ; 2 lsr ; 2 sta tmpVar ; 3 = 13 tya ; 2 and #$0f ; 2 clc ; 2 adc tmpVar ; 3 ldy tmpVar ; 3 cmp #$0f ; 2 bcc .nextPos ; 2³ sbc #$0f ; 2 iny ; 2 .nextPos: ; = 17/20 eor #%00000111 ; 2 asl ; 2 asl ; 2 asl ; 2 asl ; 2 rts ; 6 = 16 ;CalcXPos END ;*********************************************************** VerticalSync SUBROUTINE ;*********************************************************** ldx #2 sta WSYNC stx VSYNC ; 3 begin vertical sync. dec FrameCnt ; 5 = 8 ;*** calc end of cursor: *** lda CurMoveY ; 3 asl ; 2 clc ; 2 ldy CurY ; 3 adc CurYTab,y ; 4 sta CurEnd ; 3 = 17 ;*** setup lo-pointers for score: (part1/2) *** ; -MM CCC lda # *3 + 1 = 118 sta RESP1 ; 3|42 -> *3 + 0 = 126 sty HMBL ; 3 sta HMP0 ; 3 + 1 pixel stx HMP1 ; 3 = 15 +/- 0 pixel ldx #$c0+43-10 ; 2 29 lines (NTSC) IF PAL bit SWCHB ; 4 bpl .noPAL ; 3 ldx #$c0+43-10+27 ; 2 51 lines (PAL) .noPAL: ENDIF sta WSYNC ; 3 third line of VSYNC. sta VSYNC ; 3 stx TIM64T ; 4 ;VerticalSync END ;*********************************************************** CheckSwitches SUBROUTINE ;*********************************************************** lda SWCHB ; 4 and #~SWITCHESMASK ; 2 eor State ; 3 and #~SWITCHESMASK ; 2 eor SWCHB ; 4 tax ; 2 lda State ; 3 eor #SWITCHESMASK ; 2 ora SWCHB ; 4 stx State ; 3 lsr ; 2 bcc RestartCard ; 2³ lsr ; 2 bcs GameCalc ; 2³= 37/38 ;*********************************************************** SelectLevel SUBROUTINE ;*********************************************************** bit INPT4 ; fire pressed? bpl LoadRandomCard ; yes, select random puzzle ldy Level iny cpy #MAXLEVEL bcc .skipReset ldy #0 .skipReset: sty Level GameInit: jsr LoadFirstCard bmi StartCard ;*********************************************************** LoadRandomCard SUBROUTINE ;*********************************************************** IF DEBUG jsr LoadNextCard jmp StartCard ENDIF lda FrameCnt ; 3 and #$3f ; 2 tax IF SYNCFRAMES lsr ; 2 sync longer for higher values lsr lsr adc #SYNCFRAMES sta SyncFrames ENDIF BIT_W ; 2 NextCard: ldx #0 ; 2 stx tmpVar2 ; 3 .loopNext: jsr LoadNextCard ; 6 dec tmpVar2 ; 3 bpl .loopNext ; 2³ bmi StartCard ; 3 verhindert 2-faches Decode ;LoadRandomCard END ;SelectLevel END ;*********************************************************** RestartCard SUBROUTINE ;*********************************************************** jsr LoadCurrentCard StartCard: jsr PostDecodeCard ;3207 pla ; 4 pop return address pla ; 4 pop return address .waitTim: lda INTIM ; 4 bne .waitTim ; 2³ ldx #42 .wait: sta WSYNC dex bne .wait beq SkipScreen ; 3 ;RestartCard END ;*************************************************************** InitVCS SUBROUTINE ;*************************************************************** sei ; disable interrupts, if there are any. cld ; clear BCD math bit. ldx #0 txs pha ; set stack to beginning. txa .clearLoop: pha dex bne .clearLoop ;*** init some variables: *** ; lda #$10 ; sta PF0 ; lda #1 ; sta CurX ; lda #0 ; sta CurY ; lda #9 ; sta Level ; lda #$25 ; sta Card ; ldy #1 ; sty Level ; jsr LoadFirstCard lda #%100001 ; relect PF, BL size = 4 sta CTRLPF lda #$0c ; 2 set sound sta AUDC0 ; 3 ;*** set hi-pointers for score display: *** ldx #[NUMDIGITS+2]*2 ; includes minusPatPtr & digitColPtr lda #>zero .loopPtr: dex sta digitPtr,x bne .loopPtr jsr GameInit ;***** the main loop: ***** .mainLoop: jsr VerticalSync ; execute the vertical sync and blank jsr DrawScreen ; draw the screen SkipScreen: jsr OverScan ; execute overscan bmi .mainLoop ; 3 continue forever ;InitVCS END ;*********************************************************** GameCalc SUBROUTINE ; Input : x = State ; Output: none ; Uses : tmpVar ; Cycles: ;*********************************************************** txa ; x = State bpl .checkMove ;*** check for fire button to start next card: *** jsr CheckButton ; fire button pressed? bcs NextCard ; 2³ yes, goto next card ;*** check for yellow car moving: *** .checkMove: ldx CarMoveX beq .contCalc ;*** check for yellow car exiting: *** lda CarPosX cmp #OFFSETX+CARRIGHT ; card solved? bne .jmpShowStop ; no, car is just moving .contDemo: lda #SOLVEDMASK|BUTTONMASK; set solved state sta State lda #GRIDSIZE-1 ; position cursor at exit sta CurX lda #GRIDSIZE-1-EXITROW sta CurY sta CurEnd ; disable cursor! inx ; car exit finished? bne .jmpShowStop ; no, skip jsr UpdateMoves ; yes, update moves... ldx #SOUND_SOLVED lda Moves bne .soundSolved ; ...and... ldx #SOUND_BEST ; bne .soundSolved ; 3 ;*** show red stop cursor: *** .checkStopMove: jsr CheckButton bcc .jmpShowStop ldx movedCar lda carLst,x and #CARMASK_3 ldx #SOUND_CAR asl bpl .soundCar inx .soundCar: .soundSolved: ;*** start new tune: *** stx AudIdx0 ; 4 replace old tune with new one... lda #-1 ; 2 ...and... sta AudTim0 ; 4 ...start new sequence .jmpShowStop: jmp .showStop .contCalc: IF DEMO bit State bmi .jmpShowStop DemoCheck: lda Card and #$1f bne .contDemo DemoCheckEnd: ENDIF ;*** check, if cursor is currently moving: *** lda CurMoveX ora CurMoveY bne .jmpShowStop ldx CurX lda CurY jsr CheckGrid bne .jmpShowStop ; cursor is on empty space ; x = car, y = pos stx movedCar lda carLst,x asl ldx #0 bcc .horzCar inx .horzCar: lda #1 dey bmi .uprightMove lda #-1 .uprightMove: rol sta tmpVar ; a = -2,-1,2,3 ror clc adc column,x cmp #GRIDSIZE bcs .checkStopMove sta column,x ldx movedCar jsr CheckSpace beq .checkStopMove ;*** check fire button: *** jsr CheckButton bcc .showArrow ; 2³= 22 skip if (not pressed) or (pressed before) ; ***** update number of moves: ***** ldx movedCar cpx lastCar beq .skipUpdateMoves stx lastCar jsr UpdateMoves .skipUpdateMoves: ;***** update kernel data: ***** jsr SetupCar ; clear old data ldx lastCar lda tmpVar ; cmp #$80 ; set CF ror ; horizontal move? bcc .horz ; yes, skip multiplication asl asl asl clc .horz: adc carLst,x ; move car sta carLst,x jsr SetupCar ; set new data ;***** move cursor with car: ***** IF CURMOVE bit SWCHB bvs .skipMoveCur lda tmpVar cmp #$80 ror tay ldx #1 bcc .horzMoveCur dex clc .horzMoveCur: adc CurXY,x sta CurXY,x ldx lastCar ; yellow car? bne .skipMoveCur iny lda CarMoveTab,y sta CarMoveX ; animate yellow car sta CurMoveX ; and cursor .skipMoveCur: ENDIF ;***** show red stop cursor: ***** .showStop: lda #[ArrowUp+ARROWH] sta CurPtr+1 ;*********************************************************** PlayAudio SUBROUTINE ; Cycles: 6-44 ;*********************************************************** ;-2 = first note ;-1 = next note ; 0 = pause ;>0 = continue ldy AudIdx0 ; 3 playing a tune? beq .skipAudio ; 2³ no, skip ldx AudTim0 ; 3 decrease timer dex ; 2 beq .zeroVolume ; 2³ if zero, play break bpl .playAudio ; 2³ if > 0, continue current note ;*** start next note: *** dey ; 2 lda AudF0Tab-1,y ; 4 if( FxTab,y & $80 == 0 && (FxTab-Startwert: Bit 7 = 0 sonst = 1) sta AUDF0 ; 3 ora AudTim0 ; 3 TimVx == 0 ) bmi .setAudio ; 2³ ldy #0 ; 2 stop audio-sequence .zeroVolume: lda #0 ; 2 set volume = 0 beq .contAudio ; 3 .setAudio lda #$0f ; 2 set volume ldx AudT0Tab-1,y ; 4 .contAudio: sty AudIdx0 ; 3 sta AUDV0 ; 3 .playAudio: stx AudTim0 ; 3 .skipAudio: ; ldy AudIdx0 ; 4 playing a tune? ; beq .skipAudio ; 2 no, skip ; dec AudTim0 ; 6 decrease timer ; bmi .startAudio ; 2 if negative, start new tune ; bne .skipAudio ; 2 if not zero, continue current note ; dey ; 2 else, next note ;.startAudio: ; lda AudF0Tab-1,y ; 4 if( FxTab,y & $80 == 0 && (FxTab-Startwert: Bit 7 = 0 sonst = 1) ; sta AUDF0 ; 4 ; ora AudTim0 ; 4 TimVx == 0 ) ; bmi .setAudio ; 2³ ; lda #0 ; 2 disable sound ; tay ; 2 stop play-sequence ; beq .contAudio ; 3 ; ;.setAudio ; lda AudT0Tab-1,y ; 4 ; sta AudTim0 ; 4 ; lda AudVC0Tab-1,y ; 4 ; sta AUDC0 ; 4 ; lsr ; 2 ; lsr ; 2 ; lsr ; 2 ; lsr ; 2 ;.contAudio: ; sta AUDV0 ; 4 ; sty AudIdx0 ; 4 ;.skipAudio: ;PlayAudio END ;********** read joystick: ********** bit State ; game solved? bmi .skipJoystick ldx #1 ; 2 ldy #0 ; 2 lda SWCHA ; 4 .loopDir: asl ; 2 a) joystick moved? pha ; 3 lda CurMoveXY,x ; 4 b) cursor currently moving? rol ; 2 bne .skipDir ; 2³ a) yes AND b) no lda CurXY,x ; 4 cmp CurStopTab,y ; 4 beq .skipDir ; 2³ adc CurTab,y ; 4 sta CurXY,x ; 4 lda CurMoveTab,y ; 4 sta CurMoveXY,x ; 4 .skipDir: tya ; 2 lsr ; 2 iny ; 2 pla ; 4 bcc .loopDir ; 2³ dex ; 2 bpl .loopDir ; 2³ .skipJoystick: ldx #3 ; 2 horz, vert and the yellow car .loopMove: ldy CurMoveXY-1,x ; 4 beq .skipMoveX ; 2³ bpl .moveUpLeft ; 2³ iny ; 2 BIT_B ; 1 .moveUpLeft: dey ; 2 sty CurMoveXY-1,x ; 4 .skipMoveX: dex ; 2 bne .loopMove ; 2³= 37-67 ;*** setup lo-pointers for score: (part 2/2) *** ; -MM CCC ; ldx #0 ; 2 lda Moves ; 3 x=0! ;GameCalc END ;*********************************************************** SetDigit SUBROUTINE ;*********************************************************** pha ; 3 and #%1111 ; 2 tay ; 2 lda DigitTab,y ; 4 sta digitPtr+2,x ; 4 pla ; 4 lsr ; 2 lsr ; 2 lsr ; 2 lsr ; 2 tay ; 2 lda DigitTab,y ; 4 sta digitPtr,x ; 4 rts ; 6 = 43 ;SetDigit END ;*********************************************************** CheckButton SUBROUTINE ; Output: CF (1 == pressed) ; Cycles: 22/26 ;*********************************************************** clc ; 2 lda State ; 3 and #~BUTTONMASK ; 2 unmask button-bit bit INPT4 ; 3 button pressed ? bmi .noButton ; 2³ no, skip button cmp State ; 3 button pressed before? ora #BUTTONMASK ; 2 mark as pressed .noButton: sta State ; 3 save current state rts ; 6 = 22/26 ;CheckButton END ;*********************************************************** UpdateMoves SUBROUTINE ;*********************************************************** lda Moves bmi .skipUpdate ; stop at 80 moves sed clc adc #$01 bit PlusMinus bmi .minus adc #$98 .minus: sta Moves cld tay bne .skipUpdate ror PlusMinus ; disable minus .skipUpdate: rts ;UpdateMoves END ;*********************************************************** CheckGrid SUBROUTINE ; Input : x, a (position to check) ; Output: CF, ZF (1 == no space), y (0 == right/up) ; Uses : a, x, y, ; column, row ; Cycles: ~470 - ~600 ;*********************************************************** stx column ; 3 sta row ; 3 CheckSpace: ldx numCars ; 3 -1! .loopCars: lda carLst,x ; 4 ldy #1 ; 2 asl ; 2 bpl .len2 ; 2³ iny ; 2 .len2: ror ; 2 bmi .vertCar ; 2³= 15-17 and #CARMASK_Y ; 2 lsr ; 2 lsr ; 2 lsr ; 2 eor row ; 3 bne .nextCar ; 2³= 13/14 lda carLst,x ; 4 and #CARMASK_X ; 2 = 6 .loopHorz: cmp column ; 3 bcs .nextCar ; 2³ adc #1 ; 2 CF=0! dey ; 2 bpl .loopHorz ; 2³= 11/12 bmi .nextCar ; 2³ ;horz: ;2er: 100%: 36 ;3er: 100%: 37 ;vert: ;2er: 33%: 63, 67%: 31 = ~42 ;3er: 50%: 78, 50%: 32 = ~55 .vertCar: ;16/17 and #CARMASK_X ; 2 eor column ; 3 bne .nextCar ; 2³= 24 lda carLst,x ; 4 and #CARMASK_Y ; 2 lsr ; 2 lsr ; 2 lsr ; 2 = 12 .loopVert: cmp row ; 3 bcs .nextCar ; 2³ adc #1 ; 2 CF=0! dey ; 2 bpl .loopVert ; 2³= 11/12 .nextCar: beq .noSpace ; 2³ dex ; 2 bpl .loopCars ; 2³ .noSpace: ; CF, ZF=1! rts ; 6 ;CheckGrid END ;*********************************************************** OverScan SUBROUTINE ;*********************************************************** ;*** start VBLANK: *** ;57 ldy #2 ; 2 sta WSYNC ; finish the last kernel scanline sty VBLANK ; make TIA output invisible ;*** start overscan timer: *** lda #38+2 ; 2 34 lines (NTSC) IF PAL bit SWCHB ; 4 bpl .noPAL ; 3 lda #38+2+10 ; 2 42 lines (PAL) .noPAL: ENDIF sta TIM64T ; 4 bit State bmi .noExit ;*** check for open exit: *** lda carLst and #CARMASK_X tax inx .loopExit: lda #GRIDSIZE-1-EXITROW inx jsr CheckGrid beq .noExit ldx column cpx #GRIDSIZE-1 bne .loopExit ;*** start car leaving the grid: *** lda #OFFSETX+CARRIGHT sta CarPosX lda carLst asl asl asl asl sbc #$80+CARRIGHT sta CarMoveX .noExit: .waitTim: lda INTIM bpl .waitTim rts ;OverScan END ;*********************************************************** PostDecodeCard SUBROUTINE ; Input : - ; Output: Moves, x = -1, NF = 1 ; Uses : ? ; Cycles: ~1254 (+ ~1947 = ~3201) ;*********************************************************** ;*** compute moves to solution: *** ldy Level ; 3 ldx MovesOffsetTab,y ; 4 sed ; 2 lda MinMovesTab,y ; 4 clc ; 2 = 15 .loopMoves: adc #$00 ; 2 tay ; 2 lda Card ; 3 cmp LevelMovesTab,x ; 4 inx ; 2 tya ; 2 bcs .loopMoves ; 2³ sty Moves ; 3 cld ; 2 = ~184 (10.) ;*** convert strips to cars: *** lda #-1 ; 2 sta numCars ; 3 ldx #EXITROW ; 2 = 7 .loopConvert: stx rowColIdx ; 3 ldy gridLst,x ; 4 beq .nextStrip ; 2³ jsr SetCar ;53 cpy #Level0,>Level1,>Level2,>Level3,>Level4,>Level5 ; tables to define moves: MovesOffsetTab: .byte