$00:8000	SEI
$00:8001	STZ $4200
$00:8004	STZ $420c
$00:8007	STZ $420b
$00:800a	STZ $2140
$00:800d	STZ $2141
$00:8010	STZ $2142
$00:8013	STZ $2143
$00:8016	LDA #$80
$00:8018	STA $2100
$00:801b	CLC
$00:801c	XCE
$00:801d	REP #$28
$00:801f	LDA #$0000
$00:8022	TCD
$00:8023	LDA #$01ff
$00:8026	TCS
$00:8027	SEP #$30
$00:8029	JSR $8901
$00:802c	JSR $87c0
$00:802f	LDA #$81
$00:8031	STA $4200
$00:8034	LDA $12
$00:8036	BEQ #$fc
$00:8038	CLI
$00:8039	BRA #$16

$00:8051	INC $1a
$00:8053	JSR $841e
$00:8056	JSL $0080b5
$00:805a	JSR $85fc
$00:805d	STZ $12
$00:805f	BRA #$d3

$00:85fc	LDY #$1c
$00:85fe	TYA
$00:85ff	ASL
$00:8600	ASL
$00:8601	TAX
$00:8602	LDA $0a23,X
$00:8605	ASL
$00:8606	ASL
$00:8607	ORA $0a22,X
$00:860a	ASL
$00:860b	ASL
$00:860c	ORA $0a21,X
$00:860f	ASL
$00:8610	ASL
$00:8611	ORA $0a20,X
$00:8614	STA $0a00,Y
$00:8617	LDA $0a27,X
$00:861a	ASL
$00:861b	ASL
$00:861c	ORA $0a26,X
$00:861f	ASL
$00:8620	ASL
$00:8621	ORA $0a25,X
$00:8624	ASL
$00:8625	ASL
$00:8626	ORA $0a24,X
$00:8629	STA $0a01,Y
$00:862c	LDA $0a2b,X
$00:862f	ASL
$00:8630	ASL
$00:8631	ORA $0a2a,X
$00:8634	ASL
$00:8635	ASL
$00:8636	ORA $0a29,X
$00:8639	ASL
$00:863a	ASL
$00:863b	ORA $0a28,X
$00:863e	STA $0a02,Y
$00:8641	LDA $0a2f,X
$00:8644	ASL
$00:8645	ASL
$00:8646	ORA $0a2e,X
$00:8649	ASL
$00:864a	ASL
$00:864b	ORA $0a2d,X
$00:864e	ASL
$00:864f	ASL
$00:8650	ORA $0a2c,X
$00:8653	STA $0a03,Y
$00:8656	DEY
$00:8657	DEY
$00:8658	DEY
$00:8659	DEY
$00:865a	BPL #$a2

$00:80b5	LDY $10
$00:80b7	LDA $8061,Y
$00:80ba	STA $03
$00:80bc	LDA $807d,Y
$00:80bf	STA $04
$00:80c1	LDA $8099,Y
$00:80c4	STA $05
$00:80c6	JMP [$0003]

$00:841e	LDX #$60
$00:8420	LDA #$f0
$00:8422	STA $0801,X
$00:8425	STA $0805,X
$00:8428	STA $0809,X
$00:842b	STA $080d,X
$00:842e	STA $0811,X
$00:8431	STA $0815,X
$00:8434	STA $0819,X
$00:8437	STA $081d,X
$00:843a	STA $0881,X
$00:843d	STA $0885,X
$00:8440	STA $0889,X
$00:8443	STA $088d,X
$00:8446	STA $0891,X
$00:8449	STA $0895,X
$00:844c	STA $0899,X
$00:844f	STA $089d,X
$00:8452	STA $0901,X
$00:8455	STA $0905,X
$00:8458	STA $0909,X
$00:845b	STA $090d,X
$00:845e	STA $0911,X
$00:8461	STA $0915,X
$00:8464	STA $0919,X
$00:8467	STA $091d,X
$00:846a	STA $0981,X
$00:846d	STA $0985,X
$00:8470	STA $0989,X
$00:8473	STA $098d,X
$00:8476	STA $0991,X
$00:8479	STA $0995,X
$00:847c	STA $0999,X
$00:847f	STA $099d,X
$00:8482	TXA
$00:8483	SEC
$00:8484	SBC #$20
$00:8486	TAX
$00:8487	BPL #$97

$00:87c0	REP #$30
$00:87c2	LDY $01fe
$00:87c5	LDX #$03fe
$00:87c8	LDA #$0000
$00:87cb	STA $0000,X
$00:87ce	STA $0400,X
$00:87d1	STA $0800,X
$00:87d4	STA $0c00,X
$00:87d7	STA $1000,X
$00:87da	STA $1400,X
$00:87dd	STA $1800,X
$00:87e0	STA $1c00,X
$00:87e3	DEX
$00:87e4	DEX
$00:87e5	BNE #$e4
$00:87e7	STA $7ec500
$00:87eb	STA $701ffe
$00:87ef	LDA $7003e5
$00:87f3	CMP #$55aa
$00:87f6	BEQ #$07
$00:87f8	LDA #$0000
$00:87fb	STA $7003e5
$00:87ff	LDA $7008e5
$00:8803	CMP #$55aa
$00:8806	BEQ #$07
$00:8808	LDA #$0000
$00:880b	STA $7008e5
$00:880f	LDA $700de5
$00:8813	CMP #$55aa
$00:8816	BEQ #$07
$00:8818	LDA #$0000
$00:881b	STA $700de5
$00:881f	STY $01fe
$00:8822	STZ $212e
$00:8825	SEP #$30
$00:8827	LDA #$80
$00:8829	STA $13
$00:882b	INC $15
$00:882d	RTS

