Da ich nahezu keine ahnung habe von assembler wollte ich euch mal fragen wo bei dem code hier das problem ist daß an einer stelle der rahmen nicht rot ist sondern blau und was man verändern muß um diesen bug zu beheben? Habe es im bild mit dem orangenen pfeil markiert:
Code
- ; 586220 (c64) and 588220 (sx64) diagnostic
- ; worldofjani.com
- *=$8000
- ;
- ; **** EXTERNAL JUMPS ****
- ;
- E154E =$154E
- E1589 =$1589
- E15A4 =$15A4
- E15C4 =$15C4
- E15CF =$15CF
- E15E7 =$15E7
- E168D =$168D
- E16A8 =$16A8
- E16C3 =$16C3
- E16DE =$16DE
- E16F9 =$16F9
- E1714 =$1714
- E172F =$172F
- E174A =$174A
- ;
- ; **** FIELDS ****
- ;
- F00 =$00
- FE0 =$E0
- F0100 =$0100
- F0400 =$0400
- F0408 =$0408
- F0450 =$0450
- F0465 =$0465
- F0474 =$0474
- F0478 =$0478
- F048D =$048D
- F049C =$049C
- F04A0 =$04A0
- F04B5 =$04B5
- F04C8 =$04C8
- F04DD =$04DD
- F04F0 =$04F0
- F0500 =$0500
- F0505 =$0505
- F0518 =$0518
- F052D =$052D
- F0540 =$0540
- F055B =$055B
- F0568 =$0568
- F057D =$057D
- F0590 =$0590
- F05AB =$05AB
- F05B8 =$05B8
- F05CD =$05CD
- F05F5 =$05F5
- F0600 =$0600
- F0630 =$0630
- F0658 =$0658
- F0700 =$0700
- F0735 =$0735
- F0748 =$0748
- F07C0 =$07C0
- FCFFF =$CFFF
- FD800 =$D800
- FD900 =$D900
- FDA00 =$DA00
- FDA30 =$DA30
- FDA58 =$DA58
- FDB00 =$DB00
- FDB48 =$DB48
- FDC00 =$DC00
- FDC02 =$DC02
- FDC07 =$DC07
- FDD07 =$DD07
- ;
- ; **** ABSOLUTE ADRESSES ****
- ;
- A00 =$00
- A01 =$01
- A02 =$02
- A03 =$03
- A04 =$04
- A05 =$05
- A06 =$06
- A07 =$07
- A08 =$08
- A09 =$09
- A0A =$0A
- A0B =$0B
- A0F =$0F
- A17 =$17
- A18 =$18
- A19 =$19
- A1A =$1A
- A1B =$1B
- A1F =$1F
- A20 =$20
- A23 =$23
- A24 =$24
- A25 =$25
- A26 =$26
- A29 =$29
- A2E =$2E
- A2F =$2F
- A33 =$33
- A34 =$34
- A35 =$35
- A36 =$36
- A37 =$37
- A3A =$3A
- A3B =$3B
- AF8 =$F8
- AF9 =$F9
- AFA =$FA
- AFD =$FD
- AFE =$FE
- A0200 =$0200
- A0201 =$0201
- A0314 =$0314
- A0315 =$0315
- A0318 =$0318
- A0319 =$0319
- A045D =$045D
- A045E =$045E
- A0474 =$0474
- A0475 =$0475
- A0476 =$0476
- A0485 =$0485
- A0486 =$0486
- A049C =$049C
- A049D =$049D
- A049E =$049E
- A04AD =$04AD
- A04AE =$04AE
- A04AF =$04AF
- A04C4 =$04C4
- A04C5 =$04C5
- A04C6 =$04C6
- A04D5 =$04D5
- A04D6 =$04D6
- A04D7 =$04D7
- A04EC =$04EC
- A04ED =$04ED
- A04EE =$04EE
- A04FD =$04FD
- A04FE =$04FE
- A0514 =$0514
- A0515 =$0515
- A0516 =$0516
- A0525 =$0525
- A0526 =$0526
- A0527 =$0527
- A053C =$053C
- A053D =$053D
- A053E =$053E
- A054D =$054D
- A054E =$054E
- A054F =$054F
- A0564 =$0564
- A0565 =$0565
- A0566 =$0566
- A0575 =$0575
- A0576 =$0576
- A0577 =$0577
- A058C =$058C
- A058D =$058D
- A058E =$058E
- A059D =$059D
- A059E =$059E
- A059F =$059F
- A05B4 =$05B4
- A05B5 =$05B5
- A05B6 =$05B6
- A05C5 =$05C5
- A05C6 =$05C6
- A05C7 =$05C7
- A05DC =$05DC
- A05DD =$05DD
- A05DE =$05DE
- A0662 =$0662
- A0663 =$0663
- A0664 =$0664
- A068A =$068A
- A068B =$068B
- A068C =$068C
- A0699 =$0699
- A069A =$069A
- A069B =$069B
- A06A4 =$06A4
- A06A5 =$06A5
- A06A6 =$06A6
- A06B2 =$06B2
- A06B3 =$06B3
- A06B4 =$06B4
- A06C1 =$06C1
- A06C2 =$06C2
- A06C3 =$06C3
- A06CC =$06CC
- A06CD =$06CD
- A06CE =$06CE
- A06E9 =$06E9
- A06EA =$06EA
- A06EB =$06EB
- A06F4 =$06F4
- A06F5 =$06F5
- A06F6 =$06F6
- A0702 =$0702
- A0703 =$0703
- A0704 =$0704
- A0711 =$0711
- A0712 =$0712
- A0713 =$0713
- A071C =$071C
- A071D =$071D
- A071E =$071E
- A072A =$072A
- A072B =$072B
- A072C =$072C
- A07C6 =$07C6
- A07C7 =$07C7
- A07C8 =$07C8
- A07C9 =$07C9
- A07D3 =$07D3
- A07D4 =$07D4
- A07D5 =$07D5
- A07D6 =$07D6
- A07D7 =$07D7
- A07D8 =$07D8
- A07D9 =$07D9
- A07DA =$07DA
- A07DB =$07DB
- A07DC =$07DC
- A07DE =$07DE
- A07DF =$07DF
- A07E0 =$07E0
- A07E1 =$07E1
- A07E2 =$07E2
- A07E3 =$07E3
- A07E4 =$07E4
- A07E5 =$07E5
- A07E6 =$07E6
- A07E7 =$07E7
- AD400 =$D400
- AD401 =$D401
- AD402 =$D402
- AD403 =$D403
- AD404 =$D404
- AD405 =$D405
- AD406 =$D406
- AD407 =$D407
- AD408 =$D408
- AD409 =$D409
- AD40A =$D40A
- AD40B =$D40B
- AD40C =$D40C
- AD40D =$D40D
- AD40E =$D40E
- AD40F =$D40F
- AD410 =$D410
- AD411 =$D411
- AD412 =$D412
- AD413 =$D413
- AD414 =$D414
- AD415 =$D415
- AD416 =$D416
- AD417 =$D417
- AD418 =$D418
- AD419 =$D419
- AD41A =$D41A
- AD800 =$D800
- AD874 =$D874
- AD875 =$D875
- AD876 =$D876
- AD89C =$D89C
- AD89D =$D89D
- AD89E =$D89E
- AD8AD =$D8AD
- AD8AE =$D8AE
- AD8AF =$D8AF
- AD8C4 =$D8C4
- AD8C5 =$D8C5
- AD8C6 =$D8C6
- AD8D5 =$D8D5
- AD8D6 =$D8D6
- AD8D7 =$D8D7
- AD8EC =$D8EC
- AD8ED =$D8ED
- AD8EE =$D8EE
- AD914 =$D914
- AD915 =$D915
- AD916 =$D916
- AD925 =$D925
- AD926 =$D926
- AD927 =$D927
- AD93C =$D93C
- AD93D =$D93D
- AD94D =$D94D
- AD94E =$D94E
- AD94F =$D94F
- AD964 =$D964
- AD965 =$D965
- AD966 =$D966
- AD975 =$D975
- AD976 =$D976
- AD977 =$D977
- AD98C =$D98C
- AD98D =$D98D
- AD98E =$D98E
- AD99D =$D99D
- AD99E =$D99E
- AD99F =$D99F
- AD9B4 =$D9B4
- AD9B5 =$D9B5
- AD9B6 =$D9B6
- AD9C5 =$D9C5
- AD9C6 =$D9C6
- AD9C7 =$D9C7
- AD9DC =$D9DC
- AD9DD =$D9DD
- AD9DE =$D9DE
- ADA99 =$DA99
- ADA9A =$DA9A
- ADA9B =$DA9B
- ADAA4 =$DAA4
- ADAA5 =$DAA5
- ADAA6 =$DAA6
- ADAC1 =$DAC1
- ADAC2 =$DAC2
- ADAC3 =$DAC3
- ADACC =$DACC
- ADACD =$DACD
- ADACE =$DACE
- ADAE9 =$DAE9
- ADAEA =$DAEA
- ADAEB =$DAEB
- ADAF4 =$DAF4
- ADAF5 =$DAF5
- ADAF6 =$DAF6
- ADB11 =$DB11
- ADB12 =$DB12
- ADB13 =$DB13
- ADB1C =$DB1C
- ADB1D =$DB1D
- ADB1E =$DB1E
- ADB2A =$DB2A
- ADB2B =$DB2B
- ADB2C =$DB2C
- ADB3E =$DB3E
- ADB3F =$DB3F
- ADB40 =$DB40
- ADC00 =$DC00
- ADC01 =$DC01
- ADC02 =$DC02
- ADC03 =$DC03
- ADC04 =$DC04
- ADC05 =$DC05
- ADC06 =$DC06
- ADC07 =$DC07
- ADC08 =$DC08
- ADC09 =$DC09
- ADC0A =$DC0A
- ADC0B =$DC0B
- ADC0C =$DC0C
- ADC0D =$DC0D
- ADC0E =$DC0E
- ADC0F =$DC0F
- ADD00 =$DD00
- ADD01 =$DD01
- ADD02 =$DD02
- ADD03 =$DD03
- ADD04 =$DD04
- ADD05 =$DD05
- ADD06 =$DD06
- ADD07 =$DD07
- ADD08 =$DD08
- ADD09 =$DD09
- ADD0A =$DD0A
- ADD0B =$DD0B
- ADD0D =$DD0D
- ADD0E =$DD0E
- ADD0F =$DD0F
- AE47E =$E47E
- AFF80 =$FF80
- ;
- ; **** ZP POINTERS ****
- ;
- P00 =$00
- P02 =$02
- P23 =$23
- P25 =$25
- PF8 =$F8
- PF9 =$F9
- PFD =$FD
- ;---------------------------------------
- .word start
- .word start
- .text "CBM80"
- start SEI
- LDX #$FF
- TXS
- CLD
- LDX #$04
- I8010 LDA F98CD,X
- STA FDC07,X
- LDA F98D1,X
- STA FDD07,X
- DEX
- BNE I8010
- LDX #$00
- STX A0A
- STX A0B
- LDA #$E7
- STA A01
- LDA #$37
- STA A00
- LDX #$00
- I802F LDA #$20
- STA F0400,X
- STA F0500,X
- STA F0600,X
- STA F0700,X
- LDA #$06
- STA FD800,X
- STA FD900,X
- STA FDA00,X
- STA FDB00,X
- INX
- BNE I802F
- ;screen layout
- LDX #$27
- I8050 LDA F99BD,X ;upper divider
- STA F0630,X
- LDA #$02
- STA FDA30,X
- DEX
- BPL I8050
- LDX #$00
- I8060 LDA F99E5,X ;chip names/Uxx
- CMP #$FF
- BEQ I806E
- STA F0658,X
- INX
- JMP I8060
- I806E LDX #$00
- I8070 LDA F9AD6,X ;colors
- CMP #$FF
- BEQ I807E
- STA FDA58,X
- INX
- JMP I8070
- I807E LDX #$27
- I8080 LDA F9BC7,X ;lower divider
- STA F0748,X
- LDA #$02
- STA FDB48,X
- DEX
- BPL I8080
- ;screen layout end
- ;test loop
- I808E LDA #$3F
- STA ADD02
- LDA #$97
- STA ADD00
- LDA #$3C
- STA ADD02
- LDA #$7F
- STA ADC0D
- STA ADD0D
- STA ADC00
- LDA #$08
- STA ADC0F
- STA ADD0F
- LDA #$48
- STA ADC0E
- LDA #$08
- STA ADD0E
- LDY #$00
- STY ADC03
- DEY
- STY ADC02
- LDA #$0F
- STA ADD03
- LDX #$2F
- I80CA LDA F989E,X
- STA FCFFF,X
- DEX
- BNE I80CA
- ;output C64 or SX64
- LDA AE47E
- CMP #$2A
- BEQ I80E8 ;SX
- LDX #$19
- I80DC LDA F98DE,X ;"C64 DIAGNOSTIC REV 586220"
- STA F0408,X
- DEX
- BPL I80DC
- JMP I80F3
- I80E8 LDX #$1A
- I80EA LDA F9BEF,X ;"SX64 DIAGNOSTIC REV 588220"
- STA F0408,X
- DEX
- BPL I80EA
- I80F3 LDX #$04
- I80F5 LDA F98F8,X ;"COUNT"
- STA F07C0,X
- DEX
- BPL I80F5
- LDA A0A ;count values
- AND #$0F
- ORA #$30
- STA A07C9 ;count 000x
- LDA A0A
- LSR A
- LSR A
- LSR A
- LSR A
- AND #$0F
- ORA #$30
- STA A07C8 ;count 00x0
- LDA A0B
- AND #$0F
- ORA #$30
- STA A07C7 ;count 0x00
- LDA A0B
- LSR A
- LSR A
- LSR A
- LSR A
- AND #$0F
- ORA #$30
- STA A07C6 ;count x000
- JSR I97B8 ;output timer values
- LDA A0A ;store cycle count values
- STA A0200
- LDA A0B
- STA A0201
- LDX #$08
- I8139 LDA F98FD,X ;Zero page
- STA F0450,X
- DEX
- BPL I8139
- LDX #$03
- I8144 LDA F98D6,X ;mem test pattern
- LDY #$02
- I8149 STA F00,Y
- INY
- BNE I8149
- LDY #$02
- I8151 CMP F00,Y
- BNE I8185 ;memtest fail
- INY
- BNE I8151
- DEX
- BPL I8144
- LDY #$02
- I815E LDA #$80
- I8160 STA F00,Y
- CMP F00,Y
- BNE I8185 ;memtest fail
- LSR A
- BNE I8160
- INY
- BNE I815E
- LDA A0200 ;restore cycle count values
- STA A0A
- LDA A0201
- STA A0B
- ;Zeropage test OK
- LDA #$0F ;"O"
- STA A045D
- LDA #$0B ;"K"
- STA A045E
- JMP I818F
- I8185 PHA ;memtest fail
- LDA F98D6,X ;mem test pattern
- STA A08
- PLA
- JSR I83C5 ;output "BAD" at corresponding ramchip
- I818F JSR I97B8 ;output timer values
- LDX #$09
- I8194 LDA F9906,X ;"stack page"
- STA F0478,X
- DEX
- BPL I8194
- LDX #$03
- I819F LDY #$00
- LDA F98DA,X ;mem test pattern
- I81A4 STA F0100,Y
- INY
- BNE I81A4
- I81AA CMP F0100,Y
- BNE I81D4
- INY
- BNE I81AA
- DEX
- BPL I819F
- LDY #$00
- I81B7 LDA #$80
- I81B9 STA F0100,Y
- CMP F0100,Y
- BNE I81D4
- LSR A
- BNE I81B9
- INY
- BNE I81B7
- ;stack test ok
- LDA #$0F ;"O"
- STA A0485
- LDA #$0B ;"K"
- STA A0486
- JMP I81DE
- I81D4 PHA
- LDA F98D6,X ;mem test pattern
- STA A08
- PLA
- JSR I83C5 ;output "BAD" at corresponding ramchip
- I81DE JSR I97B8 ;output timer values
- JSR I828D ;screen ram (0400) test
- JSR I97B8 ;output timer values
- LDX #$08
- I81E9 LDA F9918,X ;"ram test 1", 0800-8000
- STA F04C8,X
- DEX
- BPL I81E9
- LDA #<$0800
- STA A04
- LDA #>$0800
- STA A05
- LDA #<$8000
- STA A06
- LDA #>$8000
- STA A07
- JSR I830D ;do ram test 1
- JSR I97B8 ;output timer values
- LDX #$08
- I820A LDA F9921,X ;"ram test 2", 3000-0000
- STA F04F0,X
- DEX
- BPL I820A
- LDA #<$3000
- STA A04
- LDA #>$3000
- STA A05
- LDA #<$0000
- STA A06
- LDA #>$0000
- STA A07
- JMP I8528 ;do RAM TEST2. copy memtestroutine from $8000 to $1000- and exec it
- ;continue tests here from jmp/routine above
- I8226 JSR I97B8 ;output timer values
- JMP I8765 ;do PLA TEST. copy routine from $8000- to $1000- and exec it
- I822C JSR I8888 ;COLOR RAM test
- JSR I890E ;KERNAL/BASIC/CHARAC ROM test
- JSR I8A44 ;CASSETTE test
- JSR I8B0F ;KEYBOARD
- JSR I8BC3 ;CONTROL PORT (joystick)
- JSR I8CFB ;SERIAL PORT TEST
- JSR I8DCD ;USER PORT TEST
- JSR I8F7C ;TIMER 1A
- JSR I8FCA ; B
- JSR I9018 ;TIMER 2A ... jani
- JSR I9066 ; B
- JSR I9242 ;INTERRUPT
- JSR I9593 ;SOUND TEST
- SED ;add 1 to counter.. DECIMAL
- LDA #$01
- CLC
- ADC A0A
- STA A0A
- LDA #$00
- ADC A0B
- STA A0B
- CLD
- LDA #$37
- STA A01
- LDA #$00
- STA AD418
- LDA #$E7
- STA A01
- LDA #$37
- STA A00
- ;clear results for actual round.
- LDX #$00
- LDA #$20
- I8277 STA F0400,X
- STA F0500,X
- INX
- BNE I8277
- LDX #$2E
- LDA #$20
- I8284 STA F0600,X
- DEX
- BPL I8284
- JMP I808E ;test loop
- I828D LDX #$09 ;screen ram test
- I828F LDA F99A7,X ;"screen ram" (0400)
- STA F04A0,X
- DEX
- BPL I828F
- LDX #<$0400
- LDY #>$0400
- STX A02
- STY A03
- LDY #$00
- I82A2 LDX #$03
- LDA (P02),Y
- PHA
- I82A7 LDA F98D6,X ;mem test pattern
- STA (P02),Y
- JSR I8300 ;fix
- LDA (P02),Y
- CMP F98D6,X ;mem test pattern
- BNE I82D0 ;memtest fail
- DEX
- BPL I82A7
- PLA
- STA (P02),Y
- JSR I82F5 ;fix
- LDA A03
- CMP #>$0800
- BNE I82A2
- ;screen ram
- LDA #$0F ;"O"
- STA A04AD
- LDA #$0B ;"K"
- STA A04AE
- RTS
- I82D0 PHA
- LDA F98D6,X ;mem test pattern
- STA A08
- PLA
- JSR I83C5 ;output "BAD" at corresponding ramchip
- LDA #$02 ;Screen ram (0400) BAD
- STA A04AD
- LDA #$01
- STA A04AE
- LDA #$04
- STA A04AF
- LDA #$02
- STA AD8AD
- STA AD8AE
- STA AD8AF
- RTS
- I82F5 INC A02
- LDA A02
- CMP #$00
- BNE I82FF
- INC A03
- I82FF RTS
- I8300 TXA
- PHA
- LDX #$00
- I8304 INX
- BNE I8304
- I8307 INX
- BNE I8307
- PLA
- TAX
- RTS
- I830D LDA #$37 ;do ram test 1. 0800-8000
- STA A01
- LDA #$FF
- STA A08
- JSR I8348 ;fill mem
- JSR I8389 ;delay
- JSR I8366 ;do test
- LDA #$AA
- STA A08
- JSR I8348 ;fill mem
- JSR I8389 ;delay
- JSR I8366 ;do test
- LDA #$55
- STA A08
- JSR I8348 ;fill mem
- JSR I8389 ;delay
- JSR I8366 ;do test
- LDA #$00
- STA A08
- JSR I8348 ;fill mem
- JSR I8389 ;delay
- JSR I8366 ;do test
- JMP I8394 ;fix
- I8348 LDA A04 ;fill mem
- STA A02
- LDA A05
- STA A03
- LDY #$00
- I8352 LDA A08
- STA (P02),Y
- INC A02
- BNE I8352
- INC A03
- LDA A03
- CMP A07
- BEQ I8365
- JMP I8352
- I8365 RTS
- I8366 LDA A04 ;test memory
- STA A02
- LDA A05
- STA A03
- LDY #$00
- I8370 LDA (P02),Y
- CMP A08
- BEQ I8379
- JSR I83AA ;ram test 1 "BAD"
- I8379 INC A02
- BNE I8370
- INC A03
- LDA A03
- CMP A07
- BEQ I8388
- JMP I8370
- I8388 RTS
- I8389 LDX #$00 ;delay
- I838B DEX
- BNE I838B
- LDX #$00
- I8390 DEX
- BNE I8390
- RTS
- I8394 LDA A04D5 ;"RAM TEST 1 xx"
- CMP #$20
- BNE I83A5
- LDA #$0F ;"O"
- STA A04D5
- LDA #$0B ;"K"
- STA A04D6
- I83A5 LDA #$37
- STA A01
- RTS
- I83AA PHA ;"RAM TEST 1" BAD
- LDA #$02
- STA A04D5
- LDA #$01
- STA A04D6
- LDA #$04
- STA A04D7
- LDA #$02
- STA AD8D5
- STA AD8D6
- STA AD8D7
- ;output "BAD" at corresponding ramchip
- I83C5 LDA A0699 ;U9
- CMP #$02 ;"B" in "BAD"
- BEQ I8400
- LDA A06C1 ;U10
- CMP #$02
- BEQ I8400
- LDA A06E9 ;U11
- CMP #$02
- BEQ I8400
- LDA A0711 ;U12
- CMP #$02
- BEQ I8400
- LDA A06A4 ;U21
- CMP #$02
- BEQ I8400
- LDA A06CC ;U22
- CMP #$02
- BEQ I8400
- LDA A06F4 ;U23
- CMP #$02
- BEQ I8400
- LDA A071C ;U24
- CMP #$02
- BEQ I8400
- JMP I8402
- I8400 PLA
- RTS
- I8402 PLA
- EOR A08
- STA A09
- LDA A09
- AND #%00000001
- BEQ I8410
- JSR I84BC ;U21 "BAD"
- I8410 LDA A09
- AND #%00000010
- BEQ I8419
- JSR I8450 ;U9 "BAD"
- I8419 LDA A09
- AND #%00000100
- BEQ I8422
- JSR I84D7 ;U22 "BAD"
- I8422 LDA A09
- AND #%00001000
- BEQ I842B
- JSR I846B ;U10 "BAD"
- I842B LDA A09
- AND #%00010000
- BEQ I8434
- JSR I84F2 ;U23 "BAD"
- I8434 LDA A09
- AND #%00100000
- BEQ I843D
- JSR I8486 ;U11 "BAD"
- I843D LDA A09
- AND #%01000000
- BEQ I8446
- JSR I850D ;U24 "BAD"
- I8446 LDA A09
- AND #%10000000
- BEQ I844F
- JSR I84A1 ;U12 "BAD"
- I844F RTS
- I8450 LDA #$02 ;U9 "BAD"
- STA A0699
- LDA #$01
- STA A069A
- LDA #$04
- STA A069B
- LDA #$02
- STA ADA99
- STA ADA9A
- STA ADA9B
- RTS
- I846B LDA #$02 ;U10 "BAD"
- STA A06C1
- LDA #$01
- STA A06C2
- LDA #$04
- STA A06C3
- LDA #$02
- STA ADAC1
- STA ADAC2
- STA ADAC3
- RTS
- I8486 LDA #$02 ;U11 "BAD"
- STA A06E9
- LDA #$01
- STA A06EA
- LDA #$04
- STA A06EB
- LDA #$02
- STA ADAE9
- STA ADAEA
- STA ADAEB
- RTS
- I84A1 LDA #$02 ;U12 "BAD"
- STA A0711
- LDA #$01
- STA A0712
- LDA #$04
- STA A0713
- LDA #$02
- STA ADB11
- STA ADB12
- STA ADB13
- RTS
- I84BC LDA #$02 ;U21 "BAD"
- STA A06A4
- LDA #$01
- STA A06A5
- LDA #$04
- STA A06A6
- LDA #$02
- STA ADAA4
- STA ADAA5
- STA ADAA6
- RTS
- I84D7 LDA #$02 ;U22 "BAD"
- STA A06CC
- LDA #$01
- STA A06CD
- LDA #$04
- STA A06CE
- LDA #$02
- STA ADACC
- STA ADACD
- STA ADACE
- RTS
- I84F2 LDA #$02 ;U23 "BAD"
- STA A06F4
- LDA #$01
- STA A06F5
- LDA #$04
- STA A06F6
- LDA #$02
- STA ADAF4
- STA ADAF5
- STA ADAF6
- RTS
- I850D LDA #$02 ;U24 "BAD"
- STA A071C
- LDA #$01
- STA A071D
- LDA #$04
- STA A071E
- LDA #$02
- STA ADB1C
- STA ADB1D
- STA ADB1E
- RTS
- I8528 LDA #<$8000 ;copy testroutine from $8000 to $1000-
- STA A02
- LDA #>$8000
- STA A03
- LDA #<$1000
- STA AFD
- LDA #>$1000
- STA AFE
- LDY #$00
- I853A LDA (P02),Y
- STA (PFD),Y
- INY
- BNE I853A
- INC A03
- INC AFE
- LDA AFE
- CMP #>$3000
- BNE I853A
- JMP E154E ;fix
- LDA #$30
- STA A01
- LDA #$FF
- STA A08
- JSR E1589
- JSR E15C4
- JSR E15A4
- LDA #$AA
- STA A08
- JSR E1589
- JSR E15C4
- JSR E15A4
- LDA #$55
- STA A08
- JSR E1589
- JSR E15C4
- JSR E15A4
- LDA #$00
- STA A08
- JSR E1589
- JSR E15C4
- JSR E15A4
- JMP E15CF
- LDA A04
- STA A02
- LDA A05
- STA A03
- LDY #$00
- I8593 LDA A08
- STA (P02),Y
- INC A02
- BNE I8593
- INC A03
- LDA A03
- CMP A07
- BNE I8593
- RTS
- LDA A04
- STA A02
- LDA A05
- STA A03
- LDY #$00
- I85AE LDA (P02),Y
- CMP A08
- BEQ I85B7
- JSR E15E7
- I85B7 INC A02
- BNE I85AE
- INC A03
- LDA A03
- CMP A07
- BNE I85AE
- RTS
- LDX #$00
- I85C6 DEX
- BNE I85C6
- LDX #$00
- I85CB DEX
- BNE I85CB
- RTS
- LDA A04FD
- CMP #$20
- BNE I85E0
- LDA #$0F
- STA A04FD
- LDA #$0B
- STA A04FE
- I85E0 LDA #$37
- STA A01
- JMP I8226
- PHA
- LDA #$02
- STA A04D5
- LDA #$01
- STA A04D6
- LDA #$04
- STA A04D7
- LDA #$02
- STA AD8D5
- STA AD8D6
- STA AD8D7
- LDA A0699
- CMP #$02
- BEQ I863D
- LDA A06C1
- CMP #$02
- BEQ I863D
- LDA A06E9
- CMP #$02
- BEQ I863D
- LDA A0711
- CMP #$02
- BEQ I863D
- LDA A06A4
- CMP #$02
- BEQ I863D
- LDA A06CC
- CMP #$02
- BEQ I863D
- LDA A06F4
- CMP #$02
- BEQ I863D
- LDA A071C
- CMP #$02
- BEQ I863D
- JMP I863F
- I863D PLA
- RTS
- I863F PLA
- EOR A08
- STA A09
- LDA A09
- AND #$01
- BEQ I864D
- JSR E16F9
- I864D LDA A09
- AND #$02
- BEQ I8656
- JSR E168D
- I8656 LDA A09
- AND #$04
- BEQ I865F
- JSR E1714
- I865F LDA A09
- AND #$08
- BEQ I8668
- JSR E16A8
- I8668 LDA A09
- AND #$10
- BEQ I8671
- JSR E172F
- I8671 LDA A09
- AND #$20
- BEQ I867A
- JSR E16C3
- I867A LDA A09
- AND #$40
- BEQ I8683
- JSR E174A
- I8683 LDA A09
- AND #$80
- BEQ I868C
- JSR E16DE
- I868C RTS
- LDA #$02
- STA A0699
- LDA #$01
- STA A069A
- LDA #$04
- STA A069B
- LDA #$02
- STA ADA99
- STA ADA9A
- STA ADA9B
- RTS
- LDA #$02
- STA A06C1
- LDA #$01
- STA A06C2
- LDA #$04
- STA A06C3
- LDA #$02
- STA ADAC1
- STA ADAC2
- STA ADAC3
- RTS
- LDA #$02
- STA A06E9
- LDA #$01
- STA A06EA
- LDA #$04
- STA A06EB
- LDA #$02
- STA ADAE9
- STA ADAEA
- STA ADAEB
- RTS
- LDA #$02
- STA A0711
- LDA #$01
- STA A0712
- LDA #$04
- STA A0713
- LDA #$02
- STA ADB11
- STA ADB12
- STA ADB13
- RTS
- LDA #$02
- STA A06A4
- LDA #$01
- STA A06A5
- LDA #$04
- STA A06A6
- LDA #$02
- STA ADAA4
- STA ADAA5
- STA ADAA6
- RTS
- LDA #$02
- STA A06CC
- LDA #$01
- STA A06CD
- LDA #$04
- STA A06CE
- LDA #$02
- STA ADACC
- STA ADACD
- STA ADACE
- RTS
- LDA #$02
- STA A06F4
- LDA #$01
- STA A06F5
- LDA #$04
- STA A06F6
- LDA #$02
- STA ADAF4
- STA ADAF5
- STA ADAF6
- RTS
- LDA #$02
- STA A071C
- LDA #$01
- STA A071D
- LDA #$04
- STA A071E
- LDA #$02
- STA ADB1C
- STA ADB1D
- STA ADB1E
- RTS
- I8765 LDX #$07
- I8767 LDA F9910,X ;"PLA TEST"
- STA F0518,X
- DEX
- BPL I8767
- LDA #<$8000
- STA A02
- LDA #>$8000
- STA A03
- LDA #<$1000
- STA AFD
- LDA #>$1000
- STA AFE
- LDY #$00
- I8782 LDA (P02),Y
- STA (PFD),Y
- INY
- BNE I8782
- INC A03
- INC AFE
- LDA AFE
- CMP #>$3000
- BNE I8782
- JMP E1796
- .logical $1796
- E1796 LDA #$36
- STA A01
- LDA #<$A000
- STA AF9
- LDA #>$A000
- STA AFA
- JSR E183D
- CPX #$00
- BEQ I87AC
- JSR E1857 ;"bad"
- I87AC LDA #$37
- STA A01
- LDA #<$A000
- STA AF9
- LDA #>$A000
- STA AFA
- LDY #$00
- LDA (PF9),Y
- CMP #$94
- BEQ I87C3
- JSR E1857 ;"bad"
- I87C3 LDA #$35
- STA A01
- LDA #<$E000
- STA AF9
- LDA #>$E000
- STA AFA
- LDY #$00
- JSR E183D
- CPX #$00
- BEQ I87DB
- JSR E1857 ;"bad"
- I87DB LDA #$37
- STA A01
- LDA #<$E000
- STA AF9
- LDA #>$E000
- STA AFA
- LDY #$00
- LDA (PF9),Y
- CMP #$85
- BEQ I87F2
- JSR E1857 ;"bad"
- I87F2 LDA #$33
- STA A01
- LDA #<$D000
- STA AF9
- LDA #>$D000
- STA AFA
- LDY #$00
- LDA (PF9),Y
- CMP #$3C
- BEQ I8809
- JSR E1857 ;"bad"
- I8809 LDA #$37
- STA A01
- LDA AD800
- TAY
- LDA #$02
- STA AD800
- LDA AD800
- AND #$0F
- CMP #$02
- BEQ I8822
- JSR E1857 ;"bad"
- I8822 STY AD800
- LDA A0525 ;"PLA TEST xx"
- CMP #$02
- BEQ I8836
- LDA #$0F ;"O"
- STA A0525
- LDA #$0B ;"K"
- STA A0526
- I8836 LDA #$37
- STA A01
- JMP I822C
- E183D LDA #$55
- LDY #$05
- I8841 STA (PF9),Y
- DEY
- BNE I8841
- LDY #$05
- I8848 LDA (PF9),Y
- CMP #$55
- BNE I8854
- DEY
- BNE I8848
- LDX #$00
- RTS
- I8854 LDX #$FF
- RTS
- E1857 LDA #$37
- STA A01
- LDA #$02 ;"B"
- STA A0525 ;PLA TEST "B"
- STA A072A ;82S1 U17 "B"
- LDA #$01 ;"A"
- STA A0526
- STA A072B
- LDA #$04 ;"D"
- STA A0527
- STA A072C
- LDA #$02
- STA AD925
- STA ADB2A
- STA AD926
- STA ADB2B
- STA AD927
- STA ADB2C
- RTS
- .here
- I8888 LDX #$08
- I888A LDA F992A,X ;COLOR RAM
- STA F0540,X
- DEX
- BPL I888A
- LDA #$37
- STA A01
- LDX #<$D800 ;COLOR RAM addr
- LDY #>$D800
- STX A02
- STY A03
- LDY #$00
- I88A1 LDX #$03
- LDA (P02),Y
- PHA
- I88A6 LDA F98DA,X ;mem test pattern
- STA (P02),Y
- JSR I8901 ;fix
- LDA (P02),Y
- AND #$0F
- CMP F98DA,X ;mem test pattern
- BNE I88D1
- DEX
- BPL I88A6
- PLA
- STA (P02),Y
- JSR I88F6 ;fix
- LDA A03
- CMP #>$DC00
- BNE I88A1
- ;color ram test OK
- LDA #$0F ;"O"
- STA A054D
- LDA #$0B ;"K"
- STA A054E
- RTS
- I88D1 PHA ;color ram test BAD
- LDA F98DA,X ;mem test pattern
- STA A08
- PLA
- JSR I83C5 ;output "BAD" at corresponding ramchip
- LDA #$02 ;"BAD" color ram
- STA A054D
- LDA #$01
- STA A054E
- LDA #$04
- STA A054F
- LDA #$02
- STA AD94D
- STA AD94E
- STA AD94F
- RTS
- I88F6 INC A02
- LDA A02
- CMP #$00
- BNE I8900
- INC A03
- I8900 RTS
- I8901 TXA
- PHA
- LDX #$00
- I8905 INX
- BNE I8905
- I8908 INX
- BNE I8908
- PLA
- TAX
- RTS
- ;KERNAL/BASIC/CHARAC ROM test
- I890E LDX #$09
- I8910 LDA F993C,X ;"KERNAL ROM"
- STA F0568,X
- DEX
- BPL I8910
- LDX #$08
- I891B LDA F9933,X ;"BASIC"
- STA F0590,X
- DEX
- BPL I891B
- LDX #$09
- I8926 LDA F9946,X ;"CHARAC"
- STA F05B8,X
- DEX
- BPL I8926
- ;KERNAL ROM TEST
- LDA #$37
- STA A01
- LDA #>$E000
- STA AF9
- LDA #$20 ;$2000 of mem to test
- STA A0F
- LDA #$00
- STA AF8
- TAY
- CLC
- I8941 ADC (PF8),Y
- INY
- BNE I8941
- INC AF9
- DEC A0F
- BNE I8941
- ADC #$00
- PHA
- LDA AFF80 ;Kernal Version Number
- CMP #$AA
- BEQ I896A
- CMP #$00
- BEQ I8962
- PLA
- CMP #$E0
- BEQ I8972 ;"OK"
- JMP I8983 ;"BAD"
- I8962 PLA
- CMP #$E1
- BEQ I8972 ;"OK"
- JMP I8983 ;"BAD"
- I896A PLA
- CMP #$E1
- BEQ I8972 ;"OK"
- JMP I8983 ;"BAD"
- I8972 LDA #$37 ;"Kernal ROM OK"
- STA A01
- LDA #$0F ;"O"
- STA A0575
- LDA #$0B ;"K"
- STA A0576
- JMP I89A1
- I8983 LDA #$37 ;"Kernal ROM BAD"
- STA A01
- LDA #$02 ;"B"
- STA A0575
- LDA #$01 ;"A"
- STA A0576
- LDA #$04 ;"D"
- STA A0577
- LDA #$02
- STA AD975
- STA AD976
- STA AD977
- ;BASIC ROM TEST
- I89A1 LDA #$37
- STA A01
- LDA #>$A000
- STA AF9
- LDA #$20 ;$2000 of mem to test
- STA A0F
- LDA #$00
- STA AF8
- TAY
- CLC
- I89B3 ADC (PF8),Y
- INY
- BNE I89B3
- INC AF9
- DEC A0F
- BNE I89B3
- ADC #$00
- CMP #$A1
- BNE I89D5
- LDA #$37
- STA A01
- LDA #$0F ;"O"
- STA A059D
- LDA #$0B ;"K"
- STA A059E
- JMP I89F3
- I89D5 LDA #$37 ;BASIC ROM "BAD"
- STA A01
- LDA #$02 ;"B"
- STA A059D
- LDA #$01 ;"A"
- STA A059E
- LDA #$04 ;"D"
- STA A059F
- LDA #$02
- STA AD99D
- STA AD99E
- STA AD99F
- ;CHARACTER ROM TEST
- I89F3 LDA #$33
- STA A01
- LDA #>$D000
- STA AF9
- LDA #$10 ;$1000 of mem
- STA A0F
- LDA #$00
- STA AF8
- TAY
- CLC
- I8A05 ADC (PF8),Y
- INY
- BNE I8A05
- INC AF9
- DEC A0F
- BNE I8A05
- ADC #$00
- CMP #$F7
- BNE I8A25
- LDA #$37
- STA A01
- LDA #$0F ;"O"
- STA A05C5
- LDA #$0B ;"K"
- STA A05C6
- RTS
- I8A25 LDA #$37 ;CHAR ROM "BAD"
- STA A01
- LDA #$02 ;"B"
- STA A05C5
- LDA #$01 ;"A"
- STA A05C6
- LDA #$04 ;"D"
- STA A05C7
- LDA #$02
- STA AD9C5
- STA AD9C6
- STA AD9C7
- RTS
- I8A44 LDX #$07
- I8A46 LDA F9950,X ;"CASSETTE"
- STA F0465,X
- DEX
- BPL I8A46
- LDA #$37
- STA A01
- LDA AE47E ;C64/SX flag
- CMP #$2A
- BNE I8A5D
- JMP I8AF1 ;SX. fix
- I8A5D LDA #$3C ;do cassette test on C64
- STA ADD02
- LDA #$97
- STA ADD00
- LDX #$05
- LDA ADC0D
- I8A6C LDA A01
- ORA #$10
- STA A01
- AND #$2F
- STA A01
- ORA #$10
- STA A01
- LDA ADC0D
- AND #$10
- BEQ I8AB1 ;"BAD"
- DEX
- BNE I8A6C
- LDA A01
- ORA #$20
- STA A01
- JSR I8AFD
- LDA A01
- AND #$08
- BNE I8AC3 ;6510 BAD
- LDA A01
- AND #$0F
- STA A01
- JSR I8AFD
- LDA A01
- AND #$08
- BEQ I8AC3 ;6510 BAD
- LDA #$37
- STA A01
- LDA #$0F ;CASSETTE "OK"
- STA A0474
- LDA #$0B ;"K"
- STA A0475
- RTS
- ;6526 U1 "BAD"
- I8AB1 LDA #$02 ;"B"
- STA A068A
- LDA #$01 ;"A"
- STA A068B
- LDA #$04 ;"D"
- STA A068C
- JMP I8AD2
- I8AC3 LDA #$02
- STA A0662 ;6510 U7 "BAD"
- LDA #$01
- STA A0663
- LDA #$04
- STA A0664
- ;CASSETTE "BAD"
- I8AD2 LDA #$02
- STA A0474
- LDA #$01
- STA A0475
- LDA #$04
- STA A0476
- LDA #$02
- STA AD874
- STA AD875
- STA AD876
- LDA #$37
- STA A01
- RTS
- I8AF1 LDX #$03
- I8AF3 LDA F8BBF,X ;"OPEN"
- STA F0474,X ;cassette
- DEX
- BPL I8AF3
- RTS
- I8AFD PHA
- TXA
- PHA
- LDA #$00
- TAX
- CLC
- I8B04 ADC #$01
- BNE I8B04
- INX
- BNE I8B04
- PLA
- TAX
- PLA
- RTS
- I8B0F LDX #$07
- I8B11 LDA F9958,X ;"keyboard"
- STA F048D,X
- DEX
- BPL I8B11
- LDA A01
- ORA #$10
- STA A01
- LDX #$FF
- STX ADC02
- INX
- STX ADC03
- LDA #$00
- STA ADC00
- LDA ADC01
- CMP #$FF
- BEQ I8BAF
- LDY #$01
- STY A0F
- I8B39 LDX A0F
- LDY F8BAD,X
- LDX #$00
- STX ADC02
- STX ADC03
- I8B46 TXA
- STA FDC02,Y
- EOR #$FF
- STA FDC00,Y
- CMP FDC00,Y
- BNE I8B8E
- INX
- BNE I8B46
- DEC A0F
- BPL I8B39
- LDX #$FF
- STX ADC02
- INX
- STX ADC03
- STX ADC00
- CPX ADC01
- BNE I8B8E
- LDA #$FE
- STA ADC00
- I8B71 LDA ADC01
- CMP ADC00
- BNE I8B8E
- SEC
- ROL ADC00
- BCS I8B71
- LDA #$37
- STA A01
- LDA #$0F ;KEYBOARD "OK"
- STA A049C
- LDA #$0B ;"K"
- STA A049D
- RTS
- ;KEYBOARD "BAD"
- I8B8E LDA #$37
- STA A01
- LDA #$02
- STA A049C
- LDA #$01
- STA A049D
- LDA #$04
- STA A049E
- LDA #$02
- STA AD89C
- STA AD89D
- STA AD89E
- RTS
- F8BAD .byte $01,$00
- I8BAF LDA #$37
- STA A01
- LDX #$03
- I8BB5 LDA F8BBF,X ;"OPEN"
- STA F049C,X ;KEYBOARD
- DEX
- BPL I8BB5
- RTS
- F8BBF .text "open"
- ;CONTROL PORT TEST(JOYSTICK)
- I8BC3 LDX #$0B
- I8BC5 LDA F9960,X ;"CONTROL PORT"
- STA F04B5,X
- DEX
- BPL I8BC5
- LDA #$37
- STA A01
- LDA #$00
- STA A08
- LDA #$C0
- STA ADC02
- LDA #$40
- STA ADC00
- JSR I8CF2
- LDX #$00
- JSR I8CB0
- CPY #$00
- BEQ I8BEE
- INC A08
- I8BEE LDA #$C0
- STA ADC02
- LDA #$80
- STA ADC00
- JSR I8CF2
- LDX #$01
- JSR I8CB0
- CPY #$00
- BEQ I8C06
- INC A08
- I8C06 LDA A08
- CMP #$00
- BEQ I8C15
- LDA A08
- CMP #$01
- BEQ I8C57
- JMP I8C70 ;"6581 BAD"
- I8C15 LDA #$17
- STA A01
- LDA AE47E ;C64/SX flag
- CMP #$2A
- BEQ I8C48 ;SX
- JSR I8AFD
- LDA #$FF
- STA ADC02
- LDA #$00
- STA ADC03
- LDA #$DF
- STA ADC00
- I8C32 LDA ADC01
- AND #$1F
- STA A0F
- LDA ADC00
- AND #$1F
- CMP A0F
- BNE I8C82
- SEC
- ROR ADC00
- BCS I8C32
- ;CONTROL PORT "OK"
- I8C48 LDA #$37
- STA A01
- LDA #$0F
- STA A04C4
- LDA #$0B
- STA A04C5
- RTS
- I8C57 LDX #$0B
- I8C59 LDA F99B1,X ;"4066 U28 BAD"
- STA F0735,X
- DEX
- BPL I8C59
- LDA #$02
- STA ADB3E
- STA ADB3F
- STA ADB40
- JMP I8C91
- I8C70 LDA #$02 ;6581 "BAD"
- STA A0702
- LDA #$01
- STA A0703
- LDA #$04
- STA A0704
- JMP I8C91
- ;6526 U1 "BAD"
- I8C82 LDA #$02
- STA A068A
- LDA #$01
- STA A068B
- LDA #$04
- STA A068C
- ;CONTROL PORT "BAD"
- I8C91 LDA #$37
- STA A01
- LDA #$02
- STA A04C4
- LDA #$01
- STA A04C5
- LDA #$04
- STA A04C6
- LDA #$02
- STA AD8C4
- STA AD8C5
- STA AD8C6
- RTS
- I8CB0 LDA #$05
- STA A0F
- I8CB4 LDA AD419
- STA A1F
- LDA AD41A
- STA A20
- LDA A1F
- LDY #$01
- CMP F8CEA,X
- BCC I8CE5
- INY
- CMP F8CEC,X
- BEQ I8CCF
- BCS I8CE5
- I8CCF LDA A20
- INY
- CMP F8CEE,X
- BCC I8CE5
- INY
- CMP F8CF0,X
- BEQ I8CDF
- BCS I8CE5
- I8CDF DEC A0F
- BNE I8CB4
- LDY #$00
- I8CE5 LDA A20
- LDX A1F
- RTS
- F8CEA .byte $50,$50
- F8CEC .byte $78,$78
- F8CEE .byte $50,$50
- F8CF0 .byte $78,$78
- I8CF2 LDX #$01
- I8CF4 JSR I8AFD
- DEX
- BNE I8CF4
- RTS
- ;SERIAL PORT TEST
- I8CFB LDX #$0A
- I8CFD LDA F996C,X ;"SERIAL PORT"
- STA F04DD,X
- DEX
- BPL I8CFD
- LDA #$37
- STA A01
- LDA ADC0D
- LDA #$FC
- STA ADD02
- LDA #$DF
- STA ADD00
- LDA ADC0D
- AND #$10
- BEQ I8D21
- JMP I8D8D
- I8D21 LDA ADD00
- ASL A
- BCS I8D2A
- JMP I8D9F
- I8D2A ASL A
- BCC I8D30
- JMP I8D9F
- I8D30 LDA #$FC
- STA ADD02
- LDA #$F7
- STA ADD00
- LDA ADC0D
- AND #$10
- BNE I8D44
- JMP I8D8D
- I8D44 LDA ADD00
- ASL A
- BCC I8D4D
- JMP I8D9F
- I8D4D ASL A
- BCC I8D53
- JMP I8D9F
- I8D53 LDA #$FC
- STA ADD02
- LDA #$CF
- STA ADD00
- LDA ADD00
- ASL A
- ASL A
- BCS I8D9F
- LDA #$FC
- STA ADD02
- LDA #$C7
- STA ADD00
- LDA ADC0D
- AND #$10
- BNE I8D8D
- LDA ADD00
- ASL A
- BCC I8D9F
- ASL A
- BCC I8D9F
- LDA #$37 ;SERIAL PORT "OK"
- STA A01
- LDA #$0F
- STA A04EC
- LDA #$0B
- STA A04ED
- RTS
- ;6526 U1 "BAD" (from serial port test)
- I8D8D LDA #$02
- STA A068A
- LDA #$01
- STA A068B
- LDA #$04
- STA A068C
- JMP I8DAE
- ;6526 U2 "BAD" (from serial port test)
- I8D9F LDA #$02
- STA A06B2
- LDA #$01
- STA A06B3
- LDA #$04
- STA A06B4
- ;SERIAL PORT "BAD"
- I8DAE LDA #$02
- STA A04EC
- LDA #$01
- STA A04ED
- LDA #$04
- STA A04EE
- LDA #$02
- STA AD8EC
- STA AD8ED
- STA AD8EE
- LDA #$37
- STA A01
- RTS
- ;USER PORT TEST
- I8DCD LDX #$08
- I8DCF LDA F9977,X ;"USER PORT"
- STA F0505,X
- DEX
- BPL I8DCF
- LDA #$48
- STA ADC0E
- LDA #$08
- STA ADD0E
- LDA #$F8
- STA ADD02
- LDA ADD00
- AND #$E7
- STA ADD00
- NOP
- NOP
- LDA ADD00
- AND #$04
- BNE I8DFB
- JSR I8EE4
- I8DFB LDA ADD00
- ORA #$08
- STA ADD00
- NOP
- NOP
- LDA ADD00
- AND #$04
- BEQ I8E0F
- JSR I8EE4
- I8E0F LDA #$0F
- STA ADD03
- LDX #$00
- I8E16 STX ADD01
- STX A29
- LDA ADD01
- LSR A
- LSR A
- LSR A
- LSR A
- AND #$0F
- CMP A29
- BEQ I8E2B
- JSR I8EE4
- I8E2B INX
- CPX #$10
- BMI I8E16
- LDX #$05
- I8E32 LDA ADD0D
- LDA ADD01
- NOP
- NOP
- LDA ADD0D
- AND #$10
- BNE I8E44
- JSR I8EE4
- I8E44 DEX
- BNE I8E32
- LDA #$08
- STA ADD0E
- LDA #$48
- STA ADC0E
- LDA #<$DC00
- STA A25
- LDA #>$DC00
- STA A26
- LDA #<$DD00
- STA A23
- LDA #>$DD00
- STA A24
- JSR I8F0E
- CPX #$00
- BEQ I8E6D
- LDX #$00
- JSR I8EAF
- I8E6D LDA #$08
- STA ADC0E
- ORA #$48
- STA ADD0E
- LDA #<$DD00
- STA A25
- LDA #>$DD00
- STA A26
- LDA #<$DC00
- STA A23
- LDA #>$DC00
- STA A24
- JSR I8F0E
- CPX #$00
- BEQ I8E93
- LDX #$01
- JSR I8EAF
- I8E93 LDA #$08
- STA ADD0E
- LDA #$48
- STA ADC0E
- LDA A0514 ;is USER PORT already marked as bad ?
- CMP #$02
- BEQ I8EAE
- LDA #$0F ;USER PORT "OK"
- STA A0514
- LDA #$0B
- STA A0515
- I8EAE RTS
- I8EAF LDA A049D
- CMP #$10 ;keyboard "OPEN" ?
- BNE I8EC0
- LDA AD914
- CMP #$06
- BEQ I8ED2
- JMP I8EE4
- I8EC0 LDA AD89C ;keyboard marked red(bad) ?
- CMP #$02
- BEQ I8ED2
- LDA AD914 ;user port marked red(bad) ?
- CMP #$02
- BEQ I8EE4
- CPX #$01
- BEQ I8EE4
- ;6526 U1 "BAD" (user port test)
- I8ED2 LDA #$02
- STA A068A
- LDA #$01
- STA A068B
- LDA #$04
- STA A068C
- JMP I8EF3
- ;6526 U2 "BAD" (user port test)
- I8EE4 LDA #$02
- STA A06B2
- LDA #$01
- STA A06B3
- LDA #$04
- STA A06B4
- ;USER PORT "BAD"
- I8EF3 LDA #$02
- STA A0514
- LDA #$01
- STA A0515
- LDA #$04
- STA A0516
- LDA #$02
- STA AD914
- STA AD915
- STA AD916
- RTS
- ;user port tests
- I8F0E LDX #$03
- LDA F8F78,X
- LDY #$0C
- STA (P25),Y
- LDA #$00
- LDY #$05
- STA (P25),Y
- LDA #$10
- DEY
- STA (P25),Y
- LDY #$0E
- LDA #$51
- STA (P25),Y
- I8F28 LDA #$FF
- STA A0F
- I8F2C LDY #$0D
- LDA (P25),Y
- AND #$08
- BNE I8F3C
- DEC A0F
- BNE I8F2C
- LDX #$01
- BNE I8F71
- I8F3C LDA #$0F
- STA A0F
- I8F40 LDA (P23),Y
- AND #$08
- BNE I8F4E
- DEC A0F
- BNE I8F40
- LDX #$02
- BNE I8F71
- I8F4E LDY #$0C
- LDA (P23),Y
- STA FE0,X
- DEX
- BMI I8F5F
- LDA F8F78,X
- STA (P25),Y
- JMP I8F28
- I8F5F LDX #$03
- I8F61 LDA FE0,X
- CMP F8F78,X
- BEQ I8F6C
- LDX #$03
- BNE I8F71
- I8F6C DEX
- BPL I8F61
- LDX #$00
- I8F71 LDY #$0E
- LDA #$48
- STA (P25),Y
- RTS
- F8F78 .BYTE $FF,$AA,$55,$00
- ;TIMER1 A TEST
- I8F7C LDX #$07
- I8F7E LDA F9980,X ;"TIMER1 A"
- STA F052D,X
- DEX
- BPL I8F7E
- LDA #$37
- STA A01
- LDA #$48
- STA ADC0E
- LDA #$08
- STA ADD0E
- LDA #$01
- STA A0F
- I8F99 LDX A9144
- LDY A9145
- STX A33
- STY A34
- LDX A9146
- LDY A9147
- STX A35
- STY A36
- LDX #<$DC00
- LDY #>$DC00
- JSR I9154
- CPX #$00
- BEQ I8FBF
- DEC A0F
- BPL I8F99
- JMP I90B4 ;TIMER1 A "BAD", 6526 U1 "BAD"
- I8FBF LDA #$0F
- STA A053C ;TIMER1 A "OK"
- LDA #$0B
- STA A053D
- RTS
- ;TIMER1 B TEST
- I8FCA LDX #$01
- I8FCC LDA F9988,X ;" B" (Timer)
- STA F055B,X
- DEX
- BPL I8FCC
- LDA #$37
- STA A01
- LDA #$48
- STA ADC0E
- LDA #$08
- STA ADD0E
- LDA #$01
- STA A0F
- I8FE7 LDX A9148
- LDY A9149
- STX A33
- STY A34
- LDX A914A
- LDY A914B
- STX A35
- STY A36
- LDX #<$DC00
- LDY #>$DC00
- JSR I91CC
- CPX #$00
- BEQ I900D
- DEC A0F
- BPL I8FE7
- JMP I90D8 ;Timer1 B "BAD", 6526 U1 "BAD"
- I900D LDA #$0F
- STA A0564 ;Timer1 B "OK"
- LDA #$0B
- STA A0565
- RTS
- ;TIMER2 A TEST
- I9018 LDX #$07
- I901A LDA F998A,X ;"TIMER2 A"
- STA F057D,X
- DEX
- BPL I901A
- LDA #$37
- STA A01
- LDA #$48
- STA ADC0E
- LDA #$08
- STA ADD0E
- LDA #$01
- STA A0F
- I9035 LDX A914C
- LDY A914D
- STX A33
- STY A34
- LDX A914E
- LDY A914F
- STX A35
- STY A36
- LDX #<$DD00
- LDY #>$DD00
- JSR I9154
- CPX #$00
- BEQ I905B
- DEC A0F
- BPL I9035
- JMP I90FC
- I905B LDA #$0F
- STA A058C
- LDA #$0B
- STA A058D
- RTS
- ;TIMER2 B TEST
- I9066 LDX #$01
- I9068 LDA F9992,X ;" B" (Timer)
- STA F05AB,X
- DEX
- BPL I9068
- LDA #$37
- STA A01
- LDA #$48
- STA ADC0E
- LDA #$08
- STA ADD0E
- LDA #$01
- STA A0F
- I9083 LDX A9150
- LDY A9151
- STX A33
- STY A34
- LDX A9152
- LDY A9153
- STX A35
- STY A36
- LDX #<$DD00
- LDY #>$DD00
- JSR I91CC
- CPX #$00
- BEQ I90A9
- DEC A0F
- BPL I9083
- JMP I9120
- I90A9 LDA #$0F
- STA A05B4
- LDA #$0B
- STA A05B5
- RTS
- ;Timer1 A "BAD", 6526 U1 "BAD"
- I90B4 LDA #$02
- STA A053C ;Timer1 A "BAD"
- STA A068A ;6526 U1 "BAD"
- LDA #$01
- STA A053D
- STA A068B
- LDA #$04
- STA A053E
- STA A068C
- LDA #$02
- STA AD93C
- STA AD93D
- STA AD93C
- RTS
- ;Timer1 B "BAD", 6526 U1 "BAD"
- I90D8 LDA #$02
- STA A0564 ;Timer1 B "BAD"
- STA A068A ;6526 U1 "BAD"
- LDA #$01
- STA A0565
- STA A068B
- LDA #$04
- STA A0566
- STA A068C
- LDA #$02
- STA AD964
- STA AD965
- STA AD966
- RTS
- I90FC LDA #$02
- STA A058C
- STA A06B2 ;6526 U2 "BAD"
- LDA #$01
- STA A058D
- STA A06B3
- LDA #$04
- STA A058E
- STA A06B4
- LDA #$02
- STA AD98C
- STA AD98D
- STA AD98E
- RTS
- I9120 LDA #$02
- STA A05B4
- STA A06B2 ;6526 U2 "BAD"
- LDA #$01
- STA A05B5
- STA A06B3
- LDA #$04
- STA A05B6
- STA A06B4
- LDA #$02
- STA AD9B4
- STA AD9B5
- STA AD9B6
- RTS
- A9144 .BYTE $FF
- A9145 .BYTE $00
- A9146 .BYTE $10
- A9147 .BYTE $00
- A9148 .BYTE $FF
- A9149 .BYTE $00
- A914A .BYTE $10
- A914B .BYTE $00
- A914C .BYTE $FF
- A914D .BYTE $00
- A914E .BYTE $10
- A914F .BYTE $00
- A9150 .BYTE $FF
- A9151 .BYTE $00
- A9152 .BYTE $10
- A9153 .BYTE $00
- I9154 STX A02
- STY A03
- LDA #$00
- STA A1B
- LDA #$34
- LDY #$04
- STA (P02),Y
- LDA #$12
- INY
- STA (P02),Y
- LDY #$7F
- LDA (P02),Y
- LDY #$0E
- LDA (P02),Y
- AND #$EF
- ORA #$09
- STA (P02),Y
- LDX #$00
- LDY #$0D
- I9179 LDA A03
- CMP #$DD
- BEQ I9185
- LDA ADC0D
- SEC
- BCS I9188
- I9185 LDA ADD0D
- I9188 AND #$01
- BNE I91B9
- SEC
- LDA A33
- SBC #$01
- STA A33
- LDA A34
- SBC #$00
- STA A34
- BCS I919F
- LDX #$32
- BCC I91C1
- I919F LDA A1B
- CMP #$00
- BNE I91B6
- SEC
- LDA A35
- SBC #$01
- STA A35
- LDA A36
- SBC #$00
- STA A36
- BCS I91B6
- INC A1B
- I91B6 JMP I9179
- I91B9 LDA A1B
- CMP #$00
- BNE I91C1
- LDX #$31
- I91C1 LDY #$0E
- LDA (P02),Y
- AND #$E6
- ORA #$08
- STA (P02),Y
- RTS
- I91CC STX A02
- STY A03
- LDA #$00
- STA A1B
- LDA #$34
- LDY #$06
- STA (P02),Y
- LDA #$12
- INY
- STA (P02),Y
- LDY #$0D
- LDA (P02),Y
- LDY #$0F
- LDA (P02),Y
- ORA #$09
- STA (P02),Y
- LDX #$00
- LDY #$0D
- I91EF LDA A03
- CMP #$DD
- BEQ I91FB
- LDA ADC0D
- SEC
- BCS I91FE
- I91FB LDA ADD0D
- I91FE AND #$02
- BNE I922F
- SEC
- LDA A33
- SBC #$01
- STA A33
- LDA A34
- SBC #$00
- STA A34
- BCS I9215
- LDX #$32
- BCC I9237
- I9215 LDA A1B
- CMP #$00
- BNE I922C
- SEC
- LDA A35
- SBC #$01
- STA A35
- LDA A36
- SBC #$00
- STA A36
- BCS I922C
- INC A1B
- I922C JMP I91EF
- I922F LDA A1B
- CMP #$00
- BNE I9237
- LDX #$31
- I9237 LDY #$0F
- LDA (P02),Y
- AND #$E6
- ORA #$08
- STA (P02),Y
- RTS
- I9242 LDX #$08
- I9244 LDA F9994,X ;"interrupt"
- STA F05CD,X
- DEX
- BPL I9244
- SEC
- LDA #$66
- STA A0314
- LDA #$95
- STA A0315
- SEC
- LDA #$7A
- STA A0318
- LDA #$95
- STA A0319
- LDA #$37
- STA A01
- CLI
- LDA #$10
- STA ADC04
- LDA #$00
- STA ADC05
- LDA #$FF
- STA A17
- LDA #$81
- STA A18
- STA ADC0D
- LDA ADC0D
- LDA ADC0E
- ORA #$09
- STA ADC0E
- JSR I94D1
- LDA #$01
- STA ADC0D
- LDA ADC0E
- AND #$EE
- STA ADC0E
- LDA A17
- CMP #$00
- BEQ I92A1
- JSR I9492
- I92A1 LDA #$10
- STA ADC06
- LDA #$00
- STA ADC07
- LDA #$FF
- STA A17
- LDA #$82
- STA A18
- STA ADC0D
- LDA ADC0D
- LDA ADC0F
- ORA #$09
- STA ADC0F
- JSR I94D1
- LDA #$02
- STA ADC0D
- LDA ADC0F
- AND #$EE
- STA ADC0F
- LDA A17
- CMP #$00
- BEQ I92DA
- JSR I9492
- I92DA LDA #$FF
- STA A17
- LDA #$84
- STA A18
- STA ADC0D
- LDA ADC0D
- LDX #$00
- LDY #$DC
- JSR I94DD
- LDX #$0A
- I92F1 JSR I8AFD
- LDA A17
- CMP #$00
- BEQ I92FD
- DEX
- BNE I92F1
- I92FD LDA #$04
- STA ADC0D
- LDA A17
- CMP #$00
- BEQ I930B
- JSR I9492
- I930B LDA #$48
- STA ADC0E
- LDA #$FF
- STA A17
- STA ADC0C
- LDA #$88
- STA A18
- STA ADC0D
- LDA ADC0D
- LDA #$41
- STA ADC0E
- LDX #$FF
- I9328 JSR I94D1
- LDA A17
- CMP #$00
- BEQ I9334
- DEX
- BNE I9328
- I9334 LDA #$48
- STA ADC0E
- LDA A17
- CMP #$00
- BEQ I9342
- JSR I9492
- I9342 LDA #$FC
- STA ADD02
- LDA #$3F
- STA A00
- LDA ADD00
- AND #$DF
- STA ADD00
- LDA A01
- ORA #$10
- STA A01
- LDA #$FF
- STA A17
- LDA #$90
- STA A18
- STA ADC0D
- LDA ADC0D
- JSR I94D1
- LDA A01
- AND #$EF
- STA A01
- NOP
- NOP
- LDA #$10
- STA ADC0D
- LDA A17
- CMP #$00
- BEQ I9380
- JSR I9492
- I9380 SEI
- LDA #$10
- STA ADD04
- LDA #$00
- STA ADD05
- LDA #$FF
- STA A19
- LDA #$81
- STA A1A
- STA ADD0D
- LDA ADD0D
- LDA ADD0E
- ORA #$09
- STA ADD0E
- JSR I94D1
- LDA #$01
- STA ADD0D
- LDA ADD0E
- AND #$EE
- STA ADD0E
- LDA A19
- CMP #$00
- BEQ I93BA
- JSR I94A4
- I93BA LDA #$10
- STA ADD06
- LDA #$00
- STA ADD07
- LDA #$FF
- STA A19
- LDA #$82
- STA A1A
- STA ADD0D
- LDA ADD0D
- LDA ADD0F
- ORA #$09
- STA ADD0F
- JSR I94D1
- LDA #$02
- STA ADD0D
- LDA ADD0F
- AND #$EE
- STA ADD0F
- LDA A19
- CMP #$00
- BEQ I93F3
- JSR I94A4
- I93F3 LDA #$FF
- STA A19
- LDA #$84
- STA A1A
- STA ADD0D
- LDA ADD0D
- LDX #$00
- LDY #$DD
- JSR I94DD
- LDX #$0A
- I940A JSR I8AFD
- LDA A19
- CMP #$00
- BEQ I9416
- DEX
- BNE I940A
- I9416 LDA #$04
- STA ADD0D
- LDA A19
- CMP #$00
- BEQ I9424
- JSR I94A4
- I9424 LDA #$FF
- STA A19
- STA ADC0C
- LDA #$88
- STA A1A
- STA ADD0D
- LDA ADD0D
- LDA #$41
- STA ADC0E
- LDX #$FF
- I943C JSR I94D1
- LDA A19
- CMP #$03
- BEQ I9448
- DEX
- BNE I943C
- I9448 LDA #$08
- STA ADD0D
- LDA #$48
- STA ADC0E
- LDA A19
- CMP #$00
- BEQ I945B
- JSR I94A4
- I945B LDA #$FF
- STA A19
- LDA #$90
- STA A1A
- STA ADD0D
- LDA ADD0D
- LDA ADD01
- NOP
- NOP
- LDA #$10
- STA ADD0D
- LDA A19
- CMP #$00
- BEQ I947C
- JSR I94A4
- I947C LDA A05DC
- CMP #$02
- BEQ I948D
- LDA #$0F
- STA A05DC
- LDA #$0B
- STA A05DD
- I948D LDA #$37
- STA A01
- RTS
- ;6526 U2 "BAD"
- I9492 LDA #$02
- STA A06B2
- LDA #$01
- STA A06B3
- LDA #$04
- STA A06B4
- JMP I94B6
- I94A4 LDA #$02
- STA A068A ;6526 U1 "BAD"
- LDA #$01
- STA A068B
- LDA #$04
- STA A068C
- JMP I94B6
- I94B6 LDA #$02
- STA A05DC
- LDA #$01
- STA A05DD
- LDA #$04
- STA A05DE
- LDA #$02
- STA AD9DC
- STA AD9DD
- STA AD9DE
- RTS
- I94D1 PHA
- TXA
- PHA
- LDX #$3F
- I94D6 DEX
- BNE I94D6
- PLA
- TAX
- PLA
- RTS
- I94DD STX A02
- STY A03
- LDY #$0B
- LDA (P02),Y
- AND #$80
- STA A2E
- LDA (P02),Y
- AND #$1F
- STA A2F
- DEY
- LDA (P02),Y
- STA A37
- DEY
- LDA (P02),Y
- STA A3A
- DEY
- LDA (P02),Y
- STA A3B
- SED
- CLC
- LDA A3A
- ADC #$02
- CMP #$60
- BMI I950C
- SEC
- SBC #$60
- SEC
- I950C STA A3A
- LDA A37
- ADC #$00
- CMP #$60
- BMI I951A
- SEC
- SBC #$60
- SEC
- I951A STA A37
- LDA A2F
- PHP
- CMP #$11
- BNE I952F
- PLP
- PHP
- BCC I952F
- LDA A2E
- EOR #$80
- STA A2E
- LDA A2F
- I952F PLP
- ADC #$00
- STA A2F
- CMP #$13
- BMI I953D
- SEC
- SBC #$12
- STA A2F
- I953D CLD
- LDY #$0F
- LDA (P02),Y
- ORA #$80
- STA (P02),Y
- LDY #$0B
- LDA A2F
- ORA A2E
- STA (P02),Y
- DEY
- LDA A37
- STA (P02),Y
- DEY
- LDA A3A
- STA (P02),Y
- DEY
- LDA A3B
- STA (P02),Y
- LDY #$0F
- LDA (P02),Y
- AND #$7F
- STA (P02),Y
- RTS
- JSR I97B8 ;output timer values
- LDA ADC0D
- AND A18
- CMP A18
- BNE I9574
- INC A17
- I9574 PLA
- TAY
- PLA
- TAX
- PLA
- RTI
- PHA
- TXA
- PHA
- TYA
- PHA
- JSR I97B8 ;output timer values
- LDA ADD0D
- AND A1A
- CMP A1A
- BNE I958D
- INC A19
- I958D PLA
- TAY
- PLA
- TAX
- PLA
- RTI
- I9593 LDX #$09
- I9595 LDA F999D,X ;"SOUND TEST"
- STA F05F5,X
- DEX
- BPL I9595
- LDA #$14
- STA AD418
- LDA #$00
- STA AD417
- LDA #$3E
- STA AD405
- LDA #$CA
- STA AD406
- LDA #$00
- STA AD412
- LDA #$02
- I95B9 PHA
- LDX #$06
- I95BC LDA F9771,X
- STA AD401
- LDA F9778,X
- STA AD400
- PLA
- TAY
- LDA F979E,Y
- STA AD402
- LDA F97A1,Y
- STA AD403
- LDA F979B,Y
- STA AD404
- TYA
- PHA
- LDA #$9F
- JSR I973E
- LDA #$00
- STA AD404
- LDA #$00
- JSR I973E
- DEX
- BNE I95BC
- LDA #$00
- STA AD417
- LDA #$18
- STA AD418
- LDA #$3E
- STA AD40C
- LDA #$CA
- STA AD40D
- LDX #$06
- I9606 LDA F977F,X
- STA AD408
- LDA F9786,X
- STA AD407
- PLA
- TAY
- LDA F979E,Y
- STA AD409
- LDA F97A1,Y
- STA AD40A
- LDA F979B,Y
- STA AD40B
- TYA
- PHA
- LDA #$9F
- JSR I973E
- LDA #$00
- STA AD40B
- LDA #$00
- JSR I973E
- DEX
- BNE I9606
- LDA #$00
- STA AD417
- LDA #$1F
- STA AD418
- LDA #$3E
- STA AD413
- LDA #$CA
- STA AD414
- LDX #$06
- I9650 LDA F978D,X
- STA AD40F
- LDA F9794,X
- STA AD40E
- PLA
- TAY
- LDA F979E,Y
- STA AD410
- LDA F97A1,Y
- STA AD411
- LDA F979B,Y
- STA AD412
- TYA
- PHA
- LDA #$9F
- JSR I973E
- LDA #$00
- STA AD412
- LDA #$00
- JSR I973E
- DEX
- BNE I9650
- PLA
- TAY
- DEY
- TYA
- BMI I968D
- JMP I95B9
- I968D LDY #$00
- I968F LDA F97A9,Y
- STA AD417
- LDA F97A8,Y
- STA AD418
- LDA F97A6,Y
- STA AD416
- LDA F97A7,Y
- STA AD415
- CLC
- LDX #$07
- I96AA LDA #$C4
- STA AD406
- LDA F97A4,Y
- STA AD401
- LDA F97A5,Y
- STA AD400
- LDA #$81
- STA AD404
- TXA
- PHA
- LDX #$04
- I96C4 JSR I9752
- DEX
- BNE I96C4
- PLA
- TAX
- DEX
- BNE I96AA
- LDA #$00
- STA AD404
- JSR I9752
- CLC
- LDX #$07
- I96DA LDA #$C4
- STA AD40D
- LDA F97A4,Y
- STA AD408
- LDA F97A5,Y
- STA AD407
- LDA #$81
- STA AD40B
- TXA
- PHA
- LDX #$04
- I96F4 JSR I9752
- DEX
- BNE I96F4
- PLA
- TAX
- DEX
- BNE I96DA
- LDA #$00
- STA AD40B
- JSR I9752
- CLC
- LDX #$07
- I970A LDA #$C4
- STA AD414
- LDA F97A4,Y
- STA AD40F
- LDA F97A5,Y
- STA AD40E
- LDA #$81
- STA AD412
- TXA
- PHA
- LDX #$04
- I9724 JSR I9752
- DEX
- BNE I9724
- PLA
- TAX
- DEX
- BNE I970A
- LDA #$00
- STA AD412
- JSR I9752
- DEY
- BMI I973D
- JMP I968F
- I973D RTS
- I973E CMP #$00
- BEQ I9751
- TAY
- TXA
- PHA
- TYA
- TAX
- I9747 LDY #$FF
- I9749 DEY
- BNE I9749
- DEX
- BNE I9747
- PLA
- TAX
- I9751 RTS
- I9752 LDA #$FF
- STA ADC04
- STA ADC05
- LDA #$7F
- STA ADC0D
- LDA ADC0E
- AND #$CF
- ORA #$01
- STA ADC0E
- I9769 LDA ADC0D
- AND #$01
- BEQ I9769
- RTS
- F9771 .BYTE $11,$15,$19,$22,$19,$15,$11
- F9778 .BYTE $25,$9A,$B1,$4B,$B1,$9A,$25
- F977F .BYTE $22,$2B,$33,$44,$33,$2B,$22
- F9786 .BYTE $4B,$34,$61,$95,$61,$34,$4B
- F978D .BYTE $44,$56,$66,$89,$66,$56,$44
- F9794 .BYTE $95,$69,$C2,$2B,$C2,$69,$95
- F979B .BYTE $45,$11,$25
- F979E .BYTE $00,$00,$00
- F97A1 .BYTE $08,$00,$00
- F97A4 .BYTE $09
- F97A5 .BYTE $00
- F97A6 .BYTE $28
- F97A7 .BYTE $FF
- F97A8 .BYTE $1F
- F97A9 .BYTE $AF
- LDA #$37
- STA A01
- LDA #$48
- STA ADC0E
- LDA #$08
- STA ADD0E
- I97B8 LDA ADC0B ;output timer values
- CLC
- ASL A
- BCC I97CC
- LDA #$10
- STA A07DB
- LDA #$0D
- STA A07DC
- CLC
- BCC I97D6
- I97CC LDA #$01
- STA A07DB
- LDA #$0D
- STA A07DC
- I97D6 LDA ADC0B
- AND #$7F
- LDY #$01
- BNE I9811
- I97DF STA A07D3
- STX A07D4
- LDA #$3A
- STA A07D5
- LDA ADC0A
- LDY #$02
- BNE I9811
- I97F1 STA A07D6
- STX A07D7
- LDA #$3A
- STA A07D8
- LDA ADC09
- LDY #$03
- BNE I9811
- I9803 STA A07D9
- STX A07DA
- LDA ADC08
- CLC
- BCC I984A
- LDY #$00
- I9811 PHA
- STY A20
- LDY #$04
- BNE I9820
- I9818 LDY A20
- TAX
- PLA
- LSR A
- LSR A
- LSR A
- LSR A
- I9820 AND #$0F
- CMP #$0A
- BMI I982B
- SEC
- SBC #$09
- BNE I982D
- I982B ORA #$30
- I982D CPY #$01
- BEQ I97DF
- CPY #$02
- BEQ I97F1
- CPY #$03
- BEQ I9803
- CPY #$04
- BEQ I9818
- CPY #$05
- BEQ I9871
- CPY #$06
- BEQ I9883
- CPY #$07
- BEQ I9895
- RTS
- I984A LDA ADD0B
- CLC
- ASL A
- BCC I985E
- LDA #$10
- STA A07E6
- LDA #$0D
- STA A07E7
- CLC
- BCC I9868
- I985E LDA #$01
- STA A07E6
- LDA #$0D
- STA A07E7
- I9868 LDA ADD0B
- AND #$7F
- LDY #$05
- I986F BNE I9811
- I9871 STA A07DE
- STX A07DF
- LDA #$3A
- STA A07E0
- LDA ADD0A
- LDY #$06
- BNE I986F
- I9883 STA A07E1
- STX A07E2
- LDA #$3A
- STA A07E3
- LDA ADD09
- LDY #$07
- BNE I986F
- I9895 STA A07E4
- STX A07E5
- LDA ADD08
- RTS
- F989E =*-1 ;D000- values
- .BYTE $00,$00,$00,$00
- .BYTE $00,$00,$00,$00
- .BYTE $00,$00,$00,$00
- .BYTE $00,$00,$00,$00
- .BYTE $00,$1B,$00,$00
- .BYTE $00,$00,$08,$00
- .BYTE $14,$00,$00,$00
- .BYTE $00,$00,$00,$00
- .BYTE $03,$01,$00,$00
- .BYTE $00,$00,$00,$00
- .BYTE $00,$00,$00,$00
- .BYTE $00,$00
- F98CD .BYTE $00,$00,$00,$00 ;dc07,06,05,04
- F98D1 .BYTE $00,$00,$00,$00,$80 ;dd07,06,05,04
- F98D6 .BYTE $00,$55,$AA,$FF ;mem test pattern
- F98DA .BYTE $00,$05,$0A,$0F ;mem test pattern
- F98DE .text "c-64 diagnostic rev 586220"
- F98F8 .text "count"
- F98FD .text "zero page"
- F9906 .text "stack page"
- F9910 .text "pla test"
- F9918 .text "ram test1"
- F9921 .text "ram test2"
- F992A .text "color ram"
- F9933 .text "basic rom"
- F993C .text "kernal rom"
- F9946 .text "charac rom"
- F9950 .text "cassette"
- F9958 .text "keyboard"
- F9960 .text "control port"
- F996C .text "serial port"
- F9977 .text "user port"
- F9980 .text "timer1 a"
- F9988 .text " b"
- F998A .text "timer2 a"
- F9992 .text " b"
- F9994 .text "interrupt"
- F999D .text "sound test"
- F99A7 .text "screen ram"
- F99B1 .text "4066",0
- .text "u28 bad"
- F99BD .BYTE $55,$40,$40,$40;"U...
- .BYTE $40,$40,$40,$40;"....
- .BYTE $40,$40,$40,$40;"....
- .BYTE $40,$40,$40,$40;"....
- .BYTE $40,$40,$40,$40;"....
- .BYTE $40,$40,$40,$40;"....
- .BYTE $40,$40,$40,$40;"....
- .BYTE $40,$40,$40,$40;"....
- .BYTE $40,$40,$40,$40;"....
- .BYTE $40,$40,$40,$49;"...I
- F99E5 .text $5d,"6510 u7 4164 ",$5d
- .text $5d,"6526 u1 u9 u21 ",$5d
- .text $5d,"6526 u2 u10 u22 ",$5d
- .text $5d,"6567 u19 u11 u23 ",$5d
- .text $5d,"6581 u18 u12 u24 ",$5d
- .text $5d,"82s1 u17 ",$5d
- .byte $ff
- F9AD6 .BYTE $02,$06,$06,$06 ;color
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$02,$02
- .BYTE $02,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$06,$02
- .BYTE $02,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$02,$02
- .BYTE $02,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$06,$02
- .BYTE $02,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$02,$02
- .BYTE $02,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$06,$02
- .BYTE $02,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$02,$02
- .BYTE $02,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$06,$02
- .BYTE $02,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$02,$02
- .BYTE $02,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$06,$02
- .BYTE $02,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$02,$02
- .BYTE $02,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$06,$06
- .BYTE $06,$06,$06,$02
- .BYTE $FF
- F9BC7 .BYTE $4A,$40,$40,$40;"J...
- .BYTE $40,$40,$40,$40;"....
- .BYTE $40,$40,$40,$40;"....
- .BYTE $40,$40,$40,$40;"....
- .BYTE $40,$40,$40,$40;"....
- .BYTE $40,$40,$40,$40;"....
- .BYTE $40,$40,$40,$40;"....
- .BYTE $40,$40,$40,$40;"....
- .BYTE $40,$40,$40,$40;"....
- .BYTE $40,$40,$40,$4B;"...K
- F9BEF .text "sx-64 diagnostic rev 588220"
- .BYTE $AA
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA,$AA,$AA,$AA;"ªªªª
- .BYTE $AA