;$8540D-$854C5
;{
lorom
org $90D40D

	LDA $0A1C
	SEC
	SBC #$00C9
	BMI ++
	ASL A
	TAX
	LDA $D4C6, X
	BRA +
++
	LSR
	LDA #$2060
	BCS +
	LDA #$A0E0
+
	STA $14
	STZ $0AAE
	LDA $0CCE
	SEC
	SBC #$0005
	BPL +
	INC
	BEQ ++
	INC $0CCE
	LDA #$0040
	STA $0AC4
	LDA $0AF6
	STA $0AB4
	LDA $0AFA
	STA $0ABC
	LDA #$8029
	STA $0C1E
	LDX #$0006
	JSL $938163  ;  $98163 IN ROM
	LDA #$D4D2
	STA $0C6E
	LDA $14
	AND #$00FF
	STA $0C82
	STZ $0BE2
++
	INC $0CCE
	LDA #$0040
	STA $0AC6
	LDA $0AF6
	STA $0AB6
	LDA $0AFA
	STA $0ABE
	LDA #$8029
	STA $0C20
	LDX #$0008
	JSL $938163  ;  $98163 IN ROM
	LDA #$D4D2
	STA $0C70
	LDA $15
	AND #$00FF
	STA $0C84
	STZ $0BE4
+
	STZ $0CCC
	LDX #$0001
	STX $0A68
	LDA $0A1E
	AND #$00FF
	CMP #$0004
	BNE +
	INX
+
	STX $0A2C
	LDA #$0002
	STA $0A32
	STZ $0DEC
	STZ $0DEE
	RTS
print pc	;90D4C2 - 4 bytes to spare
;}