$00:8901	LDA #$00
$00:8903	STA $00
$00:8905	LDA #$80
$00:8907	STA $01
$00:8909	LDA #$19
$00:890b	STA $02
$00:890d	SEI
$00:890e	JSR $8888
$00:8911	CLI
$00:8912	RTS

$00:8888	PHP
$00:8889	REP #$30
$00:888b	LDY #$0000
$00:888e	LDA #$bbaa
$00:8891	CMP $2140
$00:8894	BNE #$fb
$00:8896	SEP #$20
$00:8898	LDA #$cc
$00:889a	BRA #$30

$00:88cc	PHA
$00:88cd	REP #$20
$00:88cf	LDA [$00],Y
$00:88d1	INY
$00:88d2	INY
$00:88d3	TAX
$00:88d4	LDA [$00],Y
$00:88d6	INY
$00:88d7	INY
$00:88d8	STA $2142
$00:88db	SEP #$20
$00:88dd	CPX #$0001
$00:88e0	LDA #$00
$00:88e2	ROL
$00:88e3	STA $2141
$00:88e6	ADC #$7f
$00:88e8	PLA
$00:88e9	STA $2140
$00:88ec	CMP $2140
$00:88ef	BNE #$fb
$00:88f1	BVS #$a9
$00:88f3	STZ $2140
$00:88f6	STZ $2141
$00:88f9	STZ $2142
$00:88fc	STZ $2143
$00:88ff	PLP
$00:8900	RTS

$00:889c	LDA [$00],Y
$00:889e	INY
$00:889f	XBA
$00:88a0	LDA #$00
$00:88a2	BRA #$15

$00:88b9	REP #$20
$00:88bb	STA $2140
$00:88be	SEP #$20
$00:88c0	DEX
$00:88c1	BNE #$e1
$00:88c3	CMP $2140
$00:88c6	BNE #$fb
$00:88c8	ADC #$03
$00:88ca	BEQ #$fc
$00:88cc	PHA
$00:88cd	REP #$20
$00:88cf	LDA [$00],Y
$00:88d1	INY
$00:88d2	INY
$00:88d3	TAX
$00:88d4	LDA [$00],Y
$00:88d6	INY
$00:88d7	INY
$00:88d8	STA $2142
$00:88db	SEP #$20
$00:88dd	CPX #$0001
$00:88e0	LDA #$00
$00:88e2	ROL
$00:88e3	STA $2141
$00:88e6	ADC #$7f
$00:88e8	PLA
$00:88e9	STA $2140
$00:88ec	CMP $2140
$00:88ef	BNE #$fb
$00:88f1	BVS #$a9
$00:88f3	STZ $2140
$00:88f6	STZ $2141
$00:88f9	STZ $2142
$00:88fc	STZ $2143
$00:88ff	PLP
$00:8900	RTS

$00:88a4	XBA
$00:88a5	LDA [$00],Y
$00:88a7	INY
$00:88a8	CPY #$8000
$00:88ab	BNE #$05
$00:88ad	LDY #$0000
$00:88b0	INC $02
$00:88b2	XBA
$00:88b3	CMP $2140
$00:88b6	BNE #$fb
$00:88b8	INC
$00:88b9	REP #$20
$00:88bb	STA $2140
$00:88be	SEP #$20
$00:88c0	DEX
$00:88c1	BNE #$e1
$00:88c3	CMP $2140
$00:88c6	BNE #$fb
$00:88c8	ADC #$03
$00:88ca	BEQ #$fc
$00:88cc	PHA
$00:88cd	REP #$20
$00:88cf	LDA [$00],Y
$00:88d1	INY
$00:88d2	INY
$00:88d3	TAX
$00:88d4	LDA [$00],Y
$00:88d6	INY
$00:88d7	INY
$00:88d8	STA $2142
$00:88db	SEP #$20
$00:88dd	CPX #$0001
$00:88e0	LDA #$00
$00:88e2	ROL
$00:88e3	STA $2141
$00:88e6	ADC #$7f
$00:88e8	PLA
$00:88e9	STA $2140
$00:88ec	CMP $2140
$00:88ef	BNE #$fb
$00:88f1	BVS #$a9
$00:88f3	STZ $2140
$00:88f6	STZ $2141
$00:88f9	STZ $2142
$00:88fc	STZ $2143
$00:88ff	PLP
$00:8900	RTS