REM > JSW1bbc/src
REM Source Jet Set Willy 1 for BBC
REM ==================================
REM Source file created by J.G.Harston
REM Creates files JSW1 and JSW2
:
IF PAGE>&8000:SYS "OS_GetEnv"TOA$:IFLEFT$(A$,5)<>"B6502":OSCLI"B6502"+MID$(A$,INSTR(A$," "))
ON ERROR REPORT:PRINT" at line ";ERL:END
:
OSBYTE=&FFF4:OSWORD=&FFF1:OSWRCH=&FFEE
:
load%=&0000
DIM mcode% &9000
FOR P=0 TO 1
P%=load%:O%=mcode%
[OPT P*3+4+16
EQUS STRING$(&0080-P%,CHR$0):EQUS STRING$(&0100-P%,CHR$0)
EQUS STRING$(&0180-P%,CHR$0):EQUS STRING$(&0200-P%,CHR$0)
EQUS STRING$(&0280-P%,CHR$0):EQUS STRING$(&0300-P%,CHR$0)
EQUS STRING$(&0380-P%,CHR$0):EQUS STRING$(&0400-P%,CHR$0)

\ Print scrolling message, wait for SPACE
\ =======================================
.L0400:JMP L045B

\ Scroll screen memory containing the message
.L0403
LDX #&57:STX &91:STX &93
LDY #&F0:STY &90 :\ &90=&57F0
LDA #&F8:STA &92 :\ &92=&57F8
LDY #&10         :\ Offset between characters
LDA #&02:STA &7B :\ 2*256 bytes to scroll
LDX #&F0
.L0419
LDA (&92),Y:STA (&90),Y :\ Move 16-byte character down 8 bytes
INY:BNE L0424           :\ So scrolling by half a character cell
.L0420
INC &91:INC &93
.L0424
DEX:BNE L0419
DEC &7B:BNE L0419
RTS

\ Print JET SET WILLY in blocks
.L042C
LDA #&0A:JSR OSWRCH:JSR OSWRCH
LDA #&11:JSR OSWRCH   :\ COLOUR 2
LDA #&02:JSR OSWRCH
LDX #&00
.L0440
LDA L0663,X:STA &7B
LDY #&07
.L0447
LDA #&20:LSR &7B    :\ clear bit -> space
BCC L044F:LDA #&FF  :\ set bit -> block
.L044F
JSR OSWRCH
DEY:BPL L0447
INX:CPX #&2F:BNE L0440
RTS

\ Print scrolling message
\ -----------------------
.L045B
LDA #&80:STA &4D:STA &028A   :\ Set FX250 value to &80
LDA #&10:STA &9B
LDA #&0C:JSR OSWRCH          :\ CLS
JSR L042C                    :\ Print JET SET WILLY in blocks
LDA #&11:JSR OSWRCH          :\ COLOUR 3
LDA #&03:JSR OSWRCH
.L0478
LDA #L0510 DIV 256:STA &71   :\ Point to scrolling message
LDA #L0510 AND 255:STA &70
LDY #&00:STY &72             :\ Point to start of message
.L0484
LDY &72
LDA #&1F:JSR OSWRCH          :\ TAB(30,20)
LDA #&1E:JSR OSWRCH          :\ Should be (30,16) for Master
LDA #&14:JSR OSWRCH
LDA (&70),Y:JSR OSWRCH       :\ Print character from message
TAX:BEQ L04C5                :\ End of message...
LDA #&13:JSR OSBYTE          :\ Wait for two VSyncs
LDA #&13:JSR OSBYTE
JSR L0403                    :\ Scroll half a character cell
LDA #&13:JSR OSBYTE          :\ Wait for VSync
JSR L0403                    :\ Scroll half a character cell
INC &57
JSR L04F2                    :\ Step to next colour
JSR L0B15
JSR L04DF                    :\ Check for <SPACE> to start
INC &72:BNE L0484            :\ Loop through message
INC &71:BNE L0484            :\ Loop through message

.L04C5
LDA #&80:STA &70
.L04C9
LDA &70:AND #&07:BNE L04D2
JSR L04F2
.L04D2
JSR L04DF
DEC &71:BNE L04C9
DEC &70:BNE L04C9
BEQ L0478

.L04DF
LDA #&81:LDY #&FF
LDX #&9D:JSR OSBYTE          :\ INKEY-<SPACE>
TXA:BEQ L04F1                :\ Not pressed, return
LDA #&8C:STA &4D             :\ Set a flag
PLA:PLA                      :\ Pop return address
.L04F1
RTS

\ Set palette of colour 2, looping through 7 to 1
\ -----------------------------------------------
.L04F2
DEC L050C:BNE L04FC       :\ Dec. colour, skip if not black
LDA #&07:STA L050C        :\ Set colour to &07 - white
.L04FC
LDX #&00
.L04FE
LDA L050A,X:JSR OSWRCH    :\ VDU 19,2,n,0,0,0
INX:CPX #&06:BNE L04FE    :\ Set palette of colour 2
RTS

.L050A
EQUB &13:EQUB &02     :\ VDU 19,2
.L050C
EQUB &05
EQUB 0:EQUB 0:EQUB 0

.L0510
EQUS "...Jet Set Willy was written for the BBC micro "
EQUS "by Chris Robson.....Jet Set Willy was prepared by "
EQUS "Tynesoft under licence from Software Projects and "
EQUS "is copyright to Software Projects......"
EQUS "You must guide Willy to collect all the items "
EQUS "around the house before midnight so that Maria will "
EQUS "let you go to bed......."
EQUS "Press SPACE to start the game."
EQUB 0

\ JET SET WILLY block map
.L0663
EQUB &70:EQUB &77:EQUB &EE:EQUB &0E
EQUB &20:EQUB &21:EQUB &22:EQUB &04
EQUB &20:EQUB &27:EQUB &EE:EQUB &04
EQUB &20:EQUB &21:EQUB &28:EQUB &04
EQUB &30:EQUB &27:EQUB &EE:EQUB &04
EQUB &00
.L0678
BRK:BRK:BRK:BRK:BRK:BRK:BRK:RTI

EQUB &54
BIT &02
RTI

EQUB &54
BIT &02
RTI

EOR &E4,X
EQUB &03
RTI
.L068C
EOR &84,X
BRK
EQUB &C0

.L0690
EQUB &D7
STA &76C6,X
BPL L0678
LDA &71
SEC
SBC &7A
STA &71
LDA &70
CLC
ADC &77
SEI
STA &71
DEC &74
BNE L0690
LDA &82
BEQ L06B0
JSR L13B1
.L06B0
RTS

.L06B1
LDY &72
LDX L09F0+1,Y
LDA L09F8-1,Y
JSR L1551
JSR L1865+2
RTS

ORA (&00,X)
EQUB &FF
BRK
BRK
ORA (&00,X)
EQUB &FF
ORA (&FF,X)
ORA (&FF,X)
ORA (&01,X)
EQUB &FF
EQUB &FF
LDA #&00
STA &84
LDA #&73
STA &85
LDA #&08
STA &86
.L06DC
LDA &87
STA &79
BEQ L0733
LDX &79
CPX &87
BEQ L06FF
LDY &87
.L06EA
LDA L0A00,Y
CMP L0A00,X
.L06F0
BNE L06FA
LDA L0A09,Y
STA L0A09,X
BPL L072D+2
.L06FA
DEY
CPY &79
BNE L06EA
.L06FF
EQUB &BC
:
\ EVENTV entry point
\ =================
.L0700
JMP L0706

\ IRQ2V entry point
\ =================
.L0703
JMP L0786

.L0706
PHP:PHA
TXA:PHA:TYA:PHA
LDA #&32:STA &FE69
LDA &028A:BNE L071D
LDA #&01:STA L077C+1
BNE L0762
.L071D
LDA L0772:BEQ L074E :\ Sound off, skip to check keypress
DEC L077C:BNE L074E :\ Decrement ticker, skip if not zero
LDX L077C+1
LDA L07CE,X
.L072D
STA L077C
LDA L07A8,X
.L0733
STA L0773+4
LDX #L0773 AND 255
LDY #L0773 DIV 256
LDA #&07:JSR OSWORD
INC L077C+1
LDA L077C+1
.L0743
CMP #&25
BNE L074E
LDA #&00
STA L077C+1
.L074E
LDA &EC :\ Last key pressed
CMP #&D1:BNE L0759 :\ S
LDA #&01:STA L0772 :\ Sound on
.L0759
CMP #&90:BNE L076B :\ Q
LDA #&00:STA L0772 :\ Quiet
.L0762
LDX #L077E AND 255
LDY #L077E DIV 256
LDA #&07:JSR OSWORD
.L076B
PLA:TAY:PLA:TAX
PLA:PLP:RTS

.L0772
EQUB &01:\ Sound on/off flag

\ SOUND control block
\ -------------------
.L0773
EQUW &0013  :\ Channel &13
EQUW &FFFA  :\ Volume -6
EQUW &0000  :\ Pitch, filled in later
EQUW &0020  :\ Duration, 20cs
EQUB &00
.L077C
ASL &01

\ SOUND control block
\ -------------------
.L077E
EQUW &0013
EQUW &0000
EQUW &0000
EQUW &0000


.L0786
LDA &FC:PHA
TXA:PHA:TYA:PHA
LDA &FE6D:AND #&A0
CMP #&A0:BNE L079C
STA &FE6D
INC L08BF
.L079C
PLA:TAY:PLA:TAX
PLA:STA &FC
JMP (L08BD)

\ &7A6: EQUB &00:EQUB &00
.L07A8
\ &7A8: EQUB &84:EQUB &70:EQUB &68:EQUB &70:EQUB &68:EQUB &64:EQUB &54:EQUB &64
\ &7B0: EQUB &68:EQUB &70:EQUB &68:EQUB &70:EQUB &68:EQUB &64:EQUB &68:EQUB &70
\ &7B8: EQUB &78:EQUB &7C:EQUB &78:EQUB &7C:EQUB &78:EQUB &70:EQUB &84:EQUB &80
\ &7C0: EQUB &78:EQUB &70:EQUB &68:EQUB &64:EQUB &68:EQUB &70:EQUB &64:EQUB &74
\ &7C8: EQUB &70:EQUB &68:EQUB &70:EQUB &74:EQUB &68:EQUB &84
.L07CE:EQUB &40:EQUB &08
\ &7D0: EQUB &08:EQUB &08:EQUB &08:EQUB &10:EQUB &20:EQUB &08:EQUB &08:EQUB &08
\ &7D8: EQUB &08:EQUB &08:EQUB &08:EQUB &08:EQUB &08:EQUB &08:EQUB &08:EQUB &08
\ &7E0: EQUB &08:EQUB &08:EQUB &08:EQUB &40:EQUB &20:EQUB &10:EQUB &10:EQUB &08
\ &7E8: EQUB &08:EQUB &08:EQUB &08:EQUB &10:EQUB &10:EQUB &08:EQUB &08:EQUB &08
\ &7F0: EQUB &08:EQUB &10:EQUB &10:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00
\ &7F8: EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00


\ Initial values for SOUND workspace
\ ==================================
.L0800
\ &800: EQUB &12:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00
\ &808: EQUB &C0:EQUB &C0:EQUB &C0:EQUB &C0:EQUB &04:EQUB &04:EQUB &04:EQUB &04
\ &810: EQUB &07:EQUB &5A:EQUB &EA:EQUB &64:EQUB &FF:EQUB &02:EQUB &FF:EQUB &FF
\ &818: EQUB &00:EQUB &04:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00
\ &820: EQUB &05:EQUB &05:EQUB &05:EQUB &05:EQUB &FF:EQUB &30:EQUB &FF:EQUB &FF
\ &828: EQUB &00:EQUB &02:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00
\ &830: EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &E6:EQUB &00:EQUB &00
\ &838: EQUB &FF:EQUB &FF:EQUB &C1:EQUB &00:EQUB &00:EQUB &F0:EQUB &00:EQUB &0E

\ &840: EQUB &90:EQUB &07:EQUB &04:EQUB &90:EQUB &07:EQUB &04:EQUB &90:EQUB &07
\ &848: EQUB &04:EQUB &90:EQUB &07:EQUB &04:EQUB &90:EQUB &07:EQUB &04:EQUB &04
\ &850: EQUB &08:EQUB &18:EQUB &5A:EQUB &08:EQUB &18:EQUB &5A:EQUB &08:EQUB &08
\ &858: EQUB &18:EQUB &5A:EQUB &08:EQUB &18:EQUB &5A:EQUB &08:EQUB &18:EQUB &5A
\ &860: EQUB &E2:EQUB &01:EQUB &B8:EQUB &E4:EQUB &01:EQUB &B8:EQUB &E6:EQUB &01
\ &868: EQUB &B8:EQUB &E8:EQUB &01:EQUB &B8:EQUB &EA:EQUB &01:EQUB &01:EQUB &B8
\ &870: EQUB &64:EQUB &06:EQUB &F8:EQUB &00:EQUB &00:EQUB &F8:EQUB &00:EQUB &00
\ &878: EQUB &F8:EQUB &00:EQUB &00:EQUB &F8:EQUB &00:EQUB &00:EQUB &00:EQUB &90

\ SOUND commands for startup
\ --------------------------
\ &880: EQUB &12:EQUB &00:EQUB &F8:EQUB &FF:EQUB &EA:EQUB &00:EQUB &01:EQUB &00
\ &888: EQUB &12:EQUB &00:EQUB &01:EQUB &00:EQUB &46:EQUB &00:EQUB &0A:EQUB &00
\ &890: EQUB &11:EQUB &00:EQUB &04:EQUB &00:EQUB &5A:EQUB &00:EQUB &08:EQUB &00
\ &898: EQUB &12:EQUB &00:EQUB &02:EQUB &00:EQUB &AA:EQUB &00:EQUB &0A:EQUB &00
\ &8A0: EQUB &10:EQUB &00:EQUB &03:EQUB &00:EQUB &05:EQUB &00:EQUB &0A:EQUB &00
\ &8A8: EQUB &10:EQUB &00:EQUB &F3:EQUB &FF:EQUB &07:EQUB &00:EQUB &04:EQUB &00
\ &8B0: EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00
\ &8B8: EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00

.L08BD:EQUW &DE89 :\ Old IRQ2V
.L08BF:EQUB &01   :\ Ticker

\ &8C0: EQUB &02:EQUB &04:EQUB &04:EQUB &04:EQUB &0A:EQUB &0A:EQUB &0A:EQUB &0A
\ &8C8: EQUB &00:EQUB &00:EQUB &EC:EQUB &5A:EQUB &5A:EQUB &00:EQUB &00:EQUB &00
\ &8D0: EQUB &02:EQUB &00:EQUB &00:EQUB &00:EQUB &0A:EQUB &28:EQUB &08:EQUB &19
\ &8D8: EQUB &05:EQUB &FB:EQUB &F6:EQUB &7E:EQUB &6E:EQUB &00:EQUB &00:EQUB &00
\ &8E0: EQUB &01:EQUB &00:EQUB &00:EQUB &00:EQUB &01:EQUB &04:EQUB &08:EQUB &04
\ &8E8: EQUB &05:EQUB &FB:EQUB &9C:EQUB &64:EQUB &00:EQUB &00:EQUB &00:EQUB &00
\ &8F0: EQUB &04:EQUB &0A:EQUB &14:EQUB &28:EQUB &01:EQUB &01:EQUB &09:EQUB &00
\ &8F8: EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00

\ &900: EQUB &02:EQUB &01:EQUB &01:EQUB &02:EQUB &02:EQUB &02:EQUB &02:EQUB &02
\ &908: EQUB &02:EQUB &01:EQUB &02:EQUB &02:EQUB &02:EQUB &01:EQUB &02:EQUB &02
\ &910: EQUB &02:EQUB &02:EQUB &01:EQUB &02:EQUB &02:EQUB &01:EQUB &01:EQUB &02
\ &918: EQUB &01:EQUB &01:EQUB &03:EQUB &02:EQUB &02:EQUB &03:EQUB &02:EQUB &03
\ &920: EQUB &02:EQUB &03:EQUB &03:EQUB &03:EQUB &03:EQUB &03:EQUB &01:EQUB &00
\ &928: EQUB &03:EQUB &03:EQUB &03:EQUB &03:EQUB &02:EQUB &03:EQUB &03:EQUB &02
\ &930: EQUB &02:EQUB &03:EQUB &02:EQUB &02:EQUB &02:EQUB &03:EQUB &02:EQUB &02
\ &938: EQUB &02:EQUB &02:EQUB &03:EQUB &02:EQUB &02:EQUB &03:EQUB &03:EQUB &02

\ &940: EQUB &03:EQUB &03:EQUB &01:EQUB &03:EQUB &03:EQUB &01:EQUB &02:EQUB &01
\ &948: EQUB &02:EQUB &01:EQUB &02:EQUB &02:EQUB &02:EQUB &02:EQUB &03:EQUB &03
\ &950: EQUB &01:EQUB &B9:EQUB &BF:EQUB &C4:EQUB &C2:EQUB &C8:EQUB &CD:EQUB &D2
\ &958: EQUB &D0:EQUB &DD:EQUB &DA:EQUB &DF:EQUB &E4:EQUB &E1:EQUB &E6:EQUB &E3
\ &960: EQUB &E8:EQUB &ED:EQUB &EA:EQUB &EF:EQUB &F4:EQUB &F1:EQUB &F6:EQUB &F3
\ &968: EQUB &F8:EQUB &FD:EQUB &FA:EQUB &FF:EQUB &04:EQUB &01:EQUB &06:EQUB &03
\ &970: EQUB &03:EQUB &6C:EQUB &30:EQUB &46:EQUB &44:EQUB &44:EQUB &44:EQUB &44
\ &978: EQUB &42:EQUB &42:EQUB &42:EQUB &40:EQUB &40:EQUB &3E:EQUB &3E:EQUB &3E

\ &980: EQUB &3C:EQUB &3C:EQUB &3C:EQUB &3A:EQUB &3A:EQUB &38:EQUB &38:EQUB &38
\ &988: EQUB &36:EQUB &36:EQUB &36:EQUB &34:EQUB &34:EQUB &32:EQUB &33:EQUB &33
\ &990: EQUB &31:EQUB &31:EQUB &30:EQUB &30:EQUB &30:EQUB &5D:EQUB &5F:EQUB &60
\ &998: EQUB &62:EQUB &64:EQUB &66:EQUB &68:EQUB &6A:EQUB &6C:EQUB &6D:EQUB &6E
\ &9A0: EQUB &70:EQUB &71:EQUB &72:EQUB &73:EQUB &74:EQUB &75:EQUB &76:EQUB &77
\ &9A8: EQUB &78:EQUB &79:EQUB &7A:EQUB &7B:EQUB &7C:EQUB &7D:EQUB &7E:EQUB &7F
\ &9B0: EQUB &80:EQUB &80:EQUB &80:EQUB &80:EQUB &00:EQUB &00:EQUB &00:EQUB &59
\ &9B8: EQUB &57:EQUB &54:EQUB &52:EQUB &50:EQUB &4D:EQUB &4A:EQUB &48:EQUB &45

\ &9C0: EQUB &42:EQUB &3F:EQUB &3C:EQUB &39:EQUB &36:EQUB &33:EQUB &30:EQUB &2D
\ &9C8: EQUB &2A:EQUB &27:EQUB &24:EQUB &21:EQUB &1E:EQUB &1B:EQUB &18:EQUB &15
\ &9D0: EQUB &12:EQUB &0F:EQUB &0C:EQUB &09:EQUB &06:EQUB &03:EQUB &00:EQUB &00
\ &9D8: EQUB &00:EQUB &00:EQUB &02:EQUB &00:EQUB &04:EQUB &00:EQUB &06:EQUB &00
\ &9E0: EQUB &08:EQUB &00:EQUB &0A:EQUB &00:EQUB &0C:EQUB &00:EQUB &0E:EQUB &00
\ &9E8: EQUB &10:EQUB &00:EQUB &12:EQUB &00:EQUB &14:EQUB &00:EQUB &16:EQUB &00
.L09F0
\ &9F0: EQUB &00:EQUB &01:EQUB &02:EQUB &03:EQUB &03:EQUB &02:EQUB &00:EQUB &8D
.L09F8
\ &9F8: EQUB &8E:EQUB &03:EQUB &90:EQUB &40:EQUB &91:EQUB &00:EQUB &00:EQUB &00

\ Room definition buffer?
\ =======================
.L0A00
\ &A00: EQUB &00:EQUB &1C:EQUB &04:EQUB &02:EQUB &26:EQUB &1C:EQUB &0E:EQUB &00:EQUB &00
.L0A09
\ &A09: EQUB &00:EQUB &2A:EQUB &4D:EQUB &5A:EQUB &2E:EQUB &31:EQUB &31
\ &A10: EQUB &30:EQUB &0D:EQUB &00:EQUB &00:EQUB &00:EQUB &FF:EQUB &00:EQUB &00
\ &A18: EQUB &00:EQUB &00:EQUB &00:EQUB &A8:EQUB &3A:EQUB &E0:EQUB &78:EQUB &6C
\ &A20: EQUB &2C:EQUB &94:EQUB &8A:EQUB &F8:EQUB &68:EQUB &18:EQUB &68:EQUB &70
\ &A28: EQUB &18:EQUB &48:EQUB &60:EQUB &AD:EQUB &40:EQUB &02:EQUB &FE:EQUB &00
\ &A30: EQUB &00:EQUB &FE:EQUB &02:EQUB &FE:EQUB &2C:EQUB &CE:EQUB &86:EQUB &00
\ &A38: EQUB &00:EQUB &78:EQUB &68:EQUB &10:EQUB &00:EQUB &BD:EQUB &26:EQUB &0C

\ &A40: EQUB &E8:EQUB &00:EQUB &78:EQUB &B0:EQUB &38:EQUB &A8:EQUB &8D:EQUB &81
\ &A48: EQUB &0A:EQUB &02:EQUB &03:EQUB &01:EQUB &02:EQUB &01:EQUB &03:EQUB &20
\ &A50: EQUB &F1:EQUB &FF:EQUB &47:EQUB &9C:EQUB &00:EQUB &4D:EQUB &05:EQUB &72
\ &A58: EQUB &C9:EQUB &25:EQUB &D0:EQUB &FE:EQUB &00:EQUB &00:EQUB &FE:EQUB &02
\ &A60: EQUB &FE:EQUB &A5:EQUB &EC:EQUB &02:EQUB &FF:EQUB &FF:EQUB &00:EQUB &FF
\ &A68: EQUB &FF:EQUB &FF:EQUB &7C:EQUB &0A:EQUB &C9:EQUB &00:EQUB &00:EQUB &01
\ &A70: EQUB &00:EQUB &00:EQUB &00:EQUB &7C:EQUB &0A:EQUB &68:EQUB &A8:EQUB &68
\ &A78: EQUB &AA:EQUB &68:EQUB &28:EQUB &60:EQUB &00:EQUB &00:EQUB &40:EQUB &40

\ &A80: EQUB &02:EQUB &01:EQUB &01:EQUB &01:EQUB &01:EQUB &01:EQUB &01:EQUB &01
\ &A88: EQUB &01:EQUB &01:EQUB &01:EQUB &01:EQUB &70:EQUB &20:EQUB &40:EQUB &60
\ &A90: EQUB &70:EQUB &90:EQUB &B0:EQUB &C9:EQUB &A0:EQUB &D0:EQUB &06:EQUB &8D
\ &A98: EQUB &4B:EQUB &49:EQUB &49:EQUB &49:EQUB &49:EQUB &49:EQUB &49:EQUB &68
\ &AA0: EQUB &AA:EQUB &68:EQUB &85:EQUB &FC:EQUB &14:EQUB &15:EQUB &15:EQUB &15
\ &AA8: EQUB &B7:EQUB &92:EQUB &94:EQUB &96:EQUB &97:EQUB &99:EQUB &9B:EQUB &68
\ &AB0: EQUB &84:EQUB &08:EQUB &08:EQUB &08:EQUB &6F:EQUB &6F:EQUB &6F:EQUB &6F
\ &AB8: EQUB &6F:EQUB &6F:EQUB &6F:EQUB &08:EQUB &08:EQUB &08:EQUB &08:EQUB &08


\ 32-characters-per-row multiplication table
\ ==========================================
.L0AC0
EQUW &0000:EQUW &0002:EQUW &0004:EQUW &0006
EQUW &0008:EQUW &000A:EQUW &000C:EQUW &000E
EQUW &0010:EQUW &0012:EQUW &0014:EQUW &0016
EQUW &0018:EQUW &001A:EQUW &001C:EQUW &001E
EQUW &0020:EQUW &0022:EQUW &0024:EQUW &0026
EQUW &0028:EQUW &002A:EQUW &002C:EQUW &002E
EQUW &0030:EQUW &0032:EQUW &0034:EQUW &0036
EQUW &0038:EQUW &003A:EQUW &003C:EQUW &003E


\ File 'JSW1' - loaded to &1100, copied to &B00
\ =============================================

.L0B00:JMP L0C50
.L0B03:JMP L0B2A
.L0B06:JMP L0C8D
.L0B09:JMP L0D48
.L0B0C:JMP L0E0B
.L0B0F:JMP L0E33
.L0B12:JMP L1118
.L0B15:JMP L0ED5
.L0B18:JMP L0F1C
.L0B1B:JSR L0FC4
.L0B1E:JMP L1001


\ Enter here from code startup
\ ============================
.L0B21:JMP L104F
.L0B24:JMP L1078
.L0B27:JMP L10D1

.L0B2A
LDA &6F
BEQ L0B6C
JSR L0BD0
LDA #&80
STA &5D
LDA #&00
STA &7B
STA &5E
LDX &5F
LDA #&1F
STA &7A
.L0B41
JSR L0B72
DEC &7A
BNE L0B41
LDA &5C
ASL A
CLC
ADC &5F
TAY
CMP #&D2
BNE L0B5B
LDA &5B
EOR #&FF
STA &5B
LDA #&08
.L0B5B
CMP #&08
BNE L0B67
LDA &5C
EOR #&FF
STA &5C
INC &5C
.L0B67
STY &5F
JSR L0BE6
.L0B6C
JSR L0CD4
JMP L0D85

.L0B72
STX &96
TXA
BPL L0B7F
LDX #&26
CMP #&F0
BCS L0B7F
LDX #&27
.L0B7F
LDA &0900,X
CMP &5B
BCC L0B88
EOR #&FF
.L0B88
ADC &5D
STA &5D
LDA &5E
CLC
ADC &0928,X
STA &5E
LDY &7A
STA &09B6,Y
TAX
LDA &5D
STA &0994,Y
JSR L0BB2
LDA &90
LDX &7A
STA &0950,X
LDA &91
STA &0972,X
LDX &96
INX
RTS

.L0BB2
STA &97
JSR L1118
LDY #&00
LDA (&90),Y
BEQ L0BC1
LDA &7A
STA &7B
.L0BC1
LDA &97
AND #&03
TAX
LDA L0BCC,X
STA (&90),Y
RTS

.L0BCC
EQUB &88
EQUB &44
EQUB &22
EQUB &11
.L0BD0
EQUB &A2
EQUB &1F
LDY #&00
.L0BD4
LDA &0950,X
STA &90
LDA &0972,X
STA &91
LDA #&00
STA (&90),Y
DEX
BPL L0BD4
RTS

.L0BE6
LDX &9F
BNE L0C01
LDA &7B
BEQ L0C4F
LDX #&00
STX &9A
LDA L0A24
.L0BF5
INX
CMP &09B6,X
BCC L0BF5
CPX #&02
BCC L0C42
STX &9F
.L0C01
LDA &65
CMP #&0E
BCS L0C42
LDA #&00
STA &64
STA &65
LDA &0994,X
SEC
SBC #&04
AND #&FE
STA L0A1B
LDA &09B6,X
SEC
SBC #&06
BPL L0C22
LDA #&C0
.L0C22
STA L0A24
LDA &8E
BEQ L0C4F
.L0C26
LDA &5B
EOR &5C
INX
EOR &8E
BPL L0C34
DEX
DEX
.L0C34
STX &9F
CPX #&03
BCS L0C4F
LDA L0A24
ADC #&04
STA L0A24
.L0C42
LDA L0A24
AND #&FC
STA L0A24
LDA #&00
STA &9F
RTS

.L0C4F
RTS

\ Print 'Items collected' message, set window
\ -------------------------------------------
.L0C50
LDX #&FF
.L0C52
INX:LDA L0C63,X:JSR OSWRCH
CMP #&04:BNE L0C52
JSR L0CAD
JMP L0D23

.L0C63
EQUB &1A                       :\ VDU 26, clear windows
EQUB &1F:EQUB &00:EQUB &14     :\ TAB(0,20)
EQUS "Items collected 000 Time  7:00pm"
EQUB &1C:EQUB &00:EQUB &14     :\ VDU 28,0,20,31,0
EQUB &1F:EQUB &00              :\ Set text window
EQUB &04                       :\ VDU 4

.L0C8D
LDA #&18
JSR L10D1
INC L0CBC
LDA L0CBC
CMP #&0A:BCC L0CAD
INC L0CBD
LDA #&00
STA L0CBC
LDA L0CBD
CMP #&08
.L0CA9
BCC L0CAD
INC &9E
.L0CAD
LDX #&11
LDY L0CBD:\ Get item count tens
JSR L0CBE:\ Print digit at (11,20)
.L0CB5
LDA L0CBC:\ Get item count units
JSR L0CCD:\ Print digit
RTS

.L0CBC:EQUB &00:\ Items units
.L0CBD:EQUB &00:\ Items tens

\ Print TAB(X,20);CHR$('0'+Y)
\ ---------------------------
.L0CBE
LDA #&1F:JSR OSWRCH
TXA:JSR OSWRCH
LDA #&14:JSR OSWRCH
TYA
.L0CCD
CLC:ADC #ASC"0"
JSR OSWRCH
RTS

.L0CD4
DEC &57:BNE L0D42
INC L0D47:LDA L0D47 :\ Increment invisible seconds
CMP #&03:BNE L0D42
LDY #&00:STY L0D47
INC L0D43:LDA L0D43 :\ Increment minutes units
CMP #&0A:BCC L0D23  :\ Not 10, jump to update display
STY L0D43           :\ Reset to zero
.L0CF4
INC L0D44:LDA L0D44 :\ Increment minutes tens
CMP #&06:BCC L0D23  :\ Not 60, jump to update display
STY L0D44           :\ Reset to zero (this instruction overwrites NMI space)
INC L0D45:LDA L0D45 :\ Increment hours units
CMP #&0A:BCC L0D13  :\ Not 10, jump to update display
STY L0D45           :\ Reset to zero
LDA #&01:STA L0D46  :\ Set hours tens to '1'
.L0D13
LDA L0D45           :\ Get hours units
CMP #&02:BNE L0D23  :\ Not '2', so not '12hr'
LDA L0D46           :\ Get hours tens
BMI L0D23           :\ Still a space, jump to update display
INC &9D:INC &63     :\ Set flags to indicate midnight has arrived
.L0D23
LDX #&19
LDY L0D46:JSR L0CBE :\ Print time TT at at (25,20)
LDA L0D45:JSR L0CCD :\ Time hours UU
LDA #&3A:JSR OSWRCH :\ Colon
LDA L0D44:JSR L0CCD :\ Time minutes TT
LDA L0D43:JSR L0CCD :\ Time minutes UU
.L0D42
RTS

.L0D43:EQUB &00:\ Minutes units
.L0D44:EQUB &00:\ Minutes tens
.L0D45:EQUB &07:\ Hours units
.L0D46:EQUB &F0:\ Hours tens
.L0D47:EQUB &00:\ Seconds DIV 15

.L0D48
LDA #&00:STA L0D47:STA &9A
STA L0CBC:STA L0CBD:STA L0D43
STA L0D44:STA &9E:STA &9D
STA &64:STA &65:STA &4F
LDA #&F0:STA L0D46
LDA #&07:STA L0D45
LDA #&07:STA &9B
LDA #&68:STA L0A24
LDA #&A8:STA L0A1B
LDA #&15:STA &55     :\ Set room number to &15
JSR L1100
RTS

.L0D85
LDA &55:CMP #&13:BNE L0DAA   :\ If not Master Bedroom, check next
LDA L0A24:CMP #&67:BCS L0D9C :\ Willy's Y position
LDX #&0A:CMP #&60:BCS L0DA7  :\ Half-raised arm
LDX #&0B:BNE L0DA7           :\ Raised arm
.L0D9C
LDA L0A0A:AND #&09
EOR #&01:STA L0A0A:TAX       :\ Toggle Maria's tapping foot
.L0DA7
STX L0A0A                    :\ Set Maria's sprite

.L0DAA
CMP #&15:BNE L0DBC           :\ If not Bathroom, check next
LDA &57:AND #&01:BNE L0DBC
LDA L0A0B:EOR #&01:STA L0A0B :\ Toggle toilet sprite

.L0DBC
LDA &9E:BEQ L0E0A:BMI L0DD9
LDA &55:CMP #&13:BNE L0E0A   :\ If not Master Bedroom, exit
LDA #&00:STA L0A49
LDA L0A1B:CMP #&18:BNE L0E0A
LDA #&FF:STA &9E
RTS

.L0DD9
LDA #&02:STA &8E
LDA #&00:STA &8B
LDA &55:CMP #&14:BNE L0DF5   :\ If not Top Landing, jump to...
LDA L0A1B
CMP #&88:BEQ L0DF2
CMP #&B0:BNE L0DF4
.L0DF2
INC &8B
.L0DF4
RTS

.L0DF5
BCC L0E0A
LDA L0A1B:CMP #&D8:BCC L0E0A
LDA #&0A:ORA L0A0B:STA L0A0B
LDA #&02:STA &9C
.L0E0A
RTS

.L0E0B
LDY #&20
.L0E0D
JSR L0E1E
LDY #&40
JSR L0E1E
LDA L0A24
AND #&07
BEQ L0E32
LDY #&60
.L0E1E
JSR L0E22
INY
.L0E22
LDA (&60),Y
BPL L0E32
CMP #&8A
BCS L0E32
AND #&0F
TAX
LDA #&02
STA L0A63,X
.L0E32
RTS

.L0E33
LDY #&01
.L0E35
LDX L0A7C,Y
BMI L0E64
BEQ L0E60
LDA &57
AND #&01
BNE L0E60
DEX
BNE L0E53
LDA #&FF
STA L0A7C,Y
LDA L0ECD,Y
STA L0ED1,Y
JMP L0E7D

.L0E53
TXA
STA L0A7C,Y
CMP #&03
BNE L0E60
LDA #&20
JSR L10D1
.L0E60
DEY
BPL L0E35
RTS

.L0E64
JSR L0E91
LDA L0ED1,Y
CLC
ADC L0ECF,Y
STA L0ED1,Y
CMP L0ECD,Y
BNE L0E7D
LDA #&7F
STA L0A7C,Y
BPL L0E60
.L0E7D
JSR L0E91
LDX #&08
JSR L1115
LDY #&20
LDA (&60),Y
LDY &96
STA L0ED3,Y
JMP L0E60

.L0E91
STY &96
LDA L0ED1,Y
STA L0A23
LDX L0A7E,Y
STX L0A2C
JSR L1118
LDA L0ECB,Y
STA L0EAF+1
LDA L0ED3,Y
BMI L0EBC
LDY #&0F
.L0EAF
LDA &7060,Y
EOR (&90),Y
STA (&90),Y
DEY
BNE L0EAF
LDY &96
RTS

.L0EBC
LDA #&00
STA L0ED3,Y
LDY #&0F
.L0EC3
STA (&90),Y
DEY
BNE L0EC3
LDY &96
RTS

.L0ECB
BVS L0F2D
.L0ECD
BRK
SED
.L0ECF
PHP
SED
.L0ED1
BRK
BRK
.L0ED3
BRK
.L0ED4
BRK

.L0ED5
LDA &57
AND #&03:BNE L0F16
LDA L0F17
CLC
ADC #&40:STA L0F17:STA &92
LDA #&72:STA &93
LDA #&03:STA &7B
LDA #&F0:STA &97
LDA &9B:BEQ L0F16
STA &96
.L0EF8
LDX &7B
DEX
BNE L0EFF
LDX #&03
.L0EFF
STX &7B
LDA L0F18,X
STA &89
LDA &97
CLC
ADC #&10
STA &97
LDX &4D
JSR L110F
DEC &96
BNE L0EF8
.L0F16
RTS

.L0F17
BRK
.L0F18
BRK
EQUB &0F
BEQ L0F1C-1

\ Set palette and print room name
\ -------------------------------
.L0F1C
LDY #&04           :\ Get five 2-bit values
.L0F1E
LDX #&02:JSR L1112 :\ Get two bits
STA &09F1,Y
DEY:BPL L0F1E
LDY #&05           :\ Get six 8-bit values
.L0F2B
LDX #&08:JSR L1112 :\ Get eight bits
STA &09F7,Y
DEY:BPL L0F2B
LDY #&03           :\ Get four 3-bit values
.L0F38
LDX #&03:JSR L1112 :\ Get three bits
JSR L0FAA          :\ Set palette
DEY:BPL L0F38
LDA #&01:STA &97              :\ Set 'upper case'
LDA #&1F:JSR OSWRCH           :\ Do PRINT TAB(x,16);
LDX #&04:JSR L1112:JSR OSWRCH :\ Get next four bits for X position
LDA #&10:JSR OSWRCH
.L0F59
LDX #&05:JSR L1112     :\ Get five bits
CMP #&1B:BCS L0F68     :\ Jump with 27-31
JSR L0F99              :\ Print a letter
JMP L0F59              :\ Loop to get another

.L0F68
BNE L0F72              :\ Jump if not &1B
LDA #ASC"'":JSR OSWRCH :\ &1B->"'"
JMP L0F59

.L0F72
CMP #&1D:BEQ L0F7F     :\ Jump with &1D
BCS L0F79              :\ Jump with &1E-&1F
RTS                    :\ &1C - exit

.L0F79
CMP #&1E:BNE L0F87     :\ Jump if &1F
INC &97                :\ &1E->space, then upper case
.L0F7F
LDA #ASC" ":JSR OSWRCH :\ &1D->" "
JMP L0F59

.L0F87
LDA #&13:JSR L0F99     :\ Print 'T'
LDA #ASC"h":JSR OSWRCH :\ 'h'
LDA #ASC"e":JSR OSWRCH :\ 'e'
JMP L0F59

.L0F99
CLC:ADC #ASC"a"   :\ Convert to lower case letter
.L0F9C
LDY &97:BEQ L0FA6 :\ Skip if uppercase not flagged
AND #&DF          :\ Convert to upper case
LDX #&00:STX &97  :\ Set following to lower case
.L0FA6
JSR OSWRCH:RTS    :\ Print letter

\ Set palette - COLOUR Y,A
\ ------------------------
.L0FAA
TAX
LDA #&13:JSR OSWRCH    :\ VDU 19
TYA:JSR OSWRCH         :\ VDU Y - logical colour
TXA:JSR OSWRCH         :\ VDU A - physical colour
LDA #&00:JSR OSWRCH    :\ VDU 0,0,0
JSR OSWRCH:JSR OSWRCH
RTS

.L0FC4
LDY #&01
.L0FC6
LDA #&00
STA L0ED3,Y
STA L0A7C,Y
LDX #&01
JSR L1112
TAX
BEQ L0FF8
LDX #&04
JSR L1112
TAX
BEQ L0FF8
ASL A
ASL A
ASL A
EOR #&78
STA L0A7E,Y
LDX #&03
JSR L1112
TAX
LDA L0FFC,X
STA L0A7C,Y
STA L0ED1,Y
STA L0ED3,Y
.L0FF8
DEY
BPL L0FC6
RTS

.L0FFC
BNE L1014
ASL &7F26,X
.L1001
LDA #&00
LDY #&80
LDX &55:CPX #&19:BNE L102D   :\ If not Swimming Pool,
LDA &4F:BNE L1014
INC &4F:JSR L0C8D
.L1014
LDX #&00
.L1016
LDA #&F0:ORA &7300,X:STA &7300,X
LDA #&F0:ORA &7400,X:STA &7400,X
DEX:BNE L1016
LDA #&F0
LDY #&01

.L102D
STY &4E
LDX #&3F
.L1031
STA &7000,X:DEX:BPL L1031    :\ Clear &7000-&703F
LDX #&00
LDA &55:CMP #&1B:BNE L104B   :\ If not Nightmare Room, return with X=0
LDA #&10:STA L0A10
LDA #&03:STA L0A07
LDX #&08
.L104B
STX L0A09
RTS

\ Start a new game
\ ================
.L104F
JSR &0400              :\ Print scrolling message, wait for SPACE
JSR L0D48              :\ Initialise something
.L1055
JSR L110C              :\ Initialise and uncompress starting room
.L1058
LDA #&13:JSR OSBYTE    :\ Wait for three VSyncs
LDA #&13:JSR OSBYTE
LDA #&13:JSR OSBYTE
JSR L0ED5
JSR L1106
JSR L10AC              :\ Check Escape to start new game
LDA &63:BEQ L1058      :\ Loop back
LDA &9B:BPL L1055      :\ Loop back

\ Game over
\ ---------
.L1078
LDX #&00
.L107A
LDA L10B8,X:JSR OSWRCH :\ Set graphics window 0,512,1023,1023
INX:CPX #&0A:BNE L107A :\ then CLG
LDA #&00
JSR L102D              :\ Check if in Nightmare Room
JSR L1103
LDX #&00:STX L10C6     :\ Start with COLOUR 0
.L1092
LDA #&13:JSR OSBYTE    :\ Wait for VSync
LDY #&00
.L1099
LDA L10C2,Y:JSR OSWRCH :\ Print TAB(11,8);COLOUR n;"Game Over"
INY:CPY #&0F:BNE L1099
INC L10C6:BPL L1092    :\ Loop through colours 0 to 127
JMP L104F              :\ Loop to start again

.L10AC
LDA &EC                :\ Check LastKeyPressed
CMP #&70:BNE L10B7     :\ If not <Escape>, return
PLA:PLA:JMP L104F      :\ Otherwise, pop return address and start new game
.L10B7
RTS

.L10B8
EQUB &18:EQUB &00:EQUB &00:EQUB &00 :\ VDU 24,0;&200;&3FF;&3FF
EQUB &02:EQUB &FF:EQUB &03:EQUB &FF :\ Set 32x16 graphics window
EQUB &03:EQUB &10                   :\ CLG
.L10C2
EQUB &1F:EQUB &0B:EQUB &08          :\ TAB(11,8)
EQUB &11                            :\ COLOUR
.L10C6
EQUB &00                            :\ colour number
.L10C7
EQUS "Game"+CHR$9+CHR$9+"Over"
.L10D1
STX L10E9
STY L10EA
CLC
ADC #&80
TAX
LDY #&08
LDA #&07:JSR OSWORD
.L10E2
LDX L10E9
LDY L10EA
RTS

.L10E9:BRK
.L10EA:BRK


BRK
BRK
BRK
BRK
BRK
BRK
BRK
BRK
BRK
BRK
BRK
BRK
BRK
BRK
BRK
BRK
BRK
BRK
BRK
BRK
BRK

.L1100:JMP L1D35
.L1103:JMP L1E64 :\ Drop the foot?
.L1106:JMP L16CF
.L1109:JMP L1801
.L110C:JMP L111B
.L110F:JMP L1500
.L1112:JMP L11B8
.L1115:JMP L18C6
.L1118:JMP L14D7

.L111B
JSR L112C
JSR L1801
JSR L0B1B
JMP L1DAF

.L1127:BRK
.L1128:BRK
.L1129:BRK
.L112A:BRK
.L112B:BRK

.L112C
LDA #&00
STA &52:STA &53:STA &9F
STA &5B:STA &57
LDX &55:JSR L1D59            :\ Find start of room definition
LDA #&0C:JSR OSWRCH          :\ CLS
.L1142
JSR L1CB5                    :\ Uncompress some data
JSR L0B18                    :\ Set palette and display room name
LDA #&FF:STA &67
LDA #&D2:STA &5F
LDA #&01:STA &5C:STA &9C
LDA &9D:STA &63
LDA &8E:STA L1127
LDA &65:STA L1128
LDA L0A1B:STA L1129
LDA L0A24:STA L112A:STA &62
LDA &64:STA L112B
LDA #&00:STA &73:STA &70
STA &71:STA &72
JSR L0B00                     :\ Print 'Items collected' etc
JSR L18B8
.L1187
LDY #&FF
.L1189
INY
LDX #&02
JSR L11B8
CMP #&03:BEQ L1189
STA &7B
STY &96
TYA
ASL A
ASL A
ADC &7B
SEC
SBC &96
CMP #&06
BEQ L11B7
ASL A
TAX
LDA L11DA+0,X:STA L11B1+1
LDA L11DA+1,X:STA L11B1+2
.L11B1
JSR L1112-1
JMP L1187

.L11B7
RTS

\ Get bits from compressed data. X=number of bits to fetch
.L11B8
STY &7B             :\ Save Y
LDA #&00:STA &96    :\ Clear accumulator
.L11BE
DEC &53:BPL L11CE   :\ Dec. bit counter, jump if bits remaining
LDA #&07:STA &53    :\ Reset bit counter to 8-1
LDY &52:LDA (&50),Y :\ Get byte from compressed room data
STA &54:INC &52     :\ Store it and inc. pointer
.L11CE
LSR &54:ROL &96     :\ Rotate bit into accumulator
DEX:BNE L11BE       :\ Decrement bit counter
LDA &96             :\ Get returned uncompressed data
LDY &7B             :\ Restore Y
RTS

.L11DA
CPX &F411
ORA (&03),Y
EQUB &12:EQUB &4D
EQUB &12:EQUB &2A
EQUB &12:EQUB &0D
EQUB &12:EQUB &B7
ORA (&B7),Y
ORA (&A3),Y
EQUB &12:EQUB &A2
EQUB &03
JSR L11B8
STA &72
RTS

LDX #&05
JSR L11B8
STA &70
LDX #&04
JSR L11B8
STA &71
RTS

LDA #&01
LDX #&00
LDY #&05
JSR L134A
RTS

LDA &72
STA &81
LDA #&02
STA &72
LDA #&01
LDX #&08
LDY #&04
JSR L134A
LDA &81
STA &72
LDA &70
CLC
ADC &77
STA &70
RTS

LDX #&04
JSR L11B8
STA &6E
.L1231
LDX #&05
JSR L11B8
STA &70
LDX #&04
JSR L11B8
STA &71
JSR L13B1
DEC &6E
BPL L1231
LDA #&00
STA &70
STA &71
RTS

LDX #&05
JSR L11B8
STA &79
LDA &70
STA &75
LDA &71
STA &76
LDX #&04
JSR L11B8
STA &71
LDA &76
SEC
SBC &71
LDX #&01
BCS L1272
EOR #&FF
ADC #&01
LDX #&FF
.L1272
STA &76
STX &7A
.L1276
LDA #&00
STA &7C
LDA &79
STA &74
LDA &75
STA &70
LDA #&01
LDX #&80
JSR L134A
LDA &71
CLC
ADC &7A
STA &71
DEC &76
BPL L1276
LDA &71
SEC
SBC &7A
STA &71
LDA &70
CLC
ADC &77
STA &70
RTS

LDA &70
STA &75
LDA &71
STA &76
LDX #&01
JSR L11B8
LDX #&01
STX &6D
STA &7D
TAY
BEQ L12BB
LDX #&FF
.L12BB
STX &7E
LDX #&04
JSR L11B8
STA &7A
STA &7F
SEC
SBC &71
STA &80
BCS L12E0
EOR #&FF
ADC #&01
STA &80
DEC &6D
LDA &7A
LDX &71
STA &71
STX &7A
JMP L12F7

.L12E0
LDX &80
LDA &7E
EOR #&FF
ADC #&00
STA &7E
BMI L12F1
TXA
EOR #&FF
TAX
INX
.L12F1
TXA
CLC
ADC &70
STA &70
.L12F7
LDA #&01
STA &7C
LDA &7A
STA &74
LDA &71
STA &81
LDA #&01
LDX #&80
JSR L134A
LDA &81
STA &71
LDA &70
CLC
ADC &7E
STA &70
DEC &7A
DEC &80
BPL L12F7
LDA &75:STA &70
LDA &76:STA &71
LDA &7D:STA &7C
LDA &7F:STA &74
LDA &72:STA &81
LDA #&02:STA &72
LDA &7D
EOR &6C
EOR &6D
LDX #&88
JSR L134A
LDA &81:STA &72
LDA &70
CLC
ADC &77
STA &70
RTS

.L134A
STA &82
STX &83
TXA
BMI L135F
LDX #&01
JSR L11B8
STA &7C
TYA
TAX
JSR L11B8
STA &74
.L135F
LDA &83
LDX &71
AND #&7F
CLC
ADC &7C
STA &7C
BNE L136E
LDX &70
.L136E
LDA &74
STX &7B
SEC
SBC &7B
BCS L1380
EOR #&FF
CLC
ADC #&01
INC &7C
INC &7C
.L1380
STA &74
BEQ L13A9
LDX &7C
LDA L13C0,X
STA &77
LDA L13C4,X
STA &78
.L1390
LDA &82
BEQ L1397
JSR L13B1
.L1397
LDA &70
CLC
ADC &77
STA &70
LDA &71
CLC
ADC &78
STA &71
DEC &74
BNE L1390
.L13A9
LDA &82
BEQ L13B0
JSR L13B1
.L13B0
RTS

.L13B1
LDY &72
LDX &09F1,Y
LDA &09F7,Y
JSR L1551
JSR L1878
RTS

.L13C0
ORA (&00,X)
EQUB &FF
BRK
.L13C4
BRK
ORA (&00,X)
EQUB &FF
ORA (&FF,X)
ORA (&FF,X)
ORA (&01,X)
EQUB &FF
EQUB &FF

.L13D0
LDA #&00:STA &84 :\ &84/5=>&7300
LDA #&73:STA &85
LDA #&08:STA &86
LDA &87:STA &79
BEQ L1433
.L13E2
LDX &79:CPX &87:BEQ L13FF
LDY &87
.L13EA
LDA L0A00,Y:CMP L0A00,X:BNE L13FA
LDA L0A09,Y:STA L0A09,X:BPL L142F
.L13FA
DEY
CPY &79
BNE L13EA
.L13FF
LDY L0A00,X
LDA &86
STA L0A09,X
LDA L1464,Y
STA &7A
CLC
ADC &86
STA &86
LDA L1490,Y
LSR A:ROR &7B
LSR A:ROR &7B
LSR A:ROR &7B
CLC:ADC #&5A:STA &91      :\ Offset to start of sprites
LDA &7B:AND #&E0:STA &90  :\ Sprite within page
.L1428
JSR L1434
DEC &7A
BNE L1428
.L142F
DEC &79
BNE L13E2
.L1433
RTS

.L1434
LDY #&00
.L1436
LDA (&90),Y               :\ Get byte from sprite
JSR L14BC                 :\ Convert to screen bitmap
LDX &88
STA &88
TXA:STA (&84),Y
INC &84
LDA &88:STA (&84),Y
INY:CPY #&20:BNE L1436    :\ Loop for 32 bytes
LDA &90
CLC
ADC #&20
STA &90
BCC L1458
INC &91
.L1458
LDA &84
CLC
ADC #&20
STA &84
BCC L1463
INC &85
.L1463
RTS

.L1464
EQUB &08:EQUB &01:EQUB &01:EQUB &04
EQUB &04:EQUB &04:EQUB &04:EQUB &04
EQUB &04:EQUB &04:EQUB &04:EQUB &04

EQUB &04:EQUB &04:EQUB &04:EQUB &02
EQUB &02:EQUB &02:EQUB &02:EQUB &04
EQUB &04:EQUB &08:EQUB &08:EQUB &08
EQUB &02:EQUB &02:EQUB &04:EQUB &08

EQUB &04:EQUB &04:EQUB &04:EQUB &01
EQUB &01:EQUB &02:EQUB &04:EQUB &04
EQUB &08:EQUB &08:EQUB &04:EQUB &04
EQUB &04:EQUB &02:EQUB &02:EQUB &02
.L1490
EQUB &00:EQUB &00:EQUB &01
EQUB &02:EQUB &06:EQUB &0A
EQUB &0E:EQUB &12:EQUB &16
EQUB &1A:EQUB &1E:EQUB &22

EQUB &26:EQUB &2A:EQUB &2E
EQUB &32:EQUB &34:EQUB &36
EQUB &38:EQUB &3A:EQUB &3E
.L14A5
EQUB &42:EQUB &4A:EQUB &52
EQUB &5A:EQUB &5C:EQUB &5E
EQUB &62:EQUB &6A:EQUB &6E
EQUB &72:EQUB &76:EQUB &77
EQUB &78:EQUB &7A:EQUB &7E
EQUB &82:EQUB &8A:EQUB &92
EQUB &96:EQUB &9A:EQUB &9E
EQUB &A0:EQUB &A2

.L14BC
STA &96
AND #&F0
STA &7B
LSR A
LSR A
LSR A
LSR A
ORA &7B
STA &88
LDA &96
AND #&0F
STA &7B
ASL A
ASL A
ASL A
ASL A
ORA &7B
RTS

.L14D7
AND #&FC
ASL A
ROL &91
STA &90
TXA
AND #&07
CLC
ADC &90
STA &90
TXA
LSR A
LSR A
AND #&FE
TAX
LDA &90
CLC
ADC L0AC1,X
STA &90
LDA &91
AND #&01
ADC L0AC0,X
ADC #&30
STA &91
RTS

\ Draw a sprite?
.L1500
JSR L14D7		; Calculate screen address
LDA &93:STA L1512+2
LDA &92:STA L1512+1
LDX &94
.L150F
LDY &95
SEC
.L1512
LDA L1112-1,X
AND &89
STA (&90),Y
DEX
TYA
SBC #&08
TAY
BCS L1512
TXA
BMI L1539
.L1523
INC &90
LDA &90
BIT &98
BNE L150F
SEC
SBC #&08
STA &90
LDA &91
CLC
ADC #&02
STA &91
BPL L150F
.L1539
RTS

\ Point to character definition
\ -----------------------------
\ On entry, A=character number
\ On exit,  &90/1=>character definition
\           Y=7 ready to loop through 8 lines
\
.L153A
ASL A:ROL &91            :\ Multiply by 8
ASL A:ROL &91
ASL A:ROL &91:STA &90
LDA &91:AND #&07         :\ Get to 3 bits
CLC:ADC #&78:STA &91     :\ Index into character definitions
LDY #&07                 :\ Y=7 for 8 character lines
RTS

.L1551
JSR L153A                :\ Find character definition
LDA L1587,X:STA &89
.L1559
LDA (&90),Y              :\ Get character line
JSR L14BC
STA &70A8,Y
LDA &88
STA &70A0,Y
DEY:BPL L1559            :\ Loop through 8 character lines
LDA #&0F
SEC
SBC &71
ASL A
ASL A
ASL A
TAX
LDA &70
ASL A
ASL A
ASL A
JSR L14D7
LDY #&0F
.L157C
LDA &70A0,Y
AND &89
STA (&90),Y
DEY
BPL L157C
RTS

.L1587
BRK
EQUB &0F
BEQ L158B-1
.L158B
LDY L0A00,X
CPY #&12
BNE L159A
LDA L0A09,X
EOR #&01
STA L0A09,X
.L159A
LDA L1464,Y
STA &7B
LDA L0A12,X
BNE L15B4
LDA L0A1B,X
AND #&07
LSR A
LDY L0A2D,X
BMI L15C4
CLC
ADC #&04
BPL L15C4
.L15B4
LDA &57
LDY L0A2D,X
BMI L15BD
EOR #&FF
.L15BD
CLC
ADC L0A24,X
AND #&07
LSR A
.L15C4
DEC &7B
AND &7B
CLC
ADC L0A09,X
LSR A
ROR &7B
LSR A
ROR &7B
CLC
ADC #&71
STA &93
LDA &7B
AND #&C0
STA &92
LDY L0A48,X
LDA L1587,Y
STA &89
TXA
TAY
LDX L0A24,Y
RTS

.L15EB
LDA &8A
LDY L0A12,X
BEQ L15F5
CLC
ADC #&09
.L15F5
TAY
LDA L0A2D,X
STA L0A5A,X
CLC
ADC L0A1B,Y
CMP L0A12,X
BCS L1608
STA L0A1B,Y
.L1608
CMP L0A36,X
BCC L1614
BEQ L1614
CMP L0A3F,X
.L1612
BCC L1622
.L1614
LDA L0A2D,X
EOR #&FF
SEC
ADC #&00
STA L0A2D,X
LDA L0A1B,Y
.L1622
STA L0A1B,Y
RTS

.L1626
LDX &87:BEQ L1640
STX &8A
.L162C
DEC L0A63,X
BNE L163A
JSR L158B
JSR L1A07
JSR L19C0
.L163A
DEC &8A
LDX &8A
BNE L162C
.L1640
RTS

.L1641
LDY &92
STY L1672+1
STY L1663+1
STY L166B+1
LDY &93
STY L1672+2
STY L1663+2
STY L166B+2
.L1657
JSR L14D7
LDX #&3F
.L165C
LDY #&18
SEC
.L165F
BCC L1672
LDA (&90),Y
.L1663
AND L1112-1,X
STA &7020,X
LDA (&90),Y
.L166B
ORA L1112-1,X
STA (&90),Y
BCS L167E
.L1672
LDA L1112-1,X
EOR #&FF
AND (&90),Y
ORA &7020,X
STA (&90),Y
.L167E
DEX
TYA
SBC #&08
TAY
BCS L165F
TXA
BMI L169E
INC &90
LDA &90
BIT &98
BNE L165C
SEC
SBC #&08
STA &90
LDA &91
CLC
ADC #&02
STA &91
BPL L165C
.L169E
RTS

.L169F
LDY #&FF:LDA #&81
JSR OSBYTE:TXA
.L16A7
RTS

.L16A8
LDA &69
BEQ L16B2
LDA #&00
STA &69
BEQ L16C7
.L16B2
LDX #&9E
JSR L169F
AND #&FE
STA &8E
LDX #&BD
JSR L169F
AND #&02
CLC
ADC &8E
STA &8E
.L16C7
LDX #&B7
JSR L169F
STA &8B
RTS

.L16CF
LDA &9F
BNE L16D9
LDA &64
ORA &65
BNE L16DC
.L16D9
JSR L16A8
.L16DC
JSR L0B03
JSR L1EBC
LDA &8E
BEQ L16F7
CMP L0A2D:BEQ L16F0
STA L0A2D:BNE L16F7
.L16F0
CLC
ADC L0A1B
STA L0A1B
.L16F7
JSR L1A8B
BEQ L1705
LDA L0A1B
SEC
SBC &8E
STA L0A1B
.L1705
LDX #&00
JSR L18C6
JSR L1ABC
JSR L1ADE
LDA &65
CMP #&07
BCS L175A
LDA &6B
BEQ L172B
LDA &8E
BEQ L172B
LDX &6C
CMP L1C58,X
BEQ L172B
INC L0A24
INC L0A24
.L172B
LDX #&00
.L172D
STX &6B
JSR L18C6
JSR L18E8
LDX &6C
LDA L0A1B
AND #&07
CMP L1C54,X
BNE L175A
LDY L1C56,X
LDA (&60),Y
CMP #&03
.L1748
BNE L175A
LDA &8E
CMP L1C58,X
BNE L175A
LDA L0A24
SEC
SBC #&02
STA L0A24
.L175A
JSR L1BA7
JSR L1BA7
JSR L1BA7
JSR L1D6D
JSR L1962
LDX #&00
JSR L18C6
JSR L0B0C
JSR L1626
LDA #&B0
STA L165F
DEC &9C
BEQ L178E
LDA #&00
STA &08BF
.L1782
LDA &08BF
BEQ L1782
LDA &8C
LDX &8D
JSR L1657
.L178E
JSR L1626
JSR L0B0F
LDA #&90
STA L165F
DEC &9C
BPL L17B2
LDX #&00
JSR L158B
LDA L0A1B
AND #&F8
STA &8C
STX &8D
LDX &8D
BMI L17B2
JSR L1641
.L17B2
LDX #&00
STX &9C
JSR L18C6
JSR L1AFC
JSR L1C6C
LDA &63
BEQ L17ED
LDA #&10
JSR L0B27
LDA #&28
JSR L0B27
DEC &9B
LDA L1127
STA &8E
LDA L1128
STA &65
LDA L1129
STA L0A1B
LDA L112A
STA L0A24
LDA L112B
STA &64
JSR L1CF5
.L17ED
RTS

.L17EE
BRK
EQUB &04:EQUB &04
EQUB &04:EQUB &04
EQUB &02
EQUB &02
EQUB &02
BRK
BRK
BRK
BRK
INC &FEFE,X
INC &FCFC,X
EQUB &FC

.L1801
LDX #&03:JSR L11B8:STA &87       :\ Get 3 bits, store in &87
TAY:BEQ L186E                    :\ Skip past if zero
.L180B
LDX #&06:JSR L11B8:STA L0A00,Y   :\ Get 6 bits
LDX #&05:JSR L1871:STA L0A1B,Y   :\ Get 5 bits, multiply by 8
LDX #&04:JSR L1871:STA L0A24,Y   :\ Get 4 bits, multiply by 8
LDX #&05:JSR L1871:STA L0A36,Y   :\ Get 5 bits, multiply by 8
LDX #&05:JSR L1871:STA L0A3F,Y   :\ Get 5 bits, multiply by 8
LDX #&01:JSR L11B8               :\ Get 1 bit
ASL A:BEQ L183D:LDA #&FF         :\ Convert to &00/&FF
.L183D
STA L0A12,Y
LDX #&01:JSR L11B8:STA &97
LDX #&03:JSR L11B8:STA L0A2D,Y
LDX &97:BNE L185B
EOR #&FF:CLC:ADC #&01
STA L0A2D,Y
.L185B
LDX #&02:JSR L11B8:STA L0A48,Y
LDA #&00
.L1865
STA L0A5A,Y
STA L0A51,Y
DEY:BNE L180B
.L186E
JMP L13D0

.L1871
JSR L11B8
ASL A:ASL A:ASL A   :\ Multiply by 8
RTS

.L1878
LDY #&37
STY &61
LDA #&0F
SEC
SBC &71
ASL A
ASL A
ASL A
ASL A
ASL A
ROL &61
ADC &70
STA &60
LDA &72
ADC #&01
CMP #&05
BCC L18B3
BEQ L18B1
INC &67
LDX &67
LDA &90:STA L0A8C,X
LDA &91:STA L0A98,X
LDA &60:STA L0AA8,X
LDA &61:STA L0AB4,X
TXA
ORA #&10
.L18B1
ORA #&C0
.L18B3
LDY #&00
STA (&60),Y
RTS

.L18B8
LDY #&00
LDA #&80
.L18BC
STA &6E00,Y
STA &6F00,Y
INY
BNE L18BC
RTS

.L18C6
LDA #&37
STA &61
LDA L0A24,X
SEC
SBC #&08
BCS L18D4
DEC &61
.L18D4
ASL A
ASL A
ROL &61
AND #&E0
STA &7B
LDA L0A1B,X
LSR A
LSR A
LSR A
CLC
ADC &7B
STA &60
RTS

.L18E8
LDX &6C
LDY L1C5A,X
LDA (&60),Y
BEQ L18F3
BPL L18FD
.L18F3
INX
LDY L1C5A,X
LDA (&60),Y
BEQ L1945
BMI L1945
.L18FD
CMP #&03
BNE L1908
JSR L1BF8
BEQ L1945
BPL L1915
.L1908
STA &7B
LDA L0A24
AND #&07
CMP #&03
BCS L1945
LDA &7B
.L1915
CMP #&04:BNE L191C
JSR L1C5A+3
.L191C
LDA &64:BEQ L1938
LDA &9A:BNE L1930
LDA L0A24
SEC
SBC &62
BMI L1932
CMP #&21
BCC L1932
.L1930
INC &63
.L1932
LDA #&00
STA &65
STA &64
.L1938
LDA &6B
BNE L1944
LDA L0A24
AND #&F8
STA L0A24
.L1944
RTS

.L1945
LDA &65:BNE L1961
LDA &64:BNE L1954
LDA L0A24
STA &62
STA &64
.L1954
LDA #&00
STA &8E
LDA L0A24
CLC
ADC #&04
STA L0A24
.L1961
RTS

.L1962
LDA &87
BEQ L19BF
STA &8A
.L1968
LDX &8A
JSR L15EB
LDA #&01
STA L0A63,X
LDA #&00
STA L0A6C,X
JSR L18C6
LDY L0A51,X
STY &7B
CMP L0A51,X
BEQ L19BB
INC L0A6C,X
STA L0A51,X
TXA
ORA #&80
LDY #&20
STA (&60),Y
INY
STA (&60),Y
LDY #&40
STA (&60),Y
INY
STA (&60),Y
LDA &7B
BEQ L19BB
LDA L0A5A,X
BEQ L19BB
ASL A
LDA L0A12,X
AND #&02
ADC #&00
TAX
LDY L19FF,X
LDA &4E
STA (&60),Y
LDY L1A03,X
STA (&60),Y
LDX &8A
.L19BB
DEC &8A
BNE L1968
.L19BF
RTS

.L19C0
LDX &8A
LDA L0A6C,X
BEQ L19FE
LDA L0A12,X
BNE L19FE
LDA #&08:STA &95
LDA #&1F:STA &94
LDA #&F8
LDY L0A5A,X
BPL L19DD
LDA #&0C
.L19DD
CLC
ADC L0A1B,X
STA &7B
LDA #&00
STA &92
LDA #&70
STA &93
LDA L0A24,X
TAX
LDA &7B
JSR L1500
LDA #&18
STA &95
LDA #&3F
STA &94
LDX &8A
.L19FE
RTS

.L19FF
EQUB &1F
EQUB &22
BRK
.L1A02
RTS

.L1A03
EQUB &3F
EQUB &42
ORA (&61,X)
.L1A07
LDA L0A12,Y
BEQ L1A51
LDA L0A5A,Y
BMI L1A5A
LDX L0A00,Y
CPX #&21
BEQ L1A4E
STA &7B
ASL A
ASL A
SBC #&00
STA &94
LDA &92
STA &97
LDA #&00
STA &92
LDA &93
STA &96
LDA #&70
STA &93
LDA L0A24,Y
SEC
SBC &7B
TAX
LDA L0A1B,Y
JSR L1500
LDA &96
STA &93
LDA #&3F
STA &94
LDA &97
STA L1512+1
JSR L1A81
RTS

.L1A4E
LDX L0A24,Y
.L1A51
LDA L0A1B,Y
AND #&F8
JSR L1500
RTS

.L1A5A
LDA L0A1B,Y
JSR L1500
LDA #&00
STA L1512+1
LDY &8A
LDA #&70
STA &93
LDA L0A5A,Y
EOR #&FF
CLC
ADC #&01
ASL A
ASL A
SBC #&00
STA &94
JSR L1A81
LDA #&3F
STA &94
RTS

.L1A81
LDX &94
LDA &93
STA L1512+2
JMP L1523

.L1A8B
LDX #&00
STX &96
JSR L18C6
LDY #&20
LDA &8E
BEQ L1AAB
BMI L1A9B
INY
.L1A9B
JSR L1AAE
JSR L1AAE
LDA L0A24
AND #&07
BEQ L1AAB
JSR L1AAE
.L1AAB
LDA &96
RTS

.L1AAE
LDA (&60),Y
CMP #&02
BNE L1AB6
INC &96
.L1AB6
TYA
CLC
ADC #&20
TAY
RTS

.L1ABC
LDA &8B
BEQ L1ADD
INC &64
LDA #&12
STA &65
INC &8B
LDA L0A24
SEC
SBC #&08
STA &62
JSR L1ADE
BEQ L1ADD
LDA #&08
JSR L0B27
JSR L1EBC
.L1ADD
RTS

.L1ADE
LDA L0A24
AND #&07
BNE L1AFB
LDY #&00
LDA (&60),Y
EOR #&02
BEQ L1AF4
INY
LDA (&60),Y
EOR #&02
BNE L1AFB
.L1AF4
JSR L1EBC
LDA #&00
STA &65
.L1AFB
RTS

.L1AFC
LDA L0A24
ORA #&07
SEC
SBC L0A24
STA &96
LDY #&20
LDA #&3D
JSR L1B16
LDY #&21
LDA #&3F
JSR L1B16
RTS

.L1B16
STA &97
LDX &96
JSR L1B2F
LDX #&07
JSR L1B2F
LDA #&07
SEC
SBC &96
BEQ L1B2E
TAX
DEX
JSR L1B2F
.L1B2E
RTS

.L1B2F
TYA
CLC
ADC #&20
STA &7B
LDA (&60),Y
STA &68
BPL L1B59
LDY &97
.L1B3D
LDA &7020,Y
BEQ L1B45
JSR L1B67
.L1B45
DEY
LDA &7020,Y
BEQ L1B4E
JSR L1B67
.L1B4E
DEY
DEY
DEY
DEX
BPL L1B3D
STY &97
LDY &7B
RTS

.L1B59
INX
TXA
ASL A
ASL A
EOR #&FF
SEC
ADC &97
STA &97
LDY &7B
RTS

.L1B67
STX &70
STY &71
LDA #&00
STA &7020,Y
LDA &68
AND #&7F:BEQ L1B9F
CMP #&4E:BCS L1B8B
CMP #&02:BNE L1B84
LDA &55:CMP #&15:BEQ L1B86   :\ If Bathroom, skip
.L1B84
INC &63
.L1B86
LDX &70
LDY &71
RTS

.L1B8B
AND #&0F
TAX
LDA L0A80,X
BEQ L1B86
LDA #&00
STA L0A80,X
STX &67
JSR L0B06
BPL L1B86
.L1B9F
LDA &6F
.L1BA1
BNE L1B86
INC &63
BNE L1B86
.L1BA7
LDX &66
BMI L1BF7
CPX &67
BCC L1BEF
LDX &67
LDA L0A8C,X:STA &90
LDA L0A98,X:STA &91
LDY L0A80,X:BEQ L1BCD
DEC L0A80,X:BNE L1BCA
LDA #&03:STA L0A80,X
.L1BCA
LDY L0A80,X
.L1BCD
LDA L1587,Y:STA &89
LDY #&0F
.L1BD4
LDA &70A0,Y
AND &89
STA (&90),Y
DEY
BPL L1BD4
LDA L0AA8,X:STA &90
LDA L0AB4,X:STA &91
TXA
ORA #&E0
LDY #&00
STA (&90),Y
.L1BEF
DEC &67
BPL L1BF7
LDA #&0B
STA &67
.L1BF7
RTS

.L1BF8
LDX &6C
TYA
CMP L1C5A,X
BNE L1C4D
INC &6B
LDA L0A24
AND #&07
STA &7B
LDA L0A1B
AND #&07
.L1C0E
EOR L1C50,X
SEC
ADC L1C52,X
BMI L1C23
CMP &7B
BCC L1C23
DEC L0A24
DEC L0A24
BCS L1C4A
.L1C23
CLC
ADC #&04
CMP &7B
BCC L1C4A
SBC #&02
STA &7B
LDA L0A24
AND #&F8
ORA &7B
SBC #&01
STA L0A24
LDA #&01
LDX &55:CPX #&16:BEQ L1C46   :\ If Halfway Up East Wall, return 4
CPX #&1D:BNE L1C48           :\ If not The Chapel, return 1
.L1C46                       :\ All other rooms, return 4
LDA #&04:\ Chapel and East Wall returns 4, others return 1
.L1C48
TAX
RTS

.L1C4A
LDA #&00
RTS

.L1C4D
LDA #&FF
RTS

.L1C50
EQUB &FF
BRK
.L1C52
ORA &FE
.L1C54
BRK
EQUB &06
.L1C56
EQUB &41
RTI

.L1C58
EQUB &02
EQUB &FE
.L1C5A
EQUW &6061
EQUB &50
.L1C5D
LDA &8E:BEQ L1C65
CMP &6A:BNE L1C6B
.L1C65
LDA &6A:STA &8E:STA &69
.L1C6B
RTS

.L1C6C
LDY #&00
LDA L0A1B
BEQ L1C9A
INY
CMP #&F6
BEQ L1C9A
INY
LDX #&68
LDA L0A24
BMI L1CA2
INY
LDX #&01
CMP #&71
BCC L1CB4
LDA &64
BEQ L1CA2
LDA L0A24
SEC
SBC &62
CMP #&22
BCC L1CA2
STA &9A
JMP L1CA2

.L1C9A
EOR #&F4
STA L0A1B
JMP L1CA9

.L1CA2
STX L0A24
LDA #&00
STA &8E
.L1CA9
LDA L0AA4,Y:STA &55   :\ Set room number
JSR L1CF5
JSR L111B
.L1CB4
RTS

.L1CB5
LDX #&04:JSR L11B8    :\ Get four bits
TAY:DEY:STY &66       :\ &1-&F=count, &0=
BMI L1CCB             :\ If &0, jump forward
.L1CC0
LDX #&01:JSR L11B8    :\ Get 1-bit value
STA L0A80,Y
DEY:BPL L1CC0
.L1CCB
LDY #&00
.L1CCD
LDX #&06:JSR L11B8    :\ Get six bits
STA L0AA4,Y
INY
CPY #&04:BNE L1CCD
LDX #&01:JSR L11B8    :\ Get one bit
ASL A:ASL A
SEC:SBC #&02
STA &6A
LDX #&01:JSR L11B8
STA &6C
LDX #&01:JSR L11B8
STA &6F
RTS

.L1CF5
LDY #&00
LDX &66
BMI L1D2C
LDA #&04
STA &97
.L1CFF
DEC &97
BPL L1D08
LDA #&07
STA &97
INY
.L1D08
LDA L0A80,X
BEQ L1D0F
LDA #&FF
.L1D0F
STA &7B
STX &96
LDX &97
LDA L1D2D,X
EOR #&FF
AND &7B
STA &7B
LDA (&50),Y
AND L1D2D,X
ORA &7B
STA (&50),Y
LDX &96
DEX
BPL L1CFF
.L1D2C
RTS

.L1D2D
EQUB &7F:EQUB &BF:EQUB &DF
EQUB &EF:EQUB &F7:EQUB &FB
EQUB &FD:EQUB &FE
.L1D35
EQUB &A0
EQUB &0B
LDA #&01
.L1D39
STA L0A80,Y
DEY:BPL L1D39
LDA #&3C:STA &81
.L1D43
LDX &81
JSR L1D59              :\ Get address of room definition
LDX #&04:JSR L11B8     :\ Get four bits
STA &66:DEC &66
JSR L1CF5
DEC &81:BNE L1D43
RTS

\ Get address of data for room definition
\ ---------------------------------------
.L1D59
LDA #&00:STA &52:STA &53    :\ &52/3=&0000
LDA L1F00,X:STA &50         :\ Get low byte of offset
LDA L1F3D,X:CLC             :\ Get high byte of offset
ADC #&1F:STA &51            :\ &50/1=>room definition
RTS

.L1D6D
LDA &56
BEQ L1DAE
LDA &57
AND #&07
TAX
LDA &58:STA &7B
LDA &59:STA &90
LDA &5A:STA &91
LDY #&00
CLC
.L1D85
LDA &7080,X:STA (&90),Y
INY:INY
LDA &7088,X:STA (&90),Y
TYA:ADC #&06:TAY
LDA &7090,X:STA (&90),Y
INY:INY
LDA &7098,X:STA (&90),Y
TYA:ADC #&06:TAY
BNE L1DAA
INC &91
CLC
.L1DAA
DEC &7B:BNE L1D85
.L1DAE
RTS

.L1DAF
LDY #&00
STY &60
LDA #&6E
STA &61
LDA #&02
STA &56
.L1DBB
JSR L1DE5
BNE L1DBB
STY &59
LDA &61
AND #&01
ASL &59:ROL A
ASL &59:ROL A
ASL &59:ROL A
ASL &59:ROL A
ADC #&30
STA &5A
LDX #&00
INC &56
.L1DDA
INX
JSR L1DE5
BEQ L1DDA
STX &58
JMP L1DF6

.L1DE5
INY
BNE L1DF1
INC &61
DEC &56
BNE L1DF1
PLA
PLA
RTS

.L1DF1
LDA (&60),Y
CMP #&04
RTS

.L1DF6
LDA &09FA
JSR L153A      :\ get character definition
LDX &09F4
LDA L1587,X
STA &81
LDY #&00
LDA &6A
BMI L1E11
LDX #&00
JSR L1E29
BMI L1E16
.L1E11
LDX #&07
JSR L1E3A
.L1E16
LDY #&02
LDA &6A
BMI L1E23
LDX #&0F
JSR L1E3A
BMI L1E28
.L1E23
LDX #&08
JSR L1E29
.L1E28
RTS

.L1E29
LDA (&90),Y
STA &97
LDA #&07
STA &7A
.L1E31
JSR L1E4B
INX
DEC &7A
BPL L1E31
RTS

.L1E3A
LDA (&90),Y
STA &97
LDA #&07
STA &7A
.L1E42
JSR L1E4B
DEX
DEC &7A
BPL L1E42
RTS

.L1E4B
CLC
LDA &97
BPL L1E51
SEC
.L1E51
ROL A
STA &97
JSR L14BC
AND &81
STA &7080,X
LDA &88
AND &81
STA &7090,X
RTS

\ Drop the foot?
.L1E64
LDA #&28:STA &0884
LDA #&00:STA &028A
LDX #&00:JSR L1D59        :\ Get address of room 0 definition
JSR L1801                 :\ Expand the room to &A00+
LDA #&01
STA L0A0B
STA L0A64
.L1E7E
STA L0A65
STA L0A66
JSR L1626
LDA #&73:STA &93  :\ &92/3=>&7340
LDA #&40:STA &92
:
.L1E8F
LDA L0A1C:LDX L0A25
JSR L1500           :\ Draw foot?
INC &0884:INC &0884
LDA #&00:JSR L0B27
LDX #&0F:JSR L1EB3
INC L0A25:LDA L0A25
CMP #&61:BNE L1E8F
RTS

.L1EB3
LDY #&00
.L1EB5
DEY:BNE L1EB5
DEX:BNE L1EB5
RTS

.L1EBC
LDA &65
BEQ L1ED4
TAX
.L1EC1
LDA L0A24
.L1EC3
CLC
ADC L17EE,X
STA L0A24
DEC &65
.L1ECD
BNE L1ED4
AND #&FC
STA L0A24
.L1ED4
RTS

.L1ED5
ROL &20,X
DEY
EQUB &32:EQUB &0D
ORA (&FE,X)
.L1EDC
EQUB &0C:EQUB &20:EQUB &50
EQUB &25:EQUB &3D
ROL &42
BMI &1F15
ORA &0302
ORA &4F20
AND &3D
ROL &35
EQUB &43
BMI &1F22
ORA &0802
ORA &20
ORA &E803
ASL A
EQUB &5B
EQUB &4F
EQUB &50
EQUB &54
EQUB &20

\ Room definitions
\ ================
\
\ Low byte of start address of room 0 to 60
\ -----------------------------------------
.L1F00
\ &1F00: EQUB &71:EQUB &7A:EQUB &BB:EQUB &07:EQUB &40:EQUB &8F:EQUB &C2:EQUB &1A
\ &1F08: EQUB &72:EQUB &A7:EQUB &E2:EQUB &2D:EQUB &83:EQUB &F3:EQUB &36:EQUB &7B
\ &1F10: EQUB &BB:EQUB &FD:EQUB &43:EQUB &85:EQUB &B6:EQUB &FA:EQUB &33:EQUB &70
\ &1F18: EQUB &A8:EQUB &DA:EQUB &00:EQUB &50:EQUB &A6:EQUB &DB:EQUB &1A:EQUB &4E
\ &1F20: EQUB &71:EQUB &A9:EQUB &EF:EQUB &3B:EQUB &80:EQUB &E5:EQUB &28:EQUB &69
\ &1F28: EQUB &99:EQUB &B9:EQUB &02:EQUB &57:EQUB &AA:EQUB &0B:EQUB &3B:EQUB &6B
\ &1F30: EQUB &A2:EQUB &CA:EQUB &0E:EQUB &74:EQUB &CD:EQUB &20:EQUB &5C:EQUB &B3
\ &1F38: EQUB &04:EQUB &36:EQUB &70:EQUB &E0:EQUB &25
\
\ High byte of start address of room 0 to 60 as offset from &1F00
\ ---------------------------------------------------------------
.L1F3D
         EQUB &10:EQUB &00:EQUB &00
\ &1F40: EQUB &01:EQUB &01:EQUB &01:EQUB &01:EQUB &02:EQUB &02:EQUB &02:EQUB &02
\ &1F48: EQUB &03:EQUB &03:EQUB &03:EQUB &04:EQUB &04:EQUB &04:EQUB &04:EQUB &05
\ &1F50: EQUB &05:EQUB &05:EQUB &05:EQUB &06:EQUB &06:EQUB &06:EQUB &06:EQUB &07
\ &1F58: EQUB &07:EQUB &07:EQUB &07:EQUB &08:EQUB &08:EQUB &08:EQUB &08:EQUB &08
\ &1F60: EQUB &09:EQUB &09:EQUB &09:EQUB &0A:EQUB &0A:EQUB &0A:EQUB &0A:EQUB &0B
\ &1F68: EQUB &0B:EQUB &0B:EQUB &0C:EQUB &0C:EQUB &0C:EQUB &0C:EQUB &0C:EQUB &0D
\ &1F70: EQUB &0D:EQUB &0D:EQUB &0E:EQUB &0E:EQUB &0E:EQUB &0F:EQUB &0F:EQUB &0F
\ &1F78: EQUB &0F:EQUB &10

\ Compressed room definitions
\ ---------------------------
\ Room 001
\ &1F7A:                   EQUB &F2:EQUB &20:EQUB &98:EQUB &A1:EQUB &C9:EQUB &EF
\ &1F80: EQUB &60:EQUB &77:EQUB &3F:EQUB &62:EQUB &67:EQUB &FB:EQUB &6E:EQUB &AA
\ &1F88: EQUB &81:EQUB &8C:EQUB &F8:EQUB &CB:EQUB &AE:EQUB &91:EQUB &78:EQUB &A0
\ &1F90: EQUB &CC:EQUB &4A:EQUB &62:EQUB &C6:EQUB &82:EQUB &49:EQUB &26:EQUB &43
\ &1F98: EQUB &66:EQUB &99:EQUB &B9:EQUB &71:EQUB &34:EQUB &BA:EQUB &4E:EQUB &96
\ &1FA0: EQUB &94:EQUB &16:EQUB &1D:EQUB &0A:EQUB &56:EQUB &1C:EQUB &79:EQUB &0A
\ &1FA8: EQUB &10:EQUB &21:EQUB &0A:EQUB &5D:EQUB &56:EQUB &56:EQUB &6C:EQUB &D8
\ &1FB0: EQUB &F4:EQUB &47:EQUB &B1:EQUB &4F:EQUB &9D:EQUB &91:EQUB &89:EQUB &35
\ &1FB8: EQUB &FD:EQUB &55:EQUB &00:EQUB &00:EQUB &C1:EQUB &10:EQUB &95:EQUB &DC
\ &1FC0: EQUB &04:EQUB &59:EQUB &18:EQUB &53:EQUB &96:EQUB &97:EQUB &1E:EQUB &A3
\ &1FC8: EQUB &AD:EQUB &33:EQUB &C4:EQUB &3C:EQUB &5D:EQUB &AC:EQUB &38:EQUB &DB
\ &1FD0: EQUB &DA:EQUB &8D:EQUB &5B:EQUB &F7:EQUB &19:EQUB &24:EQUB &59:EQUB &E6
\ &1FD8: EQUB &E1:EQUB &9B:EQUB &0F:EQUB &9F:EQUB &BC:EQUB &09:EQUB &35:EQUB &30
\ &1FE0: EQUB &17:EQUB &FD:EQUB &50:EQUB &32:EQUB &57:EQUB &B3:EQUB &EC:EQUB &35
\ &1FE8: EQUB &2D:EQUB &A7:EQUB &D0:EQUB &A4:EQUB &5C:EQUB &9E:EQUB &FC:EQUB &E8
\ &1FF0: EQUB &D9:EQUB &37:EQUB &25:EQUB &A0:EQUB &23:EQUB &4F:EQUB &94:EQUB &20
\ &1FF8: EQUB &40:EQUB &AC:EQUB &13:EQUB &C2:EQUB &C0:EQUB &20:EQUB &B3:EQUB &C2
\ &2000: EQUB &A9:EQUB &AB:EQUB &8A:EQUB &D6:EQUB &DC:EQUB &94:EQUB &01:EQUB &18
\ &2008: EQUB &42:EQUB &60:EQUB &F8:EQUB &7B:EQUB &2B:EQUB &CA:EQUB &2B:EQUB &C8
\ &2010: EQUB &CA:EQUB &89:EQUB &59:EQUB &44:EQUB &39:EQUB &7B:EQUB &FF:EQUB &8B
\ &2018: EQUB &CE:EQUB &D1:EQUB &03:EQUB &07:EQUB &DB:EQUB &10:EQUB &8E:EQUB &1A
\ &2020: EQUB &8D:EQUB &71:EQUB &38:EQUB &0D:EQUB &66:EQUB &CD:EQUB &8E:EQUB &F9
\ &2028: EQUB &46:EQUB &56:EQUB &88:EQUB &12:EQUB &A1:EQUB &44:EQUB &F1:EQUB &38
\ &2030: EQUB &5A:EQUB &21:EQUB &46:EQUB &D9:EQUB &E0:EQUB &89:EQUB &EB:EQUB &74
\ &2038: EQUB &61:EQUB &F2:EQUB &43:EQUB &BB:EQUB &AE:EQUB &9D:EQUB &48:EQUB &00
\ &2040: EQUB &18:EQUB &46:EQUB &11:EQUB &44:EQUB &DB:EQUB &89:EQUB &48:EQUB &CB
\ &2048: EQUB &48:EQUB &4A:EQUB &49:EQUB &5B:EQUB &84:EQUB &15:EQUB &7F:EQUB &9D
\ &2050: EQUB &BD:EQUB &FF:EQUB &41:EQUB &90:EQUB &B3:EQUB &26:EQUB &86:EQUB &D8
\ &2058: EQUB &9C:EQUB &0E:EQUB &1C:EQUB &6C:EQUB &E1:EQUB &23:EQUB &2D:EQUB &76
\ &2060: EQUB &A2:EQUB &A6:EQUB &4E:EQUB &B7:EQUB &EC:EQUB &F9:EQUB &06:EQUB &1C
\ &2068: EQUB &58:EQUB &6A:EQUB &D2:EQUB &42:EQUB &15:EQUB &96:EQUB &4A:EQUB &B4
\ &2070: EQUB &10:EQUB &2D:EQUB &13:EQUB &53:EQUB &96:EQUB &6C:EQUB &18:EQUB &D6
\ &2078: EQUB &5A:EQUB &22:EQUB &5D:EQUB &F8:EQUB &FD:EQUB &A4:EQUB &A4:EQUB &41
\ &2080: EQUB &ED:EQUB &AC:EQUB &D4:EQUB &45:EQUB &ED:EQUB &B2:EQUB &CC:EQUB &46
\ &2088: EQUB &ED:EQUB &B9:EQUB &9C:EQUB &4A:EQUB &CC:EQUB &B7:EQUB &03:EQUB &18
\ &2090: EQUB &C1:EQUB &40:EQUB &F4:EQUB &7B:EQUB &8B:EQUB &88:EQUB &4B:EQUB &4A
\ &2098: EQUB &88:EQUB &89:EQUB &2E:EQUB &04:EQUB &35:EQUB &72:EQUB &4D:EQUB &49
\ &20A0: EQUB &F9:EQUB &7A:EQUB &12:EQUB &A9:EQUB &8B:EQUB &E6:EQUB &82:EQUB &17
\ &20A8: EQUB &8A:EQUB &88:EQUB &0A:EQUB &50:EQUB &4D:EQUB &08:EQUB &3B:EQUB &70
\ &20B0: EQUB &B0:EQUB &91:EQUB &6C:EQUB &38:EQUB &DF:EQUB &24:EQUB &00:EQUB &CA
\ &20B8: EQUB &50:EQUB &19:EQUB &5D:EQUB &F8:EQUB &FD:EQUB &30:EQUB &61:EQUB &0A
\ &20C0: EQUB &04:EQUB &12:EQUB &18:EQUB &C5:EQUB &31:EQUB &6C:EQUB &B9:EQUB &8B
\ &20C8: EQUB &48:EQUB &CB:EQUB &C8:EQUB &12:EQUB &CA:EQUB &5F:EQUB &0C:EQUB &8A
\ &20D0: EQUB &6D:EQUB &6E:EQUB &2A:EQUB &91:EQUB &3C:EQUB &B1:EQUB &2B:EQUB &B9
\ &20D8: EQUB &89:EQUB &10:EQUB &7B:EQUB &33:EQUB &17:EQUB &E9:EQUB &42:EQUB &42
\ &20E0: EQUB &5D:EQUB &24:EQUB &07:EQUB &0E:EQUB &B6:EQUB &F0:EQUB &91:EQUB &16
\ &20E8: EQUB &3B:EQUB &D1:EQUB &52:EQUB &A7:EQUB &5B:EQUB &F6:EQUB &7C:EQUB &03
\ &20F0: EQUB &0E:EQUB &2C:EQUB &35:EQUB &69:EQUB &A1:EQUB &0A:EQUB &4B:EQUB &25
\ &20F8: EQUB &5A:EQUB &88:EQUB &96:EQUB &89:EQUB &29:EQUB &4B:EQUB &36:EQUB &8C
\ &2100: EQUB &2E:EQUB &FC:EQUB &7E:EQUB &5A:EQUB &D2:EQUB &60:EQUB &F6:EQUB &54
\ &2108: EQUB &EA:EQUB &A2:EQUB &76:EQUB &59:EQUB &66:EQUB &23:EQUB &F6:EQUB &5C
\ &2110: EQUB &4E:EQUB &A5:EQUB &76:EQUB &96:EQUB &10:EQUB &01:EQUB &0A:EQUB &35
\ &2118: EQUB &B1:EQUB &04:EQUB &34:EQUB &46:EQUB &64:EQUB &6C:EQUB &6A:EQUB &17
\ &2120: EQUB &90:EQUB &E2:EQUB &EF:EQUB &E6:EQUB &E5:EQUB &BB:EQUB &C3:EQUB &88
\ &2128: EQUB &24:EQUB &A1:EQUB &42:EQUB &1E:EQUB &49:EQUB &86:EQUB &44:EQUB &A2
\ &2130: EQUB &31:EQUB &38:EQUB &70:EQUB &B0:EQUB &85:EQUB &8F:EQUB &B6:EQUB &F8
\ &2138: EQUB &C9:EQUB &66:EQUB &96:EQUB &0F:EQUB &F8:EQUB &20:EQUB &DF:EQUB &CF
\ &2140: EQUB &55:EQUB &FE:EQUB &AD:EQUB &77:EQUB &7D:EQUB &95:EQUB &DB:EQUB &D2
\ &2148: EQUB &5C:EQUB &70:EQUB &18:EQUB &79:EQUB &B9:EQUB &CC:EQUB &ED:EQUB &A7
\ &2150: EQUB &16:EQUB &99:EQUB &39:EQUB &93:EQUB &21:EQUB &28:EQUB &D5:EQUB &69
\ &2158: EQUB &61:EQUB &21:EQUB &76:EQUB &77:EQUB &06:EQUB &5D:EQUB &5C:EQUB &BB
\ &2160: EQUB &E6:EQUB &49:EQUB &49:EQUB &82:EQUB &D9:EQUB &55:EQUB &69:EQUB &92
\ &2168: EQUB &DA:EQUB &65:EQUB &42:EQUB &14:EQUB &58:EQUB &A4:EQUB &38:EQUB &10
\ &2170: EQUB &A0:EQUB &35:EQUB &18:EQUB &27:EQUB &4E:EQUB &2E:EQUB &79:EQUB &8F
\ &2178: EQUB &4A:EQUB &49:EQUB &76:EQUB &0F:EQUB &0F:EQUB &BD:EQUB &4C:EQUB &3A
\ &2180: EQUB &7B:EQUB &B3:EQUB &F3:EQUB &D7:EQUB &D1:EQUB &FB:EQUB &2F:EQUB &77
\ &2188: EQUB &25:EQUB &91:EQUB &03:EQUB &A3:EQUB &D5:EQUB &3C:EQUB &58:EQUB &C4
\ &2190: EQUB &FE:EQUB &61:EQUB &01:EQUB &57:EQUB &2D:EQUB &E1:EQUB &12:EQUB &AA
\ &2198: EQUB &15:EQUB &08:EQUB &AB:EQUB &48:EQUB &A3:EQUB &A7:EQUB &4C:EQUB &4D
\ &21A0: EQUB &AB:EQUB &1F:EQUB &CA:EQUB &59:EQUB &80:EQUB &5D:EQUB &02:EQUB &F2
\ &21A8: EQUB &24:EQUB &05:EQUB &89:EQUB &E8:EQUB &76:EQUB &70:EQUB &A0:EQUB &37
\ &21B0: EQUB &A6:EQUB &BF:EQUB &EF:EQUB &15:EQUB &02:EQUB &B9:EQUB &44:EQUB &62
\ &21B8: EQUB &05:EQUB &D9:EQUB &C5:EQUB &F1:EQUB &A2:EQUB &73:EQUB &F4:EQUB &80
\ &21C0: EQUB &85:EQUB &06:EQUB &7E:EQUB &CC:EQUB &2A:EQUB &CA:EQUB &C8:EQUB &C2
\ &21C8: EQUB &F9:EQUB &FE:EQUB &80:EQUB &29:EQUB &17:EQUB &C8:EQUB &D2:EQUB &F6
\ &21D0: EQUB &E1:EQUB &D5:EQUB &E9:EQUB &72:EQUB &F3:EQUB &E9:EQUB &C7:EQUB &BF
\ &21D8: EQUB &3F:EQUB &A2:EQUB &53:EQUB &C7:EQUB &8F:EQUB &22:EQUB &87:EQUB &86
\ &21E0: EQUB &AF:EQUB &06:EQUB &40:EQUB &D2:EQUB &90:EQUB &84:EQUB &DC:EQUB &A4
\ &21E8: EQUB &BB:EQUB &7A:EQUB &E2:EQUB &3B:EQUB &3B:EQUB &2E:EQUB &26:EQUB &8B
\ &21F0: EQUB &C5:EQUB &24:EQUB &DE:EQUB &FF:EQUB &A2:EQUB &73:EQUB &F4:EQUB &08
\ &21F8: EQUB &68:EQUB &10:EQUB &86:EQUB &4A:EQUB &22:EQUB &7C:EQUB &5D:EQUB &B0
\ &2200: EQUB &64:EQUB &8D:EQUB &81:EQUB &32:EQUB &17:EQUB &E8:EQUB &32:EQUB &44
\ &2208: EQUB &F5:EQUB &37:EQUB &60:EQUB &70:EQUB &80:EQUB &06:EQUB &C6:EQUB &8A
\ &2210: EQUB &26:EQUB &71:EQUB &3E:EQUB &D1:EQUB &7C:EQUB &F2:EQUB &B4:EQUB &CD
\ &2218: EQUB &75:EQUB &6D:EQUB &86:EQUB &71:EQUB &E3:EQUB &97:EQUB &C3:EQUB &CD
\ &2220: EQUB &2B:EQUB &53:EQUB &E7:EQUB &51:EQUB &44:EQUB &12:EQUB &30:EQUB &34
\ &2228: EQUB &1B:EQUB &D2:EQUB &64:EQUB &95:EQUB &4C:EQUB &40:EQUB &31:EQUB &B4
\ &2230: EQUB &8C:EQUB &DC:EQUB &A5:EQUB &5B:EQUB &DB:EQUB &24:EQUB &5A:EQUB &9A
\ &2238: EQUB &2D:EQUB &A2:EQUB &FE:EQUB &03:EQUB &39:EQUB &0B:EQUB &74:EQUB &F2
\ &2240: EQUB &05:EQUB &19:EQUB &BB:EQUB &85:EQUB &10:EQUB &31:EQUB &52:EQUB &E4
\ &2248: EQUB &C9:EQUB &B3:EQUB &17:EQUB &AD:EQUB &DA:EQUB &F8:EQUB &FB:EQUB &73
\ &2250: EQUB &B8:EQUB &4E:EQUB &52:EQUB &27:EQUB &05:EQUB &01:EQUB &06:EQUB &3C
\ &2258: EQUB &14:EQUB &78:EQUB &20:EQUB &C0:EQUB &81:EQUB &41:EQUB &56:EQUB &38
\ &2260: EQUB &1A:EQUB &0C:EQUB &48:EQUB &4A:EQUB &17:EQUB &76:EQUB &7B:EQUB &C6
\ &2268: EQUB &33:EQUB &1E:EQUB &07:EQUB &D7:EQUB &2B:EQUB &9E:EQUB &26:EQUB &D7
\ &2270: EQUB &4B:EQUB &9E:EQUB &17:EQUB &D7:EQUB &6B:EQUB &5E:EQUB &36:EQUB &D7
\ &2278: EQUB &29:EQUB &5E:EQUB &17:EQUB &D7:EQUB &49:EQUB &C1:EQUB &26:EQUB &D7
\ &2280: EQUB &E9:EQUB &92:EQUB &26:EQUB &98:EQUB &66:EQUB &51:EQUB &46:EQUB &F7
\ &2288: EQUB &36:EQUB &D5:EQUB &37:EQUB &36:EQUB &D4:EQUB &D5:EQUB &5E:EQUB &04
\ &2290: EQUB &E0:EQUB &F8:EQUB &A4:EQUB &B3:EQUB &24:EQUB &DD:EQUB &26:EQUB &B4
\ &2298: EQUB &BE:EQUB &96:EQUB &54:EQUB &12:EQUB &2F:EQUB &24:EQUB &5A:EQUB &90
\ &22A0: EQUB &4A:EQUB &6E:EQUB &E6:EQUB &22:EQUB &1D:EQUB &9C:EQUB &0F:EQUB &64
\ &22A8: EQUB &31:EQUB &DC:EQUB &47:EQUB &B2:EQUB &B6:EQUB &C7:EQUB &57:EQUB &E2
\ &22B0: EQUB &A4:EQUB &D2:EQUB &63:EQUB &F1:EQUB &3E:EQUB &70:EQUB &E8:EQUB &48
\ &22B8: EQUB &09:EQUB &53:EQUB &91:EQUB &A8:EQUB &D0:EQUB &8A:EQUB &35:EQUB &1B
\ &22C0: EQUB &5E:EQUB &BD:EQUB &FB:EQUB &8C:EQUB &98:EQUB &AB:EQUB &E8:EQUB &52
\ &22C8: EQUB &E5:EQUB &41:EQUB &97:EQUB &A1:EQUB &02:EQUB &C3:EQUB &CB:EQUB &86
\ &22D0: EQUB &A9:EQUB &2C:EQUB &C3:EQUB &47:EQUB &55:EQUB &4C:EQUB &49:EQUB &CD
\ &22D8: EQUB &F8:EQUB &4D:EQUB &34:EQUB &60:EQUB &E5:EQUB &44:EQUB &9B:EQUB &1C
\ &22E0: EQUB &47:EQUB &C9:EQUB &12:EQUB &2B:EQUB &53:EQUB &66:EQUB &E9:EQUB &42
\ &22E8: EQUB &8E:EQUB &47:EQUB &4A:EQUB &2A:EQUB &61:EQUB &93:EQUB &85:EQUB &1A
\ &22F0: EQUB &6E:EQUB &4A:EQUB &00:EQUB &C0:EQUB &70:EQUB &28:EQUB &8B:EQUB &35
\ &22F8: EQUB &09:EQUB &AA:EQUB &6A:EQUB &80:EQUB &2B:EQUB &2B:EQUB &4E:EQUB &C7
\ &2300: EQUB &89:EQUB &21:EQUB &91:EQUB &11:EQUB &8B:EQUB &C6:EQUB &63:EQUB &C4
\ &2308: EQUB &92:EQUB &08:EQUB &B2:EQUB &8B:EQUB &07:EQUB &86:EQUB &CC:EQUB &E6
\ &2310: EQUB &7C:EQUB &7F:EQUB &E5:EQUB &F9:EQUB &7F:EQUB &DE:EQUB &4A:EQUB &65
\ &2318: EQUB &84:EQUB &E2:EQUB &74:EQUB &38:EQUB &4B:EQUB &FD:EQUB &48:EQUB &2A
\ &2320: EQUB &65:EQUB &05:EQUB &86:EQUB &9B:EQUB &B3:EQUB &66:EQUB &D8:EQUB &55
\ &2328: EQUB &BA:EQUB &CA:EQUB &45:EQUB &90:EQUB &A5:EQUB &44:EQUB &9D:EQUB &86
\ &2330: EQUB &3C:EQUB &D4:EQUB &39:EQUB &D3:EQUB &8F:EQUB &02:EQUB &98:EQUB &E5
\ &2338: EQUB &38:EQUB &2D:EQUB &79:EQUB &97:EQUB &4B:EQUB &49:EQUB &4A:EQUB &94
\ &2340: EQUB &95:EQUB &7A:EQUB &42:EQUB &FA:EQUB &28:EQUB &48:EQUB &CA:EQUB &69
\ &2348: EQUB &3F:EQUB &EE:EQUB &34:EQUB &39:EQUB &70:EQUB &60:EQUB &A9:EQUB &60
\ &2350: EQUB &34:EQUB &AB:EQUB &7E:EQUB &B4:EQUB &09:EQUB &7E:EQUB &E0:EQUB &82
\ &2358: EQUB &6D:EQUB &0E:EQUB &04:EQUB &B1:EQUB &E2:EQUB &10:EQUB &8E:EQUB &4B
\ &2360: EQUB &B2:EQUB &60:EQUB &59:EQUB &A2:EQUB &50:EQUB &E1:EQUB &A2:EQUB &0B
\ &2368: EQUB &72:EQUB &9F:EQUB &F8:EQUB &C4:EQUB &81:EQUB &89:EQUB &06:EQUB &CC
\ &2370: EQUB &81:EQUB &89:EQUB &86:EQUB &34:EQUB &91:EQUB &8B:EQUB &26:EQUB &B5
\ &2378: EQUB &C4:EQUB &40:EQUB &02:EQUB &98:EQUB &17:EQUB &78:EQUB &3D:EQUB &FB
\ &2380: EQUB &7D:EQUB &BC:EQUB &4B:EQUB &86:EQUB &6C:EQUB &BE:EQUB &5D:EQUB &04
\ &2388: EQUB &03:EQUB &E8:EQUB &2A:EQUB &B9:EQUB &FF:EQUB &35:EQUB &92:EQUB &F2
\ &2390: EQUB &83:EQUB &04:EQUB &47:EQUB &E7:EQUB &CC:EQUB &71:EQUB &43:EQUB &8A
\ &2398: EQUB &3F:EQUB &33:EQUB &4B:EQUB &F2:EQUB &53:EQUB &16:EQUB &25:EQUB &28
\ &23A0: EQUB &72:EQUB &E4:EQUB &45:EQUB &68:EQUB &C0:EQUB &89:EQUB &40:EQUB &56
\ &23A8: EQUB &13:EQUB &65:EQUB &AE:EQUB &DA:EQUB &AC:EQUB &FB:EQUB &08:EQUB &BA
\ &23B0: EQUB &D0:EQUB &ED:EQUB &91:EQUB &E9:EQUB &01:EQUB &98:EQUB &69:EQUB &A9
\ &23B8: EQUB &0D:EQUB &DA:EQUB &3E:EQUB &F2:EQUB &BC:EQUB &28:EQUB &18:EQUB &C9
\ &23C0: EQUB &F3:EQUB &F5:EQUB &59:EQUB &12:EQUB &F8:EQUB &E9:EQUB &D1:EQUB &2A
\ &23C8: EQUB &B2:EQUB &91:EQUB &94:EQUB &5F:EQUB &13:EQUB &96:EQUB &BD:EQUB &E8
\ &23D0: EQUB &1C:EQUB &3D:EQUB &82:EQUB &0C:EQUB &29:EQUB &CF:EQUB &97:EQUB &41
\ &23D8: EQUB &CE:EQUB &E1:EQUB &55:EQUB &20:EQUB &50:EQUB &10:EQUB &60:EQUB &FA
\ &23E0: EQUB &F0:EQUB &00:EQUB &4A:EQUB &60:EQUB &68:EQUB &92:EQUB &15:EQUB &19
\ &23E8: EQUB &36:EQUB &52:EQUB &B4:EQUB &D8:EQUB &41:EQUB &97:EQUB &99:EQUB &4A
\ &23F0: EQUB &CC:EQUB &B4:EQUB &E5:EQUB &91:EQUB &96:EQUB &97:EQUB &77:EQUB &54
\ &23F8: EQUB &52:EQUB &5A:EQUB &3F:EQUB &B4:EQUB &45:EQUB &7C:EQUB &41:EQUB &22
\ &2400: EQUB &4D:EQUB &D4:EQUB &56:EQUB &22:EQUB &50:EQUB &1C:EQUB &51:EQUB &90
\ &2408: EQUB &7F:EQUB &11:EQUB &E3:EQUB &22:EQUB &B0:EQUB &8C:EQUB &C4:EQUB &71
\ &2410: EQUB &60:EQUB &78:EQUB &68:EQUB &A9:EQUB &C0:EQUB &03:EQUB &81:EQUB &4B
\ &2418: EQUB &F3:EQUB &4B:EQUB &72:EQUB &F6:EQUB &99:EQUB &70:EQUB &D1:EQUB &64
\ &2420: EQUB &D4:EQUB &79:EQUB &90:EQUB &50:EQUB &D9:EQUB &0A:EQUB &B6:EQUB &9C
\ &2428: EQUB &3C:EQUB &EB:EQUB &A4:EQUB &87:EQUB &00:EQUB &63:EQUB &FD:EQUB &8A
\ &2430: EQUB &73:EQUB &04:EQUB &74:EQUB &9E:EQUB &2E:EQUB &31:EQUB &0A:EQUB &79
\ &2438: EQUB &EE:EQUB &91:EQUB &22:EQUB &8B:EQUB &BB:EQUB &24:EQUB &51:EQUB &14
\ &2440: EQUB &98:EQUB &B3:EQUB &4E:EQUB &20:EQUB &CA:EQUB &94:EQUB &15:EQUB &CD
\ &2448: EQUB &04:EQUB &73:EQUB &F9:EQUB &F3:EQUB &72:EQUB &B2:EQUB &2D:EQUB &42
\ &2450: EQUB &C0:EQUB &85:EQUB &22:EQUB &5F:EQUB &47:EQUB &6F:EQUB &8E:EQUB &84
\ &2458: EQUB &1C:EQUB &A8:EQUB &85:EQUB &31:EQUB &4F:EQUB &FC:EQUB &50:EQUB &0F
\ &2460: EQUB &04:EQUB &1A:EQUB &6A:EQUB &D0:EQUB &B8:EQUB &7D:EQUB &07:EQUB &1A
\ &2468: EQUB &94:EQUB &49:EQUB &93:EQUB &21:EQUB &9B:EQUB &25:EQUB &CD:EQUB &44
\ &2470: EQUB &99:EQUB &4A:EQUB &F7:EQUB &1C:EQUB &39:EQUB &78:EQUB &D8:EQUB &16
\ &2478: EQUB &8B:EQUB &1D:EQUB &7F:EQUB &94:EQUB &20:EQUB &02:EQUB &1A:EQUB &8D
\ &2480: EQUB &72:EQUB &A7:EQUB &7A:EQUB &D9:EQUB &00:EQUB &20:EQUB &29:EQUB &B2
\ &2488: EQUB &AC:EQUB &CB:EQUB &32:EQUB &32:EQUB &B2:EQUB &88:EQUB &D3:EQUB &D3
\ &2490: EQUB &BE:EQUB &22:EQUB &0D:EQUB &48:EQUB &99:EQUB &C4:EQUB &07:EQUB &09
\ &2498: EQUB &8E:EQUB &CE:EQUB &99:EQUB &03:EQUB &27:EQUB &A1:EQUB &FF:EQUB &E3
\ &24A0: EQUB &C7:EQUB &69:EQUB &C0:EQUB &40:EQUB &00:EQUB &7E:EQUB &48:EQUB &36
\ &24A8: EQUB &E3:EQUB &A5:EQUB &40:EQUB &2C:EQUB &E5:EQUB &20:EQUB &B2:EQUB &80
\ &24B0: EQUB &E4:EQUB &21:EQUB &EC:EQUB &1A:EQUB &00:EQUB &30:EQUB &58:EQUB &56
\ &24B8: EQUB &19:EQUB &27:EQUB &B0:EQUB &A5:EQUB &0A:EQUB &F0:EQUB &A3:EQUB &24
\ &24C0: EQUB &27:EQUB &DD:EQUB &45:EQUB &65:EQUB &E7:EQUB &9F:EQUB &06:EQUB &16
\ &24C8: EQUB &0B:EQUB &CB:EQUB &0E:EQUB &14:EQUB &FC:EQUB &40:EQUB &9E:EQUB &7B
\ &24D0: EQUB &F3:EQUB &D7:EQUB &5F:EQUB &F3:EQUB &38:EQUB &FD:EQUB &0A:EQUB &10
\ &24D8: EQUB &40:EQUB &B2:EQUB &0D:EQUB &F2:EQUB &45:EQUB &9C:EQUB &20:EQUB &F2
\ &24E0: EQUB &24:EQUB &51:EQUB &A7:EQUB &13:EQUB &19:EQUB &0E:EQUB &DF:EQUB &98
\ &24E8: EQUB &B1:EQUB &4B:EQUB &17:EQUB &90:EQUB &3D:EQUB &A6:EQUB &D8:EQUB &20
\ &24F0: EQUB &BB:EQUB &86:EQUB &0C:EQUB &21:EQUB &31:EQUB &65:EQUB &FD:EQUB &AA
\ &24F8: EQUB &AF:EQUB &02:EQUB &58:EQUB &51:EQUB &55:EQUB &15:EQUB &7D:EQUB &26
\ &2500: EQUB &0A:EQUB &24:EQUB &00:EQUB &C7:EQUB &C5:EQUB &7E:EQUB &44:EQUB &FD
\ &2508: EQUB &07:EQUB &41:EQUB &E6:EQUB &D1:EQUB &39:EQUB &73:EQUB &F2:EQUB &AB
\ &2510: EQUB &12:EQUB &B5:EQUB &15:EQUB &20:EQUB &A3:EQUB &08:EQUB &E8:EQUB &87
\ &2518: EQUB &79:EQUB &2F:EQUB &F8:EQUB &81:EQUB &2B:EQUB &C8:EQUB &62:EQUB &23
\ &2520: EQUB &57:EQUB &1A:EQUB &EA:EQUB &32:EQUB &B6:EQUB &60:EQUB &3A:EQUB &5D
\ &2528: EQUB &E8:EQUB &F4:EQUB &08:EQUB &39:EQUB &0B:EQUB &00:EQUB &D8:EQUB &F1
\ &2530: EQUB &0C:EQUB &2E:EQUB &0A:EQUB &A0:EQUB &6A:EQUB &9C:EQUB &37:EQUB &5C
\ &2538: EQUB &A5:EQUB &A5:EQUB &24:EQUB &89:EQUB &A3:EQUB &A3:EQUB &EE:EQUB &01
\ &2540: EQUB &38:EQUB &D0:EQUB &B4:EQUB &81:EQUB &71:EQUB &8B:EQUB &BF:EQUB &FF
\ &2548: EQUB &11:EQUB &90:EQUB &F2:EQUB &6B:EQUB &40:EQUB &EB:EQUB &03:EQUB &07
\ &2550: EQUB &BE:EQUB &CC:EQUB &47:EQUB &DA:EQUB &68:EQUB &50:EQUB &FD:EQUB &E8
\ &2558: EQUB &95:EQUB &ED:EQUB &A7:EQUB &94:EQUB &F5:EQUB &09:EQUB &B0:EQUB &2A
\ &2560: EQUB &81:EQUB &11:EQUB &12:EQUB &AA:EQUB &C4:EQUB &69:EQUB &91:EQUB &45
\ &2568: EQUB &D8:EQUB &B0:EQUB &1E:EQUB &D2:EQUB &D4:EQUB &90:EQUB &40:EQUB &01
\ &2570: EQUB &A0:EQUB &1B:EQUB &BC:EQUB &8F:EQUB &BC:EQUB &05:EQUB &05:EQUB &1E
\ &2578: EQUB &F8:EQUB &EE:EQUB &EF:EQUB &3C:EQUB &42:EQUB &1A:EQUB &49:EQUB &F9
\ &2580: EQUB &41:EQUB &82:EQUB &A3:EQUB &73:EQUB &E6:EQUB &40:EQUB &23:EQUB &4D
\ &2588: EQUB &80:EQUB &A8:EQUB &12:EQUB &C3:EQUB &4F:EQUB &0C:EQUB &B0:EQUB &2A
\ &2590: EQUB &55:EQUB &B9:EQUB &6A:EQUB &B9:EQUB &EA:EQUB &6D:EQUB &FA:EQUB &39
\ &2598: EQUB &3A:EQUB &A5:EQUB &DE:EQUB &3F:EQUB &39:EQUB &38:EQUB &EB:EQUB &11
\ &25A0: EQUB &A5:EQUB &05:EQUB &A8:EQUB &94:EQUB &E9:EQUB &18:EQUB &A8:EQUB &29
\ &25A8: EQUB &A0:EQUB &9B:EQUB &42:EQUB &90:EQUB &DC:EQUB &04:EQUB &05:EQUB &F8
\ &25B0: EQUB &F1:EQUB &6E:EQUB &6F:EQUB &1C:EQUB &A1:EQUB &1B:EQUB &49:EQUB &F9
\ &25B8: EQUB &35:EQUB &61:EQUB &D9:EQUB &81:EQUB &92:EQUB &1F:EQUB &5A:EQUB &06
\ &25C0: EQUB &F8:EQUB &F0:EQUB &7C:EQUB &00:EQUB &29:EQUB &5A:EQUB &0E:EQUB &10
\ &25C8: EQUB &4C:EQUB &B0:EQUB &FF:EQUB &AF:EQUB &3C:EQUB &96:EQUB &88:EQUB &01
\ &25D0: EQUB &00:EQUB &C6:EQUB &9D:EQUB &02:EQUB &77:EQUB &4A:EQUB &44:EQUB &01
\ &25D8: EQUB &83:EQUB &06:EQUB &60:EQUB &58:EQUB &A2:EQUB &D9:EQUB &CC:EQUB &A4
\ &25E0: EQUB &A5:EQUB &24:EQUB &AB:EQUB &C3:EQUB &C3:EQUB &3C:EQUB &A2:EQUB &52
\ &25E8: EQUB &13:EQUB &C6:EQUB &08:EQUB &CB:EQUB &9E:EQUB &77:EQUB &4E:EQUB &9F
\ &25F0: EQUB &F9:EQUB &0C:EQUB &E7:EQUB &B0:EQUB &87:EQUB &BF:EQUB &90:EQUB &13
\ &25F8: EQUB &30:EQUB &98:EQUB &1F:EQUB &AA:EQUB &7A:EQUB &A9:EQUB &43:EQUB &03
\ &2600: EQUB &D8:EQUB &B4:EQUB &A5:EQUB &28:EQUB &B9:EQUB &85:EQUB &4A:EQUB &49
\ &2608: EQUB &02:EQUB &07:EQUB &05:EQUB &3E:EQUB &84:EQUB &FF:EQUB &07:EQUB &81
\ &2610: EQUB &1D:EQUB &C0:EQUB &BE:EQUB &1C:EQUB &09:EQUB &39:EQUB &70:EQUB &18
\ &2618: EQUB &17:EQUB &67:EQUB &CD:EQUB &87:EQUB &A4:EQUB &52:EQUB &BD:EQUB &15
\ &2620: EQUB &6B:EQUB &BC:EQUB &58:EQUB &A9:EQUB &C5:EQUB &32:EQUB &2D:EQUB &D6
\ &2628: EQUB &5E:EQUB &7D:EQUB &4C:EQUB &95:EQUB &BA:EQUB &AF:EQUB &00:EQUB &05
\ &2630: EQUB &64:EQUB &CC:EQUB &64:EQUB &ED:EQUB &7E:EQUB &3A:EQUB &31:EQUB &BE
\ &2638: EQUB &D2:EQUB &54:EQUB &15:EQUB &74:EQUB &41:EQUB &E0:EQUB &13:EQUB &AD
\ &2640: EQUB &55:EQUB &FE:EQUB &68:EQUB &42:EQUB &39:EQUB &53:EQUB &33:EQUB &CC
\ &2648: EQUB &3A:EQUB &55:EQUB &49:EQUB &34:EQUB &14:EQUB &55:EQUB &71:EQUB &00
\ &2650: EQUB &D8:EQUB &72:EQUB &EC:EQUB &58:EQUB &F5:EQUB &DD:EQUB &4A:EQUB &F9
\ &2658: EQUB &13:EQUB &FB:EQUB &FA:EQUB &58:EQUB &84:EQUB &FF:EQUB &67:EQUB &05
\ &2660: EQUB &E3:EQUB &D9:EQUB &80:EQUB &48:EQUB &5E:EQUB &74:EQUB &CE:EQUB &1C
\ &2668: EQUB &98:EQUB &1F:EQUB &59:EQUB &F8:EQUB &E5:EQUB &01:EQUB &E0:EQUB &FF
\ &2670: EQUB &79:EQUB &0C:EQUB &76:EQUB &79:EQUB &28:EQUB &51:EQUB &AE:EQUB &CA
\ &2678: EQUB &B2:EQUB &35:EQUB &9B:EQUB &A1:EQUB &B2:EQUB &E6:EQUB &68:EQUB &D2
\ &2680: EQUB &BC:EQUB &D5:EQUB &52:EQUB &BC:EQUB &B0:EQUB &83:EQUB &2E:EQUB &2C
\ &2688: EQUB &7B:EQUB &AE:EQUB &0B:EQUB &06:EQUB &3A:EQUB &09:EQUB &6B:EQUB &04
\ &2690: EQUB &76:EQUB &06:EQUB &BA:EQUB &02:EQUB &F6:EQUB &0C:EQUB &47:EQUB &83
\ &2698: EQUB &A6:EQUB &0B:EQUB &17:EQUB &02:EQUB &36:EQUB &05:EQUB &9F:EQUB &04
\ &26A0: EQUB &F6:EQUB &08:EQUB &77:EQUB &04:EQUB &76:EQUB &0E:EQUB &60:EQUB &BB
\ &26A8: EQUB &4A:EQUB &92:EQUB &3D:EQUB &BD:EQUB &BC:EQUB &24:EQUB &F1:EQUB &3C
\ &26B0: EQUB &3D:EQUB &1E:EQUB &21:EQUB &A8:EQUB &88:EQUB &29:EQUB &3F:EQUB &0D
\ &26B8: EQUB &2C:EQUB &16:EQUB &96:EQUB &1D:EQUB &28:EQUB &E0:EQUB &81:EQUB &EF
\ &26C0: EQUB &F8:EQUB &99:EQUB &E2:EQUB &87:EQUB &19:EQUB &08:EQUB &96:EQUB &1F
\ &26C8: EQUB &1E:EQUB &5C:EQUB &38:EQUB &30:EQUB &D5:EQUB &FE:EQUB &17:EQUB &89
\ &26D0: EQUB &77:EQUB &2A:EQUB &16:EQUB &5F:EQUB &9F:EQUB &7E:EQUB &A8:EQUB &CE
\ &26D8: EQUB &19:EQUB &5F:EQUB &09:EQUB &D8:EQUB &71:EQUB &DD:EQUB &14:EQUB &B9
\ &26E0: EQUB &B9:EQUB &4B:EQUB &49:EQUB &02:EQUB &BB:EQUB &38:EQUB &5F:EQUB &44
\ &26E8: EQUB &FF:EQUB &87:EQUB &38:EQUB &F0:EQUB &44:EQUB &1F:EQUB &38:EQUB &13
\ &26F0: EQUB &3D:EQUB &30:EQUB &17:EQUB &E7:EQUB &BF:EQUB &91:EQUB &8E:EQUB &24
\ &26F8: EQUB &7F:EQUB &A2:EQUB &04:EQUB &78:EQUB &A9:EQUB &82:EQUB &2E:EQUB &DC
\ &2700: EQUB &7C:EQUB &86:EQUB &B3:EQUB &60:EQUB &3A:EQUB &A5:EQUB &9A:EQUB &01
\ &2708: EQUB &01:EQUB &89:EQUB &C5:EQUB &A0:EQUB &2A:EQUB &EE:EQUB &4F:EQUB &03
\ &2710: EQUB &66:EQUB &16:EQUB &6C:EQUB &03:EQUB &66:EQUB &16:EQUB &AE:EQUB &40
\ &2718: EQUB &6E:EQUB &06:EQUB &E0:EQUB &79:EQUB &5A:EQUB &96:EQUB &BC:EQUB &A5
\ &2720: EQUB &A5:EQUB &24:EQUB &25:EQUB &9C:EQUB &1C:EQUB &27:EQUB &22:EQUB &09
\ &2728: EQUB &48:EQUB &F9:EQUB &35:EQUB &A0:EQUB &F5:EQUB &83:EQUB &20:EQUB &91
\ &2730: EQUB &03:EQUB &07:EQUB &BE:EQUB &0A:EQUB &46:EQUB &AB:EQUB &EA:EQUB &47
\ &2738: EQUB &07:EQUB &D8:EQUB &20:EQUB &20:EQUB &91:EQUB &11:EQUB &15:EQUB &A9
\ &2740: EQUB &CC:EQUB &51:EQUB &B0:EQUB &92:EQUB &FD:EQUB &C8:EQUB &E3:EQUB &03
\ &2748: EQUB &ED:EQUB &1F:EQUB &C7:EQUB &09:EQUB &6C:EQUB &14:EQUB &E0:EQUB &07
\ &2750: EQUB &FA:EQUB &98:EQUB &DC:EQUB &A4:EQUB &A5:EQUB &AE:EQUB &03:EQUB &AE
\ &2758: EQUB &2E:EQUB &5F:EQUB &61:EQUB &20:EQUB &40:EQUB &EA:EQUB &61:EQUB &E7
\ &2760: EQUB &E2:EQUB &81:EQUB &86:EQUB &9F:EQUB &18:EQUB &46:EQUB &18:EQUB &27
\ &2768: EQUB &91:EQUB &1F:EQUB &01:EQUB &F9:EQUB &D8:EQUB &0F:EQUB &49:EQUB &0F
\ &2770: EQUB &00:EQUB &E0:EQUB &87:EQUB &C6:EQUB &14:EQUB &38:EQUB &A5:EQUB &A5
\ &2778: EQUB &24:EQUB &BD:EQUB &CF:EQUB &CF:EQUB &9E:EQUB &22:EQUB &21:EQUB &40
\ &2780: EQUB &EA:EQUB &A5:EQUB &0C:EQUB &44:EQUB &6C:EQUB &60:EQUB &1C:EQUB &90
\ &2788: EQUB &2F:EQUB &90:EQUB &7C:EQUB &BF:EQUB &47:EQUB &F9:EQUB &2B:EQUB &D6
\ &2790: EQUB &BF:EQUB &09:EQUB &D0:EQUB &7F:EQUB &93:EQUB &BE:EQUB &FE:EQUB &02
\ &2798: EQUB &59:EQUB &84:EQUB &C0:EQUB &E5:EQUB &B1:EQUB &42:EQUB &18:EQUB &C8
\ &27A0: EQUB &95:EQUB &95:EQUB &CC:EQUB &4C:EQUB &34:EQUB &57:EQUB &57:EQUB &7F
\ &27A8: EQUB &15:EQUB &F2:EQUB &41:EQUB &64:EQUB &86:EQUB &DD:EQUB &DD:EQUB &C1
\ &27B0: EQUB &5E:EQUB &52:EQUB &C2:EQUB &CE:EQUB &F6:EQUB &55:EQUB &1A:EQUB &39
\ &27B8: EQUB &8D:EQUB &5F:EQUB &CA:EQUB &2E:EQUB &92:EQUB &03:EQUB &F3:EQUB &67
\ &27C0: EQUB &39:EQUB &08:EQUB &10:EQUB &48:EQUB &A8:EQUB &C0:EQUB &43:EQUB &05
\ &27C8: EQUB &15:EQUB &2E:EQUB &D8:EQUB &60:EQUB &2B:EQUB &A7:EQUB &91:EQUB &55
\ &27D0: EQUB &FE:EQUB &92:EQUB &ED:EQUB &95:EQUB &19:EQUB &B7:EQUB &87:EQUB &2E
\ &27D8: EQUB &33:EQUB &61:EQUB &2E:EQUB &0A:EQUB &EF:EQUB &93:EQUB &D4:EQUB &2F
\ &27E0: EQUB &98:EQUB &C8:EQUB &08:EQUB &27:EQUB &60:EQUB &EA:EQUB &14:EQUB &19
\ &27E8: EQUB &10:EQUB &C8:EQUB &88:EQUB &33:EQUB &D0:EQUB &2A:EQUB &00:EQUB &10
\ &27F0: EQUB &C6:EQUB &56:EQUB &A4:EQUB &D4:EQUB &A4:EQUB &A5:EQUB &6C:EQUB &F4
\ &27F8: EQUB &AC:EQUB &2C:EQUB &3D:EQUB &41:EQUB &1A:EQUB &49:EQUB &F9:EQUB &3A
\ &2800: EQUB &FA:EQUB &94:EQUB &C8:EQUB &88:EQUB &13:EQUB &7B:EQUB &E0:EQUB &40
\ &2808: EQUB &2F:EQUB &FF:EQUB &40:EQUB &40:EQUB &3E:EQUB &30:EQUB &72:EQUB &B2
\ &2810: EQUB &9F:EQUB &73:EQUB &8D:EQUB &96:EQUB &EC:EQUB &F7:EQUB &5C:EQUB &7F
\ &2818: EQUB &E5:EQUB &BA:EQUB &2A:EQUB &4D:EQUB &5D:EQUB &F5:EQUB &AB:EQUB &46
\ &2820: EQUB &AD:EQUB &C6:EQUB &6A:EQUB &3E:EQUB &6C:EQUB &1A:EQUB &76:EQUB &71
\ &2828: EQUB &DA:EQUB &13:EQUB &43:EQUB &0E:EQUB &B0:EQUB &6B:EQUB &C3:EQUB &05
\ &2830: EQUB &B0:EQUB &45:EQUB &A3:EQUB &0C:EQUB &B0:EQUB &6B:EQUB &63:EQUB &0B
\ &2838: EQUB &B0:EQUB &27:EQUB &00:EQUB &10:EQUB &25:EQUB &76:EQUB &1C:EQUB &3C
\ &2840: EQUB &A5:EQUB &A5:EQUB &24:EQUB &81:EQUB &CD:EQUB &CD:EQUB &1E:EQUB &A1
\ &2848: EQUB &FE:EQUB &53:EQUB &22:EQUB &23:EQUB &4E:EQUB &EC:EQUB &81:EQUB &E9
\ &2850: EQUB &F3:EQUB &D1:EQUB &AF:EQUB &73:EQUB &3C:EQUB &EB:EQUB &E3:EQUB &39
\ &2858: EQUB &17:EQUB &81:EQUB &80:EQUB &63:EQUB &05:EQUB &1E:EQUB &21:EQUB &A8
\ &2860: EQUB &58:EQUB &23:EQUB &25:EQUB &6B:EQUB &2D:EQUB &7A:EQUB &21:EQUB &05
\ &2868: EQUB &11:EQUB &E3:EQUB &90:EQUB &51:EQUB &E2:EQUB &A8:EQUB &79:EQUB &62
\ &2870: EQUB &60:EQUB &01:EQUB &F6:EQUB &64:EQUB &C8:EQUB &01:EQUB &76:EQUB &6D
\ &2878: EQUB &78:EQUB &07:EQUB &B6:EQUB &68:EQUB &14:EQUB &01:EQUB &F6:EQUB &04
\ &2880: EQUB &74:EQUB &9C:EQUB &3A:EQUB &C9:EQUB &7E:EQUB &37:EQUB &35:EQUB &36
\ &2888: EQUB &21:EQUB &37:EQUB &32:EQUB &BC:EQUB &19:EQUB &C8:EQUB &EE:EQUB &FE
\ &2890: EQUB &A7:EQUB &44:EQUB &46:EQUB &9C:EQUB &D8:EQUB &F4:EQUB &DE:EQUB &7B
\ &2898: EQUB &06:EQUB &08:EQUB &FB:EQUB &52:EQUB &06:EQUB &22:EQUB &36:EQUB &30
\ &28A0: EQUB &0E:EQUB &9C:EQUB &8F:EQUB &02:EQUB &1D:EQUB &E8:EQUB &8A:EQUB &AF
\ &28A8: EQUB &55:EQUB &68:EQUB &55:EQUB &24:EQUB &48:EQUB &F5:EQUB &57:EQUB &B6
\ &28B0: EQUB &C7:EQUB &32:EQUB &44:EQUB &1E:EQUB &BE:EQUB &C2:EQUB &4B:EQUB &B9
\ &28B8: EQUB &F6:EQUB &AC:EQUB &45:EQUB &F1:EQUB &A2:EQUB &77:EQUB &E7:EQUB &7E
\ &28C0: EQUB &B9:EQUB &BF:EQUB &88:EQUB &4C:EQUB &26:EQUB &59:EQUB &D8:EQUB &43
\ &28C8: EQUB &17:EQUB &91:EQUB &C9:EQUB &7C:EQUB &C6:EQUB &D5:EQUB &01:EQUB &15
\ &28D0: EQUB &ED:EQUB &E0:EQUB &44:EQUB &5C:EQUB &99:EQUB &05:EQUB &B6:EQUB &0D
\ &28D8: EQUB &45:EQUB &63:EQUB &06:EQUB &46:EQUB &69:EQUB &05:EQUB &D3:EQUB &13
\ &28E0: EQUB &6D:EQUB &A9:EQUB &94:EQUB &09:EQUB &05:EQUB &FE:EQUB &4F:EQUB &32
\ &28E8: EQUB &37:EQUB &5D:EQUB &9F:EQUB &06:EQUB &52:EQUB &FA:EQUB &54:EQUB &3A
\ &28F0: EQUB &DA:EQUB &16:EQUB &91:EQUB &10:EQUB &68:EQUB &1D:EQUB &9D:EQUB &33
\ &28F8: EQUB &AF:EQUB &91:EQUB &94:EQUB &0F:EQUB &CC:EQUB &F7:EQUB &FF:EQUB &BC
\ &2900: EQUB &55:EQUB &E4:EQUB &48:EQUB &01:EQUB &02:EQUB &CC:EQUB &F7:EQUB &7B
\ &2908: EQUB &86:EQUB &BF:EQUB &02:EQUB &04:EQUB &7A:EQUB &08:EQUB &1B:EQUB &28
\ &2910: EQUB &9B:EQUB &AE:EQUB &45:EQUB &4E:EQUB &5C:EQUB &B8:EQUB &71:EQUB &E7
\ &2918: EQUB &C9:EQUB &9B:EQUB &1F:EQUB &7B:EQUB &AC:EQUB &98:EQUB &4E:EQUB &79
\ &2920: EQUB &2E:EQUB &98:EQUB &59:EQUB &DB:EQUB &AD:EQUB &C3:EQUB &46:EQUB &02
\ &2928: EQUB &90:EQUB &E6:EQUB &5E:EQUB &9E:EQUB &DC:EQUB &A4:EQUB &A5:EQUB &24
\ &2930: EQUB &25:EQUB &34:EQUB &35:EQUB &CE:EQUB &21:EQUB &21:EQUB &D0:EQUB &3A
\ &2938: EQUB &3A:EQUB &67:EQUB &1E:EQUB &01:EQUB &29:EQUB &1F:EQUB &38:EQUB &1F
\ &2940: EQUB &FD:EQUB &15:EQUB &A7:EQUB &AE:EQUB &48:EQUB &F5:EQUB &8F:EQUB &5A
\ &2948: EQUB &C1:EQUB &0F:EQUB &5C:EQUB &20:EQUB &A8:EQUB &C8:EQUB &22:EQUB &BF
\ &2950: EQUB &47:EQUB &4A:EQUB &BE:EQUB &EA:EQUB &A9:EQUB &47:EQUB &8B:EQUB &9B
\ &2958: EQUB &92:EQUB &C7:EQUB &83:EQUB &9B:EQUB &75:EQUB &32:EQUB &CA:EQUB &3D
\ &2960: EQUB &B4:EQUB &A7:EQUB &4B:EQUB &9A:EQUB &29:EQUB &64:EQUB &08:EQUB &B1
\ &2968: EQUB &19:EQUB &90:EQUB &15:EQUB &DE:EQUB &BC:EQUB &5C:EQUB &A5:EQUB &99
\ &2970: EQUB &25:EQUB &79:EQUB &18:EQUB &18:EQUB &2C:EQUB &62:EQUB &FE:EQUB &E3
\ &2978: EQUB &40:EQUB &EB:EQUB &03:EQUB &E7:EQUB &A3:EQUB &A0:EQUB &52:EQUB &A7
\ &2980: EQUB &49:EQUB &BE:EQUB &C0:EQUB &0F:EQUB &91:EQUB &25:EQUB &41:EQUB &86
\ &2988: EQUB &22:EQUB &3D:EQUB &4E:EQUB &72:EQUB &C9:EQUB &82:EQUB &D6:EQUB &33
\ &2990: EQUB &D3:EQUB &8F:EQUB &92:EQUB &94:EQUB &01:EQUB &00:EQUB &DE:EQUB &78
\ &2998: EQUB &04:EQUB &38:EQUB &2F:EQUB &8A:EQUB &65:EQUB &B9:EQUB &33:EQUB &4A
\ &29A0: EQUB &49:EQUB &52:EQUB &31:EQUB &88:EQUB &05:EQUB &5C:EQUB &FE:EQUB &47
\ &29A8: EQUB &A3:EQUB &B3:EQUB &F9:EQUB &61:EQUB &E7:EQUB &E2:EQUB &81:EQUB &03
\ &29B0: EQUB &F1:EQUB &A2:EQUB &A0:EQUB &A2:EQUB &E9:EQUB &82:EQUB &EE:EQUB &07
\ &29B8: EQUB &00:EQUB &74:EQUB &51:EQUB &95:EQUB &75:EQUB &34:EQUB &E5:EQUB &96
\ &29C0: EQUB &92:EQUB &E4:EQUB &E0:EQUB &E2:EQUB &BC:EQUB &88:EQUB &70:EQUB &25
\ &29C8: EQUB &5F:EQUB &67:EQUB &2F:EQUB &B8:EQUB &5A:EQUB &18:EQUB &78:EQUB &A0
\ &29D0: EQUB &95:EQUB &66:EQUB &61:EQUB &96:EQUB &9F:EQUB &41:EQUB &12:EQUB &72
\ &29D8: EQUB &42:EQUB &DA:EQUB &25:EQUB &A3:EQUB &5C:EQUB &D3:EQUB &E9:EQUB &E1
\ &29E0: EQUB &5D:EQUB &A4:EQUB &98:EQUB &68:EQUB &32:EQUB &11:EQUB &A8:EQUB &42
\ &29E8: EQUB &B3:EQUB &01:EQUB &57:EQUB &01:EQUB &53:EQUB &16:EQUB &EB:EQUB &39
\ &29F0: EQUB &9D:EQUB &2E:EQUB &A2:EQUB &A4:EQUB &F7:EQUB &38:EQUB &49:EQUB &EE
\ &29F8: EQUB &06:EQUB &52:EQUB &2B:EQUB &95:EQUB &BF:EQUB &CA:EQUB &33:EQUB &0D
\ &2A00: EQUB &6C:EQUB &19:EQUB &FC:EQUB &B2:EQUB &AA:EQUB &9A:EQUB &E9:EQUB &C6
\ &2A08: EQUB &CE:EQUB &26:EQUB &D9:EQUB &CE:EQUB &CA:EQUB &72:EQUB &11:EQUB &93
\ &2A10: EQUB &23:EQUB &21:EQUB &2F:EQUB &3B:EQUB &7F:EQUB &A0:EQUB &09:EQUB &8A
\ &2A18: EQUB &55:EQUB &50:EQUB &0C:EQUB &02:EQUB &C4:EQUB &16:EQUB &AA:EQUB &C8
\ &2A20: EQUB &28:EQUB &2D:EQUB &C5:EQUB &1D:EQUB &48:EQUB &D8:EQUB &B6:EQUB &EE
\ &2A28: EQUB &3C:EQUB &64:EQUB &B4:EQUB &64:EQUB &05:EQUB &2B:EQUB &56:EQUB &69
\ &2A30: EQUB &D2:EQUB &7C:EQUB &D0:EQUB &24:EQUB &22:EQUB &85:EQUB &A2:EQUB &C2
\ &2A38: EQUB &F0:EQUB &75:EQUB &80:EQUB &10:EQUB &10:EQUB &21:EQUB &C4:EQUB &48
\ &2A40: EQUB &88:EQUB &93:EQUB &20:EQUB &BA:EQUB &14:EQUB &B7:EQUB &4D:EQUB &A6
\ &2A48: EQUB &C7:EQUB &09:EQUB &17:EQUB &20:EQUB &D0:EQUB &7A:EQUB &27:EQUB &FA
\ &2A50: EQUB &91:EQUB &31:EQUB &2F:EQUB &50:EQUB &D0:EQUB &1D:EQUB &00:EQUB &B8
\ &2A58: EQUB &68:EQUB &CA:EQUB &35:EQUB &B9:EQUB &D2:EQUB &D1:EQUB &4A:EQUB &C6
\ &2A60: EQUB &D3:EQUB &50:EQUB &5F:EQUB &0C:EQUB &3B:EQUB &7B:EQUB &C1:EQUB &83
\ &2A68: EQUB &11:EQUB &58:EQUB &C4:EQUB &9F:EQUB &AB:EQUB &24:EQUB &DE:EQUB &FF
\ &2A70: EQUB &70:EQUB &14:EQUB &95:EQUB &1C:EQUB &E0:EQUB &8F:EQUB &C4:EQUB &2B
\ &2A78: EQUB &B1:EQUB &DA:EQUB &8C:EQUB &96:EQUB &70:EQUB &A8:EQUB &9A:EQUB &A2
\ &2A80: EQUB &88:EQUB &32:EQUB &46:EQUB &55:EQUB &8C:EQUB &D5:EQUB &27:EQUB &5B
\ &2A88: EQUB &BA:EQUB &DB:EQUB &67:EQUB &69:EQUB &CE:EQUB &A2:EQUB &C8:EQUB &69
\ &2A90: EQUB &70:EQUB &A9:EQUB &F8:EQUB &F2:EQUB &65:EQUB &74:EQUB &81:EQUB &CA
\ &2A98: EQUB &13:EQUB &32:EQUB &6B:EQUB &F8:EQUB &6A:EQUB &85:EQUB &97:EQUB &B0
\ &2AA0: EQUB &4B:EQUB &C7:EQUB &39:EQUB &E0:EQUB &F1:EQUB &E2:EQUB &95:EQUB &70
\ &2AA8: EQUB &2B:EQUB &5B:EQUB &50:EQUB &B7:EQUB &D5:EQUB &B6:EQUB &DD:EQUB &A4
\ &2AB0: EQUB &91:EQUB &25:EQUB &31:EQUB &91:EQUB &28:EQUB &2D:EQUB &C2:EQUB &84
\ &2AB8: EQUB &4D:EQUB &02:EQUB &93:EQUB &FB:EQUB &9F:EQUB &21:EQUB &0C:EQUB &E4
\ &2AC0: EQUB &58:EQUB &AC:EQUB &3A:EQUB &50:EQUB &10:EQUB &51:EQUB &05:EQUB &26
\ &2AC8: EQUB &28:EQUB &CA:EQUB &37:EQUB &69:EQUB &55:EQUB &E6:EQUB &09:EQUB &D3
\ &2AD0: EQUB &D7:EQUB &AA:EQUB &BE:EQUB &9A:EQUB &08:EQUB &A1:EQUB &5C:EQUB &02
\ &2AD8: EQUB &E5:EQUB &72:EQUB &28:EQUB &07:EQUB &BB:EQUB &9A:EQUB &B4:EQUB &EB
\ &2AE0: EQUB &76:EQUB &E9:EQUB &D3:EQUB &89:EQUB &17:EQUB &3F:EQUB &61:EQUB &62
\ &2AE8: EQUB &45:EQUB &0B:EQUB &16:EQUB &20:EQUB &C2:EQUB &73:EQUB &CF:EQUB &28
\ &2AF0: EQUB &70:EQUB &CB:EQUB &84:EQUB &2A:EQUB &B0:EQUB &A8:EQUB &64:EQUB &75
\ &2AF8: EQUB &78:EQUB &A8:EQUB &38:EQUB &73:EQUB &FC:EQUB &E8:EQUB &02:EQUB &8D
\ &2B00: EQUB &70:EQUB &CB:EQUB &82:EQUB &8E:EQUB &70:EQUB &AB:EQUB &42:EQUB &8C
\ &2B08: EQUB &70:EQUB &6B:EQUB &00:EQUB &B8:EQUB &69:EQUB &DB:EQUB &3D:EQUB &BB
\ &2B10: EQUB &51:EQUB &C0:EQUB &49:EQUB &02:EQUB &C3:EQUB &C0:EQUB &58:EQUB &44
\ &2B18: EQUB &A1:EQUB &82:EQUB &94:EQUB &73:EQUB &3B:EQUB &3D:EQUB &4B:EQUB &52
\ &2B20: EQUB &3E:EQUB &40:EQUB &C7:EQUB &13:EQUB &B1:EQUB &64:EQUB &3C:EQUB &5D
\ &2B28: EQUB &82:EQUB &71:EQUB &01:EQUB &C4:EQUB &A0:EQUB &89:EQUB &74:EQUB &C1
\ &2B30: EQUB &C7:EQUB &23:EQUB &8D:EQUB &36:EQUB &30:EQUB &68:EQUB &2E:EQUB &84
\ &2B38: EQUB &C9:EQUB &48:EQUB &4D:EQUB &B8:EQUB &EB:EQUB &BB:EQUB &6E:EQUB &FD
\ &2B40: EQUB &BE:EQUB &24:EQUB &5C:EQUB &04:EQUB &3B:EQUB &27:EQUB &3D:EQUB &C2
\ &2B48: EQUB &FE:EQUB &07:EQUB &5D:EQUB &3B:EQUB &D0:EQUB &61:EQUB &55:EQUB &20
\ &2B50: EQUB &3D:EQUB &DF:EQUB &AF:EQUB &B1:EQUB &4B:EQUB &29:EQUB &96:EQUB &4F
\ &2B58: EQUB &27:EQUB &89:EQUB &38:EQUB &DF:EQUB &80:EQUB &D7:EQUB &E8:EQUB &C2
\ &2B60: EQUB &F6:EQUB &47:EQUB &59:EQUB &E7:EQUB &F6:EQUB &D1:EQUB &74:EQUB &DE
\ &2B68: EQUB &F8:EQUB &51:EQUB &00:EQUB &B8:EQUB &1B:EQUB &FA:EQUB &5E:EQUB &76
\ &2B70: EQUB &8F:EQUB &4C:EQUB &CE:EQUB &07:EQUB &63:EQUB &FF:EQUB &79:EQUB &44
\ &2B78: EQUB &FF:EQUB &37:EQUB &00:EQUB &E2:EQUB &F9:EQUB &C0:EQUB &E4:EQUB &29
\ &2B80: EQUB &8A:EQUB &F3:EQUB &FD:EQUB &0A:EQUB &D2:EQUB &8B:EQUB &04:EQUB &15
\ &2B88: EQUB &76:EQUB &34:EQUB &20:EQUB &B8:EQUB &10:EQUB &9A:EQUB &34:EQUB &B4
\ &2B90: EQUB &8A:EQUB &2C:EQUB &79:EQUB &D3:EQUB &56:EQUB &8C:EQUB &2E:EQUB &58
\ &2B98: EQUB &7C:EQUB &A4:EQUB &89:EQUB &25:EQUB &1E:EQUB &29:EQUB &D7:EQUB &E2
\ &2BA0: EQUB &36:EQUB &05:EQUB &B8:EQUB &1F:EQUB &87:EQUB &81:EQUB &9B:EQUB &FD
\ &2BA8: EQUB &C2:EQUB &FF:EQUB &7C:EQUB &7F:EQUB &7D:EQUB &DE:EQUB &CB:EQUB &FC
\ &2BB0: EQUB &07:EQUB &09:EQUB &40:EQUB &FC:EQUB &E0:EQUB &50:EQUB &30:EQUB &1D
\ &2BB8: EQUB &E1:EQUB &7C:EQUB &17:EQUB &68:EQUB &28:EQUB &5A:EQUB &A0:EQUB &48
\ &2BC0: EQUB &96:EQUB &05:EQUB &59:EQUB &8A:EQUB &54:EQUB &89:EQUB &2E:EQUB &34
\ &2BC8: EQUB &7A:EQUB &00:EQUB &78:EQUB &98:EQUB &FC:EQUB &31:EQUB &B5:EQUB &9F
\ &2BD0: EQUB &1E:EQUB &9F:EQUB &E0:EQUB &1D:EQUB &1D:EQUB &4E:EQUB &44:EQUB &65
\ &2BD8: EQUB &E7:EQUB &F4:EQUB &4B:EQUB &9C:EQUB &E0:EQUB &03:EQUB &87:EQUB &39
\ &2BE0: EQUB &CE:EQUB &84:EQUB &B3:EQUB &7D:EQUB &7E:EQUB &F9:EQUB &37:EQUB &71
\ &2BE8: EQUB &D4:EQUB &AB:EQUB &FE:EQUB &BB:EQUB &48:EQUB &3E:EQUB &37:EQUB &C0
\ &2BF0: EQUB &86:EQUB &14:EQUB &2D:EQUB &C6:EQUB &BD:EQUB &47:EQUB &29:EQUB &5C
\ &2BF8: EQUB &7C:EQUB &D0:EQUB &50:EQUB &B2:EQUB &10:EQUB &86:EQUB &2E:EQUB &70
\ &2C00: EQUB &7C:EQUB &4C:EQUB &06:EQUB &E3:EQUB &01:EQUB &A5:EQUB &85:EQUB &E5
\ &2C08: EQUB &1D:EQUB &C9:EQUB &CA:EQUB &E4:EQUB &45:EQUB &0D:EQUB &F6:EQUB &8F
\ &2C10: EQUB &73:EQUB &30:EQUB &E5:EQUB &CA:EQUB &AD:EQUB &8D:EQUB &CD:EQUB &80
\ &2C18: EQUB &F5:EQUB &35:EQUB &8F:EQUB &88:EQUB &FF:EQUB &9A:EQUB &B0:EQUB &E4
\ &2C20: EQUB &21:EQUB &A2:EQUB &35:EQUB &88:EQUB &07:EQUB &0E:EQUB &AC:EQUB &C1
\ &2C28: EQUB &32:EQUB &0C:EQUB &33:EQUB &E7:EQUB &D0:EQUB &FC:EQUB &77:EQUB &FF
\ &2C30: EQUB &9C:EQUB &AD:EQUB &CA:EQUB &76:EQUB &7B:EQUB &AE:EQUB &C8:EQUB &07
\ &2C38: EQUB &57:EQUB &98:EQUB &AC:EQUB &02:EQUB &4A:EQUB &C2:EQUB &B0:EQUB &03
\ &2C40: EQUB &0F:EQUB &E7:EQUB &97:EQUB &80:EQUB &64:EQUB &8B:EQUB &67:EQUB &B9
\ &2C48: EQUB &2A:EQUB &55:EQUB &B0:EQUB &21:EQUB &AB:EQUB &BE:EQUB &4C:EQUB &79
\ &2C50: EQUB &37:EQUB &EE:EQUB &C5:EQUB &08:EQUB &59:EQUB &F6:EQUB &6C:EQUB &38
\ &2C58: EQUB &73:EQUB &7B:EQUB &BA:EQUB &8A:EQUB &94:EQUB &10:EQUB &89:EQUB &13
\ &2C60: EQUB &47:EQUB &4F:EQUB &3F:EQUB &51:EQUB &2B:EQUB &83:EQUB &83:EQUB &54
\ &2C68: EQUB &95:EQUB &91:EQUB &83:EQUB &52:EQUB &53:EQUB &A2:EQUB &83:EQUB &D6
\ &2C70: EQUB &C2:EQUB &F2:EQUB &8E:EQUB &04:EQUB &78:EQUB &5A:EQUB &F2:EQUB &59
\ &2C78: EQUB &5E:EQUB &AA:EQUB &AB:EQUB &A8:EQUB &A9:EQUB &2A:EQUB &2B:EQUB &BD
\ &2C80: EQUB &82:EQUB &FD:EQUB &47:EQUB &5D:EQUB &64:EQUB &2E:EQUB &67:EQUB &62
\ &2C88: EQUB &1F:EQUB &80:EQUB &90:EQUB &8C:EQUB &03:EQUB &07:EQUB &FE:EQUB &60
\ &2C90: EQUB &CC:EQUB &F7:EQUB &FF:EQUB &3C:EQUB &1E:EQUB &78:EQUB &C5:EQUB &60
\ &2C98: EQUB &A0:EQUB &88:EQUB &E8:EQUB &A0:EQUB &4C:EQUB &72:EQUB &97:EQUB &AF
\ &2CA0: EQUB &21:EQUB &C5:EQUB &8A:EQUB &0A:EQUB &4B:EQUB &22:EQUB &97:EQUB &2C
\ &2CA8: EQUB &CB:EQUB &0D:EQUB &3B:EQUB &36:EQUB &3A:EQUB &5D:EQUB &40:EQUB &F3
\ &2CB0: EQUB &5C:EQUB &E5:EQUB &4B:EQUB &2C:EQUB &52:EQUB &35:EQUB &AB:EQUB &32
\ &2CB8: EQUB &4A:EQUB &4D:EQUB &EB:EQUB &07:EQUB &5A:EQUB &1D:EQUB &DB:EQUB &BE
\ &2CC0: EQUB &52:EQUB &55:EQUB &29:EQUB &36:EQUB &4A:EQUB &15:EQUB &4A:EQUB &2A
\ &2CC8: EQUB &5A:EQUB &F5:EQUB &2A:EQUB &2F:EQUB &0A:EQUB &30:EQUB &AF:EQUB &C5
\ &2CD0: EQUB &B5:EQUB &3C:EQUB &A5:EQUB &A5:EQUB &F0:EQUB &AD:EQUB &71:EQUB &71
\ &2CD8: EQUB &1E:EQUB &C1:EQUB &FF:EQUB &4B:EQUB &04:EQUB &95:EQUB &28:EQUB &F2
\ &2CE0: EQUB &78:EQUB &AC:EQUB &80:EQUB &88:EQUB &0F:EQUB &0C:EQUB &94:EQUB &41
\ &2CE8: EQUB &DE:EQUB &7C:EQUB &F4:EQUB &DB:EQUB &1C:EQUB &9D:EQUB &C5:EQUB &76
\ &2CF0: EQUB &9B:EQUB &C2:EQUB &46:EQUB &2B:EQUB &D6:EQUB &59:EQUB &B1:EQUB &DA
\ &2CF8: EQUB &46:EQUB &72:EQUB &A8:EQUB &E0:EQUB &AB:EQUB &06:EQUB &59:EQUB &D8
\ &2D00: EQUB &F7:EQUB &85:EQUB &7F:EQUB &02:EQUB &48:EQUB &3D:EQUB &5A:EQUB &E7
\ &2D08: EQUB &E9:EQUB &7E:EQUB &CF:EQUB &C2:EQUB &7E:EQUB &CA:EQUB &7B:EQUB &52
\ &2D10: EQUB &9A:EQUB &66:EQUB &76:EQUB &5A:EQUB &FA:EQUB &A0:EQUB &76:EQUB &55
\ &2D18: EQUB &26:EQUB &67:EQUB &F6:EQUB &5C:EQUB &8E:EQUB &66:EQUB &76:EQUB &09
\ &2D20: EQUB &B0:EQUB &6C:EQUB &F5:EQUB &3D:EQUB &FC:EQUB &A4:EQUB &A5:EQUB &F0
\ &2D28: EQUB &33:EQUB &71:EQUB &71:EQUB &66:EQUB &62:EQUB &FE:EQUB &C3:EQUB &51
\ &2D30: EQUB &54:EQUB &72:EQUB &E0:EQUB &20:EQUB &2B:EQUB &FF:EQUB &40:EQUB &3E
\ &2D38: EQUB &C8:EQUB &B0:EQUB &42:EQUB &94:EQUB &C0:EQUB &83:EQUB &88:EQUB &40
\ &2D40: EQUB &06:EQUB &F2:EQUB &60:EQUB &C0:EQUB &02:EQUB &0A:EQUB &7C:EQUB &CA
\ &2D48: EQUB &F9:EQUB &D5:EQUB &5F:EQUB &9D:EQUB &D4:EQUB &0E:EQUB &0F:EQUB &99
\ &2D50: EQUB &A4:EQUB &72:EQUB &4F:EQUB &95:EQUB &F0:EQUB &64:EQUB &0F:EQUB &95
\ &2D58: EQUB &64:EQUB &05:EQUB &1F:EQUB &09:EQUB &FC:EQUB &75:EQUB &6F:EQUB &9E
\ &2D60: EQUB &ED:EQUB &86:EQUB &8A:EQUB &2C:EQUB &D9:EQUB &8E:EQUB &84:EQUB &68
\ &2D68: EQUB &11:EQUB &04:EQUB &F2:EQUB &FD:EQUB &8F:EQUB &3A:EQUB &97:EQUB &AF
\ &2D70: EQUB &A3:EQUB &F7:EQUB &3F:EQUB &43:EQUB &18:EQUB &C8:EQUB &91:EQUB &90
\ &2D78: EQUB &03:EQUB &F2:EQUB &D5:EQUB &1A:EQUB &7B:EQUB &28:EQUB &41:EQUB &3F
\ &2D80: EQUB &89:EQUB &FA:EQUB &8A:EQUB &5D:EQUB &8E:EQUB &11:EQUB &2D:EQUB &98
\ &2D88: EQUB &6E:EQUB &E8:EQUB &8F:EQUB &A4:EQUB &62:EQUB &7F:EQUB &27:EQUB &D5
\ &2D90: EQUB &D7:EQUB &E5:EQUB &AB:EQUB &BE:EQUB &98:EQUB &08:EQUB &BF:EQUB &54
\ &2D98: EQUB &F2:EQUB &65:EQUB &F2:EQUB &2F:EQUB &A5:EQUB &4B:EQUB &50:EQUB &88
\ &2DA0: EQUB &72:EQUB &79:EQUB &A2:EQUB &89:EQUB &25:EQUB &1E:EQUB &55:EQUB &20
\ &2DA8: EQUB &A7:EQUB &36:EQUB &59:EQUB &50:EQUB &C7:EQUB &36:EQUB &59:EQUB &88
\ &2DB0: EQUB &C2:EQUB &26:EQUB &05:EQUB &78:EQUB &3B:EQUB &DA:EQUB &3D:EQUB &83
\ &2DB8: EQUB &21:EQUB &C0:EQUB &C1:EQUB &C0:EQUB &C0:EQUB &C2:EQUB &5C:EQUB &84
\ &2DC0: EQUB &17:EQUB &8B:EQUB &49:EQUB &BC:EQUB &FF:EQUB &19:EQUB &C2:EQUB &40
\ &2DC8: EQUB &8E:EQUB &84:EQUB &1C:EQUB &22:EQUB &FF:EQUB &C8:EQUB &31:EQUB &AB
\ &2DD0: EQUB &FB:EQUB &F1:EQUB &97:EQUB &38:EQUB &69:EQUB &97:EQUB &EC:EQUB &E5
\ &2DD8: EQUB &4B:EQUB &0B:EQUB &F2:EQUB &77:EQUB &79:EQUB &89:EQUB &92:EQUB &AE
\ &2DE0: EQUB &5C:EQUB &A7:EQUB &75:EQUB &57:EQUB &D1:EQUB &53:EQUB &B6:EQUB &EA
\ &2DE8: EQUB &61:EQUB &37:EQUB &6C:EQUB &5C:EQUB &28:EQUB &88:EQUB &30:EQUB &41
\ &2DF0: EQUB &87:EQUB &08:EQUB &2E:EQUB &92:EQUB &2E:EQUB &B4:EQUB &7F:EQUB &EC
\ &2DF8: EQUB &B9:EQUB &62:EQUB &E6:EQUB &A8:EQUB &6F:EQUB &A6:EQUB &1F:EQUB &69
\ &2E00: EQUB &FB:EQUB &05:EQUB &1F:EQUB &0D:EQUB &B0:EQUB &9F:EQUB &C7:EQUB &91
\ &2E08: EQUB &54:EQUB &A5:EQUB &21:EQUB &24:EQUB &03:EQUB &C0:EQUB &C1:EQUB &3E
\ &2E10: EQUB &21:EQUB &FF:EQUB &83:EQUB &51:EQUB &60:EQUB &46:EQUB &0E:EQUB &0C
\ &2E18: EQUB &FB:EQUB &F0:EQUB &68:EQUB &30:EQUB &F2:EQUB &24:EQUB &F8:EQUB &00
\ &2E20: EQUB &48:EQUB &CB:EQUB &17:EQUB &40:EQUB &38:EQUB &31:EQUB &C0:EQUB &18
\ &2E28: EQUB &7C:EQUB &9C:EQUB &88:EQUB &02:EQUB &0A:EQUB &95:EQUB &E4:EQUB &72
\ &2E30: EQUB &0F:EQUB &ED:EQUB &1A:EQUB &81:EQUB &FA:EQUB &0B:EQUB &F3:EQUB &FF
\ &2E38: EQUB &C7:EQUB &79:EQUB &9E:EQUB &B8:EQUB &0D:EQUB &14:EQUB &08:EQUB &04
\ &2E40: EQUB &18:EQUB &10:EQUB &E0:EQUB &22:EQUB &F2:EQUB &3F:EQUB &47:EQUB &E9
\ &2E48: EQUB &D3:EQUB &02:EQUB &11:EQUB &8B:EQUB &C8:EQUB &81:EQUB &7A:EQUB &89
\ &2E50: EQUB &A9:EQUB &C9:EQUB &2F:EQUB &28:EQUB &C9:EQUB &BA:EQUB &00:EQUB &F2
\ &2E58: EQUB &03:EQUB &B0:EQUB &CF:EQUB &92:EQUB &C9:EQUB &82:EQUB &4B:EQUB &EA
\ &2E60: EQUB &EB:EQUB &E4:EQUB &C7:EQUB &1E:EQUB &57:EQUB &60:EQUB &97:EQUB &B9
\ &2E68: EQUB &72:EQUB &68:EQUB &4F:EQUB &D9:EQUB &F1:EQUB &FC:EQUB &D4:EQUB &00
\ &2E70: EQUB &70:EQUB &5D:EQUB &D7:EQUB &15:EQUB &B1:EQUB &A5:EQUB &A5:EQUB &24
\ &2E78: EQUB &89:EQUB &08:EQUB &75:EQUB &10:EQUB &3A:EQUB &89:EQUB &CD:EQUB &11
\ &2E80: EQUB &58:EQUB &44:EQUB &6E:EQUB &76:EQUB &8F:EQUB &03:EQUB &4C:EQUB &D2
\ &2E88: EQUB &81:EQUB &03:EQUB &1F:EQUB &F8:EQUB &29:EQUB &B7:EQUB &CC:EQUB &4D
\ &2E90: EQUB &A5:EQUB &4E:EQUB &2A:EQUB &B5:EQUB &51:EQUB &99:EQUB &91:EQUB &CA
\ &2E98: EQUB &F4:EQUB &5C:EQUB &AA:EQUB &E5:EQUB &52:EQUB &35:EQUB &95:EQUB &C9
\ &2EA0: EQUB &A9:EQUB &6C:EQUB &5F:EQUB &A8:EQUB &14:EQUB &A5:EQUB &CE:EQUB &1C
\ &2EA8: EQUB &25:EQUB &CB:EQUB &9A:EQUB &24:EQUB &73:EQUB &A6:EQUB &6A:EQUB &DD
\ &2EB0: EQUB &16:EQUB &2F:EQUB &AB:EQUB &DD:EQUB &5A:EQUB &9F:EQUB &B1:EQUB &B5
\ &2EB8: EQUB &F1:EQUB &A6:EQUB &AC:EQUB &B5:EQUB &67:EQUB &4A:EQUB &6D:EQUB &BA
\ &2EC0: EQUB &A1:EQUB &6A:EQUB &D0:EQUB &0E:EQUB &47:EQUB &C9:EQUB &1A:EQUB &1D
\ &2EC8: EQUB &46:EQUB &CC:EQUB &D8:EQUB &70:EQUB &E2:EQUB &C6:EQUB &87:EQUB &2E
\ &2ED0: EQUB &52:EQUB &D4:EQUB &78:EQUB &EC:EQUB &A3:EQUB &06:EQUB &3A:EQUB &1E
\ &2ED8: EQUB &90:EQUB &06:EQUB &3A:EQUB &1E:EQUB &E2:EQUB &45:EQUB &36:EQUB &0E
\ &2EE0: EQUB &70:EQUB &3D:EQUB &EB:EQUB &AD:EQUB &2D:EQUB &17:EQUB &27:EQUB &16
\ &2EE8: EQUB &8A:EQUB &C6:EQUB &C7:EQUB &1E:EQUB &22:EQUB &8B:EQUB &C5:EQUB &24
\ &2EF0: EQUB &DE:EQUB &FF:EQUB &70:EQUB &14:EQUB &95:EQUB &1C:EQUB &38:EQUB &F0
\ &2EF8: EQUB &6B:EQUB &3E:EQUB &10:EQUB &95:EQUB &EF:EQUB &F8:EQUB &59:EQUB &3D
\ &2F00: EQUB &BF:EQUB &E6:EQUB &C5:EQUB &9C:EQUB &04:EQUB &06:EQUB &8F:EQUB &5F
\ &2F08: EQUB &89:EQUB &55:EQUB &B2:EQUB &66:EQUB &9B:EQUB &3E:EQUB &D8:EQUB &AF
\ &2F10: EQUB &49:EQUB &64:EQUB &39:EQUB &62:EQUB &C3:EQUB &85:EQUB &C5:EQUB &1E
\ &2F18: EQUB &27:EQUB &AE:EQUB &CD:EQUB &43:EQUB &32:EQUB &2D:EQUB &EA:EQUB &97
\ &2F20: EQUB &2B:EQUB &49:EQUB &80:EQUB &58:EQUB &01:EQUB &F4:EQUB &FD:EQUB &3C
\ &2F28: EQUB &0F:EQUB &72:EQUB &5B:EQUB &9C:EQUB &5B:EQUB &C0:EQUB &9B:EQUB &9D
\ &2F30: EQUB &F9:EQUB &8A:EQUB &C9:EQUB &91:EQUB &90:EQUB &17:EQUB &9D:EQUB &CB
\ &2F38: EQUB &07:EQUB &E6:EQUB &67:EQUB &14:EQUB &7E:EQUB &BC:EQUB &7E:EQUB &1E
\ &2F40: EQUB &4C:EQUB &9B:EQUB &29:EQUB &3E:EQUB &61:EQUB &C6:EQUB &D4:EQUB &A8
\ &2F48: EQUB &1D:EQUB &16:EQUB &82:EQUB &1F:EQUB &1C:EQUB &40:EQUB &2F:EQUB &19
\ &2F50: EQUB &6A:EQUB &8F:EQUB &C2:EQUB &02:EQUB &8D:EQUB &21:EQUB &CB:EQUB &0C
\ &2F58: EQUB &35:EQUB &7A:EQUB &AC:EQUB &48:EQUB &17:EQUB &D5:EQUB &DC:EQUB &7E
\ &2F60: EQUB &42:EQUB &11:EQUB &01:EQUB &22:EQUB &ED:EQUB &D9:EQUB &64:EQUB &76
\ &2F68: EQUB &65:EQUB &A7:EQUB &F4:EQUB &03:EQUB &6D:EQUB &AE:EQUB &24:EQUB &32
\ &2F70: EQUB &05
\ Room 000
\ &2F71: EQUB &86:EQUB &FC:EQUB &79:EQUB &3F:EQUB &84:EQUB &FC:EQUB &00
\ &2F78: EQUB &00:EQUB &06:EQUB &3D:EQUB &00:EQUB &A0:EQUB &02:EQUB &00:EQUB &00
\ &2F80: EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00
\ &2F88: EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00
\ &2F90: EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00
\ &2F98: EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00
\ &2FA0: EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00
\ &2FA8: EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00
\ &2FB0: EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00
\ &2FB8: EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00
\ &2FC0: EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00
\ &2FC8: EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00
\ &2FD0: EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00
\ &2FD8: EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00
\ &2FE0: EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00
\ &2FE8: EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00
\ &2FF0: EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00
\ &2FF8: EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00:EQUB &00

\ End of file 'JSW1' - &3000
\ ==========================

EQUS STRING$(&3080-P%,CHR$0):EQUS STRING$(&3100-P%,CHR$0)
EQUS STRING$(&3180-P%,CHR$0):EQUS STRING$(&3200-P%,CHR$0)
EQUS STRING$(&3280-P%,CHR$0):EQUS STRING$(&3300-P%,CHR$0)
EQUS STRING$(&3380-P%,CHR$0):EQUS STRING$(&3400-P%,CHR$0)
EQUS STRING$(&3480-P%,CHR$0):EQUS STRING$(&3500-P%,CHR$0)
EQUS STRING$(&3580-P%,CHR$0):EQUS STRING$(&3600-P%,CHR$0)
EQUS STRING$(&3680-P%,CHR$0):EQUS STRING$(&3700-P%,CHR$0)
EQUS STRING$(&3780-P%,CHR$0):EQUS STRING$(&3800-P%,CHR$0)
EQUS STRING$(&3880-P%,CHR$0):EQUS STRING$(&3900-P%,CHR$0)
EQUS STRING$(&3980-P%,CHR$0):EQUS STRING$(&3A00-P%,CHR$0)
EQUS STRING$(&3A80-P%,CHR$0):EQUS STRING$(&3B00-P%,CHR$0)
EQUS STRING$(&3B80-P%,CHR$0):EQUS STRING$(&3C00-P%,CHR$0)
EQUS STRING$(&3C80-P%,CHR$0):EQUS STRING$(&3D00-P%,CHR$0)
EQUS STRING$(&3D80-P%,CHR$0):EQUS STRING$(&3E00-P%,CHR$0)
EQUS STRING$(&3E80-P%,CHR$0):EQUS STRING$(&3F00-P%,CHR$0)
EQUS STRING$(&3F80-P%,CHR$0):EQUS STRING$(&4000-P%,CHR$0)
:
EQUS STRING$(&4080-P%,CHR$0):EQUS STRING$(&4100-P%,CHR$0)
EQUS STRING$(&4180-P%,CHR$0):EQUS STRING$(&4200-P%,CHR$0)
EQUS STRING$(&4280-P%,CHR$0):EQUS STRING$(&4300-P%,CHR$0)
EQUS STRING$(&4380-P%,CHR$0):EQUS STRING$(&4400-P%,CHR$0)
EQUS STRING$(&4480-P%,CHR$0):EQUS STRING$(&4500-P%,CHR$0)
EQUS STRING$(&4580-P%,CHR$0):EQUS STRING$(&4600-P%,CHR$0)
EQUS STRING$(&4680-P%,CHR$0):EQUS STRING$(&4700-P%,CHR$0)
EQUS STRING$(&4780-P%,CHR$0):EQUS STRING$(&4800-P%,CHR$0)
EQUS STRING$(&4880-P%,CHR$0):EQUS STRING$(&4900-P%,CHR$0)
EQUS STRING$(&4980-P%,CHR$0):EQUS STRING$(&4A00-P%,CHR$0)
EQUS STRING$(&4A80-P%,CHR$0):EQUS STRING$(&4B00-P%,CHR$0)
EQUS STRING$(&4B80-P%,CHR$0):EQUS STRING$(&4C00-P%,CHR$0)
EQUS STRING$(&4C80-P%,CHR$0):EQUS STRING$(&4D00-P%,CHR$0)
EQUS STRING$(&4D80-P%,CHR$0):EQUS STRING$(&4E00-P%,CHR$0)


\ File 'JSW2' - loaded to &4E00
\ =============================

.L4E00
EQUS STRING$(128,CHR$0):EQUS STRING$(128,CHR$0) :\ Space for &400-&4FF code
.L4F00
EQUS STRING$(128,CHR$0):EQUS STRING$(128,CHR$0) :\ Space for &500-&5FF code
.L5000
EQUS STRING$(128,CHR$0):EQUS STRING$(128,CHR$0) :\ Space for &600-&6FF code
.L5100
EQUS STRING$(128,CHR$0):EQUS STRING$(128,CHR$0) :\ Space for &700-&7FF code


\ Main entry point
\ ================
\ On entry to here, loader has already set up the screen
\ to MODE 1 with 256 bytes/row, 32 characters per row,
\ with display recentred.
\
.exec%
.L5200
LDA #&C8:LDX #&03:JSR OSBYTE  :\ *FX200,3
LDX #&9F
.L5209
LDA L5600,X:STA &00,X         :\ Copy data to zero page
DEX:BNE L5209
LDX #&00
.L5213
LDA L4E00,X:STA &0400,X       :\ Copy code to &400-&AFF
LDA L4F00,X:STA &0500,X
LDA L5000,X:STA &0600,X
LDA L5100,X:STA &0700,X
:
LDA L5300,X:STA &0800,X
LDA L5400,X:STA &0900,X
LDA L5500,X:STA &0A00,X
DEX:BNE L5213
.L5240
LDA &0206:STA L08BD+0         :\ Save old IRQ2V
LDA &0207:STA L08BD+1
LDA #L0703 AND 255:STA &0206  :\ Point to my IRQ2 handler
LDA #L0703 DIV 256:STA &0207
LDA #&A0:STA &FE6E            :\ Set up VIA
LDA #&00:STA &FE6B
LDA #L0700 AND 255:STA &0220  :\ Point to my EVENTV handler
LDA #L0700 DIV 256:STA &0221
LDX #&04:LDA #&0E:JSR OSBYTE  :\ Enable VSync events
LDA #&01:STA &028A            :\ Store &01 in FX250 location
LDA #&06:STA &FE00            :\ Set CRTC to display 21 vertical
LDA #&15:STA &FE01            :\ character rows
LDA #&C0:STA &E0              :\ Point to my 32-character row
LDA #&0A:STA &E1              :\ multiplication table at &0AC0
LDX #&00                      :\ BUG - Master doesn't use &E0/1 multiplication table
.L528A
LDA L5298,X:JSR OSWRCH        :\ Do VDU 28,0,20,31,0 to set
INX:CPX #&05:BNE L528A        :\ text window
JMP L0B21                     :\ Jump to enter main code

.L5298
EQUB &1C:EQUB &00             :\ Set text window
EQUB &14:EQUB &1F:EQUB &00    :\ VDU 28,0,20,31,0

EQUS STRING$(&5300-P%,CHR$0)

.L5300
EQUS STRING$(128,CHR$0):EQUS STRING$(128,CHR$0) :\ Space for &800-&8FF code
.L5400
EQUS STRING$(128,CHR$0):EQUS STRING$(128,CHR$0) :\ Space for &900-&9FF code
.L5500
EQUS STRING$(128,CHR$0):EQUS STRING$(128,CHR$0) :\ Space for &A00-&AFF code


\ Initial zero page data
\ ======================
.L5600
EQUB &0C:EQUB &22:EQUB &0C:EQUB &22  :\ &0000
EQUB &00:EQUB &30:EQUB &00:EQUB &30
EQUB &E8:EQUB &03:EQUB &01:EQUB &09
EQUB &07:EQUB &FF:EQUB &FF:EQUB &FF
EQUB &FF:EQUB &FF:EQUB &0C:EQUB &22  :\ &0010
EQUB &00:EQUB &00:EQUB &33:EQUB &B4
EQUB &1F:EQUB &08:EQUB &07:EQUB &01
EQUB &00:EQUB &1F:EQUB &00:EQUB &00
EQUB &00:EQUB &FF:EQUB &FF:EQUB &FF  :\ &0020
EQUB &00:EQUB &00:EQUB &00:EQUB &40
EQUB &FF:EQUB &00:EQUB &8C:EQUB &00
EQUB &00:EQUB &00:EQUB &00:EQUB &00
EQUB &84:EQUB &4F:EQUB &DC:EQUB &64  :\ &0030
EQUB &A6:EQUB &00:EQUB &04:EQUB &4D
EQUB &00:EQUB &00:EQUB &00:EQUB &00
EQUB &00:EQUB &81:EQUB &80:EQUB &00
EQUB &00:EQUB &00:EQUB &00:EQUB &00  :\ &0040
EQUB &00:EQUB &00:EQUB &00:EQUB &00
EQUB &00:EQUB &00:EQUB &00:EQUB &6C
EQUB &04:EQUB &8C:EQUB &FB:EQUB &01
EQUB &FD:EQUB &2C:EQUB &46:EQUB &01  :\ &0050
EQUB &00
EQUB &11 :\ &55 - Current room number
EQUB &02
EQUB &88
EQUB &04:EQUB &C0:EQUB &45:EQUB &00
EQUB &01:EQUB &B9:EQUB &48:EQUB &D2
EQUB &EF:EQUB &6E:EQUB &40:EQUB &00  :\ &0060
EQUB &01:EQUB &02:EQUB &02:EQUB &07
EQUB &80:EQUB &00:EQUB &FE:EQUB &00
EQUB &00:EQUB &00:EQUB &FF:EQUB &00
EQUB &01:EQUB &3E:EQUB &05:EQUB &00  :\ &0070
EQUB &00:EQUB &00:EQUB &FF:EQUB &01
EQUB &01:EQUB &00:EQUB &FF:EQUB &81
EQUB &08:EQUB &01:EQUB &FF:EQUB &00
EQUB &FF:EQUB &F0:EQUB &01:EQUB &08  :\ &0080
EQUB &00:EQUB &75:EQUB &10:EQUB &02
EQUB &AA:EQUB &85:EQUB &00:EQUB &00
EQUB &78:EQUB &42:EQUB &00:EQUB &FF
EQUB &F1:EQUB &44:EQUB &C0:EQUB &72  :\ &0090
EQUB &3F:EQUB &18:EQUB &05:EQUB &FF
EQUB &07:EQUB &FF:EQUB &00:EQUB &07
EQUB &00:EQUB &00:EQUB &00:EQUB &00
EQUS STRING$(&5700-P%,CHR$0)
EQUS STRING$(&5780-P%,CHR$0)
EQUS STRING$(&5800-P%,CHR$0)
\
\ Screen memory up to &5800
EQUS STRING$(&5880-P%,CHR$0):EQUS STRING$(&5900-P%,CHR$0)
EQUS STRING$(&5980-P%,CHR$0):EQUS STRING$(&5A00-P%,CHR$0)
:
\ &5A00 :\ Sprites (&5A00-&5A7F will be overwritten by CLS on Master)
\ &7000 :\
\ &7100 :\ Double-sized Willy sprites
\ &7800 :\ Characters
]
L5A00=&5A00:L7100=&7100:L7800=&7800
NEXT
FOR A%=&400 TO &7FF STEP 4:mcode%!(A%-&400+&4E00)=mcode%!A%:NEXT A%
FOR A%=&800 TO &AFF STEP 4:mcode%!(A%-&800+&5300)=mcode%!A%:NEXT A%
OSCLI "Load sprites "+STR$~(mcode%+&5A00)
OSCLI "Load chars0 "+STR$~(mcode%+&7800)
OSCLI "Load chars1 "+STR$~(mcode%+&7C00)
OSCLI "Save JSW1/bin "+STR$~(mcode%+&0B00)+" "+STR$~(mcode%+&3000)+" 1F90 0B00"
OSCLI "Save JSW2/bin "+STR$~(mcode%+&4E00)+" "+STR$~(mcode%+&8000)+" 5200 4E00"