Voir le sujet pr�c�dent :: Voir le sujet suivant |
Auteur |
Message |
toinet
Inscrit le: 15 Juin 2007 Messages: 326 Localisation: Paris, France
|
Post� le: Mar 04 D�c 2007, 11:48 Sujet du message: Suicide (Picadilly Software, 1981) |
|
|
Rescue people who want to commit suicide! That is one of the first games I have ever played a long, long time ago
DISK PROTECTION
It is a non-standard disk structure, nibbles are 4*4 coded. Data is loaded every 1.5 track.
...and the boot process is not easy!
BOOT TRACE
I really dislike old boot processes when they move the boot1 code at $0200 in the keyboard buffer. Next load steps are then loaded in $0300 and in the text page!
The load process also clears all RAM, auxiliary bank and disconnects wildcard boards!
I wish you good luck with that one!
What is interesting though is that once the game is loaded, the diskette can be removed from the drive. That means that all the data is in memory.
The next messages will introduce you to the crack loader and the original load code. I also have the complete source code of the program for those interested
The memory usage:
- $0200..$02FF: original boot 1 code
- $0300..$03FF: boot 2 code
- $0400..$07FF: boot 3 code
- $1000..$5FFF:
-- $1000..$1FFF: the game init and some data
-- $2000..$3FFF: the logo picture
-- $4000..$5FFF: data and game code
Enjoy,
Toinet |
|
Revenir en haut de page |
|
![](templates/subSilver/images/spacer.gif) |
toinet
Inscrit le: 15 Juin 2007 Messages: 326 Localisation: Paris, France
|
Post� le: Mar 04 D�c 2007, 11:51 Sujet du message: |
|
|
That is the code I have written to patch the game boot process, thus ending in a monitor jump once all the program is loaded into memory!
Code: |
*
* Suicide
* (c) 1981, Picadilly Software, Inc.
*
* (k) 2007, LoGo
*
mx %11
org $9600
lst off
*
* 9600<C600.C6FFM
* THEN REPLACE 4C 01 08
* WITH THE FOLLOWING CODE...
*
LDA #<L9800 ; PATCH BOOT 1
STA $0842
LDA #>L9800
STA $0843
JMP $0801
ds \
L9800 LDA #$EA ; LET INTERRUPTS ACTIVE
STA $0301
LDA #$60 ; AVOID RAM CLEANING
STA $037B
LDA #$4C ; PATCH BOOT 2 LOAD
STA $039A
LDA #<L9900
STA $039B
LDA #>L9900
STA $039C
JMP $0301
ds \
L9900 LDY #$18 ; PATCH BOOT 3
LDA #$59
STA $05BC
LDA #$FF
STA $05BD
JMP $0400
*
* THE PROGRAM IS NOW IN MEMORY
* FROM $1000 TO $5FFF
*
|
|
|
Revenir en haut de page |
|
![](templates/subSilver/images/spacer.gif) |
toinet
Inscrit le: 15 Juin 2007 Messages: 326 Localisation: Paris, France
|
Post� le: Mar 04 D�c 2007, 11:52 Sujet du message: |
|
|
In one big file, all of the original boot process of Suicide...
Code: |
*
* Suicide
* (c) 1981, Picadilly Software, Inc.
*
* (k) 2007, LoGo
*
mx %11
org $0200
lst off
*
* EQUATES
*
TXTCLR EQU $C050
TXTSET EQU $C051
MIXCLR EQU $C052
TXTPAGE1 EQU $C054
HIRES EQU $C057
ROMIN2 EQU $C081
LCBANK2 EQU $C083
ROMIN1 EQU $C089
PWRUP EQU $FAA6
PRERR EQU $FF2D
RESETV EQU $FFFC
*
* CODE
*
DB $01
LDX #$00
]LP LDA $0800,X
STA $0200,X
INX
BNE ]LP
JMP L020F
*
*
L020F LDY #$AB
]LP TYA
STA $3C
LSR
ORA $3C
CMP #$FF
BNE L0224
CPY #$D5
BEQ L0224
TXA
STA $0800,Y
INX
L0224 INY
BNE ]LP
STY $3D
STY $26
LDA #$03 ; LOAD IN $0300
STA $27
LDX $2B
JSR L025D ; READ NIBBLES
JSR L02D1 ; DENIBBLIZE
LDA #$A9
STA L030F
LDA #$02
STA L030F+1
JMP L0301
HEX 00000000000000000000000000000000
HEX 000000000000000000
* HEADER NIBBLES
L025D CLC
L025E PHP
L025F LDA $C08C,X
BPL L025F
L0264 EOR #$D5
BNE L025F
L0268 LDA $C08C,X
BPL L0268
CMP #$AA
BNE L0264
NOP
L0272 LDA $C08C,X
BPL L0272
CMP #$B5
BEQ L0284
PLP
BCC L025D
EOR #$AD
BEQ L02A1
BNE L025D
L0284 LDY #$03
STY $2A
L0288 LDA $C08C,X
BPL L0288
ROL
STA $3C
L0290 LDA $C08C,X
BPL L0290
AND $3C
DEY
BNE L0288
PLP
CMP $3D
BNE L025D
BCS L025E
* DATA NIBBLES
L02A1 LDY #$9A
L02A3 STY $3C
L02A5 LDY $C08C,X
BPL L02A5
EOR $0800,Y
LDY $3C
DEY
STA $0800,Y
BNE L02A3
L02B5 STY $3C
L02B7 LDY $C08C,X
BPL L02B7
EOR $0800,Y
LDY $3C
STA ($26),Y
INY
BNE L02B5
L02C6 LDY $C08C,X
BPL L02C6
EOR $0800,Y
BNE L025D
RTS
* DENIBBLIZE
L02D1 TAY
L02D2 LDX #$00
L02D4 LDA $0800,Y
LSR
ROL L03CC,X
LSR
ROL L0399,X
STA $3C
LDA ($26),Y
ASL
ASL
ASL
ORA $3C
STA ($26),Y
INY
INX
CPX #$33
BNE L02D4
DEC $2A
BNE L02D2
CPY L0300
BNE L02FC
RTS
DB $00
DB $00
L02FC JMP PRERR
DB $00
*
*
L0300 DB $99
L0301 SEI
CLD
L0303 LDA $0800,Y
ASL
ASL
ASL
STA $0800,Y
INY
BNE L0303
L030F LDA #$02 ; WAS ORA #$C0
LDY #$1E
L0313 NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
INY
BNE L0313
LDA ROMIN1
LDA ROMIN1
JSR L037B ; CLEAR ALL RAM
LDA ROMIN2
LDA ROMIN2
JSR L037B ; CLEAR ALL RAM
LDA #$09
STA $27
LSR ; 9/2=4 => $0400
STA $39
STA $3F
STY $38
STY $3E
LDA L030F
STA L0350
LDA L030F+1
STA L0350+1
LDX $2B
TXA
LSR
LSR
LSR
LSR
L0350 ORA #$C0
STA $37
LDA #$5D
STA $36
INC $3D
LDA TXTPAGE1
LDA HIRES
LDA MIXCLR
LDA TXTCLR
L0366 JSR L0378 ; READ NIBBLES
JSR L039E ; DENIBBLIZE
LDA $3D
EOR #$03
BEQ L039A
INC $39
INC $3D
BNE L0366
L0378 JMP ($0036)
* CLEAR ALL RAM
L037B LDA #$0A
LDY #$00
STY $00
STA $01
L0383 TYA
L0384 STA ($00),Y
INY
BNE L0384
INC $01
BEQ L0399
LDA $01
CMP #$C0
BNE L0383
LDA #$C8
STA $01
BNE L0383
L0399 RTS
* NEXT STEP: GO TO $0400
L039A LDY #$18
BNE L0400
* DENIBBLIZE
L039E LDX #$32
LDY #$00
L03A2 LDA $0800,X
LSR
LSR
LSR
STA $3C
LSR
STA $2A
LSR
ORA $0900,X
STA ($38),Y
INY
LDA $0833,X
LSR
LSR
LSR
LSR
ROL $3C
LSR
ROL $2A
ORA $0933,X
STA ($38),Y
INY
LDA $0866,X
LSR
LSR
LSR
L03CC LSR
ROL $3C
LSR
ROL $2A
ORA $0966,X
STA ($38),Y
INY
LDA $2A
AND #$07
ORA $0999,X
STA ($38),Y
INY
LDA $3C
AND #$07
ORA $09CC,X
STA ($38),Y
INY
DEX
BPL L03A2
LDA $0899
L03F2 LSR
L03F3 LSR
L03F4 LSR
ORA $09FF
STA ($38),Y
LDX $2B
RTS
DB $00
DB $00
DB $00
*
* LAST BOOT CODE
*
L0400 BIT ROMIN2 ; CODE FOR WILDCARDS
BIT ROMIN2
LDX #$30
LDY #$00
LDA #$D0
STA $2D
LDA #$00
STA $2C
]LP LDA ($2C),Y
STA ($2C),Y
INY
BNE ]LP
INC $2D
DEX
BNE L0412
* SET RESET VECTOR
LDA LCBANK2
LDA LCBANK2
LDA #<L05C9
STA L03F2
STA RESETV
LDA #>L05C9
STA L03F3
STA RESETV+1
EOR #$A5
STA L03F4
* CLEAR HGR
LDA L030F ; REMEMBER: A9
STA $47
BIT TXTCLR
BIT MIXCLR
BIT TXTPAGE1
BIT HIRES
LDX #$20
LDY #$00
LDA #$AA
PHA
LDA $47
CMP #$A9
BNE L045B
PLA
LDA #$2A
PHA
L045B PLA
STY $37
STX $38
]LP STA ($37),Y
EOR #$7F
INY
BNE ]LP
INC $38
DEX
BNE ]LP
JMP L0585
* READ HEADER
L046F SEC
RTS
L0471 LDY #$50
STY $30
L0475 DEY
BNE L047C
DEC $30
BEQ L046F
L047C LDA $C08C,X
BPL L047C
L0481 CMP #$DF
BNE L0475
L0485 LDA $C08C,X
BPL L0485
CMP #$AD
BNE L0481
L048E LDA $C08C,X
BPL L048E
CMP #$DE
BNE L0481
LDY #$00
TYA
L049A STA $31
L049C LDA $C08C,X
BPL L049C
CMP #$F5
BEQ L04C9
SEC
STA $32
L04A8 LDA $C08C,X
BPL L04A8
ROL
AND $32
STA ($35),Y
EOR $31
INY
BNE L049A
INC $36
STA $31
L04BB LDA $C08C,X
BPL L04BB
CMP #$F5
BEQ L04C9
SEC
STA $32
BCS L04A8
L04C9 LDA $C08C,X
BPL L04C9
CMP #$F5
BEQ L04C9
SEC
STA $32
L04D5 LDA $C08C,X
BPL L04D5
ROL
AND $32
CMP $31
BNE L046F
CLC
RTS
* MOVE ARM
L04E3 STX $2B
TAX
CLC
LDA L056E,X ; PHASE TO MOVE TO
LDX $2B
STA $3E
CMP $40
BEQ L0541
LDA #$00
STA $41
L04F6 LDA $40
STA $3F
SEC
SBC $3E
BEQ L0530
L04FF BCS L0507
EOR #$FF
INC $40
BCC L050B
L0507 ADC #$FE
DEC $40
L050B CMP $41
BCC L0511
LDA $41
L0511 CMP #$0C
BCS L0516
TAY
L0516 SEC
JSR L0534
LDA L0553,Y ; TEMPO
JSR L0542
LDA $3F
CLC
JSR L0536
LDA L055F,Y ; TEMPO
JSR L0542
INC $41
BNE L04F6
L0530 JSR L0542
CLC
L0534 LDA $40
L0536 AND #$03
ROL
ORA $2B
TAX
LDA $C080,X
LDX $2B
L0541 RTS
L0542 LDX #$11
L0544 DEX
BNE L0544
INC $45
BNE L054D
INC $46
L054D SEC
SBC #$01
BNE L0542
RTS
* TEMPO
L0553 HEX 01302824201E1D1C1C1C1C1C
L055F HEX 702C26221F1E1D1C1C1C1C1C1C1C1C
* PHASE WHERE TO GET DATA FROM
L056E HEX 00
HEX 413E3B3835322F2C292623
HEX 201D1A1714110E0B080502
*
*
*
L0585 LDA #$00
STA $35
STA $42 ; PHASE INDEX
STA $40
LDA #$04 ; NBR OF RETRIES (BUG)
STA $30
LDA #$10 ; RAM PTR
STA $44
L0595 INC $42
LDA #$04
STA $30
L059B LDA $42 ; PHASE INDEX
LDX $2B
JSR L04E3 ; MOVE ARM
LDA $44 ; RAM PTR
STA $36
LDX $2B
JSR L0471
BCS L05BE
CLC
LDA #$08
ADC $44
STA $44
CMP #$60 ; LOOP UNTIL $6000
BCC L0595
* END OF BOOT, PLAY...
L05B8 LDA $C088,X
JMP $1000
* EXIT WITH ERR
L05BE DEC $30 ; ALSO USED BY $0471 (BUG)
BNE L059B
LDA $C088,X
JMP L0300
DB $B0
*
* THE RESET ROUTINE
*
L05C9 LDX #$B8
LDY #$00
STY L05D7+1
L05D0 LDA #$08
STA L05D7+2
L05D5 LDA #$FF
L05D7 STA $FFFF,Y
INY
BNE L05D7
INC L05D7+2
DEX
BNE L05D7
JMP PWRUP
*
* DEAD CODE...
*
BCS L0621
CLC
LDA #$08
ADC $44
STA $44
CMP #$B0
BCC L05D0
LDA $C088,X
LDA #$00
STA L03F2
STA RESETV
L05FE LDA $0203
STA L03F3
STA RESETV+1
EOR #$A5
STA L03F4
LDA #$7C
STA $0200
LDY #$CB
TYA
EOR L0682
TAY
CLC
ADC #$07
STA L0700,Y
JMP ($00FE)
L0621 DEC $30
BNE L05D5+1
LDA $C088,X
JMP L0300
LDY #$00
LDA #$A0
LDX TXTSET
LDX TXTPAGE1
L0635 STA L0400,Y
STA L04FF+1,Y
STA L05FE+2,Y
STA L0700,Y
INY
BNE L0635
LDX #$05
L0646 LDA L0350+1,X
STA L05B8,X
DEX
BPL L0646
LDA #$64
STA L03F2
STA RESETV
LDA #$06
STA L03F3
STA RESETV+1
EOR #$A5
STA L03F4
L0664 LDA #$00
STA $37
LDA #$08
STA $38
LDA #$00
LDX #$B0
L0670 STA ($37),Y
INY
BNE L0670
INC $38
DEX
BNE L0670
BEQ L0664
ASC "REBOOT"
L0682 DB $80
HEX 00FFFF0000FFFF0000FFFF0000FFFF00
HEX 00FFFF0000FFFF0000FFFF0000FFFF00
HEX 00FFFF0000FFFF0000FFFF0000FFFF00
HEX 00FFFF0000FFFF0000FFFF0000FFFF00
HEX 00FFFF0000FFFF0000FFFF0000FFFF00
HEX 00FFFF0000FFFF0000FFFF0000FFFF00
HEX 00FFFF0000FFFF0000FFFF0000FFFF00
HEX 00FFFF0000FFFF0000FFFF0000
L0700 DS $100
|
|
|
Revenir en haut de page |
|
![](templates/subSilver/images/spacer.gif) |
toinet
Inscrit le: 15 Juin 2007 Messages: 326 Localisation: Paris, France
|
Post� le: Mar 04 D�c 2007, 11:54 Sujet du message: |
|
|
And for curious people, the complete source code of the game...
Code: |
*
* Suicide
* (c) 1981, Picadilly Software, Inc.
*
* (k) 2007, LoGo
*
mx %11
org $1000
lst off
*
* EQUATES
*
KBD EQU $C000
KBDSTROBE EQU $C010
SPKR EQU $C030
TXTCLR EQU $C050
MIXCLR EQU $C052
TXTPAGE1 EQU $C054
TXTPAGE2 EQU $C055
HIRES EQU $C057
PRNTAX EQU $F941
PREAD EQU $FB1E
WAIT EQU $FCA8
PRBYTE EQU $FDDA
PRHEX EQU $FDE3
COUT EQU $FDED
IORTS EQU $FF58
*
*
*
L1000 LDA #$00
JSR WAIT
JSR WAIT
JSR WAIT
JSR WAIT
JSR WAIT
JSR WAIT
JSR WAIT
JSR WAIT
JSR WAIT
JSR WAIT
JSR WAIT
JMP L1FAB
ds 3973
lst on
L1FAB LDX #$00
lst off
L1FAD LDA L4000,X
STA $6000,X
LDA L4100,X
STA $6100,X
LDA L4200,X
STA $0200,X
LDA L4400,X
STA $6800,X
LDA L4500,X
STA $6900,X
LDA L4600,X
STA $6A00,X
LDA L5700,X
STA $6B00,X
LDA L5800,X
STA $6200,X
LDA L5900,X
STA $6300,X
LDA #$00
STA L4200,X
INX
BNE L1FAD
LDA #$00
STA $36
LDA #$02
STA $37
LDA #$00
STA $0333
STA $0334
JMP L4EF4
HEX 0000
*
*
*
PUT SUICIDE.PIC
PUT SUICIDE.CODE
|
|
|
Revenir en haut de page |
|
![](templates/subSilver/images/spacer.gif) |
toinet
Inscrit le: 15 Juin 2007 Messages: 326 Localisation: Paris, France
|
Post� le: Mar 04 D�c 2007, 11:55 Sujet du message: |
|
|
The logo picture
Code: |
*
* Suicide
* (c) 1981, Picadilly Software, Inc.
*
* (k) 2007, LoGo
*
*
* THE INTRO PICTURE
*
L2000 HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000060781800000000
HEX 00000000000000000000000000000000
HEX 000000000000005000000A0000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 000000000000000000004C0100000000
HEX 00000000000000000000000000000000
HEX 00000000000000502A55020000000000
HEX 00004007707900000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000040070F00000000
HEX 00000000000000000000000000000000
HEX 0000000000000050000040077F017F01
HEX 7F077F677379001E0000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000F60077C0018007C
HEX 0070037C007C0030001F003C0007007E
HEX 03000000000000000000000000180000
HEX 00400118186000000000000000000018
HEX 0C000000004001000000000000000000
HEX 00000000000020510000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 0000000000000000007E037C0018007C
HEX 007C0100007C0030007E003C18004007
HEX 00000000000000000000000000000040
HEX 00000000000000000000000000000000
HEX 00000000000000000040000000000000
HEX 000000000000000000000A7C070F6003
HEX 783C1E7C1F7F077C0700000000000000
HEX 00000000000000000000000000000000
HEX 0000000000000000417F00007F00007F
HEX 03007C07007F037C7F00007F7F077001
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00204E13000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000011111111110401110400000611
HEX 11060000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00607F1F000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 80808080808080808080800000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000060011C00000000
HEX 00000000000000000000000000000000
HEX 00000000008080D080808A0000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 80808080808080808080800000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 000000000000000000004C0100000000
HEX 00000000000000000000000000000000
HEX 00000000000080D08080C0077F017F01
HEX 7F077F6773793C1E0000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000030600000000
HEX 00000000000000000000000000000000
HEX 00000000000080D08080800000000000
HEX 0000000000007C070000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000F40077C0018007C
HEX 00700378007C0030003E003C0006007F
HEX 0300000000000000000000000078077C
HEX 1E60033810780770037C1E7003000018
HEX 0C78036F3B400170037C1E0000000000
HEX 000000000000A0818080800000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000170037C0018007C
HEX 007C0100007C0030007E003C10000006
HEX 0000000000000000000000000000006C
HEX 00000000000000000000000000000000
HEX 0000000000000000006C000000000000
HEX 000000000000808080808A0F1E0F6003
HEX 783C1E0F1E0F1E0F1E00000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000080808080800000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00004C01000000000000000000000000
HEX 00000000000000000000000000000000
HEX 8080800111110A110401110400000411
HEX 11040000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 0060331E000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000040030E00000000
HEX 00000000000000000000000000000000
HEX 000000000000005000000A0000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 000000000000000000004C0100000000
HEX 00000000000000000000000000000000
HEX 00000000000000500000406743674367
HEX 4367436773793C1E0000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000542A55020000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000F00077C0018007C
HEX 00780170007C0030003E003C0004007F
HEX 01000000000000000000000000380E30
HEX 04400170036000380630043806000078
HEX 0F0C0646114001380630040000000000
HEX 00000000000020010000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000340077C0018007C
HEX 00780140007C0030007E003C00000000
HEX 0000000000000000000000000000003C
HEX 00000000000000000000000000000000
HEX 0000000000000000003C000000000000
HEX 000000000000000000000A0F1E7F613F
HEX 783C1E0F1E0F1E0F1E00000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00004C01000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000001110F040F04011F040000041E
HEX 0E040000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 0060331E000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 80808080808080808080800000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 000000000000000000407F0F00000000
HEX 00000000000000000000000000000000
HEX 00000000008080D080808A0000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 80808080808080808080800000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 000000000000000000004C0100000000
HEX 00000000000000000000000000000000
HEX 00000000000080D08080C06743674367
HEX 4367436773793C1E0000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000080D5AAD58A0000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000F00067C0018007C
HEX 00780160007C0030007E003C0000407F
HEX 01000000000000000000000000181C70
HEX 060000400F60001C0C70061C0C000018
HEX 0C6007461140011C0C70060000000000
HEX 000000000000A0818080800000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000740077C0018007C
HEX 00780140007C0030003E003C00047001
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 000000000000A08180808A0F1E0F6003
HEX 783C1E0F1E0F007F1F00000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000080808080800000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00007C01000000000000000000000000
HEX 00000000000000000000000000000000
HEX 80808001110104050419110400000410
HEX 11040000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 0060331E000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 000000000000000000007F0700000000
HEX 00000000000000000000000000000000
HEX 000000000000005000000A0000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 000000000000000000004F0700000000
HEX 00000000000000000000000000000000
HEX 00000000000000500000406703600360
HEX 4367436773793C1E0000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 000000000000205100000A0000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000003E00047C0018007C
HEX 007C0140007C0030007E003C1000407F
HEX 00000000000000000000000000181C60
HEX 020000081C60007C0F60027C0F000018
HEX 0C38062C0B40017C0F60020000000000
HEX 00000000000000552A55020000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000F40077C0018007C
HEX 00700360007C0030003E003C00067803
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 000000000000200100000A0F1E0F6003
HEX 783C1E0F1E0F000F0000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00007E03000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000011110104090411110400000408
HEX 11040000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 0060331E000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 80808080808080808080800000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 000000000000000000007E0300000000
HEX 00000000000000000000000000000000
HEX 00000000008080D080808A0000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 80808080808080808080800000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 000000000000000000404F0F00000000
HEX 00000000000000000000000000000000
HEX 00000000000080D08080C06703600360
HEX 4367436773793C1E0000000000000000
HEX 00000000000000000000000000000000
HEX 0000000000000000781F047F037E007F
HEX 03007C41007F037C7F00007F7F070078
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 000000000000A0D180808A0000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000007E03007C0018007C
HEX 007C0100007C0030007E003C1800403F
HEX 00000000000000000000000000181C60
HEX 034001181860001C0060031C00000018
HEX 0C0C062C0B40011C0060030000000000
HEX 00000000000080D5AAD58A00007C6103
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000001F400778000C007C
HEX 00700370007C0030001F003C00077C07
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 000000000000A08180808A0F1E0F6073
HEX 793C1E0F1E0F000F1E00000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00007F07000000000000000000000000
HEX 00000000000000000000000000000000
HEX 8080800E0E0104110E0E110400000E07
HEX 0E0E0000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00607F1F000000000000000000000000
HEX 0000000000000000000000000000A0D5
HEX AAD58200000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 000000000000000000004C0100000000
HEX 00000000000000000000000000000000
HEX 00000000000000500000420700000000
HEX 00004067737900000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 000000000000000000604F1F00000000
HEX 00000000000000000000000000000000
HEX 00000000000000500000406743674367
HEX 436743677379701F0000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000007E3F067E013C007E
HEX 01007F67007E01787F07007E7F07007C
HEX 010000000000000000000000001C0000
HEX 0000007017400000000000000000003C
HEX 1E000000006001000000000000000000
HEX 000000000000205100000A0000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 0000000000000000780F007C0018007C
HEX 007C0100007C0030007E007C1F00401F
HEX 00000000000000000000000000380E40
HEX 016003381C600C380C4001380C000018
HEX 0C0C0718064001380C40010000000000
HEX 000000000000000000000A00004F6703
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000003F700378030F007C
HEX 00600738007C0030701F003C40077C07
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000020552A550A0F1E0F6073
HEX 793C1E0F1E0F000F1E00000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 0060011C000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00407F0F000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00607F1F000000000000000000000000
HEX 00000000000000000000000000002055
HEX 2A550200000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 80808080808080808080800000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 000000000000000000004C0100000000
HEX 00000000000000000000000000000000
HEX 00000000008080D0AAD5C20700000000
HEX 00004067737900000000000000000000
HEX 00000000000000000000000000000000
HEX 80808080808080808080800000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 000000000000000000604F1F00000000
HEX 00000000000000000000000000000000
HEX 00000000000080D08080C06743674367
HEX 436743677379001E0000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000003E70077C0018007C
HEX 0060076F007C0030701F003C4007007E
HEX 03000000000000000000000000180000
HEX 000000381C4000000000000000000018
HEX 0C000000004001000000000000000000
HEX 000000000000A0D18080800000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 0000000000000000407F007C0018007C
HEX 007C0100007C0030007E007C1F00400F
HEX 00000000000000000000000000680740
HEX 014001680F400770074001700700003C
HEX 1E780D18066003700740010000000000
HEX 000000000000808080808A00004F6703
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 0000000000000000737F03607F03007E
HEX 01000F1E007E01787F07007E7F077803
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000080D5AAD5827C070F003F
HEX 787F077C1F0F007C0700000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 0070073F000000000000000000000000
HEX 00000000000000000000000000000000
HEX 8080800E0E0F110F0E1E111F0000040E
HEX 0E040000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00407F0F000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00607C19000000000000000000000000
HEX 000000000000000000000000000080D0
HEX 80808A00000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
|
|
|
Revenir en haut de page |
|
![](templates/subSilver/images/spacer.gif) |
toinet
Inscrit le: 15 Juin 2007 Messages: 326 Localisation: Paris, France
|
Post� le: Mar 04 D�c 2007, 11:56 Sujet du message: |
|
|
Last but not least, the game code... No comments included!
Code: |
*
* Suicide
* (c) 1981, Picadilly Software, Inc.
*
* (k) 2007, LoGo
*
*
* OTHER EQUATES
*
L6000 = $6000
L6100 = $6100
*
* THE CODE
*
L4000 HEX 2024282C3034383C2024282C3034383C
HEX 2125292D3135393D2125292D3135393D
HEX 22262A2E32363A3E22262A2E32363A3E
HEX 23272B2F33373B3F23272B2F33373B3F
HEX 2024282C3034383C2024282C3034383C
HEX 2125292D3135393D2125292D3135393D
HEX 22262A2E32363A3E22262A2E32363A3E
HEX 23272B2F33373B3F23272B2F33373B3F
HEX 2024282C3034383C2024282C3034383C
HEX 2125292D3135393D2125292D3135393D
HEX 22262A2E32363A3E22262A2E32363A3E
HEX 23272B2F33373B3F23272B2F33373B3F
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
*
L4100 HEX 00000000000000008080808080808080
HEX 00000000000000008080808080808080
HEX 00000000000000008080808080808080
HEX 00000000000000008080808080808080
HEX 2828282828282828A8A8A8A8A8A8A8A8
HEX 2828282828282828A8A8A8A8A8A8A8A8
HEX 2828282828282828A8A8A8A8A8A8A8A8
HEX 2828282828282828A8A8A8A8A8A8A8A8
HEX 5050505050505050D0D0D0D0D0D0D0D0
HEX 5050505050505050D0D0D0D0D0D0D0D0
HEX 5050505050505050D0D0D0D0D0D0D0D0
HEX 5050505050505050D0D0D0D0D0D0D0D0
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
* THE TEXT DRAWING ROUTINE!
L4200 PHA
JSR IORTS
STX $4E
TSX
LDA $0100,X
STA $37
LDA #<L423C
STA $36
LDX $4E
STA HIRES
STA MIXCLR
STA TXTPAGE2
LDA $E6
CMP #$40
BEQ L4226
LDA #$20
STA TXTPAGE1
L4226 STA $03CE
STA TXTCLR
LDA #$00
STA $03CD
LDA #$7F
STA $03CF
LDA #$68
STA $03CC
PLA
L423C PHA
STY $4E
CMP #$8D ; CTRL-M OR RETURN
BEQ L4270
CMP #$8C ; CTRL-L
BNE L4272
LDY #$00
STY $2A
LDA $03CE
STA $2B
L4250 LDA $03CD
CMP #$FF
BEQ L4258
TYA
L4258 STA ($2A),Y
INY
BNE L4258
INC $2B
LDA $2B
SEC
SBC $03CE
CMP #$20
BNE L4250
STY $24
STY $25
CLC
BCC L42DC
L4270 BEQ L42DE
L4272 LDA $25
LSR
AND #$03
ORA $03CE
STA $2B
LDA $25
ROR
PHP
ASL
AND #$18
STA $2A
ASL
ASL
ORA $2A
ASL
PLP
ROR
CLC
ADC $24
STA $2A
PLA
AND $03CF
PHA
LDA $03CC
LSR
LSR
LSR
STA $27
PLA
PHA
ROL
ROL $27
ROL
ROL $27
ROL
ROL $27
AND #$F8
STA $26
LDY #$00
L42AF LDA ($26),Y
STY $4F
LDY #$00
PHA
LDA $03CD
BEQ L42C1
CMP #$FF
BEQ L42C1
LDA ($2A),Y
L42C1 STA ($2A),Y
PLA
EOR ($2A),Y
STA ($2A),Y
LDY $4F
LDA $2B
CLC
ADC #$04
STA $2B
INY
CPY #$08
BNE L42AF
INC $24
LDA $24
CMP $21
L42DC BCC L42EE
L42DE LDA $20
STA $24
INC $25
LDA $25
CMP $23
BCC L42EE
LDA $22
STA $25
L42EE LDY $4E
PLA
RTS
HEX FFFFFFFF0000FFFF0000FFFF0000
*
L4300 HEX 0000000000000000000000120420492A
HEX 221C00
HEX 00000000000000000000000000021004
HEX 307FFF
HEX 00000000000000000000000000000010
HEX 3A7FFF
HEX FF0000FFFF0000FFFF0000FFFF0000FF
HEX FF0000FFFF0000FFFF0000FFFF0000FF
HEX FF0000FFFF0000FFFF0000FFFF0000FF
HEX FF0000FFFF0000FFFF0000FFFF0000FF
HEX FF0000FFFF0000FFFF0000FFFF0000FF
HEX FF0000FFFF0000FFFF0000FFFF0000FF
HEX FF0000FFFF0000FFFF0000FFFF0000FF
HEX FF0000FFFF0000FFFF0000FFFF0000FF
HEX FF0000FFFF0000FFFF0000FFFF0000FF
HEX FF0000FFFF0000FFFF0000FFFF0000FF
HEX FF0000FFFF0000FFFF0000FFFF0000FF
HEX FF0000FFFF0000FFFF0000FFFF0000FF
HEX FF0000FFFF0000
*
L4400 HEX 0000000800000000000F3C0000003C0F
HEX 007E1E1E1E1E1E7E000F3C3C3C3C3C0F
HEX 007E1E1E7E1E1E7E003F3C0003003C3F
HEX 0078787878007878000F0F0F0F000F0F
HEX 1008047E0408100000781E1E78001E78
HEX 080808492A1C0800081C2A4908080800
HEX 08492A1C492A1C084060707870604000
HEX 007E78787878787E0000007C2A282800
HEX 367F7F7F3E1C0800081C3E7F3E1C0800
HEX 081C3E7F7F2A0800081C1C2A7F7F2A08
HEX 3E080822362A22000022140814220000
HEX 040E0404000000000008003E00080000
HEX 1824081408120C001038040438100000
HEX 003C3C3C3C3C3C0F083E1C081C1C3E7F
HEX 002A3E1C1C1C3E7F00103C3E180C1E3F
HEX 0008183A7B3E1C7F0000081C1C081C3E
*
L4500 HEX 00000000000000000018181818001818
HEX 006C6C6C000000000024247E247E2424
HEX 00187C063C603E18003E66666666663E
HEX 006060606066663C0060301800000000
HEX 00780C0606060C78001E30606060301E
HEX 0018187E183C6600000018187E181800
HEX 000000000018100C000000003E000000
HEX 000000000018180000006030180C0600
HEX 003C66767E6E663C00181C181818183C
HEX 003C6630180C667E003C66603C60663C
HEX 00383C36367E3030007E66063E60663C
HEX 007C06063E66663C007E666030181818
HEX 003C66663C66663C003C66667C60301E
HEX 00001818001818000000181800181008
HEX 0030180C060C18300000003E003E0000
HEX 00060C1830180C06003C663018180018
*
L4600 HEX 003C424A5A3A027C003C6666667E6666
HEX 003E66663E66663E003C66060606663C
HEX 000F3C000F3C3C0F007E66063E06667E
HEX 007E66063E060606003C66060676663C
HEX 006666667E666666003C18181818183C
HEX 001E1E1E1E1E1E78006666361E366666
HEX 000606060606667E00667E7E7E666666
HEX 00666E6E76766666003C66666666663C
HEX 003E66663E060606003C6666667E366C
HEX 003E66663E1E3666003C66063C60663C
HEX 007E181818181818006666666666663C
HEX 0066666666663C18006666667E7E7E3C
HEX 003F0F0F0F0F0F3F0066663C18181818
HEX 00781E1E1E1E1E783C04040404043C00
HEX 00020408102040003C20202020203C00
HEX 102844000000000000000000000000FF
L4700 HEX 081020000000000000001C203C225C00
HEX 02023A4642463A0000003C0202023C00
HEX 40405C6242625C0000003C427E023C00
HEX 3048083E0808080000005C62625C403C
HEX 02023A46424242001000181010103800
HEX 200030202020221C020222120A162200
HEX 181010101010380000002E5454545400
HEX 00003E44444444000000384444443800
HEX 00003A46463A020200005C62625C4040
HEX 00003A460202020000007C023C403E00
HEX 08083E08084830000000424242625C00
HEX 00004242422418000000444454546C00
HEX 000042241824420000004242625C403C
HEX 00007E2018047E003804040604043800
HEX 08080808080808080E10103010100E00
HEX 2814000000000000FFFFFFFFFFFF0000
*
L4800 CLC
LDA #$11
ADC $0300
STA $0302
LDY #$00
STY $0304
LDX $0300
L4811 LDA L6000,X
STA $01
LDA L6100,X
STA $00
LDY $0304
LDA L4837,Y
STY $0304
LDY $0301
STA ($00),Y
LDY $0304
INY
STY $0304
INX
CPX $0302
BNE L4811
RTS
L4837 HEX 0063141C3E7F6B6B7F5D633E1414367722
L4848 CLC
LDA #$11
ADC $0300
STA $0302
LDY #$00
STY $0304
LDX $0300
L4859 LDA L6000,X
STA $01
LDA L6100,X
STA $00
LDY $0304
LDA L487F,Y
STY $0304
LDY $0301
STA ($00),Y
LDY $0304
INY
STY $0304
INX
CPX $0302
BNE L4859
RTS
L487F HEX 63141C2A6B7F7F635D7F3E141436772200
L4890 LDY #$00
L4892 STY $030F
LDA L56A3,Y
BEQ L48B3
STA $0300
LDA L56A4,Y
STA $0301
JSR L4BFC
LDY $030F
LDX L56A3,Y
DEX
BEQ L48BA
TXA
STA L56A3,Y
L48B3 INY
INY
L48B5 CPY #$0C
BNE L4892
RTS
L48BA LDA #$00
STA L56A3,Y
STY $030F
LDY #$00
L48C4 LDA L5707,Y
BEQ L48CF
INY
INY
L48CB CPY #$0C
BNE L48C4
L48CF LDA $0300
STA L5707,Y
LDA $0301
STA L5708,Y
LDY $030F
JMP L48B3
L48E1 LDY #$00
L48E3 STY $030F
LDA L5707,Y
BEQ L490A
STA $0300
LDA L5708,Y
STA $0301
JSR L4C18
LDY $030F
LDX L5707,Y
INX
CPX #$80
BEQ L4911
CPX #$A0
BEQ L491B
L4906 TXA
STA L5707,Y
L490A INY
INY
CPY #$20
BNE L48E3
RTS
L4911 JSR L5100
CMP #$25
BCC L491E
JMP L4906
L491B JMP L4948
L491E LDY $030F
LDA #$00
STA L5707,Y
STY $030F
LDY #$00
L492B LDA L56A3,Y
BEQ L4936
INY
INY
CPY #$10
BNE L492B
L4936 LDA $0300
STA L56A3,Y
LDA $0301
STA L56A4,Y
LDY $030F
JMP L490A
L4948 CLC
LDA #$12
ADC $0300
TAX
LDA L6000,X
STA $07
LDA L6100,X
STA $06
LDY $0301
LDA ($06),Y
BNE L4963
JMP L4966
L4963 JMP L4A45
L4966 LDX #$08
L4968 STX $0325
JSR L4800
INC $0300
LDX $0325
LDA #$40
JSR WAIT
DEX
BNE L4968
LDA #>L4300
STA L49B4+2
JSR L49CD
JSR L49E8
JSR L49D6
JSR L49E8
JSR L49DF
JSR L5438
JSR L49FF
L4996 CLC
LDA #$12
ADC $0300
STA $0302
LDY #$00
STY $0304
LDX $0300
L49A7 LDA L6000,X
STA $01
LDA L6100,X
STA $00
LDY $0304
L49B4 LDA L4300,Y
STY $0304
LDY $0301
STA ($00),Y
LDY $0304
INY
STY $0304
INX
CPX $0302
BNE L49A7
RTS
L49CD LDA #$00
STA L49B4+1
JSR L4996
RTS
L49D6 LDA #$13
STA L49B4+1
JSR L4996
RTS
L49DF LDA #$26
STA L49B4+1
JSR L4996
RTS
L49E8 LDX #$10
L49EA LDY #$04
L49EC LDA SPKR
TXA
JSR WAIT
DEY
BNE L49EC
DEX
BNE L49EA
LDA #$80
JSR WAIT
RTS
L49FF JSR L4B3B
LDA $0332
CMP #$02
BEQ L4A14
LDA #$00
LDY $030F
STA L5707,Y
JMP L48E3
L4A14 LDA $03C0
CMP #$01
BEQ L4A1E
JMP L4C98
L4A1E JSR L4A24
JMP L4D94
L4A24 LDA #$0B
STA $25
LDA #$0F
STA $24
LDY #$00
L4A2E LDA L4A3A,Y
JSR COUT
INY
CPY #$0B
BNE L4A2E
RTS
L4A3A ASC "GAME OVER!!"
L4A45 JSR L4B89
LDX #$10
L4A4A LDA #$10
JSR WAIT
LDA SPKR
DEX
BNE L4A4A
JMP L491E
L4A58 LDA #$16
STA $25
LDA #$02
STA $24
DEC $03C0
LDA $03C0
JSR PRHEX
RTS
L4A6A LDX #$B9
LDA L6100,X
STA $06
LDA L6000,X
STA $07
INX
LDA L6100,X
STA $08
LDA L6000,X
STA $09
LDY #$00
L4A83 LDA #$2A
STA ($06),Y
STA ($08),Y
INY
CPY #$18
BNE L4A83
LDY #$00
L4A90 LDA #$55
STA ($06),Y
STA ($08),Y
INY
INY
CPY #$18
BNE L4A90
RTS
L4A9D LDA SPKR
L4AA0 DEY
BNE L4AA7
DEC $01
BEQ L4AAF
L4AA7 DEX
BNE L4AA0
LDX $00
JMP L4A9D
L4AAF RTS
L4AB0 LDY #$00
L4AB2 STY $07
LDA L4ACE,Y
STA $00
LDA L4ACE+1,Y
STA $01
JSR L4A9D
LDA #$50
JSR WAIT
LDY $07
INY
INY
CPY #$16
BNE L4AB2
L4ACE DW $3282
DW $3293
DW $82C4
DW $82C4
DW $C8C4
DW $1EC4
DW $50C4
DW $50C4
DW $50A1
DW $32C4
DW $6490
DW $A5AB
DW $2AAE
DW $AE66
DW $AD66
DW $B0A5
DW $662A
DW $66B0
DW $A5AF
L4AF4 LDA #$00
STA $36
LDA #$02
STA $37
LDA #$8C
JSR COUT
LDY #$00
L4B03 LDA L4B0F,Y
JSR COUT
INY
CPY #$2C
BNE L4B03
RTS
L4B0F ASC "TIME:"8D
ASC "00000"8D8D
ASC "CC'S:"8D
ASC "00000"8D8D
ASC "SCORE"8D
ASC "00000"8D8D
ASC "LEVEL"
L4B3B LDA #$04
STA $25
SED
SEC
LDA $0332
SBC #$01
STA $0332
CLD
LDA #$03
STA $24
LDA $0332
JSR PRBYTE
RTS
L4B55 SED
SEC
LDA $0330
SBC #$01
STA $0330
BNE L4B78
LDA $0331
BEQ L4B78
LDA $0330
SEC
SBC #$01
STA $0330
LDA $0331
SEC
SBC #$01
STA $0331
L4B78 CLD
L4B79 LDA #$01
STA $24
STA $25
LDX $0330
LDA $0331
JSR PRNTAX
RTS
L4B89 SED
CLC
LDA $0333
ADC #$01
STA $0333
BCC L4B9F
L4B95 SED
CLC
LDA $0334
ADC #$01
STA $0334
L4B9F CLD
L4BA0 LDA #$07
STA $25
LDA #$00
STA $24
LDX $0333
LDA $0334
JSR PRNTAX
RTS
L4BB2 LDX #$00
L4BB4 LDA L6000,X
STA $07
LDA L6100,X
STA $06
LDY #$05
LDA #$70
STA ($06),Y
INX
CPX #$B9
BNE L4BB4
RTS
L4BCA LDX #$1F
L4BCC STX $0325
JSR L5635
JSR L4890
JSR L562A
JSR L48E1
JSR L4890
JSR L54C1
JSR L5635
JSR L48E1
JSR L4890
JSR L562A
JSR L5635
LDX $0325
DEX
BNE L4BCC
JSR L4E41
JMP L4BCA
L4BFC LDX #$01
L4BFE LDA SPKR
NOP
NOP
NOP
NOP
NOP
NOP
NOP
LDA SPKR
LDY $0300
L4C0E DEY
BNE L4C0E
DEX
BNE L4BFE
JSR L4848
RTS
L4C18 LDX #$01
L4C1A LDA SPKR
NOP
NOP
NOP
NOP
NOP
NOP
NOP
LDA SPKR
LDY $0300
L4C2A DEY
BNE L4C2A
DEX
BNE L4C1A
JSR L4800
RTS
L4C34 LDY $0322
LDA #$02
STA L56A3,Y
LDA L5640,Y
STA L56A4,Y
RTS
L4C43 LDY #$00
STY $03A6
INY
STY L563E
DEY
L4C4D STY $0322
JSR L4C34
LDX #$60
L4C55 STX $0323
JSR L5635
JSR L4890
JSR L4C7F
JSR L48E1
JSR L5635
LDX $0323
DEX
BNE L4C55
JSR L4B55
LDY $0322
INY
INY
CPY #$20
BNE L4C4D
JSR L55BA
JMP L4BCA
L4C7F CLC
LDA $0322
CMP #$18
BCC L4C8A
JMP L55D0
L4C8A RTS
L4C8B LDA #$04
STA $03C0
LDA #$00
STA $0334
STA $0333
L4C98 LDA #$50
STA $0330
L4C9D LDA #$00
STA $0331
JSR L4AF4
JSR L5461
JSR L4A6A
L4CAB LDA #$07
STA $0332
JSR L4B79
JSR L4BA0
JSR L4A58
LDY #$00
LDA #$00
L4CBD STA L56A3,Y
STA L5707,Y
STA L563F,Y
INY
CPY #$60
BNE L4CBD
JSR L547F
JSR L4BB2
JSR L4B3B
JSR L55BA
LDA #$00
JSR WAIT
JSR WAIT
JSR WAIT
JSR L4AB0
JSR L4FD1
JMP L4C43
L4CEB LDX #$BF
L4CED STX $0300
LDA L6000,X
STA $07
LDA L6100,X
STA $06
DEX
LDA L6000,X
STA $05
LDA L6100,X
STA $04
LDY #$00
L4D07 LDA ($04),Y
STA ($06),Y
INY
CPY #$28
BNE L4D07
CPX $0301
BNE L4CED
RTS
L4D16 LDX #$10
L4D18 STX $0301
JSR L4CEB
LDX $0301
INX
INX
CPX #$32
BNE L4D18
RTS
L4D28 LDA #$02
STA $25
LDA #$0B
STA $24
LDY #$00
L4D32 LDA L4D3E,Y
JSR COUT
INY
CPY #$10
BNE L4D32
RTS
L4D3E HEX 89C4CA9A8ED8DA818ED8828384858687
L4D4E LDA #$10
STA $25
LDA #$0B
STA $24
LDY #$00
L4D58 LDA L4D64,Y
JSR COUT
INY
CPY #$30
BNE L4D58
RTS
L4D64 ASC "BY: STEVE HAWLEY"8D
ASC " PICCA%ILLY SOFTWARE INC"
L4D94 LDX #$05
L4D96 LDY #$20
L4D98 BIT SPKR
LDA #$10
JSR WAIT
DEY
BNE L4D98
LDA #$B0
JSR WAIT
DEX
BNE L4D96
LDX #$08
L4DAD LDA #$00
JSR WAIT
DEX
BNE L4DAD
LDA #$8C
JSR COUT
JSR L4D28
LDA #$00
JSR WAIT
JSR WAIT
JSR WAIT
JSR L4D16
JSR L4D4E
JSR L4F3F
LDA KBDSTROBE
L4DD4 LDX #$00
STX $0300
LDX #$26
STX $0301
L4DDE JSR L4800
JSR L4E04
LDA #$60
JSR WAIT
LDX $0300
INX
STX $0300
CPX #$C0
BNE L4DDE
LDX #$FF
L4DF6 JSR L4E04
LDA #$60
JSR WAIT
DEX
BNE L4DF6
JMP L4DD4
L4E04 LDA KBD
BMI L4E0A
RTS
L4E0A CMP #$9B
BEQ L4E14
LDA KBDSTROBE
JMP L4EDD
L4E14 JMP L52B2
L4E17 LDA #$14
STA $25
LDA #$09
STA $24
LDY #$00
L4E21 LDA L4E2D,Y
JSR COUT
INY
CPY #$14
BNE L4E21
RTS
L4E2D ASC "PRESS A KEY TO START"
L4E41 JSR L4B55
LDA $0330
BNE L4E89
LDA $0331
BNE L4E89
JSR L5178
L4E51 LDX #$19
L4E53 STX $03C2
JSR L4B89
LDY #$10
L4E5B BIT SPKR
LDA #$10
JSR WAIT
DEY
BNE L4E5B
JSR L4B89
LDA #$70
JSR WAIT
LDY #$10
L4E70 BIT SPKR
LDA #$0F
JSR WAIT
DEY
BNE L4E70
LDA #$70
JSR WAIT
LDX $03C2
DEX
BNE L4E53
JMP L4EEB
L4E89 RTS
L4E8A DB $00
L4E8B LDA #$07
STA $0320
STA L4E8A
STA $0321
LDY #$04
STY $03C3
L4E9B LDY $03C3
LDA L4EFF,Y
STA L4C98+1
LDA L4F05,Y
STA L4C9D+1
LDA L4F0B,Y
STA L4CAB+1
LDA L4F11,Y
STA L48B5+1
STA L48CB+1
LDA L4F17,Y
STA $03D0
STA $03D0
DEY
BPL L4EC7
LDY #$04
L4EC7 STY $03C3
CPY #$03
BNE L4ED6
LDA L4E8A
BNE L4ED7
JSR L515C
L4ED6 RTS
L4ED7 LDA #$00
STA L4E8A
RTS
L4EDD LDA #$00
STA $0333
STA $0334
JSR L4E8B
JMP L4C8B
L4EEB JSR L4E9B
INC $03C0
JMP L4C98
L4EF4 LDA #$00
STA $03A0
STA $03A1
JMP L52B2
L4EFF HEX 605550454035
L4F05 HEX 000000000000
L4F0B HEX 171513110907
L4F11 HEX 201C1814100C
L4F17 HEX 011018202830
L4F1D LDA #$0A
STA $25
LDA #$0B
STA $24
LDY #$00
L4F27 LDA L4F33,Y
JSR COUT
INY
CPY #$0C
BNE L4F27
RTS
L4F33 ASC "HI-SCORE IS:"
L4F3F JSR L4E17
JSR L4F1D
JSR L4F4B
JSR L4F6D
L4F4B CLC
LDA $0334
CMP $03A1
BCS L4F55
RTS
L4F55 BNE L4F60
CLC
LDA $0333
CMP $03A0
BCC L4F6C
L4F60 LDA $0334
STA $03A1
LDA $0333
STA $03A0
L4F6C RTS
L4F6D LDA #$0A
STA $25
LDA #$18
STA $24
LDX $03A0
LDA $03A1
JSR PRNTAX
LDA #$00
JMP PRHEX
L4F83 STY $0320
STX $0321
LDA #$7F
STA $2350,Y
STA $2750,Y
STA $2B50,Y
DEY
LDA L4FB1,X
STA $2350,Y
STA $2750,Y
STA $2B50,Y
INY
INY
LDA L4FB9,X
STA $2350,Y
STA $2750,Y
STA $2B50,Y
DEY
RTS
L4FB1 HEX 7F7E7C7870604000
L4FB9 HEX 000103070F1F3F7F
L4FC1 LDA KBD
BPL L4FEA
CMP #$95
BEQ L4FD1
CMP #$88
BEQ L4FF0
JMP L4FEA
L4FD1 LDY $0320
LDX $0321
INX
CPX #$08
BNE L4FE7
LDX #$00
INY
CPY #$18
BNE L4FE7
LDY #$17
LDX #$07
L4FE7 JSR L4F83
L4FEA LDA $03D0
JMP WAIT
L4FF0 LDY $0320
LDX $0321
DEX
CPX #$FF
BNE L5006
LDX #$07
DEY
CPY #$06
BNE L5006
LDY #$07
LDX #$00
L5006 JSR L4F83
LDA $03D0
JMP WAIT
L500F CLC
LDA #$0F
ADC $0300
STA $0302
CLC
LDA #$04
ADC $0301
STA $0303
LDY #$00
STY $0304
LDX $0300
L5029 LDA L6000,X
STA $03
LDA L6100,X
STA $02
LDA $0301
STA $0305
L5039 LDY $0304
LDA ($04),Y
LDY $0305
STA ($02),Y
INC $0304
INY
STY $0305
CPY $0303
BNE L5039
INX
CPX $0302
BNE L5029
RTS
L5056 CLC
LDA #$0F
ADC $0300
STA $0302
CLC
LDA #$04
ADC $0301
STA $0303
LDX $0300
L506B LDA L6000,X
STA $03
LDA L6100,X
STA $02
LDY $0301
L5078 LDA #$00
STA ($02),Y
INY
CPY $0303
BNE L5078
INX
CPX $0302
BNE L506B
RTS
L5089 HEX 004080C0
L508D LDY #$00
STY $03D1
L5092 LDY $03D1
CPY #$04
BEQ L50AD
LDA L5089,Y
STA $04
LDA #$62
STA $05
JSR L500F
LDY $03D1
INY
STY $03D1
RTS
L50AD JSR L5056
LDY #$00
STY $03D1
RTS
L50B6 JSR L5100
LSR
LSR
STA $0300
LDA #$00
STA $03D1
JSR L5100
LSR
LSR
LSR
STA $0301
LDA #$40
STA $03E0
LDA #$0E
STA $03E1
JSR L5138
L50D9 JSR L53BB
JSR L5092
LDX #$02
L50E1 JSR L514F
JSR L5100
AND #$04
BEQ L50E1
LDA #$04
JSR WAIT
DEX
BNE L50E1
LDA #$DA
JSR WAIT
LDA $03D1
BNE L50D9
RTS
L50FE DB $44
L50FF DB $8D
L5100 LDA L50FE
PHA
LDA L50FF
ADC L50FE
STA L50FE
PLA
STA L50FF
RTS
L5112 LDX $03D3
LDA L6000,X
STA $07
LDA L6100,X
STA $06
INX
LDA L6000,X
STA $05
LDA L6100,X
STA $04
LDY $0301
INY
INY
LDA #$1C
STA ($06),Y
LDA #$00
STA ($04),Y
RTS
L5138 LDA #$C0
STA $03D3
L513D JSR L5112
JSR L5381
DEC $03D3
LDX $03D3
CPX $0300
BNE L513D
RTS
L514F LDY #$03
L5151 LDA SPKR
TYA
JSR WAIT
DEY
BNE L5151
RTS
L515C NOP
NOP
LDX #$04
L5160 STX $03D4
LDA #$00
STA $03D1
STA L537F
JSR L50B6
LDX $03D4
DEX
BNE L5160
JSR L53C6
RTS
L5178 LDX #$60
L517A STX $FE
JSR L5635
LDX $FE
DEX
BNE L517A
L5184 JSR L5100
LSR
LSR
LSR
ADC #$07
CLC
CMP #$14
BCS L5184
STA $0301
LDA #$01
STA $0300
L5199 JSR L51A5
JSR L5635
JSR L51A5
JMP L5199
L51A5 INC $0300
JSR L4800
LDX $0300
CPX #$A0
BEQ L51B3
RTS
L51B3 CLC
LDA #$12
ADC $0300
TAX
LDA L6000,X
STA $07
LDA L6100,X
STA $06
LDY $0301
LDA ($06),Y
BNE L51CE
L51CB JMP L4E51
L51CE LDA #$40
STA $03E0
LDA #$0E
STA $03E1
LDX #$00
L51DA STX $03D8
JSR L5381
LDA #$10
JSR WAIT
LDX $03D8
INX
BNE L51DA
JSR L53C6
LDA #$00
JSR WAIT
JSR WAIT
JSR WAIT
JMP L51CB
L51FC LDX #$00
JSR PREAD
TYA
LSR
LSR
LSR
CLC
ADC #$07
CMP $0320
BEQ L5229
BCS L5217
LDA #$00
STA L522C
JMP L521C
L5217 LDA #$01
STA L522C
L521C NOP
NOP
LDA L522C
BEQ L5226
JMP L4FD1
L5226 JMP L4FF0
L5229 JMP L4FEA
L522C DB $00
L522D LDY #$06
L522F LDA #$7F
STA $2350,Y
STA $2750,Y
STA $2B50,Y
INY
INY
CPY #$18
BNE L522F
LDA #$00
STA $0333
STA $0334
LDA #$01
JSR WAIT
LDA KBD
BMI L5253
RTS
L5253 LDA #$20
STA L4BCA+1
JMP L52B2
L525B JMP L51FC
L525E LDA #$8C
JSR COUT
LDY #$00
L5265 LDA L5271,Y
JSR COUT
INY
CPY #$3F
BNE L5265
RTS
L5271 ASC "SELECT: (P)A%%LES (&)OYSTICK (K)EYBOAR%"8D
ASC " OR (A)PPLE III "
L52B2 JSR L525E
LDA #$20
STA L4BCA+1
L52BA LDA KBDSTROBE
L52BD LDA KBD
BPL L52BD
CMP #$CB
BEQ L52D9
CMP #$D0
BEQ L52E6
CMP #$84
BEQ L52F3
CMP #$C1
BEQ L52D9
CMP #$CA
BEQ L52E6
JMP L52BA
L52D9 LDA #<L4FC1
STA L525B+1
LDA #>L4FC1
STA L525B+2
JMP L4D94
L52E6 LDA #<L51FC
STA L525B+1
LDA #>L51FC
STA L525B+2
JMP L4D94
L52F3 LDA #<L522D
STA L525B+1
LDA #>L522D
STA L525B+2
LDA #$01
STA L4BCA+1
JMP L4D94
L5305 CLC
LDA #$0F
ADC $03E0
STA $0302
CLC
LDA #$0B
ADC $03E1
STA $0303
LDY #$00
STY $0304
LDX $03E0
L531F LDA L6000,X
STA $03
LDA L6100,X
STA $02
LDA $03E1
STA $0305
L532F LDY $0304
LDA ($04),Y
LDY $0305
STA ($02),Y
INC $0304
INY
STY $0305
CPY $0303
BNE L532F
INX
CPX $0302
BNE L531F
RTS
L534C CLC
LDA #$0F
ADC $03E0
STA $0302
CLC
LDA #$0B
ADC $03E1
STA $0303
LDX $03E0
L5361 LDA L6000,X
STA $03
LDA L6100,X
STA $02
LDY $03E1
L536E LDA #$00
STA ($02),Y
INY
CPY $0303
BNE L536E
INX
CPX $0302
BNE L5361
RTS
L537F DB $00
DB $00
L5381 LDA #$00
STA $04
LDA #$63
STA $05
LDA L537F
AND #$3F
CLC
CMP #$28
BCC L53A7
JSR L5305
LDX #$20
L5398 LDA SPKR
LDA #$04
JSR WAIT
DEX
BNE L5398
INC L537F
RTS
L53A7 JSR L534C
LDX #$18
L53AC LDA SPKR
LDA #$10
JSR WAIT
DEX
BNE L53AC
INC L537F
RTS
L53BB LDA #$00
STA $04
LDA #$63
STA $05
JMP L5305
L53C6 JSR L5100
LSR
LSR
LSR
LSR
LSR
CLC
CMP #$06
BCS L53DF
CMP #$03
BCS L53E7
LDA #$B3
STA L5435
JMP L53EF
L53DF LDA #$B1
STA L5435
JMP L53EF
L53E7 LDA #$B2
STA L5435
JMP L53EF
L53EF LDA L5435
AND #$0F
TAX
L53F5 STX L5436
JSR L4B95
LDX #$10
L53FD LDY #$20
L53FF LDA SPKR
TXA
JSR WAIT
DEY
BNE L53FF
DEX
BNE L53FD
LDX L5436
DEX
BNE L53F5
LDA #$10
STA $24
LDA #$0A
STA $25
LDA L5435
JSR COUT
LDY #$00
L5422 LDA L542E,Y
JSR COUT
INY
CPY #$07
BNE L5422
RTS
L542E ASC "000 PTS"
L5435 DB $00
L5436 DB $00
DB $00
L5438 LDA $0334
BNE L5442
LDA $0333
BEQ L5460
L5442 SED
SEC
LDA $0333
SBC #$01
STA $0333
BCS L545C
LDA $0334
BEQ L545C
SEC
LDA $0334
SBC #$01
STA $0334
L545C CLD
JSR L4BA0
L5460 RTS
L5461 LDA #$8D
JSR COUT
LDA #$00
JSR PRBYTE
LDA #$00
JSR PRBYTE
LDY $03C3
LDA L547A,Y
JSR PRHEX
RTS
L547A HEX 0403020105
L547F JSR L5100
LSR
LSR
LSR
ADC #$07
CLC
CMP #$18
BCS L547F
STA L5640
LDY #$01
L5491 STY $F8
LDY #$01
L5495 JSR L5100
LSR
LSR
LSR
ADC #$07
L549D CMP L563F,Y
BEQ L5495
CLC
CMP #$14
BCS L5495
CMP #$10
BEQ L5495
INY
INY
CPY $F8
BNE L549D
LDY $F8
INY
INY
CPY #$21
BEQ L54BF
STA L563F,Y
JMP L5491
L54BF RTS
L54C0 RTS
L54C1 LDA L563E
BEQ L54C0
CMP #$01
BNE L551D
LDX $03A6
INX
STX $03A6
LDA #$10
STA $0301
STX $0300
LDA #<L5573
STA L49B4+1
LDA #>L5573
STA L49B4+2
JSR L4996
LDA #>L4300
STA L49B4+2
LDX $03A6
CPX #$A0
BEQ L5500
LDX #$10
L54F4 LDA SPKR
LDA #$0D
JSR WAIT
DEX
BEQ L54F4
RTS
L5500 CLC
LDA #$12
ADC $03A6
TAX
LDA L6000,X
STA $0F
LDA L6100,X
STA $0E
LDY #$10
LDA ($0E),Y
BEQ L5553
LDA #$02
STA L563E
RTS
L551D LDA #<L5585
STA L49B4+1
LDA #>L5585
STA L49B4+2
LDA #$10
STA $0301
DEC $03A6
BEQ L554D
LDA $03A6
STA $0300
JSR L4996
LDA #>L4300
STA L49B4+2
LDX #$10
L5541 LDA SPKR
LDA #$06
JSR WAIT
DEX
BNE L5541
RTS
L554D LDA #$01
STA L563E
RTS
L5553 LDX #$14
L5555 STX $F4
JSR L5438
LDY #$20
L555C LDX #$08
L555E LDA SPKR
TYA
JSR WAIT
DEX
BNE L555E
DEY
BNE L555C
LDX $F4
DEX
BNE L5555
JMP L4A14
L5573 DB $00
DB $22
DB $77
DB $36
DB $14
DB $14
DB $3E
DB $7F
DB $5D
DB $63
DB $7F
DB $7F
DB $6B
DB $2A
DB $1C
DB $14
DB $63
DB $00
L5585 DB $00
DB $22
DB $77
DB $36
DB $14
DB $14
DB $3E
DB $6E
DB $5D
DB $7F
DB $6B
DB $6B
DB $7F
DB $3E
DB $1C
DB $14
DB $63
DB $00
L5597 DB $00
DB $03
DB $14
DB $1C
DB $3E
DB $7F
DB $6B
DB $6B
DB $7F
DB $5D
DB $63
DB $3E
DB $14
DB $14
DB $36
DB $77
DB $22
L55A8 DB $00
L55A9 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L55BA JSR L5100
LSR
LSR
LSR
ADC #$0A
CLC
CMP #$16
BCS L55BA
STA $03D7
LDA #$02
STA $03D6
RTS
L55D0 LDA #<L5597
STA L49B4+1
LDA #>L5597
STA L49B4+2
LDA $03D6
CMP #$C1
BEQ L5624
INC $03D6
LDA $03D6
STA $0300
LDA $03D7
STA $0301
JSR L4996
LDA $03D6
CMP #$A0
BNE L5624
CLC
LDA #$12
ADC $03D6
TAX
LDA L6000,X
STA $01
LDA L6100,X
STA $00
LDY $03D7
LDA ($00),Y
BNE L563B
LDA #<L55A8
STA L49B4+1
LDA #>L55A8
STA L49B4+2
JSR L4996
LDA #$C1
STA $03D6
L5624 LDA #>L4300
STA L49B4+2
RTS
L562A LDA $0330
CMP #$34
BCS L5634
JMP L55D0
L5634 RTS
L5635 JSR L525B
JMP L525B
L563B JMP L5553
L563E DB $01
L563F DB $00
L5640 HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 000000
L56A3 DB $00
L56A4 HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 000000000000000000000000
L5700 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L5707 DB $00
L5708 HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000011080100110801001100010001
HEX 00010001000000002801001502042040
HEX 02000040220000440800001002410241
HEX 22500A4422442244224422440A442250
HEX 08410211084102110841021108010011
HEX 08010001000100012800001402000040
HEX 02000040220000440800001002010041
HEX 2000000422000044220422440A042050
HEX 08010211080002100001020108010211
HEX 0801001100010001
L5800 HEX 00000000001008000010080020552A15
HEX 08542A4000542A0000510A0100110801
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 28010015020420400004200020510A05
HEX 084422100245224122500A4422442244
HEX 20442204084422100841021108010011
HEX 08010011000100010001000100000000
HEX 28010015020420400200004022000044
HEX 080000100241024122500A4422442244
HEX 224422440A4422500841021108410211
HEX 08410211080100110801000100010001
HEX 28000014020000400200004022000044
HEX 08000010020100412000000422000044
HEX 220422440A0420500801021108000210
HEX 00010201080102110801001100010001
L5900 HEX 8080808080808080808080D582808080
HEX 80808080808585888080808080808080
HEX 85858880808080808080808585888080
HEX 80808080808085858880808080808080
HEX 80858588808080808080808085D582D4
HEX 82D5828588D482858588858885888588
HEX 858A8585888588858885888580858588
HEX 858885888588D4828585888588858885
HEX 88808A808588858885888588808A8585
HEX 88858885888588858A85D582D4828588
HEX D482D482858080808080808080808080
HEX 00FF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
* DEAD CODE
L5A00 HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0018
HEX FFFF0000FFFF0000FFFF0000FFFF0010
HEX FFFF0000FFFF0000FFFF0000FFFF0018
HEX FFFF0000FFFF0000FFFF0000FFFF000C
HEX FFFF0000FFFF0000FFFF0000FFFF001C
HEX FFFF0000FFFF0000FFFF0000FFFF0018
HEX FFFF0000FFFF0000FFFF0000FFFF0008
HEX FFFF0000FFFF0000FFFF0000FFFF001C
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0010
HEX FFFF0000FFFF0000FFFF0000FFFF0018
HEX FFFF0000FFFF0000FFFF0000FFFF0018
HEX FFFF0000FFFF0000FFFF0000FFFF001C
HEX FFFF0000FFFF0000FFFF0000FFFF001C
HEX FFFF0000FFFF0000FFFF0000FFFF0018
HEX FFFF0000FFFF0000FFFF0000FFFF001C
HEX FFFF0000FFFF0000FFFF0000FFFF001C
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF0000
HEX FFFF0000FFFF0000FFFF0000FFFF001C
HEX FFFF0000FFFF0000FFFF0000FFFF0018
HEX FFFF0000FFFF0000FFFF0000FFFF0010
HEX FFFF0000FFFF0000FFFF0000FFFF0004
HEX FFFF0000FFFF0000FFFF0000FFFF0010
HEX FFFF0000FFFF0000FFFF0000FFFF0014
HEX FFFF0000FFFF0000FFFF0000FFFF0004
HEX FFFF0000FFFF0000FFFF0000FFFF0014
|
|
|
Revenir en haut de page |
|
![](templates/subSilver/images/spacer.gif) |
|