added files
This commit is contained in:
Dillon Depeel
754
PAC2.ASM
Normal file
754
PAC2.ASM
Normal file
@@ -0,0 +1,754 @@
|
|||||||
|
;
|
||||||
|
; PAC-MAN GAME SUBROUTINES
|
||||||
|
;
|
||||||
|
GOBBLE LDX GOBBLD
|
||||||
|
BEQ GOBBLX
|
||||||
|
LDA GOBBLF
|
||||||
|
LDY #$A5
|
||||||
|
CPX #7
|
||||||
|
BCS GOBBD2
|
||||||
|
CMP #$B4
|
||||||
|
BEQ SAMGOB
|
||||||
|
CLC
|
||||||
|
ADC #5
|
||||||
|
BNE STRGOB
|
||||||
|
SAMGOB INC GOBBLD
|
||||||
|
LDY #$A3
|
||||||
|
BNE STRGOB
|
||||||
|
GOBBD2 CPX #9
|
||||||
|
BNE GOBBD3
|
||||||
|
INC GOBBLD
|
||||||
|
BNE DECGOB
|
||||||
|
GOBBD3 LDY #$A3
|
||||||
|
DECGOB SEC
|
||||||
|
CMP #$78
|
||||||
|
BNE GOBDEC
|
||||||
|
LDA #0
|
||||||
|
STA GOBBLD
|
||||||
|
TAY
|
||||||
|
BEQ STRGOB
|
||||||
|
GOBDEC SBC #5
|
||||||
|
STRGOB STA GOBBLF
|
||||||
|
STA $D200
|
||||||
|
STY $D201
|
||||||
|
GOBBLX RTS
|
||||||
|
;
|
||||||
|
SKIRTS LDA RTCLOK+2
|
||||||
|
AND #$0F
|
||||||
|
BNE SKIRTX
|
||||||
|
LDA MSKIRT
|
||||||
|
BEQ ISKIRT
|
||||||
|
LDA #0
|
||||||
|
STA MSKIRT
|
||||||
|
BEQ SKIRTX
|
||||||
|
ISKIRT INC MSKIRT
|
||||||
|
SKIRTX RTS
|
||||||
|
;
|
||||||
|
; RERACK WILL RESET MAZE AFTER
|
||||||
|
; A PLAYER HAS CLEARED ALL DOTS
|
||||||
|
;
|
||||||
|
RERACK LDA RRSEQU
|
||||||
|
BNE TSTRRS
|
||||||
|
JSR CLRAUD
|
||||||
|
JSR DRAWIT
|
||||||
|
LDA #$40
|
||||||
|
RRKXX1 STA RRTIMR
|
||||||
|
RRKXX2 INC RRSEQU
|
||||||
|
RTS
|
||||||
|
TSTRRS CMP #1
|
||||||
|
BNE TSTRR2
|
||||||
|
LDA RRTIMR
|
||||||
|
BNE DRRWTM; DEC RERACK WAIT TIMER
|
||||||
|
LDA #0
|
||||||
|
LDX #3
|
||||||
|
TSRR1L STA HPOSP0,X
|
||||||
|
DEX
|
||||||
|
BPL TSRR1L
|
||||||
|
LDA #$0C
|
||||||
|
STA COLOR0
|
||||||
|
LDA #$07
|
||||||
|
STA RRFLCT; RERACK FLASH COUNT
|
||||||
|
LDA #$10
|
||||||
|
BNE RRKXX1
|
||||||
|
DRRWTM DEC RRTIMR
|
||||||
|
RTS
|
||||||
|
TSTRR2 CMP #2
|
||||||
|
BNE TSTRR3
|
||||||
|
LDA RRTIMR
|
||||||
|
BNE DRRWTM; DEC RERACK COLOR TIMER
|
||||||
|
DEC RRFLCT
|
||||||
|
BEQ RRKXX2
|
||||||
|
ALTCLR LDA RRFLCT
|
||||||
|
CLC
|
||||||
|
LSR A
|
||||||
|
BCC ALTBLU
|
||||||
|
LDA #$0C
|
||||||
|
BNE SETRRC
|
||||||
|
ALTBLU LDA #$86
|
||||||
|
SETRRC STA COLOR0
|
||||||
|
LDA #$10
|
||||||
|
STA RRTIMR
|
||||||
|
RTS
|
||||||
|
TSTRR3 CMP #3
|
||||||
|
BNE TSTRR4
|
||||||
|
LDA #0
|
||||||
|
STA INTCNT
|
||||||
|
LDA #CHRORG/256
|
||||||
|
STA CHBASE
|
||||||
|
TSTR3X RTS
|
||||||
|
TSTRR4 CMP #4
|
||||||
|
BNE TSTRR5
|
||||||
|
JSR NEWBRD
|
||||||
|
LDX PLYNUM
|
||||||
|
INC XPACP1,X
|
||||||
|
INC MAZCT1,X
|
||||||
|
JSR READY1
|
||||||
|
INC RRSEQU
|
||||||
|
LDA NUMPLY
|
||||||
|
BEQ TSTR3X
|
||||||
|
LDA #$30
|
||||||
|
STA RRTIMR
|
||||||
|
RTS
|
||||||
|
TSTRR5 CMP #5
|
||||||
|
BNE TSTRR6
|
||||||
|
LDA RRTIMR
|
||||||
|
BNE DTMRR5
|
||||||
|
INC RRSEQU
|
||||||
|
RTS
|
||||||
|
DTMRR5 DEC RRTIMR
|
||||||
|
RTS
|
||||||
|
TSTRR6 JSR READY2
|
||||||
|
LDA #0
|
||||||
|
STA RRFLAG
|
||||||
|
STA RRSEQU
|
||||||
|
LDA #2
|
||||||
|
STA RESETF
|
||||||
|
LDA #$40
|
||||||
|
STA RESETT
|
||||||
|
RTS
|
||||||
|
;
|
||||||
|
; GET READY TO PLAY
|
||||||
|
;
|
||||||
|
READY1 LDA #$A2
|
||||||
|
LDX #0
|
||||||
|
REDYLP STA PACMAZ+$1EF,X
|
||||||
|
CLC
|
||||||
|
ADC #1
|
||||||
|
INX
|
||||||
|
CPX #$0A
|
||||||
|
BNE REDYLP
|
||||||
|
JSR PLAYRS
|
||||||
|
LDX PLYNUM
|
||||||
|
LDA MAZCT1,X
|
||||||
|
CMP #6
|
||||||
|
BCC SETRED
|
||||||
|
CMP #$0A
|
||||||
|
BCS SETRED
|
||||||
|
LDY #$DA; SET UP FOR GREEN FRUITS
|
||||||
|
BNE SETFRC
|
||||||
|
SETRED LDY #$44
|
||||||
|
SETFRC STY FRUCLR
|
||||||
|
LDY #0
|
||||||
|
CMP #6
|
||||||
|
BCS HFRUTS
|
||||||
|
STA TEMLOC
|
||||||
|
LDA #$92
|
||||||
|
STA PIXPUT
|
||||||
|
LDA #HIGH PACMAZ+3
|
||||||
|
STA PIXPUT+1
|
||||||
|
LDX #0
|
||||||
|
FRUTLP LDA FRUCHR,X
|
||||||
|
STA (PIXPUT),Y
|
||||||
|
INC PIXPUT
|
||||||
|
CLC
|
||||||
|
ADC #1
|
||||||
|
STA (PIXPUT),Y
|
||||||
|
CPX TEMLOC
|
||||||
|
BEQ FSPLIT
|
||||||
|
FRUTS1 INX
|
||||||
|
DEC PIXPUT
|
||||||
|
DEC PIXPUT
|
||||||
|
DEC PIXPUT
|
||||||
|
BNE FRUTLP
|
||||||
|
HFRUTS CMP #18
|
||||||
|
BCC HFRUT1
|
||||||
|
LDA #18
|
||||||
|
HFRUT1 SEC
|
||||||
|
SBC #6
|
||||||
|
STA TEMLOC
|
||||||
|
SEC
|
||||||
|
LDA #LOW HIFRUT
|
||||||
|
SBC TEMLOC
|
||||||
|
STA PIXGET
|
||||||
|
LDA #HIGH HIFRUT
|
||||||
|
SBC #0
|
||||||
|
STA PIXGET+1
|
||||||
|
LDX #0
|
||||||
|
HFRUTL LDA (PIXGET),Y
|
||||||
|
STA PACMAZ+$386,X
|
||||||
|
CLC
|
||||||
|
ADC #1
|
||||||
|
STA PACMAZ+$387,X
|
||||||
|
INX
|
||||||
|
INX
|
||||||
|
INY
|
||||||
|
CPY #$7
|
||||||
|
BNE HFRUTL
|
||||||
|
FSPLIT RTS
|
||||||
|
;
|
||||||
|
READY2 LDX #$0B
|
||||||
|
LDA #0
|
||||||
|
RED2LP STA PACMAZ+$14E,X
|
||||||
|
DEX
|
||||||
|
BPL RED2LP
|
||||||
|
JSR DRAWIT
|
||||||
|
LDX PLYNUM
|
||||||
|
DEC XPACP1,X
|
||||||
|
;
|
||||||
|
UDXPACS LDX PLYNUM
|
||||||
|
LDA XPACP1,X
|
||||||
|
LDX #0
|
||||||
|
LDY #$9B
|
||||||
|
CMP #3
|
||||||
|
BNE TWOPAC
|
||||||
|
STY PACMAZ+$378
|
||||||
|
UDXPC2 STY PACMAZ+$376
|
||||||
|
UDXPC1 STY PACMAZ+$374
|
||||||
|
RTS
|
||||||
|
TWOPAC CMP #2
|
||||||
|
BNE ONEPAC
|
||||||
|
JSR UDNPC2
|
||||||
|
JMP UDXPC2
|
||||||
|
ONEPAC CMP #1
|
||||||
|
BNE NOPACS
|
||||||
|
JSR UDNPC1
|
||||||
|
JMP UDXPC1
|
||||||
|
NOPACS STX PACMAZ+$374
|
||||||
|
UDNPC1 STX PACMAZ+$376
|
||||||
|
UDNPC2 STX PACMAZ+$378
|
||||||
|
RTS
|
||||||
|
;
|
||||||
|
DRAWIT LDA #1
|
||||||
|
STA MSTILL
|
||||||
|
LDX #3
|
||||||
|
GREADL LDA M1DIRT,X
|
||||||
|
JSR MONHND
|
||||||
|
DEX
|
||||||
|
BPL GREADL
|
||||||
|
LDA #0
|
||||||
|
STA MSTILL
|
||||||
|
JMP PACSTP
|
||||||
|
;
|
||||||
|
READY3 LDX #$0D
|
||||||
|
LDA #0
|
||||||
|
REDY3L STA PACMAZ+$14D,X
|
||||||
|
STA PACMAZ+$1ED,X
|
||||||
|
DEX
|
||||||
|
BPL REDY3L
|
||||||
|
RTS
|
||||||
|
;
|
||||||
|
FLSHXU LDA RTCLOK+2
|
||||||
|
AND #$0F
|
||||||
|
BNE FLSHXX
|
||||||
|
LDA FLSHUP
|
||||||
|
BNE FLSRST
|
||||||
|
INC FLSHUP
|
||||||
|
BNE FLSHER
|
||||||
|
FLSRST LDA #0
|
||||||
|
STA FLSHUP
|
||||||
|
FLSHER LDA PLYNUM
|
||||||
|
BEQ FLSPL1
|
||||||
|
LDA FLSHUP
|
||||||
|
BNE FLS2ON
|
||||||
|
TAX
|
||||||
|
TAY
|
||||||
|
BEQ F2STOR
|
||||||
|
FLS2ON LDA #$12
|
||||||
|
LDX #$35
|
||||||
|
LDY #$30
|
||||||
|
F2STOR STA TEXT+$21
|
||||||
|
STX TEXT+$22
|
||||||
|
STY TEXT+$23
|
||||||
|
RTS
|
||||||
|
FLSPL1 LDA FLSHUP
|
||||||
|
BNE FLS1ON
|
||||||
|
TAX
|
||||||
|
TAY
|
||||||
|
BEQ F1STOR
|
||||||
|
FLS1ON LDA #$11
|
||||||
|
LDX #$35
|
||||||
|
LDY #$30
|
||||||
|
F1STOR STA TEXT+4
|
||||||
|
STX TEXT+5
|
||||||
|
STY TEXT+6
|
||||||
|
FLSHXX RTS
|
||||||
|
;
|
||||||
|
; SET UP MONSTER AND PACMAN
|
||||||
|
; START POSITIONS
|
||||||
|
;
|
||||||
|
SETUP JSR INITPM;CLEAR P/M GRAPHICS
|
||||||
|
SETUP1 LDX #$7F
|
||||||
|
CLRPGZ STA $80,X
|
||||||
|
DEX
|
||||||
|
BPL CLRPGZ
|
||||||
|
JSR SETCLR;INIT COLOR REGS
|
||||||
|
;
|
||||||
|
; SPEED INITIALIZATION
|
||||||
|
;
|
||||||
|
SPDINI LDX PLYNUM
|
||||||
|
LDA MAZCT1,X
|
||||||
|
CMP #6
|
||||||
|
BCC LOWINI
|
||||||
|
LDA #6
|
||||||
|
LOWINI TAY
|
||||||
|
LDA PACSPD,Y
|
||||||
|
TAX
|
||||||
|
LDA SPEED1,X
|
||||||
|
STA PMSPCT
|
||||||
|
LDA MONSPD,Y
|
||||||
|
TAY
|
||||||
|
LDX #3
|
||||||
|
SPINIL LDA SPEED1,Y
|
||||||
|
STA M1SPCT,X
|
||||||
|
DEX
|
||||||
|
BPL SPINIL
|
||||||
|
;
|
||||||
|
LDX #$13
|
||||||
|
INDATL LDA INIDAT,X
|
||||||
|
STA PACSCN,X
|
||||||
|
DEX
|
||||||
|
BPL INDATL
|
||||||
|
LDY #0
|
||||||
|
JSR MSTIMR
|
||||||
|
STA HITCLR
|
||||||
|
RTS
|
||||||
|
NEWGAM LDA #3
|
||||||
|
STA XPACP1;DO AT GAME START
|
||||||
|
STA XPACP2
|
||||||
|
LDA DIFOPT
|
||||||
|
STA MAZCT1
|
||||||
|
STA MAZCT2
|
||||||
|
LDX #1
|
||||||
|
JSR NEWBD1
|
||||||
|
NEWBRD JSR P1INIT; DO AT SCREEN START
|
||||||
|
JSR UDXPAC
|
||||||
|
LDX PLYNUM
|
||||||
|
LDA MAZCT1,X
|
||||||
|
TAY
|
||||||
|
BNE NEWRK2
|
||||||
|
LDA RTCLOK+2
|
||||||
|
BPL NEWRK2
|
||||||
|
NEWRK1 JSR MSTIMR
|
||||||
|
JMP NEWBD0
|
||||||
|
NEWRK2 INY
|
||||||
|
BNE NEWRK1
|
||||||
|
NEWBD0 LDX PLYNUM
|
||||||
|
NEWBD1 LDA #$0F
|
||||||
|
STA BIGDT1,X
|
||||||
|
LDA #0
|
||||||
|
STA FRUTP1,X
|
||||||
|
STA DTCTL1,X
|
||||||
|
STA DTCTM1,X
|
||||||
|
RTS
|
||||||
|
;
|
||||||
|
MSTIMR CPY #3
|
||||||
|
BCC LDMSTM
|
||||||
|
LDY #3
|
||||||
|
LDMSTM LDX #2
|
||||||
|
LDMSTL LDA STARTV,Y
|
||||||
|
STA M2TIMR,X
|
||||||
|
INY
|
||||||
|
DEX
|
||||||
|
BPL LDMSTL
|
||||||
|
RTS
|
||||||
|
;
|
||||||
|
; VFIZZL IS THE FOLD-UP
|
||||||
|
; SEQUENCE FOR THE PACMAN
|
||||||
|
;
|
||||||
|
; VFIZST IS THE STATUS
|
||||||
|
;
|
||||||
|
; 0 = NO ACTION
|
||||||
|
; 1 = WIGGLE SKIRTS
|
||||||
|
; 2 = CLEAR MONSTERS & INIT SOUNDS
|
||||||
|
; 3 = SOUND FREQ INCREASING
|
||||||
|
; 4 = SOUND FREQ DECREASING
|
||||||
|
; 5 = FADE OUT SOUND
|
||||||
|
; 6 = SHOW BLANK SCREEN
|
||||||
|
;
|
||||||
|
VFIZZL LDA VFIZST
|
||||||
|
CMP #1
|
||||||
|
BNE INICLR
|
||||||
|
LDA VFIZSQ
|
||||||
|
BEQ NXTFSQ
|
||||||
|
JSR SKIRTS
|
||||||
|
LDX #3
|
||||||
|
UDMFLP LDA M1DIRT,X
|
||||||
|
JSR MONHND
|
||||||
|
DEX
|
||||||
|
BPL UDMFLP
|
||||||
|
DEC VFIZSQ
|
||||||
|
RTS
|
||||||
|
NXTFSQ INC VFIZST
|
||||||
|
LDA VFIZST
|
||||||
|
INICLR CMP #2
|
||||||
|
BNE FIZCHK
|
||||||
|
LDX #3
|
||||||
|
LDA #0
|
||||||
|
MONCLR STA HPOSP0,X
|
||||||
|
DEX
|
||||||
|
BPL MONCLR
|
||||||
|
LDA #$35
|
||||||
|
STA VFIZFQ
|
||||||
|
STA VFIZBS
|
||||||
|
JSR CLRAUD
|
||||||
|
STA VFIZCT
|
||||||
|
STA FIZPTR
|
||||||
|
INC FIZZLE
|
||||||
|
LDA #$07
|
||||||
|
STA FIZTIM
|
||||||
|
LDA #3
|
||||||
|
STA VFIZST
|
||||||
|
BNE VFIZUP
|
||||||
|
FIZCHK CMP #3
|
||||||
|
BEQ VFIZUP
|
||||||
|
CMP #4
|
||||||
|
BEQ VFIZDN
|
||||||
|
CMP #5
|
||||||
|
BEQ VFIZFZ
|
||||||
|
CMP #6
|
||||||
|
BEQ FZWAIT
|
||||||
|
VFIZUP LDA #$A8
|
||||||
|
STA AUDC1
|
||||||
|
LDA VFIZFQ
|
||||||
|
STA AUDF1
|
||||||
|
CLC
|
||||||
|
ADC #8
|
||||||
|
STA VFIZFQ
|
||||||
|
INC VFIZCT
|
||||||
|
LDA VFIZCT
|
||||||
|
CMP #4
|
||||||
|
BNE VBFIZX
|
||||||
|
BEQ SVFIZS
|
||||||
|
VFIZDN LDA #$A8
|
||||||
|
STA AUDC1
|
||||||
|
LDA VFIZFQ
|
||||||
|
STA AUDF1
|
||||||
|
SEC
|
||||||
|
SBC #8
|
||||||
|
STA VFIZFQ
|
||||||
|
DEC VFIZCT
|
||||||
|
BNE VBFIZX
|
||||||
|
LDA VFIZBS
|
||||||
|
CMP #$6D
|
||||||
|
BEQ VBFIZI
|
||||||
|
VFIZSW CLC
|
||||||
|
ADC #4
|
||||||
|
STA VFIZBS
|
||||||
|
STA VFIZFQ
|
||||||
|
LDA #3
|
||||||
|
SVFIZS STA VFIZST
|
||||||
|
RTS
|
||||||
|
VFIZFZ LDA #$A8
|
||||||
|
STA AUDC1
|
||||||
|
LDA VFIZBS
|
||||||
|
STA AUDF1
|
||||||
|
SEC
|
||||||
|
SBC #8
|
||||||
|
STA VFIZBS
|
||||||
|
CMP #$25
|
||||||
|
BNE VBFIZX
|
||||||
|
JSR CLRAUD
|
||||||
|
LDA #$80
|
||||||
|
STA VFIZCT
|
||||||
|
VBFIZI INC VFIZST
|
||||||
|
VBFIZX RTS
|
||||||
|
;
|
||||||
|
FZWAIT LDA VFIZCT
|
||||||
|
BNE DECFCW
|
||||||
|
INC RESETF
|
||||||
|
RTS
|
||||||
|
DECFCW DEC VFIZCT
|
||||||
|
RTS
|
||||||
|
;
|
||||||
|
; FIZZIE WILL DRAW THE PACMAN
|
||||||
|
; FOLDING UP IN SEQUENCE
|
||||||
|
;
|
||||||
|
FIZZIE LDA FIZZLE
|
||||||
|
BEQ FIZZIX
|
||||||
|
LDA PMVPOS
|
||||||
|
STA PIXPUT
|
||||||
|
LDA #HIGH PMADDR+3
|
||||||
|
STA PIXPUT+1
|
||||||
|
LDA FIZTIM
|
||||||
|
BEQ RSTFIZ
|
||||||
|
DEC FIZTIM
|
||||||
|
BPL STRFIZ
|
||||||
|
RSTFIZ LDA FIZPTR
|
||||||
|
CMP #$0F
|
||||||
|
BEQ CLRFIZ
|
||||||
|
INC FIZPTR
|
||||||
|
LDA #$07
|
||||||
|
STA FIZTIM
|
||||||
|
STRFIZ LDA FIZPTR
|
||||||
|
BEQ FIZSTR
|
||||||
|
CMP #$0F
|
||||||
|
BEQ EXPPAC
|
||||||
|
TAX
|
||||||
|
DEX
|
||||||
|
LDA FIZIDX,X
|
||||||
|
TAY
|
||||||
|
DEY
|
||||||
|
LDA FIZDAT,X
|
||||||
|
STA (PIXPUT),Y
|
||||||
|
RTS
|
||||||
|
FIZSTR LDY #$0C
|
||||||
|
LDX #9
|
||||||
|
FIZSTL LDA PACDIE,X
|
||||||
|
STA (PIXPUT),Y
|
||||||
|
DEY
|
||||||
|
DEX
|
||||||
|
BPL FIZSTL
|
||||||
|
RTS
|
||||||
|
EXPPAC LDY #$0F
|
||||||
|
LDX #$0F
|
||||||
|
EXPPCL LDA PACEXP,X
|
||||||
|
STA (PIXPUT),Y
|
||||||
|
DEY
|
||||||
|
DEX
|
||||||
|
BPL EXPPCL
|
||||||
|
RTS
|
||||||
|
CLRFIZ LDY #$0F
|
||||||
|
LDA #0
|
||||||
|
CLRFZL STA (PIXPUT),Y
|
||||||
|
DEY
|
||||||
|
BPL CLRFZL
|
||||||
|
STA FIZZLE
|
||||||
|
FIZZIX RTS
|
||||||
|
;
|
||||||
|
FLITEC LDA FLASHC
|
||||||
|
BEQ NOFLIT
|
||||||
|
LDA TWEETR
|
||||||
|
BNE CKFLTM
|
||||||
|
JSR VRVERB
|
||||||
|
CKFLTM LDA FLITMR
|
||||||
|
BEQ FLSHSQ
|
||||||
|
DEC FLITMR
|
||||||
|
JMP SETFLC
|
||||||
|
NOFLIT LDA TWEETR
|
||||||
|
BNE FIZZIX
|
||||||
|
JMP VCHASE
|
||||||
|
FLSHSQ LDX PLYNUM
|
||||||
|
LDA MAZCT1,X
|
||||||
|
TAX
|
||||||
|
LDA FLSTIM,X
|
||||||
|
CMP FLASHC
|
||||||
|
BNE NXTFLS
|
||||||
|
LDX #3
|
||||||
|
RSCLLP LDA M1STAT,X
|
||||||
|
BPL NXTRSC
|
||||||
|
LDA COLORS,X
|
||||||
|
STA PCOLR0,X
|
||||||
|
NXTRSC DEX
|
||||||
|
BPL RSCLLP
|
||||||
|
LDX #3
|
||||||
|
RSTCHL LDA M1STAT,X
|
||||||
|
BPL NXRSTC
|
||||||
|
CMP #$80
|
||||||
|
BEQ RSTBOX
|
||||||
|
AND #$BB
|
||||||
|
BEQ NXRSTC
|
||||||
|
BNE RSTCHS
|
||||||
|
RSTBOX LDA #0
|
||||||
|
BEQ RSSTAT
|
||||||
|
RSTCHS LDA #$20
|
||||||
|
RSSTAT STA M1STAT,X
|
||||||
|
NXRSTC DEX
|
||||||
|
BPL RSTCHL
|
||||||
|
LDA #0
|
||||||
|
STA FLASHC
|
||||||
|
STA FLASHT
|
||||||
|
STA VFLITS
|
||||||
|
LDA #$A0
|
||||||
|
STA CHASET
|
||||||
|
RTS
|
||||||
|
NXTFLS LDA FLASHT
|
||||||
|
BNE DECFTM
|
||||||
|
INC FLASHC
|
||||||
|
LDA #$18
|
||||||
|
STA FLASHT
|
||||||
|
DECFTM DEC FLASHT
|
||||||
|
SETFLC LDA FLASHC
|
||||||
|
LSR A; ALTERNATE BLUE & WHITE
|
||||||
|
BCC FWHITE
|
||||||
|
LDY #$84; DARK BLUE
|
||||||
|
BNE FSTORE
|
||||||
|
FWHITE LDY #$0C; WHITE
|
||||||
|
FSTORE LDX #3
|
||||||
|
FSTORL LDA M1STAT,X
|
||||||
|
BPL NXFSTR
|
||||||
|
TYA
|
||||||
|
STA PCOLR0,X
|
||||||
|
NXFSTR DEX
|
||||||
|
BPL FSTORL
|
||||||
|
FLITCX RTS
|
||||||
|
;
|
||||||
|
;
|
||||||
|
VRVERB LDA VFLITS
|
||||||
|
BNE VFLRDY
|
||||||
|
LDA #5
|
||||||
|
STA VFLITV
|
||||||
|
LDA #2
|
||||||
|
STA VFLITD
|
||||||
|
INC VFLITS
|
||||||
|
LDA #$90
|
||||||
|
STA VFLITF
|
||||||
|
VFLRDY LDA VFLITD
|
||||||
|
CMP #1
|
||||||
|
BNE VFLIDN
|
||||||
|
LDA VFLITF
|
||||||
|
CMP #$90
|
||||||
|
BNE VFUPOK
|
||||||
|
LDA VFLITV
|
||||||
|
CMP #3
|
||||||
|
BNE VFVDEC
|
||||||
|
LDA #5
|
||||||
|
STA VFLITV
|
||||||
|
VFVDEC DEC VFLITV
|
||||||
|
LDA #2
|
||||||
|
STA VFLITD
|
||||||
|
BNE VFDNOK
|
||||||
|
VFUPOK CLC
|
||||||
|
LDA VFLITF
|
||||||
|
ADC #$10
|
||||||
|
BNE VRBSTR
|
||||||
|
VFLIDN LDA VFLITF
|
||||||
|
CMP #$40
|
||||||
|
BNE VFDNOK
|
||||||
|
LDA #1
|
||||||
|
STA VFLITD
|
||||||
|
BNE VFUPOK
|
||||||
|
VFDNOK SEC
|
||||||
|
LDA VFLITF
|
||||||
|
SBC #$10
|
||||||
|
VRBSTR STA VFLITF
|
||||||
|
STA AUDF2
|
||||||
|
LDA VFLITV
|
||||||
|
ORA #$A0
|
||||||
|
VRVBX1 STA AUDC2
|
||||||
|
VRVRBX RTS
|
||||||
|
;
|
||||||
|
VTWEET LDA TWEETF
|
||||||
|
BNE CTWEET
|
||||||
|
LDA #$0C
|
||||||
|
STA TWEETF
|
||||||
|
BNE ITWEET
|
||||||
|
CTWEET CMP #$17
|
||||||
|
BNE ITWEET
|
||||||
|
LDA #$0C
|
||||||
|
STA TWEETF
|
||||||
|
ITWEET INC TWEETF
|
||||||
|
STWEET LDA TWEETF
|
||||||
|
STA AUDF2
|
||||||
|
LDA #$A4
|
||||||
|
BNE VRVBX1
|
||||||
|
;
|
||||||
|
VGULPR DEC VGLPC1
|
||||||
|
BEQ DISTRT
|
||||||
|
SEC
|
||||||
|
LDA VGLPC2
|
||||||
|
SBC #4
|
||||||
|
STA VGLPC2
|
||||||
|
CMP #$10
|
||||||
|
BEQ GLPOFF
|
||||||
|
STA AUDF1
|
||||||
|
STA AUDF4
|
||||||
|
LDA #$84
|
||||||
|
STA AUDCTL
|
||||||
|
LDA #$A4
|
||||||
|
BNE GBRNCH
|
||||||
|
DISTRT LDA #2
|
||||||
|
STA VGLPC1
|
||||||
|
SEC
|
||||||
|
LDA VGLPC2
|
||||||
|
SBC #3
|
||||||
|
STA VGLPC2
|
||||||
|
STA AUDF1
|
||||||
|
STA AUDF3
|
||||||
|
STA AUDF4
|
||||||
|
LDA #$A8
|
||||||
|
STA AUDC3
|
||||||
|
GBRNCH STA AUDC4
|
||||||
|
BNE VEATRS
|
||||||
|
GLPOFF JSR CLRAUD
|
||||||
|
STA AUDCTL
|
||||||
|
STA VFREEZ
|
||||||
|
STA PACCNT
|
||||||
|
STY GULPED
|
||||||
|
LDA #$2A
|
||||||
|
STA COLOR3
|
||||||
|
LDA #$11
|
||||||
|
STA GPRIOR
|
||||||
|
LDX #3
|
||||||
|
RSTPCL LDA PCOLR0,X
|
||||||
|
CMP #$DC
|
||||||
|
BEQ RSTPLC
|
||||||
|
DEX
|
||||||
|
BPL RSTPCL
|
||||||
|
RTS
|
||||||
|
RSTPLC LDA #$0C
|
||||||
|
STA PCOLR0,X
|
||||||
|
STA HITCLR
|
||||||
|
LDA #0
|
||||||
|
STA PACCNT
|
||||||
|
JSR PMSTIK
|
||||||
|
INC PACADV
|
||||||
|
JMP MUNCHY
|
||||||
|
;
|
||||||
|
VEATER LDA EATERF
|
||||||
|
BEQ VEATRX
|
||||||
|
LDX EATERC
|
||||||
|
CPX #6
|
||||||
|
BNE CEATER
|
||||||
|
LDA #0
|
||||||
|
STA EATERF
|
||||||
|
STA EATERC
|
||||||
|
BEQ VEATRS
|
||||||
|
CEATER LDA EATERT
|
||||||
|
BNE EATER2
|
||||||
|
LDA E1DATA,X
|
||||||
|
JMP STREAT
|
||||||
|
EATER2 LDA E2DATA,X
|
||||||
|
STREAT INC EATERC
|
||||||
|
STA AUDF1
|
||||||
|
LDA #$A4
|
||||||
|
VEATRS STA AUDC1
|
||||||
|
VEATRX RTS
|
||||||
|
;
|
||||||
|
CLRAUD LDY #7
|
||||||
|
LDA #0
|
||||||
|
CLRAUL STA AUDF1,Y
|
||||||
|
DEY
|
||||||
|
BPL CLRAUL
|
||||||
|
CLRAUX RTS
|
||||||
|
;
|
||||||
|
PLAYRS LDA NUMPLY
|
||||||
|
BEQ CLRAUX
|
||||||
|
LDA #$65
|
||||||
|
LDX #0
|
||||||
|
PLYRLP STA PACMAZ+$14E,X
|
||||||
|
CLC
|
||||||
|
ADC #1
|
||||||
|
INX
|
||||||
|
CPX #$0C
|
||||||
|
BNE PLYRLP
|
||||||
|
LDA PLYNUM
|
||||||
|
BEQ CLRAUX
|
||||||
|
LDX #$71
|
||||||
|
STX PACMAZ+$158
|
||||||
|
INX
|
||||||
|
STX PACMAZ+$159
|
||||||
|
RTS
|
||||||
|
;
|
||||||
|
APGST LDA #$42
|
||||||
|
STA M1STAT,X
|
||||||
|
STX GULPED
|
||||||
822
PAC3.ASM
Normal file
822
PAC3.ASM
Normal file
@@ -0,0 +1,822 @@
|
|||||||
|
;
|
||||||
|
; PAC-MAN GAME SUBROUTINES
|
||||||
|
;
|
||||||
|
; INITIALIZE PLAYER/MISSILE MEMORY
|
||||||
|
;
|
||||||
|
; THIS SUBR CLEARS P/M AREA
|
||||||
|
;
|
||||||
|
INITPM LDX #0
|
||||||
|
TXA
|
||||||
|
JSR INITPL
|
||||||
|
LDA #$FE
|
||||||
|
LDX #$F0
|
||||||
|
JSR INITPL
|
||||||
|
TXA
|
||||||
|
RTS
|
||||||
|
INITPL STA PMADDR+$300,X
|
||||||
|
STA PMADDR+$400,X
|
||||||
|
STA PMADDR+$500,X
|
||||||
|
STA PMADDR+$600,X
|
||||||
|
STA PMADDR+$700,X
|
||||||
|
INX
|
||||||
|
BNE INITPL
|
||||||
|
RTS
|
||||||
|
;
|
||||||
|
; SETCOLOR SUBROUTINE WILL
|
||||||
|
; INITIALIZE $2C0 - $2C7
|
||||||
|
; (COLOR REGISTERS)
|
||||||
|
;
|
||||||
|
SETCLR LDX #7
|
||||||
|
SETCLL LDA COLORS,X
|
||||||
|
STA PCOLR0,X
|
||||||
|
DEX
|
||||||
|
BPL SETCLL
|
||||||
|
RTS
|
||||||
|
;
|
||||||
|
;
|
||||||
|
P1INIT LDX #0
|
||||||
|
P1INIL LDA DATMAZ,X
|
||||||
|
STA PACMAZ,X
|
||||||
|
LDA DATMAZ+$100,X
|
||||||
|
STA PACMAZ+$100,X
|
||||||
|
LDA DATMAZ+$200,X
|
||||||
|
STA PACMAZ+$200,X
|
||||||
|
LDA DATMAZ+$300,X
|
||||||
|
STA PACMAZ+$300,X
|
||||||
|
INX
|
||||||
|
BNE P1INIL
|
||||||
|
RTS
|
||||||
|
;
|
||||||
|
SAVEP1 LDX #0
|
||||||
|
SAVP1L LDA PACMAZ,X
|
||||||
|
STA P1SAVE,X
|
||||||
|
LDA PACMAZ+$100,X
|
||||||
|
STA P1SAVE+$100,X
|
||||||
|
LDA PACMAZ+$200,X
|
||||||
|
STA P1SAVE+$200,X
|
||||||
|
LDA PACMAZ+$300,X
|
||||||
|
STA P1SAVE+$300,X
|
||||||
|
INX
|
||||||
|
BNE SAVP1L
|
||||||
|
RTS
|
||||||
|
;
|
||||||
|
SAVEP2 LDX #0
|
||||||
|
SAVP2L LDA PACMAZ,X
|
||||||
|
STA P2SAVE,X
|
||||||
|
LDA PACMAZ+$100,X
|
||||||
|
STA P2SAVE+$100,X
|
||||||
|
LDA PACMAZ+$200,X
|
||||||
|
STA P2SAVE+$200,X
|
||||||
|
LDA PACMAZ+$300,X
|
||||||
|
STA P2SAVE+$300,X
|
||||||
|
INX
|
||||||
|
BNE SAVP2L
|
||||||
|
SAV2PX RTS
|
||||||
|
;
|
||||||
|
; PMSTIK SUBROUTINE WILL TEST
|
||||||
|
; JOYTICK INPUT AND DETERMINE
|
||||||
|
; IF DIRECTION CHOSEN IS VALID.
|
||||||
|
; THE PACMAN WILL THEN MOVE
|
||||||
|
; IN THE PROPER DIRECTION WITH
|
||||||
|
; IT'S MOUTH OPENING AND CLOSING.
|
||||||
|
;
|
||||||
|
; THIS CODE IS CALLED DURING
|
||||||
|
; VBLANK AND INITIATES MOTION
|
||||||
|
; DURING ALTERNATE OCCURANCES
|
||||||
|
; OF VBLANK. MOUTH ANIMATION
|
||||||
|
; IS PERFORMED EVERY VBLANK.
|
||||||
|
;
|
||||||
|
;
|
||||||
|
PMSTIK LDA PMSTAT
|
||||||
|
BMI SAV2PX
|
||||||
|
PUDSTK LDX #4
|
||||||
|
JSR MAZHND
|
||||||
|
CLC
|
||||||
|
LDA PMNDIR;SEE IF WE CHANGE DIR.
|
||||||
|
BIT TEMLOC;IS IT VALID ?
|
||||||
|
BEQ PMUDST;NO
|
||||||
|
CMP PMODIR
|
||||||
|
BEQ PUDSAM
|
||||||
|
ORA PMODIR
|
||||||
|
TAY
|
||||||
|
AND #3
|
||||||
|
BEQ PUDSAM
|
||||||
|
TYA
|
||||||
|
AND #$0C
|
||||||
|
BEQ PUDSAM
|
||||||
|
STY PACADV
|
||||||
|
PUDSAM LDA PMNDIR
|
||||||
|
STA PMODIR
|
||||||
|
PMUDST LDX PLYNUM
|
||||||
|
LDA STICK0,X
|
||||||
|
EOR #$0F
|
||||||
|
BEQ PMSAME
|
||||||
|
PHA
|
||||||
|
LDX #3
|
||||||
|
LDY #0
|
||||||
|
PMTST2 CLC
|
||||||
|
LSR A
|
||||||
|
BCC NXPTS2
|
||||||
|
INY
|
||||||
|
NXPTS2 DEX
|
||||||
|
BPL PMTST2
|
||||||
|
PLA
|
||||||
|
CPY #2
|
||||||
|
BEQ PMSAME
|
||||||
|
PDRTST STA ATRACT
|
||||||
|
STA PMNDIR
|
||||||
|
BIT TEMLOC
|
||||||
|
BEQ PMSAME
|
||||||
|
STA PMODIR
|
||||||
|
PMSAME LDA PMODIR
|
||||||
|
BIT TEMLOC
|
||||||
|
BNE PACTST
|
||||||
|
JMP PACOPN
|
||||||
|
PACTST CMP #1
|
||||||
|
BEQ PACUP
|
||||||
|
CMP #2
|
||||||
|
BEQ PACDN
|
||||||
|
CMP #4
|
||||||
|
BNE PACRTV
|
||||||
|
JMP PACLF
|
||||||
|
PACRTV CMP #8
|
||||||
|
BEQ PACRT
|
||||||
|
JMP PACSTP
|
||||||
|
PACUP LDA PACCNT
|
||||||
|
BNE PACUPS
|
||||||
|
DEC PMVPOS
|
||||||
|
DEC PMVPOS
|
||||||
|
LDA PACMAP
|
||||||
|
BNE DECPMP
|
||||||
|
LDA #3
|
||||||
|
STA PACMAP
|
||||||
|
BNE PACUPS
|
||||||
|
DECPMP DEC PACMAP
|
||||||
|
BNE PACUPS
|
||||||
|
LDA PMVPOS
|
||||||
|
CMP PVSAVE
|
||||||
|
BEQ PACUPS
|
||||||
|
SEC
|
||||||
|
LDA PACSCN
|
||||||
|
SBC #$28
|
||||||
|
STA PACSCN
|
||||||
|
LDA PACSCN+1
|
||||||
|
SBC #0
|
||||||
|
STA PACSCN+1
|
||||||
|
PACUPS LDY #6;POINT TO PACTOP
|
||||||
|
JMP MOVPAC
|
||||||
|
PACDN LDA PACCNT
|
||||||
|
BNE PACDNS
|
||||||
|
INC PMVPOS
|
||||||
|
INC PMVPOS
|
||||||
|
LDA PACMAP
|
||||||
|
CMP #3
|
||||||
|
BNE INCPMP
|
||||||
|
LDA #0
|
||||||
|
STA PACMAP
|
||||||
|
LDA PMVPOS
|
||||||
|
CMP PVSAVE
|
||||||
|
BEQ PACDNS
|
||||||
|
CLC
|
||||||
|
LDA PACSCN
|
||||||
|
ADC #$28
|
||||||
|
STA PACSCN
|
||||||
|
LDA PACSCN+1
|
||||||
|
ADC #0
|
||||||
|
STA PACSCN+1
|
||||||
|
BNE PACDNS
|
||||||
|
INCPMP INC PACMAP
|
||||||
|
PACDNS LDY #8;POINT TO PACBOT
|
||||||
|
JMP MOVPAC
|
||||||
|
PACRT LDA PACCNT
|
||||||
|
BNE PACRTS
|
||||||
|
;
|
||||||
|
LDA PMHPOS
|
||||||
|
CMP #$CA
|
||||||
|
BNE NORTTN
|
||||||
|
LDA #$2A
|
||||||
|
STA PMHPOS
|
||||||
|
LDA #$8F
|
||||||
|
STA PACSCN
|
||||||
|
;
|
||||||
|
NORTTN INC PMHPOS
|
||||||
|
LDA PACBYT
|
||||||
|
CMP #3
|
||||||
|
BNE INCPBY
|
||||||
|
LDA #0
|
||||||
|
STA PACBYT
|
||||||
|
LDA PMHPOS
|
||||||
|
CMP PHSAVE
|
||||||
|
BEQ PACRTS
|
||||||
|
INC PACSCN
|
||||||
|
BNE PACRTS
|
||||||
|
INC PACSCN+1
|
||||||
|
BNE PACRTS
|
||||||
|
INCPBY INC PACBYT
|
||||||
|
PACRTS LDY #2;POINT TO PACRGT
|
||||||
|
BNE MOVPAC
|
||||||
|
PACLF LDA PACCNT
|
||||||
|
BNE PACLFS
|
||||||
|
;
|
||||||
|
LDA PMHPOS
|
||||||
|
CMP #$2A
|
||||||
|
BNE NOLFTN
|
||||||
|
LDA #$CA
|
||||||
|
STA PMHPOS
|
||||||
|
LDA #$B7
|
||||||
|
STA PACSCN
|
||||||
|
;
|
||||||
|
NOLFTN DEC PMHPOS
|
||||||
|
LDA PACBYT
|
||||||
|
BNE DECPBY
|
||||||
|
LDA #3
|
||||||
|
STA PACBYT
|
||||||
|
BNE PACLFS
|
||||||
|
DECPBY DEC PACBYT
|
||||||
|
BNE PACLFS
|
||||||
|
LDA PMHPOS
|
||||||
|
CMP PHSAVE
|
||||||
|
BEQ PACLFS
|
||||||
|
SEC
|
||||||
|
LDA PACSCN
|
||||||
|
SBC #1
|
||||||
|
STA PACSCN
|
||||||
|
LDA PACSCN+1
|
||||||
|
SBC #0
|
||||||
|
STA PACSCN+1
|
||||||
|
PACLFS LDY #4;POINT TO PACLFT
|
||||||
|
BNE MOVPAC
|
||||||
|
PACOPN LDA PMODIR
|
||||||
|
CMP #1
|
||||||
|
BNE POPNDN
|
||||||
|
LDY #6; UP
|
||||||
|
BNE SETOPN
|
||||||
|
POPNDN CMP #2
|
||||||
|
BNE POPNLF
|
||||||
|
LDY #8; DOWN
|
||||||
|
BNE SETOPN
|
||||||
|
POPNLF CMP #4
|
||||||
|
BNE POPNRT
|
||||||
|
LDY #4; LEFT
|
||||||
|
BNE SETOPN
|
||||||
|
POPNRT CMP #8
|
||||||
|
BNE PACSTP
|
||||||
|
LDY #2
|
||||||
|
SETOPN LDA #$0A
|
||||||
|
BNE STRPAC
|
||||||
|
PACSTP LDY #0;POINT TO PACDOT
|
||||||
|
TYA
|
||||||
|
BEQ STRPAC
|
||||||
|
MOVPAC LDX PMSEQU
|
||||||
|
BNE PACSID
|
||||||
|
INC PMSEQU
|
||||||
|
BNE PACSTP
|
||||||
|
PACSID DEX
|
||||||
|
LDA PACIDX,X
|
||||||
|
CPX #2
|
||||||
|
BNE INCPSQ
|
||||||
|
LDX #$FF
|
||||||
|
STX PMSEQU
|
||||||
|
INCPSQ INC PMSEQU
|
||||||
|
STRPAC TAX
|
||||||
|
LDA PACADD,Y
|
||||||
|
STA PIXGET
|
||||||
|
INY
|
||||||
|
LDA PACADD,Y
|
||||||
|
STA PIXGET+1
|
||||||
|
TXA
|
||||||
|
CLC
|
||||||
|
ADC PIXGET
|
||||||
|
STA PIXGET
|
||||||
|
LDA #0
|
||||||
|
ADC PIXGET+1
|
||||||
|
STA PIXGET+1
|
||||||
|
LDY #9
|
||||||
|
PMBFLP LDA (PIXGET),Y
|
||||||
|
STA PACBUF+3,Y
|
||||||
|
DEY
|
||||||
|
BPL PMBFLP
|
||||||
|
LDA #LOW PACBUF
|
||||||
|
STA PIXGET
|
||||||
|
LDA #HIGH PACBUF
|
||||||
|
STA PIXGET+1
|
||||||
|
LDA PMVPOS
|
||||||
|
STA PIXPUT
|
||||||
|
LDA #HIGH PMADDR+3
|
||||||
|
STA PIXPUT+1
|
||||||
|
CLC
|
||||||
|
LDA PMHPOS
|
||||||
|
STA HPOSM3
|
||||||
|
ADC #2
|
||||||
|
STA HPOSM2
|
||||||
|
ADC #2
|
||||||
|
STA HPOSM1
|
||||||
|
ADC #2
|
||||||
|
STA HPOSM0
|
||||||
|
LDY #$0F
|
||||||
|
PPLOOP LDA (PIXGET),Y
|
||||||
|
STA (PIXPUT),Y
|
||||||
|
DEY
|
||||||
|
BPL PPLOOP
|
||||||
|
PMSIXX RTS
|
||||||
|
;
|
||||||
|
; MUNCHY SUBROUTINE EATS DOTS
|
||||||
|
;
|
||||||
|
MUNCHY LDA PACBYT
|
||||||
|
BNE MUNCHX
|
||||||
|
LDA PACMAP
|
||||||
|
BNE MUNCHX
|
||||||
|
LDA PMHPOS
|
||||||
|
CMP PHSAVE
|
||||||
|
BNE NWPREF
|
||||||
|
LDA PMVPOS
|
||||||
|
CMP PVSAVE
|
||||||
|
BEQ PMSIXX
|
||||||
|
NWPREF LDA PMVPOS
|
||||||
|
STA PVSAVE
|
||||||
|
LDA PMHPOS
|
||||||
|
STA PHSAVE
|
||||||
|
LDY #0
|
||||||
|
LDA (PACSCN),Y
|
||||||
|
CMP #1
|
||||||
|
BEQ EATSML
|
||||||
|
CMP #2
|
||||||
|
BNE MUNCHX
|
||||||
|
TYA
|
||||||
|
STA (PACSCN),Y
|
||||||
|
RTS
|
||||||
|
EATSML STA SCOREX+4
|
||||||
|
JSR PSCORE
|
||||||
|
LDA #1
|
||||||
|
STA EATERF
|
||||||
|
STA PACDLY
|
||||||
|
LDA #0
|
||||||
|
STA EATERC
|
||||||
|
LDA EATERT
|
||||||
|
BNE ZEATER
|
||||||
|
LDA #1
|
||||||
|
BNE SEATER
|
||||||
|
ZEATER LDA #0
|
||||||
|
SEATER STA EATERT
|
||||||
|
LDA #0
|
||||||
|
TAY
|
||||||
|
STA (PACSCN),Y
|
||||||
|
INCDOT LDX PLYNUM
|
||||||
|
INC DTCTL1,X
|
||||||
|
BNE CHKMAX
|
||||||
|
INC DTCTM1,X
|
||||||
|
CHKMAX LDX PLYNUM
|
||||||
|
LDA DTCTM1,X
|
||||||
|
BEQ MUNCHX
|
||||||
|
LDA DTCTL1,X
|
||||||
|
CMP #4
|
||||||
|
BNE MUNCHX
|
||||||
|
LDA #1
|
||||||
|
STA RRFLAG
|
||||||
|
MUNCHX RTS
|
||||||
|
;
|
||||||
|
DOTTST LDX PLYNUM
|
||||||
|
LDA BIGDT1,X
|
||||||
|
STA TEMLOC
|
||||||
|
LDX PMVPOS
|
||||||
|
LDY PMHPOS
|
||||||
|
LDA #1
|
||||||
|
BIT TEMLOC
|
||||||
|
BEQ DT2TST
|
||||||
|
CPX #$3C
|
||||||
|
BNE DT2TST
|
||||||
|
CPY #$3A
|
||||||
|
BEQ DOTFND
|
||||||
|
DT2TST ASL A
|
||||||
|
BIT TEMLOC
|
||||||
|
BEQ DT3TST
|
||||||
|
CPX #$3C
|
||||||
|
BNE DT3TST
|
||||||
|
CPY #$BE
|
||||||
|
BEQ DOTFND
|
||||||
|
DT3TST ASL A
|
||||||
|
BIT TEMLOC
|
||||||
|
BEQ DT4TST
|
||||||
|
CPX #$A4
|
||||||
|
BNE DT4TST
|
||||||
|
CPY #$3A
|
||||||
|
BEQ DOTFND
|
||||||
|
DT4TST ASL A
|
||||||
|
BIT TEMLOC
|
||||||
|
BEQ MUNCHX
|
||||||
|
CPX #$A4
|
||||||
|
BNE MUNCHX
|
||||||
|
CPY #$BE
|
||||||
|
BNE MUNCHX
|
||||||
|
DOTFND EOR #$0F
|
||||||
|
AND TEMLOC
|
||||||
|
LDX PLYNUM
|
||||||
|
STA BIGDT1,X
|
||||||
|
LDA #5
|
||||||
|
STA SCOREX+4
|
||||||
|
JSR PSCORE
|
||||||
|
LDA #1; SET UP FOR BLUE MONSTERS
|
||||||
|
STA FLASHC
|
||||||
|
LDA #$FF
|
||||||
|
STA GLPCNT
|
||||||
|
LDX PLYNUM
|
||||||
|
LDA MAZCT1,X
|
||||||
|
TAX
|
||||||
|
LDA BLUTIM,X
|
||||||
|
STA FLITMR
|
||||||
|
LDX #3
|
||||||
|
SETFLL LDA M1STAT,X
|
||||||
|
ASL A
|
||||||
|
BMI NXTFLL
|
||||||
|
LDA M1STAT,X
|
||||||
|
ORA #$80; SET STATUS = FLIGHT
|
||||||
|
STA M1STAT,X
|
||||||
|
LSR A
|
||||||
|
LSR A
|
||||||
|
LSR A
|
||||||
|
BCS NXTFLL
|
||||||
|
;
|
||||||
|
AND #$3B
|
||||||
|
BEQ NXTFLL
|
||||||
|
LDA M1DIRT,X
|
||||||
|
TAY
|
||||||
|
LDA BLUREV,Y
|
||||||
|
STA M1DIRT,X
|
||||||
|
;
|
||||||
|
NXTFLL DEX
|
||||||
|
BPL SETFLL
|
||||||
|
JMP INCDOT
|
||||||
|
;
|
||||||
|
; PSCORE WILL ADD ANY POINTS
|
||||||
|
; SCORED TO THE PLAYERS' SCORE
|
||||||
|
;
|
||||||
|
PSCORE LDA #0;PSCORE SUBR
|
||||||
|
STA CARRYB
|
||||||
|
SED
|
||||||
|
LDA PLYNUM
|
||||||
|
BEQ PSCOR1
|
||||||
|
LDX #$4C
|
||||||
|
BNE PSCORX
|
||||||
|
PSCOR1 LDX #$2F
|
||||||
|
PSCORX LDY #5
|
||||||
|
KSCORE CLC
|
||||||
|
LDA TEXT,X
|
||||||
|
AND #$0F
|
||||||
|
ADC CARRYB
|
||||||
|
ADC SCOREX,Y
|
||||||
|
PHA
|
||||||
|
AND #$10
|
||||||
|
BEQ NOCARY
|
||||||
|
LDA #1
|
||||||
|
NOCARY STA CARRYB
|
||||||
|
PLA
|
||||||
|
ORA #$10
|
||||||
|
CMP #$10
|
||||||
|
BNE STRSCR
|
||||||
|
CPY #0
|
||||||
|
BNE TESLED
|
||||||
|
TYA
|
||||||
|
BEQ STRSCR
|
||||||
|
TESLED LDA TEXT-1,X
|
||||||
|
BNE NOLEAD
|
||||||
|
LDA CARRYB
|
||||||
|
BEQ STRSCR
|
||||||
|
NOLEAD LDA #$10
|
||||||
|
STRSCR STA TEXT,X
|
||||||
|
DEX
|
||||||
|
DEY
|
||||||
|
BPL KSCORE
|
||||||
|
CLD
|
||||||
|
LDX #5
|
||||||
|
LDA #0
|
||||||
|
CLRSCR STA SCOREX,X
|
||||||
|
DEX
|
||||||
|
BPL CLRSCR
|
||||||
|
CKBONS LDX PLYNUM
|
||||||
|
LDA BPACP1,X
|
||||||
|
BNE NOBONS
|
||||||
|
CPX #0
|
||||||
|
BNE CKBON2
|
||||||
|
LDA TEXT+$2B
|
||||||
|
BNE BONUSP
|
||||||
|
NOBONS RTS
|
||||||
|
CKBON2 LDA TEXT+$48
|
||||||
|
BEQ NOBONS
|
||||||
|
BONUSP INC BPACP1,X
|
||||||
|
INC XPACP1,X
|
||||||
|
JMP UDXPACS
|
||||||
|
;
|
||||||
|
; MAZE HANDLER SUBROUTINE
|
||||||
|
;
|
||||||
|
; ENTRY:
|
||||||
|
; A REG VALUE EQUALS VPOS
|
||||||
|
; Y REG VALUE EQUALS HPOS
|
||||||
|
;
|
||||||
|
; EXIT:
|
||||||
|
; A REG VALUE EQUALS PERMISSIBLE
|
||||||
|
; DIRECTIONS FOR ANY OBJECT FROM
|
||||||
|
; ANY POSITION
|
||||||
|
;
|
||||||
|
; BIT 0 SET - UP OK
|
||||||
|
; BIT 1 SET - DN OK
|
||||||
|
; BIT 2 SET - RT OK
|
||||||
|
; BIT 3 SET - LF OK
|
||||||
|
;
|
||||||
|
; CARRY BIT IS SET IF
|
||||||
|
; DECISION POINT WAS REACHED
|
||||||
|
; OTHERWISE IT IS CLEARED.
|
||||||
|
;
|
||||||
|
MAZHND LDA M1HPOS,X
|
||||||
|
STA HSAVER
|
||||||
|
LDA M1VPOS,X
|
||||||
|
STX TEMLOC
|
||||||
|
LDX #9
|
||||||
|
MHORLP CMP VTABLE,X;SEARCH VPOS
|
||||||
|
BEQ VRTFND;MATCH FOUND
|
||||||
|
DEX
|
||||||
|
BPL MHORLP;KEEP LOOKING
|
||||||
|
LDA HSAVER;NONE FOUND SO TRY HPOS
|
||||||
|
LDY #9
|
||||||
|
MVRTLP CMP HTABLE,Y;SEARCH HPOS
|
||||||
|
BEQ HORFND;MATCH FOUND
|
||||||
|
DEY
|
||||||
|
BPL MVRTLP
|
||||||
|
VRTFND LDY #9;NOW WE CHECK HPOS TABLE
|
||||||
|
LDA HSAVER; TO SEE IF DECISION PT.
|
||||||
|
VRTFNL CMP HTABLE,Y
|
||||||
|
BEQ CHOICE;YES - MAKE CHOICE
|
||||||
|
DEY
|
||||||
|
BPL VRTFNL
|
||||||
|
LDA #$0C;NO - KEEP GOING
|
||||||
|
CLC
|
||||||
|
BCC MAZHNX
|
||||||
|
HORFND LDA #3; ONLY ONE MATCH FOUND
|
||||||
|
CLC
|
||||||
|
BCC MAZHNX
|
||||||
|
CHOICE TXA;NOW INDEX INTO TABLE
|
||||||
|
ASL A
|
||||||
|
TAX
|
||||||
|
LDA HTBADD,X
|
||||||
|
STA PIXGET
|
||||||
|
INX
|
||||||
|
LDA HTBADD,X
|
||||||
|
STA PIXGET+1
|
||||||
|
LDA (PIXGET),Y
|
||||||
|
SEC
|
||||||
|
MAZHNX LDX TEMLOC
|
||||||
|
STA TEMLOC
|
||||||
|
PHP
|
||||||
|
CPX #4
|
||||||
|
BEQ MAZHX1
|
||||||
|
LDA M1DIRT,X
|
||||||
|
TAY
|
||||||
|
LDA TEMLOC
|
||||||
|
AND REVTAB,Y
|
||||||
|
STA TEMLOC
|
||||||
|
LDA M1VPOS,X
|
||||||
|
CMP #$64
|
||||||
|
BNE MAZHX1
|
||||||
|
LDA M1HPOS,X
|
||||||
|
CMP #$76
|
||||||
|
BEQ MASKIT
|
||||||
|
NEXTMU CMP #$82
|
||||||
|
BNE MAZHX1
|
||||||
|
MASKIT LDA M1STAT,X
|
||||||
|
BMI MASKSD
|
||||||
|
LDA TEMLOC
|
||||||
|
AND #$0E
|
||||||
|
BNE MASKUP
|
||||||
|
MASKSD LDA #1
|
||||||
|
MASKUP STA TEMLOC
|
||||||
|
MAZHX1 LDA TEMLOC
|
||||||
|
PLP
|
||||||
|
RTS
|
||||||
|
;
|
||||||
|
VCHASE LDA #0
|
||||||
|
STA VFLITS
|
||||||
|
LDA VCHASS
|
||||||
|
BNE VCHDIR
|
||||||
|
LDA #$28
|
||||||
|
STA VCHASF
|
||||||
|
LDA #1
|
||||||
|
STA VCHASS
|
||||||
|
STA VCHASD
|
||||||
|
VCHDIR LDA VCHASD
|
||||||
|
CMP #1
|
||||||
|
BNE VCHADN
|
||||||
|
LDA VCHASF
|
||||||
|
CMP #$40
|
||||||
|
BCC VCUPOK
|
||||||
|
LDA #2
|
||||||
|
STA VCHASD
|
||||||
|
BNE VCDNOK
|
||||||
|
VCUPOK LDA WHINEY
|
||||||
|
CLC
|
||||||
|
ADC VCHASF
|
||||||
|
BNE STRVCH
|
||||||
|
VCHADN LDA VCHASF
|
||||||
|
CMP #$28
|
||||||
|
BCS VCDNOK
|
||||||
|
LDA #1
|
||||||
|
STA VCHASD
|
||||||
|
BNE VCUPOK
|
||||||
|
VCDNOK SEC
|
||||||
|
LDA VCHASF
|
||||||
|
SBC WHINEY
|
||||||
|
STRVCH STA VCHASF
|
||||||
|
STA AUDF2
|
||||||
|
LDA #$A1
|
||||||
|
STA AUDC2
|
||||||
|
VCHASX RTS
|
||||||
|
;
|
||||||
|
BLINKR LDA RTCLOK+2
|
||||||
|
AND #$0F
|
||||||
|
BEQ BLNKON
|
||||||
|
CMP #8
|
||||||
|
BEQ BLNKOF
|
||||||
|
RTS
|
||||||
|
BLNKON LDY #2
|
||||||
|
LDX PLYNUM
|
||||||
|
LDA BIGDT1,X
|
||||||
|
STA TEMLOC
|
||||||
|
LDA #1
|
||||||
|
BIT TEMLOC
|
||||||
|
BEQ BKOND2
|
||||||
|
STY PACMAZ+$7B
|
||||||
|
BKOND2 ASL A
|
||||||
|
BIT TEMLOC
|
||||||
|
BEQ BKOND3
|
||||||
|
STY PACMAZ+$9C
|
||||||
|
BKOND3 ASL A
|
||||||
|
BIT TEMLOC
|
||||||
|
BEQ BKOND4
|
||||||
|
STY PACMAZ+$283
|
||||||
|
BKOND4 ASL A
|
||||||
|
BIT TEMLOC
|
||||||
|
BNE BKONX1
|
||||||
|
BKONXX RTS
|
||||||
|
;
|
||||||
|
BLNKOF LDY #0
|
||||||
|
STY PACMAZ+$7B
|
||||||
|
STY PACMAZ+$9C
|
||||||
|
STY PACMAZ+$283
|
||||||
|
BKONX1 STY PACMAZ+$2A4
|
||||||
|
RTS
|
||||||
|
;
|
||||||
|
;
|
||||||
|
; SPEED SEQUENCING FOR OBJECTS
|
||||||
|
;
|
||||||
|
; X REG = INDEX VALUE FOR OBJECT
|
||||||
|
;
|
||||||
|
; X=0 TO 3 FOR MONSTERS 1 - 4
|
||||||
|
; X=4 FOR PACMAN
|
||||||
|
;
|
||||||
|
; ON EXIT:
|
||||||
|
; A REG = 0 INDICATES UPDATE TIME
|
||||||
|
;
|
||||||
|
SPDSEQ DEC M1SPCT,X
|
||||||
|
BEQ NXSPSQ
|
||||||
|
LDA #$FF
|
||||||
|
RTS
|
||||||
|
NXSPSQ LDA M1SPSQ,X
|
||||||
|
CMP #3
|
||||||
|
BNE INCSPS
|
||||||
|
LDA #$FF
|
||||||
|
STA M1SPSQ,X
|
||||||
|
INCSPS INC M1SPSQ,X
|
||||||
|
LDY PLYNUM
|
||||||
|
LDA MAZCT1,Y
|
||||||
|
CMP #6
|
||||||
|
BCC LOWSPD
|
||||||
|
LDA #6
|
||||||
|
LOWSPD TAY
|
||||||
|
CPX #4
|
||||||
|
BNE MXSPSQ
|
||||||
|
LDA PACSPD,Y
|
||||||
|
BPL LDSPSQ
|
||||||
|
MXSPSQ LDA MONSPD,Y
|
||||||
|
LDSPSQ CLC
|
||||||
|
ADC M1SPSQ,X
|
||||||
|
TAY
|
||||||
|
LDA SPEED1,Y
|
||||||
|
STA M1SPCT,X
|
||||||
|
LDA #0
|
||||||
|
RTS
|
||||||
|
;
|
||||||
|
; CHASE SEQUENCING
|
||||||
|
;
|
||||||
|
CHSSEQ LDA RTCLOK+2
|
||||||
|
AND #7
|
||||||
|
BNE CHSSQ1
|
||||||
|
LDA CHASET
|
||||||
|
BEQ CHSSQ1
|
||||||
|
DEC CHASET
|
||||||
|
CHSSQ1 LDX PLYNUM
|
||||||
|
LDA DTCTM1,X
|
||||||
|
BEQ CHMAD1
|
||||||
|
VRYMAD LDX #3
|
||||||
|
JSR SETMAD
|
||||||
|
LDA #5
|
||||||
|
BNE STWHIN
|
||||||
|
CHMAD1 LDA DTCTL1,X
|
||||||
|
CMP #$F0
|
||||||
|
BCS VRYMAD
|
||||||
|
CMP #$E0
|
||||||
|
BCC SMLMAD
|
||||||
|
LDX #2
|
||||||
|
JSR SETMAD
|
||||||
|
LDA #4
|
||||||
|
BNE STWHIN
|
||||||
|
SMLMAD CMP #$B0
|
||||||
|
BCC NOTMAD
|
||||||
|
LDA #3
|
||||||
|
BNE STWHIN
|
||||||
|
NOTMAD LDA #2
|
||||||
|
STWHIN STA WHINEY
|
||||||
|
CHSSQ2 LDX #3
|
||||||
|
CHSSQL LDA M1STAT,X
|
||||||
|
CMP #8
|
||||||
|
BEQ TSTCHS
|
||||||
|
CMP #$10
|
||||||
|
BEQ TSTCHS
|
||||||
|
BNE NXCHSQ
|
||||||
|
TSTCHS JSR SEEPAC
|
||||||
|
NXCHSQ DEX
|
||||||
|
BPL CHSSQL
|
||||||
|
RTS
|
||||||
|
;
|
||||||
|
SETMAD LDA M1STAT,X
|
||||||
|
CMP #8
|
||||||
|
BEQ YESMAD
|
||||||
|
CMP #$10
|
||||||
|
BEQ YESMAD
|
||||||
|
CMP #$20
|
||||||
|
BNE NXSTMD
|
||||||
|
YESMAD LDA #2
|
||||||
|
STA M1STAT,X
|
||||||
|
NXSTMD DEX
|
||||||
|
BPL SETMAD
|
||||||
|
STX CHASET
|
||||||
|
RTS
|
||||||
|
;
|
||||||
|
FRUITY LDA FRSCRF
|
||||||
|
BEQ TSTFRT
|
||||||
|
LDA FRSCRT
|
||||||
|
BNE DCFRST
|
||||||
|
LDA #0
|
||||||
|
STA FRSCRF
|
||||||
|
LDX #4
|
||||||
|
CLFRSL STA PACMAZ+$1F1,X
|
||||||
|
DEX
|
||||||
|
BPL CLFRSL
|
||||||
|
RTS
|
||||||
|
DCFRST DEC FRSCRT
|
||||||
|
DCFRSX RTS
|
||||||
|
TSTFRT LDA FRUFLG
|
||||||
|
BNE DFRTMR
|
||||||
|
LDX PLYNUM
|
||||||
|
LDA DTCTL1,X
|
||||||
|
TAY
|
||||||
|
LDA FRUTP1,X
|
||||||
|
BEQ FRTST1
|
||||||
|
CMP #1
|
||||||
|
BEQ FRTST2
|
||||||
|
RTS
|
||||||
|
FRTST1 CPY #$50
|
||||||
|
BEQ SETFRT
|
||||||
|
FRTST2 CPY #$A0
|
||||||
|
BNE DCFRSX
|
||||||
|
SETFRT INC FRUTP1,X
|
||||||
|
LDA MAZCT1,X
|
||||||
|
CMP #$0C
|
||||||
|
BCC LOWFRC
|
||||||
|
LDA #$0C
|
||||||
|
LOWFRC TAX
|
||||||
|
LDA FRUCHR,X
|
||||||
|
STA PACMAZ+$1F3
|
||||||
|
CLC
|
||||||
|
ADC #1
|
||||||
|
STA PACMAZ+$1F4
|
||||||
|
LDA #1
|
||||||
|
STA FRUFLG
|
||||||
|
LDA #FDELAY
|
||||||
|
STA FRUTMR
|
||||||
|
LDA #2
|
||||||
|
STA FRUTMR+1
|
||||||
|
RTS
|
||||||
|
DFRTMR LDA FRUTMR+1
|
||||||
|
BNE DCFRTM
|
||||||
|
LDA FRUTMR
|
||||||
|
BNE DCFRTM
|
||||||
|
LDA #0
|
||||||
|
STA PACMAZ+$1F3
|
||||||
|
STA PACMAZ+$1F4
|
||||||
|
STA FRUFLG
|
||||||
|
RTS
|
||||||
|
DCFRTM DEC FRUTMR
|
||||||
|
BNE FRUITX
|
||||||
|
DEC FRUTMR+1
|
||||||
|
FRUITX RTS
|
||||||
|
;
|
||||||
|
|
||||||
|
STA FR
|
||||||
141
PACDAT1.ASM
Normal file
141
PACDAT1.ASM
Normal file
@@ -0,0 +1,141 @@
|
|||||||
|
; MISSING LABELS & DATA
|
||||||
|
|
||||||
|
PACCHR
|
||||||
|
.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$3C,$3C,$00,$00,$00
|
||||||
|
.byte $3C,$3C,$FF,$FF,$FF,$FF,$3C,$3C,$00,$00,$01,$04,$04,$04,$04,$04
|
||||||
|
.byte $00,$00,$40,$10,$10,$10,$10,$10,$10,$10,$10,$10,$10,$40,$00,$00
|
||||||
|
.byte $04,$04,$04,$04,$04,$01,$00,$00,$00,$00,$55,$00,$00,$50,$04,$04
|
||||||
|
.byte $00,$00,$40,$10,$10,$40,$00,$00,$00,$00,$55,$00,$00,$05,$10,$10
|
||||||
|
.byte $00,$00,$01,$04,$04,$01,$00,$00,$00,$00,$FF,$00,$00,$00,$00,$00
|
||||||
|
.byte $00,$00,$55,$00,$00,$55,$00,$00,$04,$04,$04,$04,$04,$04,$04,$04
|
||||||
|
.byte $00,$00,$55,$00,$00,$00,$00,$00,$10,$10,$10,$10,$10,$10,$10,$10
|
||||||
|
.byte $00,$00,$00,$00,$00,$55,$00,$00,$00,$00,$00,$00,$01,$01,$01,$01
|
||||||
|
.byte $01,$01,$01,$01,$00,$00,$00,$00,$01,$01,$01,$01,$01,$01,$01,$01
|
||||||
|
.byte $40,$40,$40,$40,$40,$40,$40,$40,$00,$00,$55,$00,$00,$50,$04,$04
|
||||||
|
.byte $00,$00,$55,$00,$00,$05,$10,$10,$04,$04,$50,$00,$00,$55,$00,$00
|
||||||
|
.byte $10,$10,$05,$00,$00,$55,$00,$00,$10,$10,$05,$00,$00,$05,$10,$10
|
||||||
|
.byte $04,$04,$50,$00,$00,$50,$04,$04,$3C,$FF,$3F,$0F,$3F,$FF,$3C,$00
|
||||||
|
.byte $00,$00,$15,$40,$00,$05,$10,$10,$10,$10,$05,$00,$40,$15,$00,$00
|
||||||
|
.byte $00,$00,$54,$01,$00,$50,$04,$04,$04,$04,$50,$00,$01,$54,$00,$00
|
||||||
|
.byte $00,$00,$00,$00,$40,$40,$40,$40,$40,$40,$40,$40,$00,$00,$00,$00
|
||||||
|
.byte $00,$3F,$3C,$3C,$3F,$3C,$3C,$00,$00,$F0,$3C,$3C,$F0,$F0,$3C,$00
|
||||||
|
.byte $00,$FF,$F0,$FF,$F0,$F0,$FF,$00,$00,$C0,$03,$0F,$0F,$0F,$CF,$00
|
||||||
|
.byte $00,$F0,$FC,$0F,$0F,$FF,$0F,$00,$00,$3F,$3C,$3C,$3C,$3C,$3F,$00
|
||||||
|
.byte $00,$C0,$F0,$3C,$3C,$F0,$C0,$00,$00,$F0,$F0,$3F,$0F,$0F,$0F,$00
|
||||||
|
.byte $00,$F3,$F3,$C3,$00,$03,$03,$00,$00,$C0,$C0,$C0,$00,$C0,$C0,$00
|
||||||
|
.byte $00,$3F,$F0,$F0,$F3,$F0,$3F,$00,$00,$F0,$00,$03,$F3,$F3,$F3,$00
|
||||||
|
.byte $00,$3C,$FF,$C3,$C3,$FF,$C3,$00,$00,$0F,$0F,$CF,$CF,$CF,$CF,$00
|
||||||
|
.byte $00,$03,$CF,$FF,$33,$03,$03,$00,$00,$CF,$CF,$CF,$CF,$CF,$CF,$00
|
||||||
|
.byte $00,$FC,$00,$F0,$00,$00,$FC,$00,$00,$00,$03,$03,$03,$03,$00,$00
|
||||||
|
.byte $00,$FF,$C3,$C3,$C3,$C3,$FF,$00,$00,$0F,$CF,$CF,$CF,$C3,$00,$00
|
||||||
|
.byte $00,$3C,$3C,$3C,$3C,$F0,$C0,$00,$00,$FF,$F0,$FF,$F0,$F0,$FF,$00
|
||||||
|
.byte $00,$CF,$0F,$0F,$0F,$0F,$CF,$00,$00,$FC,$0F,$0F,$FC,$3C,$0F,$00
|
||||||
|
.byte $00,$03,$0C,$2A,$2A,$2A,$3A,$2A,$30,$F0,$30,$A8,$A8,$E8,$A8,$00
|
||||||
|
.byte $03,$0F,$2A,$2E,$2A,$2B,$0A,$02,$00,$C0,$A0,$E0,$A0,$A0,$80,$00
|
||||||
|
.byte $02,$02,$0F,$3F,$3F,$3F,$3F,$0F,$00,$00,$C0,$F0,$F0,$F0,$F0,$C0
|
||||||
|
.byte $03,$0A,$2A,$2A,$2A,$2A,$2A,$0A,$00,$80,$A0,$A0,$E0,$E0,$A0,$80
|
||||||
|
.byte $03,$03,$0A,$2A,$2A,$2A,$2A,$0A,$00,$00,$80,$A0,$A0,$A0,$A0,$80
|
||||||
|
.byte $03,$03,$05,$15,$15,$15,$15,$05,$00,$00,$40,$50,$50,$50,$50,$40
|
||||||
|
.byte $22,$22,$22,$22,$22,$A2,$82,$82,$20,$20,$20,$20,$20,$28,$08,$08
|
||||||
|
.byte $11,$11,$11,$11,$11,$51,$41,$41,$10,$10,$10,$10,$10,$14,$04,$04
|
||||||
|
.byte $03,$0D,$3F,$3F,$3F,$3A,$2B,$0A,$00,$C0,$F0,$F0,$F0,$B0,$A0,$80
|
||||||
|
.byte $0A,$08,$0A,$03,$03,$03,$03,$03,$A0,$20,$A0,$C0,$F0,$C0,$F0,$C0
|
||||||
|
.byte $00,$03,$00,$00,$00,$00,$03,$00,$C0,$C3,$C3,$C3,$C3,$C3,$F0,$00
|
||||||
|
.byte $3F,$00,$00,$03,$00,$30,$0F,$00,$F0,$33,$C3,$C3,$33,$33,$C0,$00
|
||||||
|
.byte $3F,$30,$3F,$00,$00,$30,$0F,$00,$F0,$03,$C3,$33,$33,$33,$C0,$00
|
||||||
|
.byte $3F,$00,$00,$03,$0C,$0C,$0C,$00,$F0,$33,$C3,$03,$03,$03,$00,$00
|
||||||
|
.byte $03,$0F,$03,$03,$03,$03,$0F,$00,$03,$0C,$0C,$0C,$0C,$0C,$C3,$00
|
||||||
|
.byte $3F,$C0,$00,$0F,$30,$C0,$FF,$00,$03,$CC,$CC,$0C,$0C,$0C,$C3,$00
|
||||||
|
.byte $FF,$00,$03,$0F,$00,$C0,$3F,$00,$C3,$CC,$0C,$0C,$CC,$CC,$03,$00
|
||||||
|
.byte $FF,$C0,$FF,$00,$00,$C0,$3F,$00,$C3,$0C,$0C,$CC,$CC,$CC,$03,$00
|
||||||
|
.byte $C0,$33,$33,$33,$33,$33,$C0,$00,$F0,$0C,$0C,$0C,$0C,$0C,$F0,$00
|
||||||
|
.byte $3C,$C3,$C3,$C3,$C3,$C3,$3C,$00,$00,$00,$55,$00,$00,$54,$01,$01
|
||||||
|
.byte $01,$01,$54,$00,$00,$55,$00,$00,$00,$00,$55,$00,$00,$15,$40,$40
|
||||||
|
.byte $40,$40,$15,$00,$00,$55,$00,$00,$00,$AA,$A0,$A0,$AA,$A0,$A0,$00
|
||||||
|
.byte $00,$82,$A2,$A2,$82,$02,$02,$00,$00,$80,$80,$80,$80,$80,$AA,$00
|
||||||
|
.byte $00,$02,$0A,$28,$28,$2A,$28,$00,$00,$02,$82,$A0,$A0,$A0,$A0,$00
|
||||||
|
.byte $00,$82,$82,$AA,$28,$28,$28,$00,$00,$8A,$8A,$0A,$0A,$0A,$0A,$00
|
||||||
|
.byte $00,$A8,$00,$A0,$00,$00,$A8,$00,$00,$AA,$A0,$A0,$AA,$A2,$A0,$00
|
||||||
|
.byte $00,$80,$A0,$A0,$80,$80,$A0,$00,$00,$00,$02,$00,$00,$00,$0A,$00
|
||||||
|
.byte $00,$A0,$A0,$A0,$A0,$A0,$AA,$00,$00,$02,$0A,$00,$00,$02,$0A,$00
|
||||||
|
.byte $00,$A8,$0A,$28,$A0,$80,$AA,$00
|
||||||
|
|
||||||
|
DATMAZ
|
||||||
|
.byte $00,$11,$1C,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C
|
||||||
|
.byte $0C,$0C,$0C,$15,$16,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C
|
||||||
|
.byte $0C,$0C,$0C,$0C,$0C,$1E,$20,$00,$00,$13,$0F,$01,$01,$01,$01,$01
|
||||||
|
.byte $01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$0D,$0F,$01,$01,$01
|
||||||
|
.byte $01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$0D,$14,$00
|
||||||
|
.byte $00,$13,$0F,$01,$03,$0E,$0E,$0E,$04,$01,$03,$0E,$0E,$0E,$0E,$0E
|
||||||
|
.byte $0E,$04,$01,$0D,$0F,$01,$03,$0E,$0E,$0E,$0E,$0E,$0E,$04,$01,$03
|
||||||
|
.byte $0E,$0E,$0E,$04,$01,$0D,$14,$00,$00,$13,$0F,$02,$06,$10,$10,$10
|
||||||
|
.byte $05,$01,$06,$10,$10,$10,$10,$10,$10,$05,$01,$06,$05,$01,$06,$10
|
||||||
|
.byte $10,$10,$10,$10,$10,$05,$01,$06,$10,$10,$10,$05,$02,$0D,$14,$00
|
||||||
|
.byte $00,$13,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01
|
||||||
|
.byte $01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01
|
||||||
|
.byte $01,$01,$01,$01,$01,$0D,$14,$00,$00,$13,$0F,$01,$0A,$0C,$0C,$0C
|
||||||
|
.byte $08,$01,$03,$0E,$04,$01,$0A,$0C,$0C,$0C,$0C,$07,$09,$0C,$0C,$0C
|
||||||
|
.byte $0C,$08,$01,$03,$0E,$04,$01,$0A,$0C,$0C,$0C,$08,$01,$0D,$14,$00
|
||||||
|
.byte $00,$13,$0F,$01,$01,$01,$01,$01,$01,$01,$0D,$00,$0F,$01,$01,$01
|
||||||
|
.byte $01,$01,$01,$0D,$0F,$01,$01,$01,$01,$01,$01,$0D,$00,$0F,$01,$01
|
||||||
|
.byte $01,$01,$01,$01,$01,$0D,$14,$00,$00,$12,$1D,$0C,$0C,$0C,$0C,$61
|
||||||
|
.byte $04,$01,$0D,$00,$19,$0C,$0C,$0C,$0C,$08,$00,$06,$05,$00,$0A,$0C
|
||||||
|
.byte $0C,$0C,$0C,$1A,$00,$0F,$01,$03,$63,$0C,$0C,$0C,$0C,$1F,$21,$00
|
||||||
|
.byte $00,$00,$00,$00,$00,$00,$00,$13,$0F,$01,$0D,$00,$0F,$00,$00,$00
|
||||||
|
.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0D,$00,$0F,$01,$0D
|
||||||
|
.byte $14,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0C,$0C,$0C,$0C,$0C,$62
|
||||||
|
.byte $05,$01,$06,$10,$05,$00,$03,$0E,$0E,$0E,$0E,$0B,$0B,$0E,$0E,$0E
|
||||||
|
.byte $0E,$04,$00,$06,$10,$05,$01,$06,$64,$0C,$0C,$0C,$0C,$0C,$00,$00
|
||||||
|
.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$01,$00,$00,$00,$00,$0D,$00
|
||||||
|
.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$0F,$00,$00,$00,$00,$01,$00
|
||||||
|
.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0C,$0C,$0C,$0C,$0C,$61
|
||||||
|
.byte $04,$01,$03,$0E,$04,$00,$06,$10,$10,$10,$10,$10,$10,$10,$10,$10
|
||||||
|
.byte $10,$05,$00,$03,$0E,$04,$01,$03,$63,$0C,$0C,$0C,$0C,$0C,$00,$00
|
||||||
|
.byte $00,$00,$00,$00,$00,$00,$00,$13,$0F,$01,$0D,$00,$0F,$00,$00,$00
|
||||||
|
.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0D,$00,$0F,$01,$0D
|
||||||
|
.byte $14,$00,$00,$00,$00,$00,$00,$00,$00,$11,$1C,$0C,$0C,$0C,$0C,$62
|
||||||
|
.byte $05,$01,$06,$10,$05,$00,$0A,$0C,$0C,$0C,$0C,$07,$09,$0C,$0C,$0C
|
||||||
|
.byte $0C,$08,$00,$06,$10,$05,$01,$06,$64,$0C,$0C,$0C,$0C,$1E,$20,$00
|
||||||
|
.byte $00,$13,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01
|
||||||
|
.byte $01,$01,$01,$0D,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01
|
||||||
|
.byte $01,$01,$01,$01,$01,$0D,$14,$00,$00,$13,$0F,$01,$0A,$0C,$0C,$15
|
||||||
|
.byte $04,$01,$0A,$0C,$0C,$0C,$0C,$0C,$0C,$08,$01,$06,$05,$01,$0A,$0C
|
||||||
|
.byte $0C,$0C,$0C,$0C,$0C,$08,$01,$03,$16,$0C,$0C,$08,$01,$0D,$14,$00
|
||||||
|
.byte $00,$13,$0F,$02,$01,$01,$01,$0D,$0F,$01,$01,$01,$01,$01,$01,$01
|
||||||
|
.byte $01,$01,$01,$00,$00,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$0D
|
||||||
|
.byte $0F,$01,$01,$01,$02,$0D,$14,$00,$00,$13,$19,$0C,$0C,$08,$01,$06
|
||||||
|
.byte $05,$01,$03,$0E,$04,$01,$0A,$0C,$0C,$0C,$0C,$07,$09,$0C,$0C,$0C
|
||||||
|
.byte $0C,$08,$01,$03,$0E,$04,$01,$06,$05,$01,$0A,$0C,$0C,$1A,$14,$00
|
||||||
|
.byte $00,$13,$0F,$01,$01,$01,$01,$01,$01,$01,$0D,$00,$0F,$01,$01,$01
|
||||||
|
.byte $01,$01,$01,$0D,$0F,$01,$01,$01,$01,$01,$01,$0D,$00,$0F,$01,$01
|
||||||
|
.byte $01,$01,$01,$01,$01,$0D,$14,$00,$00,$13,$0F,$01,$0A,$0C,$0C,$0C
|
||||||
|
.byte $0C,$0C,$17,$10,$18,$0C,$0C,$0C,$0C,$08,$01,$06,$05,$01,$0A,$0C
|
||||||
|
.byte $0C,$0C,$0C,$17,$10,$18,$0C,$0C,$0C,$0C,$0C,$08,$01,$0D,$14,$00
|
||||||
|
.byte $00,$13,$0F,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01
|
||||||
|
.byte $01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01
|
||||||
|
.byte $01,$01,$01,$01,$01,$0D,$14,$00,$00,$12,$1D,$0C,$0C,$0C,$0C,$0C
|
||||||
|
.byte $0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C
|
||||||
|
.byte $0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C,$1F,$21,$00
|
||||||
|
.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
.byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
|
||||||
|
ODLIST
|
||||||
|
.byte $70,$70,$42,$00,$28,$02,$C6,$00,$24,$07,$07,$86,$06,$06,$06,$06
|
||||||
|
.byte $86,$04,$86,$06,$06,$06,$06,$06,$06,$06,$06,$86,$44,$70,$17,$41, a(ODLIST)
|
||||||
|
|
||||||
|
DLIST
|
||||||
|
.byte $70,$70,$42,$00,$28,$82,$C4,$00,$14,$04,$04,$04,$04,$04,$04,$04
|
||||||
|
.byte $04,$04,$84,$04,$04,$04,$04,$04,$04,$04,$04,$04,$84,$84,$04,$F0
|
||||||
|
.byte $41,a(DLIST)
|
||||||
|
|
||||||
|
ADLIST
|
||||||
|
.byte $70,$70,$C2,$00,$28,$02,$46,$00,$30,$06,$86,$06,$06,$06,$06,$06
|
||||||
|
.byte $06,$06,$86,$06,$06,$06,$86,$06,$06,$06,$06,$06,$86,$06,$44,$70
|
||||||
|
.byte $17,$41,a(ADLIST)
|
||||||
|
NULLDL
|
||||||
|
.byte $70,$70,$70,$41,a(NULLDL)
|
||||||
|
|
||||||
|
INTDLC
|
||||||
|
.byte $70,$70,$70,$42,$00,$28,$02,$F0,$70,$70,$70,$70,$70,$70,$70,$70
|
||||||
|
.byte $70,$54,$00,$2C,$54,$50,$2C,$54,$A0,$2C,$41,$80,$06
|
||||||
729
PACDAT2.ASM
Normal file
729
PACDAT2.ASM
Normal file
@@ -0,0 +1,729 @@
|
|||||||
|
;
|
||||||
|
; PAC-MAN MONSTER DATA
|
||||||
|
;
|
||||||
|
; MONSTER UP
|
||||||
|
;
|
||||||
|
MONSUP DB $38,$7C,$D6,$D6,$D6,$FE
|
||||||
|
DB $FE,$FE,$FE,$FE
|
||||||
|
;
|
||||||
|
; MONSTER DOWN
|
||||||
|
;
|
||||||
|
MONSDN DB $38,$7C,$FE,$FE,$FE,$FE
|
||||||
|
DB $D6,$D6,$D6,$FE
|
||||||
|
;
|
||||||
|
; MONSTER LEFT
|
||||||
|
;
|
||||||
|
MONSLF DB $38,$7C,$FE,$FE,$AE,$AE
|
||||||
|
DB $AE,$FE,$FE,$FE
|
||||||
|
;
|
||||||
|
; MONSTER RIGHT
|
||||||
|
;
|
||||||
|
MONSRT DB $38,$7C,$FE,$FE,$EA,$EA
|
||||||
|
DB $EA,$FE,$FE,$FE
|
||||||
|
;
|
||||||
|
; MONSTER FLIGHT
|
||||||
|
;
|
||||||
|
MONSFL DB $38,$7C,$FE,$D6,$D6,$D6
|
||||||
|
DB $FE,$D6,$AA,$FE
|
||||||
|
;
|
||||||
|
; MONSTER EYES
|
||||||
|
;
|
||||||
|
MONSEY DB $00,$00,$00,$28,$28,$28
|
||||||
|
DB $00,$00,$00,$00
|
||||||
|
;
|
||||||
|
; **** PACMAN SHAPE DATA ****
|
||||||
|
;
|
||||||
|
; PACMAN NOT MOVING
|
||||||
|
;
|
||||||
|
PACDOT DB $38,$7C,$FE,$FE,$FE
|
||||||
|
DB $FE,$FE,$FE,$7C,$38
|
||||||
|
;
|
||||||
|
;PACMAN RIGHT
|
||||||
|
;
|
||||||
|
PACRGT DB $38,$7C,$FE,$F8,$E0
|
||||||
|
DB $E0,$F8,$FE,$7C,$38
|
||||||
|
;
|
||||||
|
DB $38,$7C,$F8,$F0,$E0
|
||||||
|
DB $E0,$F0,$F8,$7C,$38
|
||||||
|
;
|
||||||
|
;PACMAN LEFT
|
||||||
|
;
|
||||||
|
PACLFT DB $38,$7C,$FE,$3E,$0E
|
||||||
|
DB $0E,$3E,$FE,$7C,$38
|
||||||
|
;
|
||||||
|
DB $38,$7C,$3E,$1E,$0E
|
||||||
|
DB $0E,$1E,$3E,$7C,$38
|
||||||
|
;
|
||||||
|
;PACMAN UP
|
||||||
|
;
|
||||||
|
PACTOP DB $00,$44,$C6,$C6,$EE
|
||||||
|
DB $EE,$FE,$FE,$7C,$38
|
||||||
|
;
|
||||||
|
PACDIE DB $00,$00,$82,$C6,$EE
|
||||||
|
DB $EE,$FE,$FE,$7C,$38
|
||||||
|
;
|
||||||
|
;PACMAN DOWN
|
||||||
|
;
|
||||||
|
PACBOT DB $38,$7C,$FE,$FE,$EE
|
||||||
|
DB $EE,$C6,$C6,$44,$00
|
||||||
|
;
|
||||||
|
DB $38,$7C,$FE,$FE,$EE
|
||||||
|
DB $EE,$C6,$82,$00
|
||||||
|
;
|
||||||
|
PACIDX DB $00,$0A
|
||||||
|
;
|
||||||
|
FIZDAT DB $00,$82,$00,$C6,$82,$00,$7C
|
||||||
|
DB $38,$10,$7C,$38,$38,$10,$10
|
||||||
|
;
|
||||||
|
;PACMAN DATA ADDRESS POINTERS
|
||||||
|
;
|
||||||
|
PACADD DW PACDOT,PACRGT,PACLFT,PACTOP,PACBOT
|
||||||
|
;
|
||||||
|
; INITIALIZE SCREEN DATA
|
||||||
|
;
|
||||||
|
INIDAT DB $93,HIGH PACMAZ+2
|
||||||
|
DB $02,$A6,$7A,$64,$74,$74,$74,$A4
|
||||||
|
DB $7C,$7C,$70,$88,$7C,$04,$02,$01
|
||||||
|
DB $01,$04
|
||||||
|
;
|
||||||
|
; PAC-MAN MAZE DIRECTION DATA
|
||||||
|
;
|
||||||
|
; THIS DATA IS USED TO DETERMINE
|
||||||
|
; WHICH DIRECTIONS ARE PERMITTED
|
||||||
|
;
|
||||||
|
VTABLE DB $2C,$44,$54,$64,$74,$84,$94,$A4,$B4,$C4
|
||||||
|
HTABLE DB $3A,$46,$52,$62,$76,$82,$96,$A6,$B2,$BE
|
||||||
|
;
|
||||||
|
; HORIZONTAL TABLE ADDR POINTERS
|
||||||
|
;
|
||||||
|
HTBADD DW HTAB01,HTAB02,HTAB03,HTAB04,HTAB05
|
||||||
|
DW HTAB06,HTAB07,HTAB08,HTAB09,HTAB10
|
||||||
|
;
|
||||||
|
HWALL1 DB $7C,$FF
|
||||||
|
HWALL2 DB $58,$7C,$9E,$FF
|
||||||
|
HWALL3 DB $58,$9E,$FF
|
||||||
|
HWALL4 DB $3C,$AC,$FF
|
||||||
|
HWALL5 DB $FF
|
||||||
|
;
|
||||||
|
HWALLS DB HWALL1-HWALL1
|
||||||
|
DB HWALL5-HWALL1
|
||||||
|
DB HWALL2-HWALL1
|
||||||
|
DB HWALL3-HWALL1
|
||||||
|
DB HWALL1-HWALL1
|
||||||
|
DB HWALL3-HWALL1
|
||||||
|
DB HWALL1-HWALL1
|
||||||
|
DB HWALL4-HWALL1
|
||||||
|
DB HWALL2-HWALL1
|
||||||
|
DB HWALL5-HWALL1
|
||||||
|
;
|
||||||
|
VWALL1 DB $64,$84,$FF
|
||||||
|
VWALL2 DB $38,$4C,$64,$84,$9C,$BC,$FF
|
||||||
|
VWALL3 DB $3C,$FF
|
||||||
|
VWALL4 DB $38,$5C,$9C,$BC,$FF
|
||||||
|
VWALL5 DB $4C,$74,$8C,$AC,$FF
|
||||||
|
;
|
||||||
|
VWALLS DB VWALL1-VWALL1
|
||||||
|
DB VWALL2-VWALL1
|
||||||
|
DB VWALL3-VWALL1
|
||||||
|
DB VWALL4-VWALL1
|
||||||
|
DB VWALL5-VWALL1
|
||||||
|
DB VWALL5-VWALL1
|
||||||
|
DB VWALL4-VWALL1
|
||||||
|
DB VWALL3-VWALL1
|
||||||
|
DB VWALL2-VWALL1
|
||||||
|
DB VWALL1-VWALL1
|
||||||
|
;
|
||||||
|
COLORS DB $44,$4A,$D8,$28,$86,$0C,$00,$2A
|
||||||
|
;
|
||||||
|
OCOLOR DB $DA,$0C,$00,$2A
|
||||||
|
;
|
||||||
|
ACOLOR DB $3A,$44,$2A,$DA
|
||||||
|
;
|
||||||
|
; TIMER VALUES FOR BLUE MONSTERS
|
||||||
|
STARTV DB $90,$60,$30,$04,$00,$00
|
||||||
|
;
|
||||||
|
BLUTIM DB $FF,$C0,$80,$40,$00
|
||||||
|
DB $C0,$00,$00,$00,$C0
|
||||||
|
DB $00,$00,$00,$40,$00
|
||||||
|
;
|
||||||
|
; PACMAN EXPLOSION
|
||||||
|
;
|
||||||
|
PACEXP DB $00,$00,$00,$00,$00,$92,$54,$00
|
||||||
|
DB $C6,$00,$54,$92
|
||||||
|
;
|
||||||
|
; SCORE DATA FOR PACMAN EATING
|
||||||
|
; BLUE MONSTERS 200-400-800-1600
|
||||||
|
;
|
||||||
|
; RIGHT HALF OF ALL SCORES
|
||||||
|
BLUSC0 DB $00,$00,$00,$00,$C6,$29,$29,$29,$29,$29,$C6,$00
|
||||||
|
; LEFT HALF OF "200"
|
||||||
|
BLUSC1 DB $00,$00,$00,$00,$38,$45,$05,$19,$21,$41,$7C,$00
|
||||||
|
; LEFT HALF OF "400"
|
||||||
|
BLUSC2 DB $00,$00,$00,$00,$08,$19,$29,$49,$7D,$09,$08,$00
|
||||||
|
; LEFT HALF OF "800"
|
||||||
|
BLUSC3 DB $00,$00,$00,$00,$38,$45,$45,$39,$45,$45,$38,$00
|
||||||
|
; LEFT HALF OF "1600"
|
||||||
|
BLUSC4 DB $00,$00,$00,$00,$8C,$91,$A1,$B9,$A5,$A5,$98,$00,$00
|
||||||
|
;
|
||||||
|
; HI NOTES FOR INTRO
|
||||||
|
;
|
||||||
|
HINOT1 DB $00,$00,$00,$3C,$00,$51,$00,$60
|
||||||
|
DB $00,$3C,$51,$00,$00,$60,$60,$00
|
||||||
|
DB $00,$00,$00,$39,$00,$4C,$00,$5B
|
||||||
|
DB $00,$39,$4C,$00,$00,$5B,$5B,$00
|
||||||
|
DB $00,$00,$00,$3C,$00,$51,$00,$60
|
||||||
|
DB $00,$3C,$51,$00,$00,$60,$60,$00
|
||||||
|
DB $00,$60,$5B,$55,$00,$55,$51,$4C
|
||||||
|
DB $00,$4C,$48,$44,$00,$3C,$3C,$00
|
||||||
|
;
|
||||||
|
; LO NOTES FOR INTRO
|
||||||
|
;
|
||||||
|
LONOT1 DB $A2,$F3,$F3,$F3,$00,$00,$00,$00
|
||||||
|
DB $A2,$F3,$F3,$F3,$00,$00,$00,$00
|
||||||
|
DB $99,$E6,$E6,$E6,$00,$00,$00,$00
|
||||||
|
DB $99,$E6,$E6,$E6,$00,$00,$00,$00
|
||||||
|
DB $A2,$F3,$F3,$F3,$00,$00,$00,$00
|
||||||
|
DB $A2,$F3,$F3,$F3,$00,$00,$00,$00
|
||||||
|
DB $A2,$C1,$00,$00,$00,$AD,$00,$00
|
||||||
|
DB $00,$99,$00,$00,$00,$79,$79,$00
|
||||||
|
;
|
||||||
|
; ADDRESS POINTERS FOR BLUE SCORES
|
||||||
|
;
|
||||||
|
BLSADD DW BLUSC1,BLUSC2,BLUSC3,BLUSC4
|
||||||
|
;
|
||||||
|
;
|
||||||
|
; EATING DOTS SOUND FREQ DATA
|
||||||
|
;
|
||||||
|
E1DATA DB $52,$4D,$48,$43,$3E,$39,$00
|
||||||
|
E2DATA DB $39,$43,$4D,$57,$61,$6B,$00
|
||||||
|
;
|
||||||
|
STRADD DW REDSTR,PNKSTR,GRNSTR,YELSTR
|
||||||
|
;
|
||||||
|
; PATTERN START HPOS & VPOS
|
||||||
|
;
|
||||||
|
; #1
|
||||||
|
PTRNHV DB $96,$A4
|
||||||
|
; #2
|
||||||
|
DB $62,$74
|
||||||
|
; #3
|
||||||
|
DB $82,$64
|
||||||
|
; #4
|
||||||
|
DB $62,$64
|
||||||
|
; #5
|
||||||
|
DB $62,$94
|
||||||
|
; #6
|
||||||
|
DB $52,$74
|
||||||
|
; #7
|
||||||
|
DB $96,$94
|
||||||
|
; #8
|
||||||
|
DB $A6,$74
|
||||||
|
; #9
|
||||||
|
DB $96,$54
|
||||||
|
; #10
|
||||||
|
DB $52,$B4
|
||||||
|
; #11
|
||||||
|
DB $BE,$C4
|
||||||
|
; #12
|
||||||
|
DB $82,$44
|
||||||
|
; #13
|
||||||
|
DB $52,$A4
|
||||||
|
; #14
|
||||||
|
DB $B2,$B4
|
||||||
|
; #15
|
||||||
|
DB $82,$44
|
||||||
|
; #16
|
||||||
|
DB $52,$44
|
||||||
|
;
|
||||||
|
; HOME CORNER HPOS AND VPOS
|
||||||
|
;
|
||||||
|
HOMEHV DB $BE,$2C
|
||||||
|
DB $3A,$2C
|
||||||
|
DB $BE,$C4
|
||||||
|
DB $3A,$C4
|
||||||
|
;
|
||||||
|
; PATTERN INDEX VALUES
|
||||||
|
;
|
||||||
|
PTNIDX DB PTRN01-PTRN01
|
||||||
|
DB PTRN02-PTRN01
|
||||||
|
DB PTRN03-PTRN01
|
||||||
|
DB PTRN04-PTRN01
|
||||||
|
DB PTRN05-PTRN01
|
||||||
|
DB PTRN06-PTRN01
|
||||||
|
DB PTRN07-PTRN01
|
||||||
|
DB PTRN08-PTRN01
|
||||||
|
DB PTRN09-PTRN01
|
||||||
|
DB PTRN10-PTRN01
|
||||||
|
DB PTRN11-PTRN01
|
||||||
|
DB PTRN12-PTRN01
|
||||||
|
DB PTRN13-PTRN01
|
||||||
|
DB PTRN14-PTRN01
|
||||||
|
DB PTRN15-PTRN01
|
||||||
|
DB PTRN16-PTRN01
|
||||||
|
;
|
||||||
|
; FRUIT CHARS FOR SCREEN
|
||||||
|
;
|
||||||
|
FRUCHR DB $3A,$3C,$3E,$3E,$40,$40
|
||||||
|
DB $42,$42,$46,$46,$4A,$4A
|
||||||
|
;
|
||||||
|
; FRUIT DATA FOR FRUIT LINE
|
||||||
|
; WHEN MAZCNT > 5
|
||||||
|
;
|
||||||
|
DB $4C,$4C,$4C,$4C,$4C,$4C
|
||||||
|
DB $4C,$4A,$4A,$48,$48,$44
|
||||||
|
HIFRUT DB $44,$40,$40,$3E,$3E,$3C,$3A
|
||||||
|
;
|
||||||
|
; PACMAN SPEEDS - INDEXED TO SPEED1
|
||||||
|
;
|
||||||
|
PACSPD DB $08
|
||||||
|
DB SPEED3-SPEED1
|
||||||
|
DB SPEED3-SPEED1
|
||||||
|
DB SPEED4-SPEED1
|
||||||
|
DB SPEED5-SPEED1
|
||||||
|
DB SPEED6-SPEED1
|
||||||
|
DB SPEED6-SPEED1
|
||||||
|
;
|
||||||
|
; MONSTER SPEEDS - INDEXED TO SPEED1
|
||||||
|
;
|
||||||
|
MONSPD DB SPEED1-SPEED1
|
||||||
|
DB SPEED2-SPEED1
|
||||||
|
DB SPEED3-SPEED1
|
||||||
|
DB SPEED3-SPEED1
|
||||||
|
DB SPEED4-SPEED1
|
||||||
|
DB SPEED5-SPEED1
|
||||||
|
DB SPEED5-SPEED1
|
||||||
|
;
|
||||||
|
; HIGH SCORE TEXT
|
||||||
|
;
|
||||||
|
HISCTX DB $28,$29,$27,$28,$00,$33,$23,$2F,$32,$25
|
||||||
|
;
|
||||||
|
OCINDX DB HIGH OPTCHR,HIGH CHRORG,HIGH PACCHR,HIGH CHRORG,HIGH PACCHR
|
||||||
|
; PLAYER GAME (COLOR0)
|
||||||
|
OPLGAM DB $30,$2C,$21,$39,$25,$32,$00,$27,$21,$2D,$25
|
||||||
|
; PRESS SELECT FOR (COLOR0)
|
||||||
|
OPRSEL DB $30,$32,$25,$33,$33,$00,$F3,$E5,$EC,$E5
|
||||||
|
DB $E3,$F4,$00,$26,$2F,$32
|
||||||
|
; PRESS OPTION TO (COLOR0)
|
||||||
|
OPROP1 DB $30,$32,$25,$33,$33,$00,$EF,$F0,$F4,$E9
|
||||||
|
DB $EF,$EE,$00,$34,$2F,$00
|
||||||
|
; CHANGE DIFFICULTY (COLOR0)
|
||||||
|
OPROP2 DB $23,$28,$21,$2E,$27,$25,$00,$24,$29,$26
|
||||||
|
DB $26,$29,$23,$35,$2C,$34,$39
|
||||||
|
; PRESS START TO (COLOR0)
|
||||||
|
OPRST1 DB $30,$32,$25,$33,$33,$00,$F3,$F4,$E1,$F2
|
||||||
|
DB $F4,$00,$34,$2F,$00,$00
|
||||||
|
; PLAY GAME (COLOR0)
|
||||||
|
OPRST2 DB $30,$2C,$21,$39,$00,$27,$21,$2D,$25
|
||||||
|
; (C) ATARI 1982; COLOR 3
|
||||||
|
OALOGO DB $C8,$E3,$C9,$00,$E1,$F4,$E1,$F2,$E9,$00
|
||||||
|
DB $D1,$D9,$D8,$D2
|
||||||
|
BPMSG1 DB $22,$2F,$2E,$35,$33,$00,$30,$21,$23,$2D
|
||||||
|
DB $21,$2E,$00,$26,$2F,$32
|
||||||
|
BPMSG2 DB $33,$23,$2F,$32,$29,$2E,$27,$00,$11,$10
|
||||||
|
DB $0C,$10,$10,$10,$00,$30,$34,$33
|
||||||
|
;
|
||||||
|
OPTFRT DB $3A,$3C,$3E,$3E,$40,$40
|
||||||
|
DB $44,$44,$48,$48,$4A,$4A,$4C,$4C
|
||||||
|
;
|
||||||
|
; TOP OF PACMAN TITLE
|
||||||
|
;
|
||||||
|
PACTTL DB $00,$00,$FE,$FF,$FF,$FF,$FB,$FF
|
||||||
|
DB $00,$00,$00,$80,$C0,$C1,$C1,$C3
|
||||||
|
DB $00,$00,$40,$E0,$E0,$F0,$F0,$F8
|
||||||
|
DB $00,$00,$03,$0F,$1F,$1F,$3F,$3F
|
||||||
|
DB $00,$00,$E0,$F8,$FC,$F8,$F0,$E0
|
||||||
|
DB $00,$00,$00,$00,$00,$00,$00,$3E
|
||||||
|
DB $00,$00,$08,$0C,$0E,$0F,$0F,$0F
|
||||||
|
DB $00,$00,$00,$01,$03,$07,$8F,$DF
|
||||||
|
DB $00,$00,$80,$80,$80,$80,$80,$81
|
||||||
|
DB $00,$00,$20,$70,$70,$F8,$F8,$FC
|
||||||
|
DB $00,$00,$08,$0C,$0E,$0F,$0F,$0F
|
||||||
|
DB $00,$00,$1F,$1F,$1F,$1F,$9F,$DF
|
||||||
|
;
|
||||||
|
; BOTTOM OF PACMAN TITLE
|
||||||
|
;
|
||||||
|
DB $FF,$FF,$FE,$F8,$F8,$F8,$F8,$00
|
||||||
|
DB $C3,$87,$07,$0F,$0F,$1F,$1F,$00
|
||||||
|
DB $F8,$BC,$FC,$FE,$FE,$FF,$FF,$00
|
||||||
|
DB $3F,$3F,$3F,$1F,$1F,$0F,$03,$00
|
||||||
|
DB $C0,$E0,$F0,$F8,$FC,$F8,$E0,$00
|
||||||
|
DB $3E,$3E,$00,$00,$00,$00,$00,$00
|
||||||
|
DB $0F,$0F,$0F,$0F,$0F,$0F,$0F,$00
|
||||||
|
DB $FF,$FF,$FF,$FF,$FF,$FF,$FF,$00
|
||||||
|
DB $81,$83,$83,$87,$87,$8F,$8F,$00
|
||||||
|
DB $FC,$DE,$FE,$FF,$FF,$FF,$FF,$00
|
||||||
|
DB $0F,$0F,$0F,$0F,$0F,$8F,$8F,$00
|
||||||
|
DB $FF,$FF,$FF,$FF,$FF,$FF,$FF,$00
|
||||||
|
;
|
||||||
|
;
|
||||||
|
; NIBBLES UNCOMPRESSED
|
||||||
|
;
|
||||||
|
FIZIDX DB $06,$07,$07,$08,$08,$08,$09
|
||||||
|
DB $09,$09,$0A,$0A,$0B,$0A,$0B
|
||||||
|
;
|
||||||
|
HTAB01 DB $0A,$0C,$0E,$0C,$06,$0A,$0C,$0E,$0C,$06
|
||||||
|
HTAB02 DB $0B,$0C,$0F,$0E,$0D,$0D,$0E,$0F,$0C,$07
|
||||||
|
HTAB03 DB $09,$0C,$07,$09,$06,$0A,$05,$0B,$0C,$05
|
||||||
|
HTAB04 DB $00,$00,$03,$0A,$0D,$0D,$06,$03,$00,$00
|
||||||
|
HTAB05 DB $0C,$0C,$0F,$07,$00,$00,$0B,$0F,$0C,$0C
|
||||||
|
HTAB06 DB $00,$00,$03,$0B,$0C,$0C,$07,$03,$00,$00
|
||||||
|
HTAB07 DB $0A,$0C,$0F,$0D,$06,$0A,$0D,$0F,$0C,$06
|
||||||
|
HTAB08 DB $09,$06,$0B,$0E,$0D,$0D,$0E,$07,$0A,$05
|
||||||
|
HTAB09 DB $0A,$0D,$05,$09,$06,$0A,$05,$09,$0D,$06
|
||||||
|
HTAB10 DB $09,$0C,$0C,$0C,$0D,$0D,$0C,$0C,$0C,$05
|
||||||
|
;
|
||||||
|
; TIMER VALUES FOR FLASHING MONSTERS
|
||||||
|
;
|
||||||
|
FLSTIM DB $0B,$0B,$0B,$0B,$0B
|
||||||
|
DB $0B,$0B,$0B,$07,$0B
|
||||||
|
DB $0B,$07,$07,$07,$0B
|
||||||
|
DB $07,$01,$07,$01,$01
|
||||||
|
;
|
||||||
|
; START UP PATHS FOR MONSTERS
|
||||||
|
; LEAVING BOX IN CENTER
|
||||||
|
;
|
||||||
|
REDSTR DB $04,$04,$02,$04,$01,$01,$01,$08,$08,$08,$08,$08,$0F
|
||||||
|
PNKSTR DB $04,$04,$02,$04,$01,$01,$01,$0F
|
||||||
|
GRNSTR DB $08,$08,$02,$02,$02,$08,$02,$0F
|
||||||
|
YELSTR DB $08,$08,$02,$02,$04,$04,$04,$02,$04,$02,$0F
|
||||||
|
;
|
||||||
|
; PATTERNS FOR MONSTERS TO RUN
|
||||||
|
;
|
||||||
|
PTRN01 DB 2,4,2,4,1,4,1,8,8,8,0
|
||||||
|
PTRN02 DB 1,8,8,8,2,2,4,4,4,1,0
|
||||||
|
PTRN03 DB 4,4,2,2,8,8,8,1,1,4,0
|
||||||
|
PTRN04 DB 8,1,4,1,4,2,2,2,8,1,0
|
||||||
|
PTRN05 DB 8,2,4,4,1,8,0
|
||||||
|
PTRN06 DB 8,2,2,4,1,1,0
|
||||||
|
PTRN07 DB 4,2,8,8,1,4,0
|
||||||
|
PTRN08 DB 4,2,2,8,1,1,0
|
||||||
|
PTRN09 DB 1,8,2,2,2,4,1,4,1,8,0
|
||||||
|
PTRN10 DB 1,8,2,8,2,4,4,4,4,1,8,8,0
|
||||||
|
PTRN11 DB 1,4,4,1,4,2,4,2,8,8,8,8,0
|
||||||
|
PTRN12 DB 1,8,8,2,4,2,4,2,4,4,2,4,1,1,1,8,8,8,0
|
||||||
|
PTRN13 DB 1,4,4,2,8,2,4,2,8,8,8,8,1,4,1,8,1,4,1,1,4,2,2,2,0
|
||||||
|
PTRN14 DB 1,8,1,4,4,2,2,8,8,2,4,4,4,4,1,8,1,4,1,8,1,1,8,2,2,2,2,8,0
|
||||||
|
PTRN15 DB 8,2,4,2,8,2,2,4,4,4,1,1,8,1,4,1,8,8,0
|
||||||
|
PTRN16 DB 2,4,4,1,8,8,1,8,8,2,8,1,8,8,8,8,2,4,4,4,2,4,2,4,1,4,1,4,0
|
||||||
|
|
||||||
|
;
|
||||||
|
; FRUIT SCORE TABLE FOR COMPUTING
|
||||||
|
; SCORE FOR ACTIVE PLAYER - 2 #S
|
||||||
|
;
|
||||||
|
FRSTAB DB $00,$01,$00,$03,$00,$05,$00,$05
|
||||||
|
DB $00,$07,$00,$07,$01,$00,$01,$00
|
||||||
|
DB $02,$00,$02,$00,$03,$00,$03,$00
|
||||||
|
DB $05,$00
|
||||||
|
;
|
||||||
|
; SPEED SEQUENCING VALUES
|
||||||
|
;
|
||||||
|
SPEED1 DB 3,3,3,3
|
||||||
|
SPEED2 DB 3,2,3,2
|
||||||
|
SPEED3 DB 2,2,2,3
|
||||||
|
SPEED4 DB 2,2,2,2
|
||||||
|
SPEED5 DB 2,2,2,1
|
||||||
|
SPEED6 DB 1,2,1,2
|
||||||
|
;
|
||||||
|
REVTAB DB $00,$0D,$0E,$00,$07,$00,$00,$00,$0B
|
||||||
|
BLUREV DB $00,$02,$01,$00,$08,$00,$00,$00,$04
|
||||||
|
;
|
||||||
|
; FRUIT SCORES
|
||||||
|
;
|
||||||
|
; FRUIT SCORE 100
|
||||||
|
FS0100 DB $00,$4E,$4F,$5F,$60
|
||||||
|
; FRUIT SCORE 300
|
||||||
|
FS0300 DB $00,$50,$51,$5F,$60
|
||||||
|
; FRUIT SCORE 500
|
||||||
|
FS0500 DB $00,$52,$53,$5F,$60
|
||||||
|
; FRUIT SCORE 700
|
||||||
|
FS0700 DB $00,$54,$55,$5F,$60
|
||||||
|
; FRUIT SCORE 1000
|
||||||
|
FS1000 DB $56,$57,$5E,$5F,$60
|
||||||
|
; FRUIT SCORE 2000
|
||||||
|
FS2000 DB $58,$59,$5E,$5F,$60
|
||||||
|
; FRUIT SCORE 3000
|
||||||
|
FS3000 DB $5A,$5B,$5E,$5F,$60
|
||||||
|
; FRUIT SCORE 5000
|
||||||
|
FS5000 DB $5C,$5D,$5E,$5F,$60
|
||||||
|
;
|
||||||
|
; INDEX VALUES FOR ABOVE SCORES
|
||||||
|
;
|
||||||
|
FSINDX DB $00,$05,$0A,$0A,$0F,$0F
|
||||||
|
DB $14,$14,$19,$19,$1E,$1E,$23
|
||||||
|
;
|
||||||
|
; ATTRACT MODE DATA
|
||||||
|
;
|
||||||
|
;
|
||||||
|
; ATTRACT MODE COLORS
|
||||||
|
;
|
||||||
|
ACOLRS DB $44,$4A,$D8,$28,$44,$0C,$00,$28
|
||||||
|
; SMALL DOT CHAR 3
|
||||||
|
ATCHRS DB $00,$00,$00,$18,$18,$00,$00,$00
|
||||||
|
; ENERGIZER DOT CHAR 4
|
||||||
|
DB $18,$18,$3C,$3C,$3C,$3C,$18,$18
|
||||||
|
; TOP OF MONSTER CHAR 5
|
||||||
|
DB $00,$00,$00,$00,$00,$38,$7C,$FE
|
||||||
|
; BODY OF MONSTER CHAR 6
|
||||||
|
DB $FE,$EA,$EA,$EA,$FE,$FE,$FE,$AA
|
||||||
|
;
|
||||||
|
; TEXT FOR CHAR/NICKNAME (COLOR 1)
|
||||||
|
CHNKTX DB $00,$63,$68,$61,$72,$61,$63,$74,$65,$72
|
||||||
|
DB $4F,$6E,$69,$63,$6B,$6E,$61,$6D,$65,$00
|
||||||
|
; TEXT FOR W SHADOW (COLOR 0)
|
||||||
|
CHARTX DB $00,$06,$00,$33,$28,$21,$24,$2F,$37,$00
|
||||||
|
; TEXT FOR "BLINKY" (COLOR 0)
|
||||||
|
DB $00,$02,$22,$2C,$29,$2E,$2B,$39,$02,$00
|
||||||
|
; TEXT FOR X SPEEDY (COLOR 1)
|
||||||
|
DB $00,$46,$00,$73,$70,$65,$65,$64,$79,$00
|
||||||
|
; TEXT FOR "PINKY" (COLOR 1)
|
||||||
|
DB $00,$42,$70,$69,$6E,$6B,$79,$42,$00,$00
|
||||||
|
; TEXT FOR Y BASHFUL (COLOR 2)
|
||||||
|
DB $00,$86,$00,$A2,$A1,$B3,$A8,$A6,$B5,$AC
|
||||||
|
; TEXT FOR "INKY" (COLOR 2)
|
||||||
|
DB $00,$82,$A9,$AE,$AB,$B9,$82,$00,$00,$00
|
||||||
|
; TEXT FOR Z POKEY (COLOR 3)
|
||||||
|
DB $00,$C6,$00,$F0,$EF,$EB,$E5,$F9,$00,$00
|
||||||
|
; TEXT FOR "CLYDE" (COLOR 3)
|
||||||
|
DB $00,$C2,$E3,$EC,$F9,$E4,$E5,$C2,$00,$00
|
||||||
|
; TEXT FOR A 10 PTS
|
||||||
|
; TEXT IS COLOR 0 DOT IS COLOR 2
|
||||||
|
AM10PT DB $83,$00,$11,$10,$00,$30,$34,$33
|
||||||
|
; TEXT FOR B 50 PTS
|
||||||
|
AM50PT DB $84,$00,$15,$10,$00,$30,$34,$33
|
||||||
|
; (C) ATARI 1982 (COLOR 2)
|
||||||
|
COPMSG DB $00,$00,$00,$88,$A3,$89,$00,$A1,$B4,$A1
|
||||||
|
DB $B2,$A9,$00,$91,$99,$98,$92,$00,$00,$00
|
||||||
|
;
|
||||||
|
;
|
||||||
|
; DATA FOR INTERMISSIONS
|
||||||
|
;
|
||||||
|
L756B = *; Y INDEX VALUE
|
||||||
|
;
|
||||||
|
DB $15,$2B,$41,$57,$6D,$83
|
||||||
|
;
|
||||||
|
L7571 = *
|
||||||
|
;
|
||||||
|
DB $03,$80,$01,$C0,$BA,$20,$50,$00
|
||||||
|
DB $00,$02,$05,$02,$05,$1D,$00,$04
|
||||||
|
DB $02,$13,$D0,$84
|
||||||
|
DW L780B
|
||||||
|
;
|
||||||
|
DB $00,$00,$FF,$C0,$FF,$20,$50,$00
|
||||||
|
DB $00,$02,$03,$02,$03,$00,$70,$04
|
||||||
|
DB $03,$27,$10,$72
|
||||||
|
DW L77F3
|
||||||
|
;
|
||||||
|
DB $03,$80,$01,$C0,$BA,$20,$50,$00
|
||||||
|
DB $00,$02,$05,$02,$05,$30,$00,$04
|
||||||
|
DB $02,$13,$D0,$84
|
||||||
|
DW L780B
|
||||||
|
;
|
||||||
|
DB $03,$80,$01,$00,$00,$04,$10,$00
|
||||||
|
DB $00,$04,$00,$04,$00,$00,$00,$07
|
||||||
|
DB $00,$00,$00,$00
|
||||||
|
DW L787A
|
||||||
|
;
|
||||||
|
DB $03,$80,$01,$C0,$BA,$20,$50,$00
|
||||||
|
DB $00,$02,$05,$02,$05,$30,$00,$04
|
||||||
|
DB $02,$13,$D0,$84
|
||||||
|
DW L7823
|
||||||
|
;
|
||||||
|
DB $00,$00,$FF,$B8,$00,$20,$00,$00
|
||||||
|
DB $00,$03,$00,$03,$00,$00,$00,$07
|
||||||
|
DB $00,$00,$00,$00
|
||||||
|
DW L783B
|
||||||
|
;
|
||||||
|
L75F5 = *
|
||||||
|
;
|
||||||
|
DB $03,$80,$01,$30,$BA,$30,$50,$00
|
||||||
|
DB $00,$02,$05,$02,$05,$00,$00,$06
|
||||||
|
DB $02,$13,$D0,$84
|
||||||
|
DW L78A4
|
||||||
|
|
||||||
|
DB $00,$00,$00
|
||||||
|
;
|
||||||
|
L760E = *
|
||||||
|
;
|
||||||
|
DW L7622,L7648,L766E
|
||||||
|
DW L7622,L7648,L766E
|
||||||
|
;
|
||||||
|
L761A = *
|
||||||
|
;
|
||||||
|
DW L7694,L7709,L777E,L7709
|
||||||
|
;
|
||||||
|
L7622 = *
|
||||||
|
;
|
||||||
|
DB $07,$1F,$3F,$1F,$0F,$07,$03,$01
|
||||||
|
DB $00,$00,$00,$01,$03,$07,$0F,$1F
|
||||||
|
DB $3F,$1F,$07,$00,$C0,$E0,$E0,$F0
|
||||||
|
DB $F0,$F0,$F8,$F8,$78,$F8,$F8,$F0
|
||||||
|
DB $F0,$F0,$E0,$E0,$C0,$00
|
||||||
|
;
|
||||||
|
L7648 = *
|
||||||
|
;
|
||||||
|
DB $07,$1F,$3F,$3F,$7F,$7F,$7F,$0F
|
||||||
|
DB $01,$00,$01,$0F,$7F,$7F,$7F,$3F
|
||||||
|
DB $3F,$1F,$07,$00,$C0,$E0,$E0,$F0
|
||||||
|
DB $F0,$F0,$F8,$F8,$78,$F8,$F8,$F0
|
||||||
|
DB $F0,$F0,$E0,$E0,$C0,$00
|
||||||
|
;
|
||||||
|
L766E = *
|
||||||
|
;
|
||||||
|
DB $07,$1F,$3F,$3F,$7F,$7F,$7F,$FF
|
||||||
|
DB $FF,$FF,$FF,$FF,$7F,$7F,$7F,$3F
|
||||||
|
DB $3F,$1F,$07,$00,$C0,$E0,$E0,$F0
|
||||||
|
DB $F0,$F0,$F8,$F8,$F8,$F8,$F8,$F0
|
||||||
|
DB $F0,$F0,$E0,$E0,$C0,$00
|
||||||
|
;
|
||||||
|
L7694 = *
|
||||||
|
;
|
||||||
|
DB $00,$01
|
||||||
|
DB $03,$07,$0F,$0F,$1F,$1F,$3F,$3F
|
||||||
|
DB $3F,$7F,$7F,$7F,$7F,$FF,$FF,$FF
|
||||||
|
DB $FF,$FF,$FF,$FF,$FF,$FF,$7F,$7F
|
||||||
|
DB $7F,$7F,$3F,$3F,$3F,$1F,$1F,$0F
|
||||||
|
DB $0F,$07,$03,$01,$00,$78,$FE,$FF
|
||||||
|
DB $FF,$FF,$FF,$FF,$FF,$FF,$FE,$FE
|
||||||
|
DB $FC,$F8,$F8,$F0,$E0,$E0,$C0,$C0
|
||||||
|
DB $80,$C0,$C0,$E0,$E0,$F0,$F8,$F8
|
||||||
|
DB $FC,$FE,$FE,$FF,$FF,$FF,$FF,$FF
|
||||||
|
DB $FF,$FF,$FE,$78,$00,$00,$00,$80
|
||||||
|
DB $C0,$C0,$80,$80,$00,$00,$00,$00
|
||||||
|
DB $00,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
DB $00,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
DB $00,$00,$00,$80,$80,$C0,$C0,$80
|
||||||
|
DB $00,$00,$00
|
||||||
|
;
|
||||||
|
L7709 = *
|
||||||
|
;
|
||||||
|
DB $00,$01,$03,$07,$0F
|
||||||
|
DB $0F,$1F,$1F,$3F,$3F,$3F,$7F,$7F
|
||||||
|
DB $7F,$7F,$FF,$FF,$FF,$FF,$FF,$FF
|
||||||
|
DB $FF,$FF,$FF,$7F,$7F,$7F,$7F,$3F
|
||||||
|
DB $3F,$3F,$1F,$1F,$0F,$0F,$07,$03
|
||||||
|
DB $01,$00,$78,$FE,$FF,$FF,$FF,$FF
|
||||||
|
DB $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
||||||
|
DB $FF,$FF,$FE,$F8,$E0,$80,$E0,$F8
|
||||||
|
DB $FE,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
||||||
|
DB $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FE
|
||||||
|
DB $78,$00,$00,$00,$80,$C0,$C0,$E0
|
||||||
|
DB $E0,$F0,$F0,$F0,$F8,$F8,$F8,$E0
|
||||||
|
DB $80,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
DB $80,$E0,$F8,$F8,$F8,$F0,$F0,$F0
|
||||||
|
DB $E0,$E0,$C0,$C0,$80,$00,$00,$00
|
||||||
|
;
|
||||||
|
L777E = *
|
||||||
|
;
|
||||||
|
DB $00,$01,$03,$07,$0F,$0F,$1F,$1F
|
||||||
|
DB $3F,$3F,$3F,$7F,$7F,$7F,$7F,$FF
|
||||||
|
DB $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
||||||
|
DB $7F,$7F,$7F,$7F,$3F,$3F,$3F,$1F
|
||||||
|
DB $1F,$0F,$0F,$07,$03,$01,$00,$78
|
||||||
|
DB $FE,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
||||||
|
DB $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
||||||
|
DB $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
||||||
|
DB $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
|
||||||
|
DB $FF,$FF,$FF,$FF,$FE,$78,$00,$00
|
||||||
|
DB $00,$80,$C0,$C0,$E0,$E0,$F0,$F0
|
||||||
|
DB $F0,$F8,$F8,$F8,$F8,$FC,$FC,$FC
|
||||||
|
DB $FC,$FC,$FC,$FC,$FC,$FC,$F8,$F8
|
||||||
|
DB $F8,$F8,$F0,$F0,$F0,$E0,$E0,$C0
|
||||||
|
DB $C0,$80,$00,$00,$00
|
||||||
|
;
|
||||||
|
L77F3 = *
|
||||||
|
;
|
||||||
|
DB $01,$04,$08,$02,$05,$09,$03,$06
|
||||||
|
DB $0A,$00,$07,$0B,$01,$04,$0C,$02
|
||||||
|
DB $05,$0D,$03,$06,$0E,$00,$07,$0F
|
||||||
|
;
|
||||||
|
L780B = *
|
||||||
|
;
|
||||||
|
DB $01,$10,$14,$02,$11,$15,$03,$12
|
||||||
|
DB $16,$00,$13,$17,$01,$10,$18,$02
|
||||||
|
DB $11,$19,$03,$12,$1A,$00,$13,$1B
|
||||||
|
;
|
||||||
|
L7823 = *
|
||||||
|
;
|
||||||
|
DB $01,$10,$14,$02,$11,$15,$03,$54
|
||||||
|
DB $D6,$00,$D5,$57,$01,$10,$18,$02
|
||||||
|
DB $11,$19,$03,$58,$DA,$00,$D9,$5B
|
||||||
|
;
|
||||||
|
L783B = *
|
||||||
|
;
|
||||||
|
DB $00,$00,$3A,$00,$00,$3B,$00,$00
|
||||||
|
DB $3C,$00,$36,$3D,$00,$B7,$3E,$00
|
||||||
|
DB $B8,$3F,$00,$B9,$00,$00,$00,$44
|
||||||
|
;
|
||||||
|
DB $00,$00,$45
|
||||||
|
DB $00,$00,$46,$00,$40,$47,$00,$C1
|
||||||
|
DB $48,$00,$C2,$49,$00,$C3,$00,$00
|
||||||
|
DB $00,$4E,$00,$00,$4F,$00,$00,$50
|
||||||
|
DB $00,$4A,$51,$00,$CB,$52,$00,$CC
|
||||||
|
DB $53,$00,$CD,$00
|
||||||
|
;
|
||||||
|
L787A = *
|
||||||
|
DB $00,$2B,$14,$29
|
||||||
|
DB $2C,$15,$2A,$2D,$AF,$00,$AE,$B0
|
||||||
|
DB $00,$00,$00,$00,$00,$31,$00,$00
|
||||||
|
DB $32,$00,$33,$14,$29,$34,$15,$2A
|
||||||
|
DB $35,$AF,$00,$AE,$B0,$00,$00,$00
|
||||||
|
DB $00,$00,$31,$00,$00,$32
|
||||||
|
;
|
||||||
|
L78A4 = *
|
||||||
|
DB $01,$10
|
||||||
|
DB $14,$02,$11,$15,$03,$12,$16,$00
|
||||||
|
DB $13,$1C,$00,$00,$00,$00,$00,$00
|
||||||
|
DB $01,$10,$18,$02,$11,$19,$03,$12
|
||||||
|
DB $1D,$00,$13,$1E,$00,$00,$00,$00
|
||||||
|
DB $00,$00,$01,$10,$14,$02,$11,$15
|
||||||
|
DB $03,$12,$16,$00,$13,$1F,$00,$00
|
||||||
|
DB $00,$00,$00,$00,$01,$10,$18,$02
|
||||||
|
DB $11,$19,$03,$12,$1D,$00,$13,$20
|
||||||
|
DB $00,$00,$21,$00,$00,$00,$01,$10
|
||||||
|
DB $14,$02,$11,$15,$03,$12,$16,$00
|
||||||
|
DB $22,$23,$00,$00,$24,$00,$00,$00
|
||||||
|
DB $01,$10,$18,$02,$11,$19,$03,$12
|
||||||
|
DB $1D,$00,$25,$26,$00,$00,$1F,$00
|
||||||
|
DB $00,$00,$01,$10,$18,$02,$11,$19
|
||||||
|
DB $03,$12,$1D,$00,$27,$26,$00,$00
|
||||||
|
DB $20,$00,$00,$28
|
||||||
|
;
|
||||||
|
ICOLR0 DB $32,$82,$32,$32,$32,$0F
|
||||||
|
ICOLR1 DB $0F,$0F,$0F,$0F,$0F,$FA
|
||||||
|
ICOLR2 DB $63,$00,$63,$64,$64,$33
|
||||||
|
ICOLR3 DB $00,$00,$FA,$FA,$FA,$83
|
||||||
|
;
|
||||||
|
;
|
||||||
|
IMUSIC = *
|
||||||
|
;
|
||||||
|
DB $48,$AA,$90,$A8,$00,$AA,$90,$A8
|
||||||
|
DB $48,$AA,$00,$A8,$00,$AA,$90,$A8
|
||||||
|
DB $48,$AA,$90,$A8,$00,$AA,$90,$A8
|
||||||
|
DB $55,$AA,$00,$A8,$60,$AA,$90,$A8
|
||||||
|
DB $48,$AA,$90,$A8,$48,$AA,$90,$A8
|
||||||
|
DB $48,$AA,$00,$A8,$48,$AA,$90,$A8
|
||||||
|
DB $39,$AA,$72,$A8,$39,$AA,$6C,$A8
|
||||||
|
DB $39,$AA,$66,$A8,$39,$AA,$60,$A8
|
||||||
|
DB $48,$AA,$90,$A8,$48,$A0,$90,$A8
|
||||||
|
DB $48,$AA,$90,$A0,$48,$A0,$90,$A8
|
||||||
|
DB $48,$AA,$90,$A8,$48,$A0,$90,$A8
|
||||||
|
DB $55,$AA,$00,$A8,$60,$AA,$90,$A8
|
||||||
|
DB $48,$AA,$90,$A8,$48,$AA,$90,$A8
|
||||||
|
DB $55,$AA,$00,$A8,$72,$AA,$90,$A8
|
||||||
|
DB $72,$AA,$6C,$A8,$72,$AA,$66,$A8
|
||||||
|
DB $72,$AA,$60,$A8,$48,$AA,$90,$A8
|
||||||
|
DB $00,$AA,$90,$A8,$48,$AA,$00,$A8
|
||||||
|
DB $00,$AA,$90,$A8,$48,$AA,$90,$A8
|
||||||
|
DB $55,$A0,$90,$A8,$55,$AA,$1D,$A0
|
||||||
|
DB $60,$AA,$90,$A8,$48,$AA,$90,$A8
|
||||||
|
DB $48,$AA,$90,$A8,$39,$AA,$90,$A0
|
||||||
|
DB $39,$AA,$90,$A8,$35,$AA,$72,$A8
|
||||||
|
DB $35,$AA,$6C,$A8,$32,$AA,$66,$A8
|
||||||
|
DB $32,$AA,$60,$A8,$2F,$AA,$5B,$A8
|
||||||
|
DB $2F,$AA,$60,$A8,$35,$AA,$6C,$A8
|
||||||
|
DB $35,$AA,$6C,$A8,$39,$AA,$72,$A8
|
||||||
|
DB $39,$AA,$72,$A8,$48,$AA,$90,$A8
|
||||||
|
DB $48,$AA,$90,$A8,$39,$AA,$60,$A8
|
||||||
|
DB $39,$AA,$60,$A8,$48,$AA,$72,$A8
|
||||||
|
DB $48,$AA,$72,$A8,$00,$00,$00,$00
|
||||||
|
;
|
||||||
|
ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ
|
||||||
112
PACDAT3.ASM
Normal file
112
PACDAT3.ASM
Normal file
@@ -0,0 +1,112 @@
|
|||||||
|
;
|
||||||
|
ICHARS = *
|
||||||
|
;
|
||||||
|
DB $00,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
DB $00,$00,$00,$00,$00,$00,$00,$01
|
||||||
|
DB $00,$00,$00,$00,$00,$00,$15,$55
|
||||||
|
DB $00,$00,$00,$00,$00,$00,$00,$50
|
||||||
|
DB $05,$15,$15,$55,$56,$55,$55,$55
|
||||||
|
DB $55,$55,$55,$95,$A6,$95,$55,$55
|
||||||
|
DB $54,$55,$55,$95,$A5,$95,$55,$55
|
||||||
|
DB $00,$00,$00,$40,$40,$40,$40,$40
|
||||||
|
;
|
||||||
|
DB $55,$59,$66,$55,$55,$55,$51,$40
|
||||||
|
DB $55,$59,$66,$95,$55,$55,$51,$40
|
||||||
|
DB $55,$59,$66,$95,$55,$55,$51,$40
|
||||||
|
DB $40,$40,$40,$40,$40,$40,$40,$40
|
||||||
|
DB $55,$59,$66,$55,$55,$55,$15,$04
|
||||||
|
DB $55,$59,$66,$95,$55,$55,$15,$04
|
||||||
|
DB $55,$59,$66,$95,$55,$55,$15,$04
|
||||||
|
DB $40,$40,$40,$40,$40,$40,$00,$00
|
||||||
|
;
|
||||||
|
DB $05,$19,$2A,$FA,$FA,$FA,$6A,$59
|
||||||
|
DB $55,$55,$56,$5F,$9F,$5F,$56,$55
|
||||||
|
DB $54,$95,$A5,$A5,$A9,$A5,$A5,$95
|
||||||
|
DB $00,$00,$00,$40,$40,$40,$40,$40
|
||||||
|
DB $55,$55,$55,$55,$55,$55,$51,$40
|
||||||
|
DB $55,$55,$55,$55,$55,$55,$51,$40
|
||||||
|
DB $55,$55,$55,$55,$55,$55,$51,$40
|
||||||
|
DB $40,$40,$40,$40,$40,$40,$40,$40
|
||||||
|
;
|
||||||
|
DB $55,$55,$55,$55,$55,$55,$15,$04
|
||||||
|
DB $55,$55,$55,$55,$55,$55,$15,$04
|
||||||
|
DB $55,$55,$55,$55,$55,$55,$15,$04
|
||||||
|
DB $40,$40,$40,$40,$40,$40,$00,$00
|
||||||
|
DB $40,$40,$50,$50,$50,$50,$50,$50
|
||||||
|
DB $55,$55,$55,$55,$55,$55,$15,$05
|
||||||
|
DB $40,$54,$54,$54,$54,$54,$54,$54
|
||||||
|
DB $40,$55,$55,$55,$55,$55,$55,$55
|
||||||
|
;
|
||||||
|
DB $50,$55,$55,$55,$55,$55,$55,$55
|
||||||
|
DB $00,$40,$40,$40,$40,$40,$40,$40
|
||||||
|
DB $00,$00,$00,$40,$40,$40,$40,$50
|
||||||
|
DB $54,$55,$55,$55,$55,$55,$55,$55
|
||||||
|
DB $00,$50,$50,$50,$50,$50,$50,$50
|
||||||
|
DB $00,$00,$00,$40,$40,$50,$54,$55
|
||||||
|
DB $55,$55,$55,$55,$55,$55,$55,$55
|
||||||
|
DB $00,$00,$00,$40,$50,$54,$55,$55
|
||||||
|
;
|
||||||
|
DB $00,$40,$40,$40,$40,$40,$40,$40
|
||||||
|
DB $00,$00,$00,$00,$00,$00,$04,$55
|
||||||
|
DB $00,$00,$00,$00,$00,$00,$00,$40
|
||||||
|
DB $00,$08,$28,$2A,$2A,$5A,$55,$55
|
||||||
|
DB $55,$95,$A6,$A6,$A6,$95,$55,$55
|
||||||
|
DB $40,$88,$8A,$AA,$AA,$A9,$55,$55
|
||||||
|
DB $00,$00,$00,$00,$00,$40,$40,$C0
|
||||||
|
DB $55,$57,$57,$57,$57,$5F,$7F,$7F
|
||||||
|
;
|
||||||
|
DB $C0,$C0,$C0,$C0,$00,$00,$F0,$F0
|
||||||
|
DB $00,$00,$00,$00,$01,$05,$15,$54
|
||||||
|
DB $00,$00,$00,$00,$00,$00,$00,$00
|
||||||
|
DB $00,$0A,$2A,$2A,$2A,$5A,$55,$55
|
||||||
|
DB $55,$95,$A6,$A6,$F6,$D5,$55,$55
|
||||||
|
DB $40,$A8,$AA,$AA,$AF,$AD,$55,$55
|
||||||
|
DB $00,$00,$00,$00,$00,$00,$00,$0A
|
||||||
|
DB $00,$05,$15,$17,$17,$97,$A5,$AA
|
||||||
|
;
|
||||||
|
DB $00,$14,$55,$D7,$D7,$D7,$A5,$A0
|
||||||
|
DB $00,$00,$00,$C0,$C0,$C0,$00,$00
|
||||||
|
DB $00,$00,$00,$00,$03,$3F,$3F,$FF
|
||||||
|
DB $00,$00,$00,$00,$F0,$FF,$FF,$FF
|
||||||
|
DB $00,$00,$00,$00,$0F,$FF,$FF,$FF
|
||||||
|
DB $0A,$2A,$FE,$FF,$FF,$FF,$FF,$FF
|
||||||
|
DB $AA,$AA,$AA,$AA,$AA,$EA,$F0,$F0
|
||||||
|
DB $A0,$A0,$A0,$A0,$AA,$AA,$2A,$2A
|
||||||
|
;
|
||||||
|
DB $00,$00,$00,$00,$00,$02,$0A,$0A
|
||||||
|
DB $00,$05,$15,$17,$97,$97,$A5,$AA
|
||||||
|
DB $00,$14,$55,$D7,$D7,$D7,$A5,$80
|
||||||
|
DB $00,$00,$00,$C0,$C0,$C0,$00,$00
|
||||||
|
DB $00,$00,$00,$00,$03,$0F,$3F,$FF
|
||||||
|
DB $00,$00,$00,$00,$FF,$FF,$FF,$FF
|
||||||
|
DB $00,$00,$00,$03,$FF,$FF,$FF,$FF
|
||||||
|
DB $2A,$EA,$FF,$FF,$FF,$FF,$FF,$FF
|
||||||
|
;
|
||||||
|
DB $AA,$AA,$AA,$A8,$EA,$EA,$F0,$F0
|
||||||
|
DB $80,$00,$00,$00,$A8,$A8,$A8,$A8
|
||||||
|
DB $00,$00,$00,$00,$02,$0A,$0A,$2A
|
||||||
|
DB $00,$05,$15,$17,$97,$97,$A5,$AA
|
||||||
|
DB $00,$14,$55,$D7,$D7,$D7,$A5,$A0
|
||||||
|
DB $00,$00,$00,$C0,$C0,$C0,$00,$00
|
||||||
|
DB $00,$00,$00,$03,$0F,$3F,$FF,$FF
|
||||||
|
DB $00,$00,$00,$F0,$FC,$FF,$FF,$FF
|
||||||
|
;
|
||||||
|
DB $00,$00,$03,$0F,$3F,$FF,$FF,$FF
|
||||||
|
DB $2A,$FA,$FF,$FF,$FF,$FF,$FF,$FF
|
||||||
|
DB $AA,$AA,$AA,$AA,$EA,$EA,$F2,$F2
|
||||||
|
DB $80,$80,$00,$00,$A0,$A0,$A0,$A0
|
||||||
|
DB $54,$95,$A5,$A5,$A9,$A5,$A5,$95
|
||||||
|
DB $00,$00,$00,$40,$40,$40,$40,$C0
|
||||||
|
DB $57,$7D,$D5,$75,$D5,$D5,$71,$C0
|
||||||
|
DB $40,$40,$40,$40,$40,$40,$40,$40
|
||||||
|
;
|
||||||
|
DB $54,$95,$A5,$A5,$A9,$A5,$A5,$95
|
||||||
|
DB $00,$00,$00,$40,$40,$40,$40,$C0
|
||||||
|
DB $57,$5F,$75,$D5,$75,$D5,$35,$04
|
||||||
|
DB $40,$40,$40,$40,$40,$40,$00,$00
|
||||||
|
;
|
||||||
|
B,$5B,$00
|
||||||
|
DB $00,$00,$00,$3C,$00,$51,$00,$60
|
||||||
|
DB $00,$3C,$51,$00,$00,$60,$60,$00
|
||||||
|
DB $00,$60,$5B,$55,$00,$55,$51,$4C
|
||||||
|
DB
|
||||||
626
PACMAN.ASM
Normal file
626
PACMAN.ASM
Normal file
@@ -0,0 +1,626 @@
|
|||||||
|
;************************************
|
||||||
|
;* *
|
||||||
|
;* PAC-MAN *
|
||||||
|
;* *
|
||||||
|
;* Developed for Atari Inc. by *
|
||||||
|
;* Roklan Corp. This Information *
|
||||||
|
;* is confidential and is not for *
|
||||||
|
;* sale or distribution. *
|
||||||
|
;* *
|
||||||
|
;* *
|
||||||
|
;* *
|
||||||
|
;* 10/03/82 *
|
||||||
|
;* *
|
||||||
|
;* DISK VERSION *
|
||||||
|
;* *
|
||||||
|
;* REVISION 3.0 *
|
||||||
|
;* *
|
||||||
|
;************************************
|
||||||
|
;
|
||||||
|
INCLUDE D2:SYSTEXT.ASM
|
||||||
|
;
|
||||||
|
LIST I
|
||||||
|
;
|
||||||
|
;******* ZERO PAGE VARIABLES ******
|
||||||
|
;
|
||||||
|
ORG $0018
|
||||||
|
;
|
||||||
|
DLICNT DS 1 ;DISPLAY LIST INT. COUNT
|
||||||
|
OPTION DS 1 ;OPTION MODE FLAG
|
||||||
|
NUMPLY DS 1 ;NUMBER OF PLAYERS
|
||||||
|
DIFOPT DS 1 ;DIFFICULTY OPTION
|
||||||
|
RSTRTF DS 1 ;RESTART FLAG
|
||||||
|
ATCLOK DS 1 ;ATTRACT COUNTDOWN CLOCK
|
||||||
|
ATTIMR DS 1 ;ATTRACT MODE TIMER
|
||||||
|
ATSEQU DS 1 ;ATTRACT MODE SEQUENCE #
|
||||||
|
;
|
||||||
|
GMOVRF DS 1 ;GAME OVER FLAG
|
||||||
|
READYF DS 1 ;READY FLAG
|
||||||
|
INTROF DS 1 ;INTRO FLAG
|
||||||
|
SWAPPF DS 1 ;SWAP PLAYER FLAG
|
||||||
|
RESETF DS 1 ;RESET FLAG
|
||||||
|
RESETT DS 1 ;RESET TIMER
|
||||||
|
RRFLAG DS 1 ;RERACK FLAG
|
||||||
|
RRSEQU DS 1 ;RERACK SEQUENCE #
|
||||||
|
RRTIMR DS 1 ;RERACK TIMER
|
||||||
|
RRFLCT DS 1 ;RERACK FLASH COUNT
|
||||||
|
TEMLOC DS 1 ;TEMPORARY STORAGE
|
||||||
|
PLYNUM DS 1 ;PLAYER # 0=1 1=2
|
||||||
|
XPACP1 DS 1 ;EXTRA PACMAN PLAYER 1
|
||||||
|
XPACP2 DS 1 ;EXTRA PACMAN PLAYER 2
|
||||||
|
BPACP1 DS 1 ;BONUS PACMAN PLAYER 1
|
||||||
|
BPACP2 DS 1 ;BONUS PACMAN PLAYER 2
|
||||||
|
MAZCT1 DS 1 ;MAZE COUNT PLAYER 1
|
||||||
|
MAZCT2 DS 1 ;MAZE COUNT PLAYER 2
|
||||||
|
BIGDT1 DS 1 ;BIG DOT STATUS #1
|
||||||
|
BIGDT2 DS 1 ;BIG DOT STATUS #2
|
||||||
|
DTCTL1 DS 1 ;DOTS EATEN CTR LSB #1
|
||||||
|
DTCTL2 DS 1 ;DOTS EATEN CTR LSB #2
|
||||||
|
DTCTM1 DS 1 ;DOTS EATEN CTR MSB #1
|
||||||
|
DTCTM2 DS 1 ;DOTS EATEN CTR MSB #2
|
||||||
|
SCNSC1 DS 2 ;SCREEN SCORE 1 ADDRESS
|
||||||
|
SCNSC2 DS 2 ;SCREEN SCORE 2 ADDRESS
|
||||||
|
PIXGET DS 2 ;P/M PIX GET ADDRESS
|
||||||
|
PIXPUT DS 2 ;P/M PIX PUT ADDRESS
|
||||||
|
PACCLR DS 1 ;ATTRACT PACMAN COLOR
|
||||||
|
;
|
||||||
|
ORG $0043
|
||||||
|
;
|
||||||
|
FRUTP1 DS 1 ;FRUIT COUNTER #1
|
||||||
|
FRUTP2 DS 1 ;FRUIT COUNTER #2
|
||||||
|
BCOUNT DS 1 ;BOUNCE TIMER COUNT
|
||||||
|
SAVCNS DS 1 ;SAVE CONSOL DATA
|
||||||
|
TUNLOC DS 2 ;USED FOR TUNNEL LOGIC
|
||||||
|
;
|
||||||
|
ORG $005A
|
||||||
|
M1DELY DS 1 ;MONSTER 1 DELAY
|
||||||
|
M2DELY DS 1 ;MONSTER 2 DELAY
|
||||||
|
M3DELY DS 1 ;MONSTER 3 DELAY
|
||||||
|
M4DELY DS 1 ;MONSTER 4 DELAY
|
||||||
|
ACOLR1 DS 1 ;ATTRACT COLOR 1 - $3A
|
||||||
|
ACOLR2 DS 1 ;ATTRACT COLOR 2 - $44
|
||||||
|
ACOLR3 DS 1 ;ATTRACT COLOR 3 - $2A
|
||||||
|
ACOLR4 DS 1 ;ATTRACT COLOR 4 - $DA
|
||||||
|
INTCNT DS 1 ;INTERMISSION COUNTER
|
||||||
|
INTCLK DS 1 ;INTERMISSION CLOCK
|
||||||
|
ORG $0080
|
||||||
|
;
|
||||||
|
PACSCN DS 2 ;PACMAN SCREEN MEM ADDR
|
||||||
|
PACBYT DS 1 ;PACMAN BYTE COUNTER
|
||||||
|
PVSAVE DS 1 ;PACMAN VPOS SAVE
|
||||||
|
PHSAVE DS 1 ;PACMAN HPOS SAVE
|
||||||
|
M1VPOS DS 1 ;MONSTER 1 VERTICAL POSIT
|
||||||
|
M2VPOS DS 1 ;MONSTER 2 VERTICAL POSIT
|
||||||
|
M3VPOS DS 1 ;MONSTER 3 VERTICAL POSIT
|
||||||
|
M4VPOS DS 1 ;MONSTER 4 VERTICAL POSIT
|
||||||
|
PMVPOS DS 1 ;PACMAN VERTICAL POSITION
|
||||||
|
M1HPOS DS 1 ;MONSTER 1 HORIZ POSITION
|
||||||
|
M2HPOS DS 1 ;MONSTER 2 HORIZ POSITION
|
||||||
|
M3HPOS DS 1 ;MONSTER 3 HORIZ POSITION
|
||||||
|
M4HPOS DS 1 ;MONSTER 4 HORIZ POSITION
|
||||||
|
PMHPOS DS 1 ;PACMAN HORIZONTAL POSIT
|
||||||
|
M1DIRT DS 1 ;MONSTER 1 DIRECTION
|
||||||
|
M2DIRT DS 1 ;MONSTER 2 DIRECTION
|
||||||
|
M3DIRT DS 1 ;MONSTER 3 DIRECTION
|
||||||
|
M4DIRT DS 1 ;MONSTER 4 DIRECTION
|
||||||
|
PMODIR DS 1 ;PACMAN OLD DIRECTION
|
||||||
|
SCOREX DS 6 ;PLAYER SCORE FOR TEXT
|
||||||
|
CARRYB DS 1 ;CARRY BIT FOR ABOVE
|
||||||
|
PAUSEF DS 1 ;PAUSE FLAG
|
||||||
|
WHINEY DS 1 ;CHASE WHINE DELTA
|
||||||
|
FRUTMR DS 2 ;FRUIT TIMER (10 SECS)
|
||||||
|
FRUFLG DS 1 ;FRUIT DISPLAY FLAG
|
||||||
|
FRUCLR DS 1 ;FRUIT COLOR
|
||||||
|
FRSCRF DS 1 ;FRUIT SCORE FLAG
|
||||||
|
FRSCRT DS 1 ;FRUIT SCORE TIMER
|
||||||
|
NOTCNT DS 1 ;NOTE COUNT FOR TUNES
|
||||||
|
VSAVER DS 1 ;VERTICAL POSIT SAVE
|
||||||
|
HSAVER DS 1 ;HORIZONTAL POSIT SAVE
|
||||||
|
PACMAP DS 1 ;PACMAN VERT MAP COUNTER
|
||||||
|
PACCNT DS 1 ;PACMAN MOTION COUNT
|
||||||
|
PACADV DS 1 ;PACMAN ADVANCE-TURNING
|
||||||
|
PACDLY DS 1 ;PACMAN DELAY-EATING DOTS
|
||||||
|
PMSTAT DS 1 ;PACMAN STATUS
|
||||||
|
PMSEQU DS 1 ;PACMAN SEQUENCE (MOUTH)
|
||||||
|
PMNDIR DS 1 ;PACMAN NEW DIRECTION
|
||||||
|
CHASET DS 1 ;CHASE TIMER
|
||||||
|
MSTILL DS 1 ;MONSTERS STILL FLAG
|
||||||
|
MSKIRT DS 1 ;MONSTER SKIRT FLAG
|
||||||
|
M1SPSQ DS 1 ;MONSTER 1 SPEED SEQUENCE
|
||||||
|
M2SPSQ DS 1 ;MONSTER 2 SPEED SEQUENCE
|
||||||
|
M3SPSQ DS 1 ;MONSTER 3 SPEED SEQUENCE
|
||||||
|
M4SPSQ DS 1 ;MONSTER 4 SPEED SEQUENCE
|
||||||
|
PMSPSQ DS 1 ;PACMAN SPEED SEQUENCE
|
||||||
|
M1SPCT DS 1 ;MONSTER 1 SPEED COUNT
|
||||||
|
M2SPCT DS 1 ;MONSTER 2 SPEED COUNT
|
||||||
|
M3SPCT DS 1 ;MONSTER 3 SPEED COUNT
|
||||||
|
M4SPCT DS 1 ;MONSTER 4 SPEED COUNT
|
||||||
|
PMSPCT DS 1 ;PACMAN SPEED COUNT
|
||||||
|
M1PIDX DS 1 ;MONSTER 1 PATTERN INDEX
|
||||||
|
M2PIDX DS 1 ;MONSTER 2 PATTERN INDEX
|
||||||
|
M3PIDX DS 1 ;MONSTER 3 PATTERN INDEX
|
||||||
|
M4PIDX DS 1 ;MONSTER 4 PATTERN INDEX
|
||||||
|
M1PCNT DS 1 ;MONSTER 1 PATTERN COUNT
|
||||||
|
M2PCNT DS 1 ;MONSTER 2 PATTERN COUNT
|
||||||
|
M3PCNT DS 1 ;MONSTER 3 PATTERN COUNT
|
||||||
|
M4PCNT DS 1 ;MONSTER 4 PATTERN COUNT
|
||||||
|
M1THPS DS 1 ;MONSTER 1 TARGET HPOS
|
||||||
|
M2THPS DS 1 ;MONSTER 2 TARGET HPOS
|
||||||
|
M3THPS DS 1 ;MONSTER 3 TARGET HPOS
|
||||||
|
M4THPS DS 1 ;MONSTER 4 TARGET HPOS
|
||||||
|
M1TVPS DS 1 ;MONSTER 1 TARGET VPOS
|
||||||
|
M2TVPS DS 1 ;MONSTER 2 TARGET VPOS
|
||||||
|
M3TVPS DS 1 ;MONSTER 3 TARGET VPOS
|
||||||
|
M4TVPS DS 1 ;MONSTER 4 TARGET VPOS
|
||||||
|
M1TIMR DS 1 ;MONSTER 1 TIMER
|
||||||
|
M2TIMR DS 1 ;MONSTER 2 TIMER
|
||||||
|
M3TIMR DS 1 ;MONSTER 3 TIMER
|
||||||
|
M4TIMR DS 1 ;MONSTER 4 TIMER
|
||||||
|
M1STAT DS 1 ;MONSTER 1 STATUS
|
||||||
|
M2STAT DS 1 ;MONSTER 2 STATUS
|
||||||
|
M3STAT DS 1 ;MONSTER 3 STATUS
|
||||||
|
M4STAT DS 1 ;MONSTER 4 STATUS
|
||||||
|
M1SSEQ DS 1 ;MONSTER 1 START SEQUENCE
|
||||||
|
M2SSEQ DS 1 ;MONSTER 2 START SEQUENCE
|
||||||
|
M3SSEQ DS 1 ;MONSTER 3 START SEQUENCE
|
||||||
|
M4SSEQ DS 1 ;MONSTER 4 START SEQUENCE
|
||||||
|
M1VDIR DS 1 ;MONSTER 1 VERT CHOICE
|
||||||
|
M2VDIR DS 1 ;MONSTER 2 VERT CHOICE
|
||||||
|
M3VDIR DS 1 ;MONSTER 3 VERT CHOICE
|
||||||
|
M4VDIR DS 1 ;MONSTER 4 VERT CHOICE
|
||||||
|
M1HDIR DS 1 ;MONSTER 1 HORZ CHOICE
|
||||||
|
M2HDIR DS 1 ;MONSTER 2 HORZ CHOICE
|
||||||
|
M3HDIR DS 1 ;MONSTER 3 HORZ CHOICE
|
||||||
|
M4HDIR DS 1 ;MONSTER 4 HORZ CHOICE
|
||||||
|
VCHASF DS 1 ;CHASE FREQ
|
||||||
|
VCHASD DS 1 ;DIRECTION 1=INC 2=DEC
|
||||||
|
VCHASS DS 1 ;CHASE SOUND START
|
||||||
|
VFLITF DS 1 ;FLIGHT FREQ
|
||||||
|
VFLITD DS 1 ;DIRECTION SAME
|
||||||
|
VFLITV DS 1 ;FLIGHT VOLUME
|
||||||
|
VFLITS DS 1 ;FLIGHT SOUND START
|
||||||
|
VFREEZ DS 1 ;FREEZE FLAG
|
||||||
|
VGLPC1 DS 1 ;GULP COUNT1
|
||||||
|
VGLPC2 DS 1 ;GULP COUNT2
|
||||||
|
GULPED DS 1 ;LAST MONSTER EATEN
|
||||||
|
GLPCNT DS 1 ;GULP COUNT
|
||||||
|
FIZZLE DS 1 ;FIZZLE FLAG 1=FIZL
|
||||||
|
FIZPTR DS 1 ;FIZZLE ADDR POINTER
|
||||||
|
FIZTIM DS 1 ;FIZZLE TIMER
|
||||||
|
VFIZST DS 1 ;FIZZLE STATUS
|
||||||
|
VFIZSQ DS 1 ;FIZZLE SEQUENCE #
|
||||||
|
VFIZBS DS 1 ;FIZZLE FREQ BASE
|
||||||
|
VFIZFQ DS 1 ;FIZZLE CURRENT FREQ
|
||||||
|
VFIZCT DS 1 ;FIZZLE COUNTER
|
||||||
|
TWEETR DS 1 ;TWEET SOUND FLAG
|
||||||
|
TWEETF DS 1 ;TWEET SOUND FREQ
|
||||||
|
EATERF DS 1 ;EAT DOT SOUND FLAG
|
||||||
|
EATERC DS 1 ;EAT DOT SOUND COUNT
|
||||||
|
EATERT DS 1 ;EAT DOT TOGGLE
|
||||||
|
GOBBLD DS 1 ;GOBBLE DIRCTN (FRUITS)
|
||||||
|
GOBBLF DS 1 ;GOBBLE FREQUENCY
|
||||||
|
BLINKT DS 1 ;BLINK TIMER
|
||||||
|
FLSHUP DS 1 ;FLASH 1UP 2UP TIMER
|
||||||
|
FLASHT DS 1 ;FLASH TIMER
|
||||||
|
FLASHC DS 1 ;FLASH COUNT
|
||||||
|
FLITMR DS 1 ;FLIGHT TIMER
|
||||||
|
TUNMSK DS 1 ;TUNNEL BIT MASK
|
||||||
|
TUNCNT DS 1 ;TUNNEL ITERATION COUNT
|
||||||
|
;
|
||||||
|
EJECT
|
||||||
|
;
|
||||||
|
ORG $0600
|
||||||
|
;
|
||||||
|
PACBUF DS 16 ; PACMAN IMAGE BUFFER
|
||||||
|
MONBUF DS 16 ; MONSTER IMAGE BUFFER
|
||||||
|
;
|
||||||
|
INTRDL EQU $0680;INTERMISSION DL
|
||||||
|
INTMOD EQU $06C0;INTERMISSION MODE
|
||||||
|
INTSEQ EQU $06C1;INTERMISSION SEQ
|
||||||
|
;
|
||||||
|
;
|
||||||
|
;**** SYSTEM VARIABLES ****
|
||||||
|
;
|
||||||
|
BDELAY EQU 1 ;BOUNCE DELAY
|
||||||
|
FDELAY EQU $FF;FRUIT TIMER VALUE
|
||||||
|
ADELAY EQU $30;ATTRACT TIMER DELAY
|
||||||
|
;
|
||||||
|
GAMMEM EQU $0800; GAME MEMORY
|
||||||
|
;
|
||||||
|
PACMAZ EQU GAMMEM+$0C00
|
||||||
|
P1SAVE EQU GAMMEM+$1000
|
||||||
|
P2SAVE EQU GAMMEM+$1400
|
||||||
|
OPTCHR EQU GAMMEM+$1800
|
||||||
|
OPTSCN EQU GAMMEM+$1C00
|
||||||
|
PMADDR EQU GAMMEM+$2000
|
||||||
|
TEXT EQU GAMMEM+$2000
|
||||||
|
PATSCN EQU GAMMEM+$2800
|
||||||
|
AMCSET EQU GAMMEM+$2C00
|
||||||
|
;
|
||||||
|
EJECT
|
||||||
|
;
|
||||||
|
ORG $3FFD
|
||||||
|
;
|
||||||
|
JMP INIT
|
||||||
|
;
|
||||||
|
INCLUDE D2:PACDAT1.ASM
|
||||||
|
;
|
||||||
|
EJECT
|
||||||
|
;
|
||||||
|
INIT LDX #9
|
||||||
|
INITL1 LDA HISCTX,X
|
||||||
|
STA TEXT+$0F,X
|
||||||
|
DEX
|
||||||
|
BPL INITL1
|
||||||
|
LDA #0
|
||||||
|
LDX #$27
|
||||||
|
INITL2 STA DLICNT,X
|
||||||
|
DEX
|
||||||
|
BPL INITL2
|
||||||
|
LDX #$7F
|
||||||
|
INIPZL STA $80,X
|
||||||
|
DEX
|
||||||
|
BPL INIPZL
|
||||||
|
;
|
||||||
|
INC OPTION
|
||||||
|
LDX RTCLOK+2
|
||||||
|
DEX
|
||||||
|
STX ATCLOK
|
||||||
|
;
|
||||||
|
; RELOCATE OPTION CHAR SET
|
||||||
|
;
|
||||||
|
LDX #0
|
||||||
|
OCLOOP LDA PACTTL,X
|
||||||
|
STA OPTCHR+8,X
|
||||||
|
INX
|
||||||
|
BNE OCLOOP
|
||||||
|
;
|
||||||
|
; BUILD ATTRACT MODE CHAR SET
|
||||||
|
;
|
||||||
|
ANCHRL LDA CHRORG,X
|
||||||
|
STA AMCSET,X
|
||||||
|
LDA CHRORG+$100,X
|
||||||
|
STA AMCSET+$100,X
|
||||||
|
INX
|
||||||
|
BNE ANCHRL
|
||||||
|
LDX #$1F
|
||||||
|
ANCDTL LDA ATCHRS,X
|
||||||
|
STA AMCSET+$18,X
|
||||||
|
DEX
|
||||||
|
BPL ANCDTL
|
||||||
|
;
|
||||||
|
; ENABLE KEYSCAN & SET VBI VECTOR
|
||||||
|
;
|
||||||
|
PACINI SEI
|
||||||
|
LDA POKMSK
|
||||||
|
ORA #$40
|
||||||
|
STA POKMSK
|
||||||
|
STA IRQEN
|
||||||
|
CLI
|
||||||
|
LDY #LOW VBLANK
|
||||||
|
LDX #HIGH VBLANK
|
||||||
|
LDA #7
|
||||||
|
STA SKCTL
|
||||||
|
JSR SETVBV;GO SET VBLANK VECTOR
|
||||||
|
LDA #$C0;ENABLE DLI AND VBI
|
||||||
|
STA NMIEN
|
||||||
|
LDA #$3E
|
||||||
|
STA SDMCTL;ENABLE P/M GRAPHICS
|
||||||
|
LDA #$3
|
||||||
|
STA GRACTL
|
||||||
|
LDA #HIGH PMADDR
|
||||||
|
STA PMBASE
|
||||||
|
LDA #LOW INIT
|
||||||
|
STA DOSVEC
|
||||||
|
LDA #HIGH INIT
|
||||||
|
STA DOSVEC+1
|
||||||
|
LDA #LOW INITAD
|
||||||
|
STA DOSINI
|
||||||
|
LDA #HIGH INITAD
|
||||||
|
STA DOSINI+1
|
||||||
|
;
|
||||||
|
REINIT LDA #0;NEW GAME VECTOR
|
||||||
|
LDX #$1F
|
||||||
|
REINLP STA GMOVRF,X
|
||||||
|
DEX
|
||||||
|
BPL REINLP
|
||||||
|
TXS
|
||||||
|
JSR CLRAUD
|
||||||
|
;
|
||||||
|
; NOW INITIALIZE PLAYER SCREENS
|
||||||
|
;
|
||||||
|
JSR P1INIT
|
||||||
|
JSR SAVEP1
|
||||||
|
JSR SAVEP2
|
||||||
|
;
|
||||||
|
LDA OPTION
|
||||||
|
BNE LOOP
|
||||||
|
;
|
||||||
|
PACGAM LDA RTCLOK+2
|
||||||
|
PACGML CMP RTCLOK+2
|
||||||
|
BEQ PACGML
|
||||||
|
LDA #LOW DLIST
|
||||||
|
STA SDLSTL
|
||||||
|
STA DLISTL
|
||||||
|
LDA #HIGH DLIST
|
||||||
|
STA SDLSTH
|
||||||
|
STA DLISTH
|
||||||
|
LDA #LOW DLIV; DLI VECTOR
|
||||||
|
STA VDSLST
|
||||||
|
LDA #HIGH DLIV
|
||||||
|
STA VDSLST+1
|
||||||
|
LDA #$11
|
||||||
|
STA GPRIOR;LET MISSILES USE COLPF3
|
||||||
|
SETPAC JSR SETUP
|
||||||
|
JSR NEWGAM
|
||||||
|
LDA NUMPLY
|
||||||
|
BEQ P1SCIN
|
||||||
|
JSR SET2PL
|
||||||
|
JMP GODOIT
|
||||||
|
P1SCIN JSR SET1PL
|
||||||
|
GODOIT LDA #2
|
||||||
|
STA RSTRTF
|
||||||
|
;
|
||||||
|
LOOP LDA RRSEQU
|
||||||
|
CMP #3
|
||||||
|
BNE GOLOOP
|
||||||
|
JSR INTMIS
|
||||||
|
JSR SETUP
|
||||||
|
INC RRSEQU
|
||||||
|
GOLOOP LDX #3
|
||||||
|
LOOPLP LDA ACOLOR,X
|
||||||
|
EOR COLRSH;ATTRACT COLORS THAT ARE
|
||||||
|
AND DRKMSK;SWITCHED WITH DLI'S
|
||||||
|
STA ACOLR1,X
|
||||||
|
DEX
|
||||||
|
BPL LOOPLP
|
||||||
|
LDA OPTION
|
||||||
|
BNE PCTRIG
|
||||||
|
LDA KEYDEL
|
||||||
|
BNE IGNORK
|
||||||
|
LDA CH; TEST FOR SPACE BAR PAUSE
|
||||||
|
CMP #$21
|
||||||
|
BNE IGNORK
|
||||||
|
LDA PAUSEF
|
||||||
|
BEQ FLIPON
|
||||||
|
LDA #0
|
||||||
|
BEQ STFLIP
|
||||||
|
FLIPON LDA #1
|
||||||
|
STFLIP STA PAUSEF
|
||||||
|
NOFLIP LDA #$FF
|
||||||
|
STA CH
|
||||||
|
IGNORK LDA GMOVRF
|
||||||
|
BEQ GAMCNS
|
||||||
|
LDA ATTIMR;IF GAME OVER, TIME OUT
|
||||||
|
BNE PCTRIG;AND GO TO OPTION SCREEN
|
||||||
|
LDA #4
|
||||||
|
BNE PCEXT1
|
||||||
|
PCTRIG LDA #$FF
|
||||||
|
STA CH
|
||||||
|
LDA STRIG0
|
||||||
|
BEQ CSTART
|
||||||
|
LDA STRIG1;TEST TRIGGER START
|
||||||
|
BEQ CSTART
|
||||||
|
GAMCNS LDA CONSOL
|
||||||
|
CMP #7; NO BUTTONS PRESSED
|
||||||
|
BEQ LOOP
|
||||||
|
CNSSWT STA SAVCNS
|
||||||
|
LDX #BDELAY
|
||||||
|
STX BCOUNT
|
||||||
|
CLOOP1 ORA CONSOL
|
||||||
|
LDX BCOUNT;DEBOUNCE LOGIC
|
||||||
|
BNE CLOOP1
|
||||||
|
CMP SAVCNS
|
||||||
|
BNE GAMCNS
|
||||||
|
CLOOP2 CMP CONSOL
|
||||||
|
BEQ CLOOP2
|
||||||
|
LDA SAVCNS
|
||||||
|
CMP #6
|
||||||
|
BEQ CSTART
|
||||||
|
LDX ATSEQU
|
||||||
|
BEQ CPROPT
|
||||||
|
LDA #0
|
||||||
|
STA ATSEQU
|
||||||
|
LDA #4
|
||||||
|
BNE PCEXT1
|
||||||
|
CPROPT LDX OPTION;IF OPTION SCREEN
|
||||||
|
CPX #3; THEN CHANGE PARAMS
|
||||||
|
BCC PCEXIT
|
||||||
|
PRESSW CMP #3
|
||||||
|
BEQ COPTON
|
||||||
|
CMP #5
|
||||||
|
BEQ CSELEC
|
||||||
|
JMP LOOP
|
||||||
|
CSTART LDA #0
|
||||||
|
STA GMOVRF;START FUNCTION-NEW GAME
|
||||||
|
STA OPTION
|
||||||
|
STA ATSEQU
|
||||||
|
LDA #1
|
||||||
|
STA RSTRTF
|
||||||
|
JMP REINIT
|
||||||
|
CSELEC LDA NUMPLY
|
||||||
|
BNE PCNSE1;PROCESS SELECT CHANGES
|
||||||
|
LDA #1
|
||||||
|
BNE PCNSE2
|
||||||
|
PCNSE1 LDA #0
|
||||||
|
PCNSE2 STA NUMPLY
|
||||||
|
PCEXIT LDA #3
|
||||||
|
PCEXT1 STA OPTION
|
||||||
|
STA ATRACT
|
||||||
|
LDA #7
|
||||||
|
STA ATCLOK
|
||||||
|
JMP LOOP
|
||||||
|
COPTON LDA DIFOPT
|
||||||
|
CMP #2
|
||||||
|
BCS PCNOP1;PROCESS OPTION CHANGES
|
||||||
|
INC DIFOPT
|
||||||
|
BNE PCEXIT
|
||||||
|
PCNOP1 CMP #$0C
|
||||||
|
BEQ PCNOP2
|
||||||
|
INC DIFOPT
|
||||||
|
INC DIFOPT
|
||||||
|
BNE PCEXIT
|
||||||
|
PCNOP2 LDA #0
|
||||||
|
STA DIFOPT
|
||||||
|
BEQ PCEXIT
|
||||||
|
;
|
||||||
|
; DISPLAY LIST INTERRUPT VECTOR
|
||||||
|
;
|
||||||
|
DLIV PHA
|
||||||
|
TXA
|
||||||
|
PHA
|
||||||
|
LDX DLICNT;DLI COUNT
|
||||||
|
BNE DLI2ND
|
||||||
|
LDA #HIGH PACCHR
|
||||||
|
STA WSYNC
|
||||||
|
STA CHBASE
|
||||||
|
BNE DLIXIT
|
||||||
|
DLI2ND CPX #1
|
||||||
|
BNE DLI3RD
|
||||||
|
LDA ACOLR4;-$DA PLAYER 1-2 MSG
|
||||||
|
LDX ACOLR1;-$3A LT ORANGE COLOR
|
||||||
|
STA WSYNC
|
||||||
|
STA COLPF1
|
||||||
|
STX COLPF2
|
||||||
|
BNE DLIXIT
|
||||||
|
DLI3RD CPX #2
|
||||||
|
BNE DLI4TH
|
||||||
|
LDA FRUCLR; FRUIT COLOR
|
||||||
|
EOR COLRSH
|
||||||
|
AND DRKMSK
|
||||||
|
STA WSYNC
|
||||||
|
STA COLPF1
|
||||||
|
BNE DLIXIT
|
||||||
|
DLI4TH CPX #3
|
||||||
|
BNE DLI5TH
|
||||||
|
LDA ACOLR2
|
||||||
|
STA WSYNC
|
||||||
|
STA COLPF1
|
||||||
|
BNE DLIXIT
|
||||||
|
DLI5TH CPX #4
|
||||||
|
BNE LSTDLI
|
||||||
|
LDA ACOLR3;YELLOW COLOR
|
||||||
|
LDX ACOLR4
|
||||||
|
STA WSYNC
|
||||||
|
STX COLPF0
|
||||||
|
STA COLPF3
|
||||||
|
BNE DLIXIT
|
||||||
|
LSTDLI LDX #3
|
||||||
|
LDA #0
|
||||||
|
DLICLP STA COLPM0,X
|
||||||
|
DEX
|
||||||
|
BPL DLICLP
|
||||||
|
STA COLPF3
|
||||||
|
DLIXIT INC DLICNT
|
||||||
|
PLA
|
||||||
|
TAX
|
||||||
|
PLA
|
||||||
|
RTI
|
||||||
|
;
|
||||||
|
; DLI VECTOR FOR OPT & TITLE SCREENS
|
||||||
|
;
|
||||||
|
OPDLIV PHA
|
||||||
|
TXA
|
||||||
|
PHA
|
||||||
|
TYA
|
||||||
|
PHA
|
||||||
|
LDX DLICNT
|
||||||
|
BNE OPDLI1
|
||||||
|
LDY ACOLR2
|
||||||
|
LDA ACOLR1
|
||||||
|
LDX #HIGH OPTCHR
|
||||||
|
STA WSYNC
|
||||||
|
STX CHBASE
|
||||||
|
STA COLPF2
|
||||||
|
STY COLPF1
|
||||||
|
JMP OPDLIX
|
||||||
|
OPDLI1 LDA OCINDX,X
|
||||||
|
STA WSYNC
|
||||||
|
STA CHBASE
|
||||||
|
OPDLIX INC DLICNT
|
||||||
|
PLA
|
||||||
|
TAY
|
||||||
|
PLA
|
||||||
|
TAX
|
||||||
|
PLA
|
||||||
|
RTI
|
||||||
|
;
|
||||||
|
; VERTICAL BLANK INTERRUPT VECTOR
|
||||||
|
;
|
||||||
|
VBLANK LDA #0
|
||||||
|
STA DLICNT
|
||||||
|
DEC BCOUNT
|
||||||
|
JSR VBSUBS
|
||||||
|
LDA ATSEQU
|
||||||
|
BNE VBEXIT
|
||||||
|
LDA VFREEZ
|
||||||
|
BNE VBEXIT
|
||||||
|
JSR TUNNEL
|
||||||
|
VBEXIT JMP XITVBV; EXIT VECTOR
|
||||||
|
;
|
||||||
|
OPTTTL LDA #0
|
||||||
|
LDX #7
|
||||||
|
CHRDWR STA HPOSP0,X
|
||||||
|
STA AUDF1,X
|
||||||
|
DEX
|
||||||
|
BPL CHRDWR
|
||||||
|
LDA #LOW ODLIST
|
||||||
|
STA SDLSTL
|
||||||
|
STA DLISTL
|
||||||
|
LDA #HIGH ODLIST
|
||||||
|
STA SDLSTH
|
||||||
|
STA DLISTH
|
||||||
|
LDA #LOW OPDLIV
|
||||||
|
STA VDSLST
|
||||||
|
LDA #HIGH OPDLIV
|
||||||
|
STA VDSLST+1
|
||||||
|
OCOLRS LDY #3
|
||||||
|
OCLRLP LDA OCOLOR,Y
|
||||||
|
STA COLOR0,Y
|
||||||
|
DEY
|
||||||
|
BPL OCLRLP
|
||||||
|
INITAD RTS
|
||||||
|
;
|
||||||
|
SET1PL LDX #6
|
||||||
|
LDA #0
|
||||||
|
S1PLL1 STA TEXT+$20,X
|
||||||
|
STA TEXT+$47,X
|
||||||
|
STA TEXT+$2A,X
|
||||||
|
DEX
|
||||||
|
BPL S1PLL1
|
||||||
|
SETXPL JSR FLS1ON
|
||||||
|
LDA #$10
|
||||||
|
STA TEXT+$2E
|
||||||
|
STA TEXT+$2F
|
||||||
|
RTS
|
||||||
|
;
|
||||||
|
SET2PL LDX #6
|
||||||
|
LDA #0
|
||||||
|
S2PLL1 STA TEXT+$2A,X
|
||||||
|
STA TEXT+$47,X
|
||||||
|
DEX
|
||||||
|
BPL S2PLL1
|
||||||
|
JSR FLS2ON
|
||||||
|
LDA #$10
|
||||||
|
STA TEXT+$4B
|
||||||
|
STA TEXT+$4C
|
||||||
|
BNE SETXPL
|
||||||
|
;
|
||||||
|
EJECT
|
||||||
|
INCLUDE D1:PAC1.ASM
|
||||||
|
EJECT
|
||||||
|
INCLUDE D1:PAC2.ASM
|
||||||
|
EJECT
|
||||||
|
INCLUDE D1:PAC3.ASM
|
||||||
|
EJECT
|
||||||
|
INCLUDE D1:PAC4.ASM
|
||||||
|
EJECT
|
||||||
|
INCLUDE D2:PACDAT2.ASM
|
||||||
|
EJECT
|
||||||
|
;
|
||||||
|
ORG $7400
|
||||||
|
;
|
||||||
|
INCLUDE D2:PACDAT3.ASM
|
||||||
|
;
|
||||||
|
END INIT
|
||||||
|
ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ û ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ
|
||||||
153
SYSTEXT.ASM
Normal file
153
SYSTEXT.ASM
Normal file
@@ -0,0 +1,153 @@
|
|||||||
|
; @com.wudsn.ide.asm.mainsourcefile=PACMAN.ASM
|
||||||
|
|
||||||
|
; SPACE 2
|
||||||
|
|
||||||
|
; Operating System Equates ------------------------
|
||||||
|
|
||||||
|
; SPACE 1
|
||||||
|
|
||||||
|
DOSVEC EQU $000A ;this program's start vector
|
||||||
|
|
||||||
|
DOSINI EQU $000C ;this program's init vector
|
||||||
|
|
||||||
|
POKMSK EQU $0010 ;mask for POKEY IRQ enable
|
||||||
|
|
||||||
|
BRKKEY EQU $0011 ;BREAK flag
|
||||||
|
|
||||||
|
RTCLOK EQU $0012 ;60 Hz clock
|
||||||
|
|
||||||
|
ATRACT EQU $4D
|
||||||
|
DRKMSK EQU $4E
|
||||||
|
COLRSH EQU $4F
|
||||||
|
|
||||||
|
VDSLST EQU $0200
|
||||||
|
|
||||||
|
VIMIRQ EQU $0216 ;immediate IRQ vector
|
||||||
|
|
||||||
|
SRTIMR EQU $022B ;software-driven keydown timer
|
||||||
|
|
||||||
|
SDMCTL EQU $022F ;DMA control shadow
|
||||||
|
|
||||||
|
SDLSTL EQU $0230 ;display list pointer (low byte)
|
||||||
|
|
||||||
|
SDLSTH EQU $0231 ;display List pointer (high byte)
|
||||||
|
|
||||||
|
SSKCTL EQU $0232 ;serial port control
|
||||||
|
|
||||||
|
LPENH EQU $0234 ;light pen horizontal position
|
||||||
|
|
||||||
|
LPENV EQU $0235 ;light pen vertical postion
|
||||||
|
|
||||||
|
GPRIOR EQU $026F ;player priority select
|
||||||
|
|
||||||
|
PADDL0 EQU $0270 ;pot 0
|
||||||
|
|
||||||
|
STICK0 EQU $0278 ;joystick 0 shadow
|
||||||
|
|
||||||
|
STRIG0 EQU $0284 ;red button 0 shadow
|
||||||
|
STRIG1 EQU $0285 ;red button 1 shadow
|
||||||
|
|
||||||
|
SHFLK EQU $02BE ;shift-lock flag
|
||||||
|
|
||||||
|
PCOLR0 EQU $02C0 ;player color shadow
|
||||||
|
PCOLR1 EQU $02C1
|
||||||
|
PCOLR2 EQU $02C2
|
||||||
|
PCOLR3 EQU $02C3
|
||||||
|
|
||||||
|
COLOR0 EQU $02C4 ;playfield color shadow
|
||||||
|
COLOR1 EQU $02C5
|
||||||
|
COLOR2 EQU $02C6
|
||||||
|
COLOR3 EQU $02C7
|
||||||
|
|
||||||
|
MEMLO EQU $02E7 ;start of user memory
|
||||||
|
KEYDEL EQU $02F1 ;KEY DELAY
|
||||||
|
|
||||||
|
CHART EQU $2F3 ;character control
|
||||||
|
|
||||||
|
CHBAS EQU $2F4 ;character base address
|
||||||
|
|
||||||
|
CH EQU $02FC ;character buffer
|
||||||
|
|
||||||
|
DDEVIC EQU $0300 ;peripheral bus ID number
|
||||||
|
|
||||||
|
DUNIT EQU $0301 ;unit number
|
||||||
|
|
||||||
|
DCOMND EQU $0302 ;bus command ordinal
|
||||||
|
|
||||||
|
DSTATS EQU $0303 ;command type/status return
|
||||||
|
|
||||||
|
DBUFLO EQU $0304 ;data buffer pointer
|
||||||
|
|
||||||
|
DBUFHI EQU $0305
|
||||||
|
|
||||||
|
DTIMLO EQU $0306 ;device timeout in seconds
|
||||||
|
|
||||||
|
DBYTLO EQU $0308 ;number of bytes transferred
|
||||||
|
|
||||||
|
DBYTHI EQU $0309
|
||||||
|
|
||||||
|
DAUX1 EQU $030A ;command auxiliary bytes
|
||||||
|
|
||||||
|
DAUX2 EQU $030B
|
||||||
|
|
||||||
|
ICCOM EQU $0342 ;CIO command block
|
||||||
|
|
||||||
|
ICBAL EQU $0344
|
||||||
|
|
||||||
|
ICBAH EQU $0345
|
||||||
|
|
||||||
|
ICBLL EQU $0348
|
||||||
|
|
||||||
|
ICBLH EQU $0349
|
||||||
|
|
||||||
|
ICAX1 EQU $034A
|
||||||
|
|
||||||
|
ICAX2 EQU $034B
|
||||||
|
|
||||||
|
CHRORG EQU $E000 ;OS charset
|
||||||
|
|
||||||
|
CIOV EQU $E456 ;CIO request vector
|
||||||
|
|
||||||
|
SIOV EQU $E459 ;SIO request vector
|
||||||
|
|
||||||
|
SETVBV EQU $E45C ;system interrupt init vector
|
||||||
|
|
||||||
|
XITVBV EQU $E462 ;system VBLANK return handler
|
||||||
|
|
||||||
|
OSRETN EQU $E474 ;system WARM START entry
|
||||||
|
|
||||||
|
CLICK EQU $FCD8 ;keyclick routine
|
||||||
|
|
||||||
|
; EJECT
|
||||||
|
|
||||||
|
; Hardware Registers --------------------------------
|
||||||
|
|
||||||
|
; SPACE 1
|
||||||
|
|
||||||
|
HPOSP0 EQU $D000 ;player position registers
|
||||||
|
HPOSP1 EQU $D001
|
||||||
|
HPOSP2 EQU $D002
|
||||||
|
HPOSP3 EQU $D003
|
||||||
|
|
||||||
|
M0PF EQU $D000 ;missile 0 to playfield collision
|
||||||
|
M1PF EQU $D001
|
||||||
|
M2PF EQU $D002
|
||||||
|
M3PF EQU $D003
|
||||||
|
|
||||||
|
HPOSM0 EQU $D004 ;horizontal position of missile 0
|
||||||
|
HPOSM1 EQU $D005
|
||||||
|
HPOSM2 EQU $D006
|
||||||
|
HPOSM3 EQU $D007
|
||||||
|
|
||||||
|
P0PF EQU $D004 ;player 0 to playfield collision
|
||||||
|
|
||||||
|
M0PL EQU $D008 ;missile 0 to player collision
|
||||||
|
M1PL EQU $D009
|
||||||
|
M2PL EQU $D00A
|
||||||
|
M3PL EQU $D00B
|
||||||
|
|
||||||
|
SIZEP0 EQU $D008 ;player size registers
|
||||||
|
|
||||||
|
P0PL EQU $D00C ;player 0 to player collision
|
||||||
|
|
||||||
|
SIZEM EQU $D00C ;sizes for all missiles
|
||||||
Reference in New Issue
Block a user