```
* = F000
F000 78 SEI
F001 A9 0E LDA #$0E
F003 A2 00 LDX #$00
F005 4C 1A F0 JMP $F01A
F008 A9 55 LDA #$55
F00A A2 00 LDX #$00
F00C A0 00 LDY #$00
F00E 4C 3B F0 JMP $F03B
F011 A9 00 LDA #$00
F013 A2 00 LDX #$00
F015 A0 55 LDY #$55
F017 4C 5A F0 JMP $F05A
F01A 9D 00 80 STA $8000,X
F01D 9D 00 81 STA $8100,X
F020 9D 00 82 STA $8200,X
F023 9D 00 83 STA $8300,X
F026 9D 80 80 STA $8080,X
F029 9D 80 81 STA $8180,X
F02C 9D 80 82 STA $8280,X
F02F 9D 80 83 STA $8380,X
F032 E8 INX
F033 30 03 BMI $F038
F035 4C 1A F0 JMP $F01A
F038 4C 08 F0 JMP $F008
F03B 95 00 STA $00,X
F03D 9D 00 01 STA $0100,X
F040 9D 00 02 STA $0200,X
F043 9D 00 03 STA $0300,X
F046 95 80 STA $80,X
F048 9D 80 01 STA $0180,X
F04B 9D 80 02 STA $0280,X
F04E 9D 80 03 STA $0380,X
F051 E8 INX
F052 30 03 BMI $F057
F054 4C 3B F0 JMP $F03B
F057 4C 11 F0 JMP $F011
F05A B5 00 LDA $00,X
F05C C9 55 CMP #$55
F05E F0 0B BEQ $F06B
F060 A9 02 LDA #$02
F062 9D 00 80 STA $8000,X
F065 E8 INX
F066 30 0E BMI $F076
F068 4C 5A F0 JMP $F05A
F06B A9 07 LDA #$07
F06D 9D 00 80 STA $8000,X
F070 E8 INX
F071 30 03 BMI $F076
F073 4C 5A F0 JMP $F05A
F076 A9 00 LDA #$00
F078 A2 00 LDX #$00
F07A A0 55 LDY #$55
F07C 4C 7F F0 JMP $F07F
F07F B5 80 LDA $80,X
F081 18 CLC
F082 C9 55 CMP #$55
F084 F0 0B BEQ $F091
F086 A9 02 LDA #$02
F088 9D 80 80 STA $8080,X
F08B E8 INX
F08C 30 0E BMI $F09C
F08E 4C 7F F0 JMP $F07F
F091 A9 07 LDA #$07
F093 9D 80 80 STA $8080,X
F096 E8 INX
F097 30 03 BMI $F09C
F099 4C 7F F0 JMP $F07F
F09C A9 00 LDA #$00
F09E A2 00 LDX #$00
F0A0 A0 00 LDY #$00
F0A2 4C A5 F0 JMP $F0A5
F0A5 BD 00 01 LDA $0100,X
F0A8 18 CLC
F0A9 C9 55 CMP #$55
F0AB F0 0B BEQ $F0B8
F0AD A9 02 LDA #$02
F0AF 9D 00 81 STA $8100,X
F0B2 E8 INX
F0B3 30 0E BMI $F0C3
F0B5 4C A5 F0 JMP $F0A5
F0B8 A9 07 LDA #$07
F0BA 9D 00 81 STA $8100,X
F0BD E8 INX
F0BE 30 03 BMI $F0C3
F0C0 4C A5 F0 JMP $F0A5
F0C3 A9 00 LDA #$00
F0C5 A2 00 LDX #$00
F0C7 A0 55 LDY #$55
F0C9 4C CC F0 JMP $F0CC
F0CC BD 80 01 LDA $0180,X
F0CF 18 CLC
F0D0 C9 55 CMP #$55
F0D2 F0 0B BEQ $F0DF
F0D4 A9 02 LDA #$02
F0D6 9D 80 81 STA $8180,X
F0D9 E8 INX
F0DA 30 0E BMI $F0EA
F0DC 4C CC F0 JMP $F0CC
F0DF A9 07 LDA #$07
F0E1 9D 80 81 STA $8180,X
F0E4 E8 INX
F0E5 30 03 BMI $F0EA
F0E7 4C CC F0 JMP $F0CC
F0EA A9 00 LDA #$00
F0EC A2 00 LDX #$00
F0EE A0 55 LDY #$55
F0F0 4C F3 F0 JMP $F0F3
F0F3 BD 00 02 LDA $0200,X
F0F6 18 CLC
F0F7 C9 55 CMP #$55
F0F9 F0 0B BEQ $F106
F0FB A9 02 LDA #$02
F0FD 9D 00 82 STA $8200,X
F100 E8 INX
F101 30 0E BMI $F111
F103 4C F3 F0 JMP $F0F3
F106 A9 07 LDA #$07
F108 9D 00 82 STA $8200,X
F10B E8 INX
F10C 30 03 BMI $F111
F10E 4C F3 F0 JMP $F0F3
F111 A9 00 LDA #$00
F113 A2 00 LDX #$00
F115 A0 55 LDY #$55
F117 4C 1A F1 JMP $F11A
F11A BD 80 02 LDA $0280,X
F11D 18 CLC
F11E C9 55 CMP #$55
F120 F0 0B BEQ $F12D
F122 A9 02 LDA #$02
F124 9D 80 82 STA $8280,X
F127 E8 INX
F128 30 0E BMI $F138
F12A 4C 1A F1 JMP $F11A
F12D A9 07 LDA #$07
F12F 9D 80 82 STA $8280,X
F132 E8 INX
F133 30 03 BMI $F138
F135 4C 1A F1 JMP $F11A
F138 A9 00 LDA #$00
F13A A2 00 LDX #$00
F13C A0 55 LDY #$55
F13E 4C 41 F1 JMP $F141
F141 BD 00 03 LDA $0300,X
F144 18 CLC
F145 C9 55 CMP #$55
F147 F0 0B BEQ $F154
F149 A9 02 LDA #$02
F14B 9D 00 83 STA $8300,X
F14E E8 INX
F14F 30 0E BMI $F15F
F151 4C 41 F1 JMP $F141
F154 A9 07 LDA #$07
F156 9D 00 83 STA $8300,X
F159 E8 INX
F15A 30 03 BMI $F15F
F15C 4C 41 F1 JMP $F141
F15F A9 00 LDA #$00
F161 A2 00 LDX #$00
F163 A0 55 LDY #$55
F165 4C 68 F1 JMP $F168
F168 BD 80 03 LDA $0380,X
F16B 18 CLC
F16C C9 55 CMP #$55
F16E F0 0B BEQ $F17B
F170 A9 02 LDA #$02
F172 9D 80 83 STA $8380,X
F175 E8 INX
F176 30 0E BMI $F186
F178 4C 68 F1 JMP $F168
F17B A9 07 LDA #$07
F17D 9D 80 83 STA $8380,X
F180 E8 INX
F181 30 03 BMI $F186
F183 4C 68 F1 JMP $F168
F186 A9 00 LDA #$00
F188 A2 00 LDX #$00
F18A A0 00 LDY #$00
F18C 4C 8F F1 JMP $F18F
F18F BD 00 80 LDA $8000,X
F192 BD 00 81 LDA $8100,X
F195 BD 00 82 LDA $8200,X
F198 BD 00 83 LDA $8300,X
F19B BD 80 80 LDA $8080,X
F19E BD 80 81 LDA $8180,X
F1A1 BD 80 82 LDA $8280,X
F1A4 BD 80 83 LDA $8380,X
F1A7 E8 INX
F1A8 E0 FF CPX #$FF
F1AA F0 03 BEQ $F1AF
F1AC 4C 8F F1 JMP $F18F
F1AF C8 INY
F1B0 C0 FF CPY #$FF
F1B2 F0 03 BEQ $F1B7
F1B4 4C 8F F1 JMP $F18F
F1B7 A2 00 LDX #$00
F1B9 A0 00 LDY #$00
F1BB A9 00 LDA #$00
F1BD 4C C0 F1 JMP $F1C0
F1C0 8A TXA
F1C1 9D 00 80 STA $8000,X
F1C4 9D 00 81 STA $8100,X
F1C7 9D 00 82 STA $8200,X
F1CA 9D 00 83 STA $8300,X
F1CD E8 INX
F1CE E0 FF CPX #$FF
F1D0 F0 03 BEQ $F1D5
F1D2 4C C0 F1 JMP $F1C0
F1D5 A2 00 LDX #$00
F1D7 A0 00 LDY #$00
F1D9 A9 00 LDA #$00
F1DB BD 00 80 LDA $8000,X
F1DE BD 00 81 LDA $8100,X
F1E1 BD 00 82 LDA $8200,X
F1E4 BD 00 83 LDA $8300,X
F1E7 BD 80 80 LDA $8080,X
F1EA BD 80 81 LDA $8180,X
F1ED BD 80 82 LDA $8280,X
F1F0 BD 80 83 LDA $8380,X
F1F3 E8 INX
F1F4 E0 FF CPX #$FF
F1F6 F0 03 BEQ $F1FB
F1F8 4C DB F1 JMP $F1DB
F1FB C8 INY
F1FC C0 FF CPY #$FF
F1FE F0 03 BEQ $F203
F200 4C DB F1 JMP $F1DB
; Initialize CRTC
F203 LDX #00 ;Clear X register
F205 LDA $F220,X ;Load CRTC constant from table
STX $E880 ;Select 6545 register starting with R0
STA $E881 ;Store data into 6545
INX ;Increment Register number
CPX #$12 ;loaded last register?
BNE $F205 ;No, continue loading
JMP $F000 ;Yes, jump to start of test
F220 .BYTE 31 28 29 0F 20 03 19 1D
.BYTE 00 09 00 00 10 00 00 00
.BYTE 00 00
; Don’t forget to insert the RESET Vector in the EPROM binary at $FFFC to cause power up to start at $F000
* = FFFC
FFFC .BYTE 00F0
.END
```