; Disassembly of the file "POWER.COM"
;
; CPU Type: Z80
;
; Using the opcode map file "POWER.opmap"
; ; Created with dZ80 2.0
;
; on Monday, 12 of December 2016 at 10:12 PM
;
0100 C31003	JP	$0310
0103 1A		DEFB	$1A
0104 02		DEFB	$02
0105 18		DEFB	$18
0106 0B		DEFB	$0B
0107 3D		DEFB	$3D
0108 2E		DEFB	$2E
0109 7E		DEFB	$7E
010A 3D		DEFB	$3D
010B 1B		DEFB	$1B
010C 01		DEFB	$01
010D FF		DEFB	$FF
010E FF		DEFB	$FF
010F 20		DEFB	$20
0110 63		DEFB	$63	; \ stack address
0111 EB		DEFB	$EB	; / backup
0112 00		DEFB	$00
0113 00		DEFB	$00
0114 00		DEFB	$00
0115 00		DEFB	$00
0116 00		DEFB	$00
0117 00		DEFB	$00
0118 00		DEFB	$00
0119 00		DEFB	$00
011A 01		DEFB	$01
011B E5		DEFB	$E5
011C 00		DEFB	$00
011D 7F		DEFB	$7F
011E 01		DEFB	$01
011F 0D		DEFB	$0D
0120 00		DEFB	$00
0121 2A		DEFB	$2A
0122 01		DEFB	$01
0123 00		DEFB	$00
0124 54		DEFB	$54
0125 21		DEFB	$21
0126 2E		DEFB	$2E
0127 01		DEFB	$01
0128 46		DEFB	$46
0129 7E		DEFB	$7E
012A 2F		DEFB	$2F
012B 77		DEFB	$77
012C BE		DEFB	$BE
012D 70		DEFB	$70
012E C2		DEFB	$C2
012F 38		DEFB	$38
0130 01		DEFB	$01
0131 23		DEFB	$23
0132 7C		DEFB	$7C
0133 BA		DEFB	$BA
0134 C2		DEFB	$C2
0135 28		DEFB	$28
0136 01		DEFB	$01
0137 C9		DEFB	$C9
0138 1E		DEFB	$1E
0139 3F		DEFB	$3F
013A 0E		DEFB	$0E
013B 02		DEFB	$02
013C C3		DEFB	$C3
013D 05		DEFB	$05
013E 00		DEFB	$00
013F FF		DEFB	$FF
0140 C9		DEFB	$C9
0141 FF		DEFB	$FF
0142 FF		DEFB	$FF
0143 FF		DEFB	$FF
0144 FF		DEFB	$FF
0145 FF		DEFB	$FF
0146 FF		DEFB	$FF
0147 FF		DEFB	$FF
0148 C3		DEFB	$C3
0149 24		DEFB	$24
014A 04		DEFB	$04
014B FF		DEFB	$FF
014C FF		DEFB	$FF
014D FF		DEFB	$FF
014E FF		DEFB	$FF
014F FF		DEFB	$FF
0150 C3		DEFB	$C3
0151 29		DEFB	$29
0152 04		DEFB	$04
0153 FF		DEFB	$FF
0154 FF		DEFB	$FF
0155 FF		DEFB	$FF
0156 FF		DEFB	$FF
0157 FF		DEFB	$FF
0158 C3		DEFB	$C3
0159 D3		DEFB	$D3
015A 04		DEFB	$04
015B FF		DEFB	$FF
015C FF		DEFB	$FF
015D FF		DEFB	$FF
015E FF		DEFB	$FF
015F FF		DEFB	$FF
0160 00		DEFB	$00
0161 0F		DEFB	$0F
0162 02		DEFB	$02
0163 00		DEFB	$00
0164 03		DEFB	$03
0165 FF		DEFB	$FF
0166 00		DEFB	$00
0167 FF		DEFB	$FF
0168 48		DEFB	$48
0169 00		DEFB	$00
016A 01		DEFB	$01	; Looks like this is used as default drive#: 00=default drive, 01=A:(0), 02=B:(1), 03=C:(2) etc.
				; POWER.COM asks for this drive at startup. Since 01 specifies logical A:, we will need a disk in drive A:.
				; ######### CHANGE THIS TO 00 AND POWER.COM WILL NOT ASK FOR DRIVE 0 AT STARTUP ##########
016B 81		DEFB	$81
016C 00		DEFB	$00
016D FF		DEFB	$FF
016E FF		DEFB	$FF
016F 00		DEFB	$00
0170 00		DEFB	$00	; string length - 1
0171 1B		DEFB	$1B	; string start
0172 29		DEFB	$29
0173 00		DEFB	$00
0174 00		DEFB	$00
0175 00		DEFB	$00
0176 00		DEFB	$00
0177 00		DEFB	$00
0178 00		DEFB	$00
0179 1B		DEFB	$1B
017A 28		DEFB	$28
017B 00		DEFB	$00
017C 00		DEFB	$00
017D 00		DEFB	$00
017E 00		DEFB	$00
017F 00		DEFB	$00
0180 3E		DEFB	$3E
0181 C6		DEFB	$C6
0182 06		DEFB	$06
0183 96		DEFB	$96
0184 2E		DEFB	$2E
0185 00		DEFB	$00
0186 FF		DEFB	$FF
0187 FF		DEFB	$FF
0188 FF		DEFB	$FF
0189 FF		DEFB	$FF
018A FF		DEFB	$FF
018B FF		DEFB	$FF
018C FF		DEFB	$FF
018D FF		DEFB	$FF
018E FF		DEFB	$FF
018F FF		DEFB	$FF
0190 FF		DEFB	$FF
0191 FF		DEFB	$FF
0192 FF		DEFB	$FF
0193 FF		DEFB	$FF
0194 FF		DEFB	$FF
0195 FF		DEFB	$FF
0196 FF		DEFB	$FF
0197 FF		DEFB	$FF
0198 FF		DEFB	$FF
0199 FF		DEFB	$FF
019A FF		DEFB	$FF
019B FF		DEFB	$FF
019C FF		DEFB	$FF
019D FF		DEFB	$FF
019E FF		DEFB	$FF
019F FF		DEFB	$FF
01A0 FF		DEFB	$FF
01A1 FF		DEFB	$FF
01A2 FF		DEFB	$FF
01A3 FF		DEFB	$FF
01A4 FF		DEFB	$FF
01A5 FF		DEFB	$FF
01A6 FF		DEFB	$FF
01A7 FF		DEFB	$FF
01A8 FF		DEFB	$FF
01A9 FF		DEFB	$FF
01AA FF		DEFB	$FF
01AB FF		DEFB	$FF
01AC FF		DEFB	$FF
01AD FF		DEFB	$FF
01AE FF		DEFB	$FF
01AF FF		DEFB	$FF
01B0 FF		DEFB	$FF
01B1 FF		DEFB	$FF
01B2 FF		DEFB	$FF
01B3 FF		DEFB	$FF
01B4 FF		DEFB	$FF
01B5 FF		DEFB	$FF
01B6 FF		DEFB	$FF
01B7 FF		DEFB	$FF
01B8 FF		DEFB	$FF
01B9 FF		DEFB	$FF
01BA FF		DEFB	$FF
01BB FF		DEFB	$FF
01BC FF		DEFB	$FF
01BD FF		DEFB	$FF
01BE FF		DEFB	$FF
01BF FF		DEFB	$FF
01C0 FF		DEFB	$FF
01C1 FF		DEFB	$FF
01C2 FF		DEFB	$FF
01C3 FF		DEFB	$FF
01C4 FF		DEFB	$FF
01C5 FF		DEFB	$FF
01C6 FF		DEFB	$FF
01C7 FF		DEFB	$FF
01C8 FF		DEFB	$FF
01C9 FF		DEFB	$FF
01CA FF		DEFB	$FF
01CB FF		DEFB	$FF
01CC FF		DEFB	$FF
01CD FF		DEFB	$FF
01CE FF		DEFB	$FF
01CF FF		DEFB	$FF
01D0 444952	DEFM	"DIR"
01D3 20		DEFB	$20
01D4 434F5059	DEFM	"COPY"
01D8 20		DEFB	$20
01D9 52454E	DEFM	"REN"
01DC 20		DEFB	$20
01DD 455241	DEFM	"ERA"
01E0 20		DEFB	$20
01E1 54595045	DEFM	"TYPE"
01E5 20		DEFB	$20
01E6 5459504558	DEFM	"TYPEX"
01EB 20		DEFB	$20
01EC 5459504548	DEFM	"TYPEH"
01F1 20		DEFB	$20
01F2 5459504541	DEFM	"TYPEA"
01F7 20		DEFB	$20
01F8 52554E	DEFM	"RUN"
01FB 20		DEFB	$20
01FC 45584954	DEFM	"EXIT"
0200 20		DEFB	$20
0201 53495A45	DEFM	"SIZE"
0205 20		DEFB	$20
0206 434845434B	DEFM	"CHECK"
020B 20		DEFB	$20
020C 53544154	DEFM	"STAT"
0210 20		DEFB	$20
0211 55534552	DEFM	"USER"
0215 20		DEFB	$20
0216 5855534552	DEFM	"XUSER"
021B 20		DEFB	$20
021C 54455354	DEFM	"TEST"
0220 20		DEFB	$20
0221 534554	DEFM	"SET"
0224 20		DEFB	$20
0225 534554444952	DEFM	"SETDIR"
022B 20		DEFB	$20
022C 534554535953	DEFM	"SETSYS"
0232 20		DEFB	$20
0233 534554524F	DEFM	"SETRO"
0238 20		DEFB	$20
0239 5345545752	DEFM	"SETWR"
023E 20		DEFB	$20
023F 5245434C41494D	DEFM	"RECLAIM"
0246 20		DEFB	$20
0247 4449534B	DEFM	"DISK"
024B 20		DEFB	$20
024C 47524F55	DEFM	"GROUP"
0251 20		DEFB	$20
0252 4C4F47	DEFM	"LOG"
0255 20		DEFB	$20
0256 5245534554	DEFM	"RESET"
025B 20		DEFB	$20
025C 4453	DEFM	"DS"
025E 20		DEFB	$20
025F 5350454544	DEFM	"SPEED"
0264 20		DEFB	$20
0265 53415645	DEFM	"SAVE"
0269 20		DEFB	$20
026A 4C4F4144	DEFM	"LOAD"
026E 20		DEFB	$20
026F 52454144	DEFM	"READ"
0273 20		DEFB	$20
0274 5752495445	DEFM	"WRITE"
0279 20		DEFB	$20
027A 524541444752	DEFM	"READGR"
0280 20		DEFB	$20
0281 57524954454752	DEFM	"WRITEGR"
0288 20		DEFB	$20
0289 44554D50	DEFM	"DUMP"
028D 20		DEFB	$20
028E 44554D5058	DEFM	"DUMPX"
0293 20		DEFB	$20
0294 44554D5048	DEFM	"DUMPH"
0299 20		DEFB	$20
029A 44554D5041	DEFM	"DUMPA"
029F 20		DEFB	$20
02A0 4D4F5645	DEFM	"MOVE"
02A4 20		DEFB	$20
02A5 46494C4C	DEFM	"FILL"
02A9 20		DEFB	$20
02AA 434D	DEFM	"CM"
02AC 20		DEFB	$20
02AD 534541524348	DEFM	"SEARCH"
02B3 20		DEFB	$20
02B4 4A50	DEFM	"JP"
02B6 20		DEFB	$20
02B7 4558	DEFM	"EX"
02B9 20		DEFB	$20
02BA 474F	DEFM	"GO"
02BC 20		DEFB	$20
02BD 555231	DEFM	"UR1"
02C0 20		DEFB	$20
02C1 555232	DEFM	"UR2"
02C4 20		DEFB	$20
02C5 555233	DEFM	"UR3"
02C8 20		DEFB	$20
02C9 555234	DEFM	"UR4"
02CC 20		DEFB	$20
02CD 534F5254	DEFM	"SORT"
02D1 20		DEFB	$20
02D2 50415353	DEFM	"PASS"
02D6 20		DEFB	$20
02D7 3F		DEFM	"?"
02D8 20		DEFB	$20
02D9 00		DEFB	$00
02DA 00		DEFB	$00
02DB 00		DEFB	$00
02DC 00		DEFB	$00
02DD 00		DEFB	$00
02DE 00		DEFB	$00
02DF 00		DEFB	$00
02E0 00		DEFB	$00
02E1 00		DEFB	$00
02E2 00		DEFB	$00
02E3 00		DEFB	$00
02E4 00		DEFB	$00
02E5 00		DEFB	$00
02E6 00		DEFB	$00
02E7 00		DEFB	$00
02E8 00		DEFB	$00
02E9 00		DEFB	$00
02EA 00		DEFB	$00
02EB 00		DEFB	$00
02EC 00		DEFB	$00
02ED 00		DEFB	$00
02EE 00		DEFB	$00
02EF 00		DEFB	$00
02F0 FF		DEFB	$FF
02F1 50		DEFB	$50
02F2 4F		DEFB	$4F
02F3 57		DEFB	$57
02F4 45		DEFB	$45
02F5 52		DEFB	$52
02F6 00		DEFB	$00
02F7 00		DEFB	$00
02F8 00		DEFB	$00
02F9 00		DEFB	$00
02FA 00		DEFB	$00
02FB 00		DEFB	$00
02FC 00		DEFB	$00
02FD 00		DEFB	$00
02FE 00		DEFB	$00
02FF 00		DEFB	$00
0300 C3		DEFB	$C3
0301 C5		DEFB	$C5
0302 37		DEFB	$37
0303 C3		DEFB	$C3
0304 20		DEFB	$20
0305 38		DEFB	$38
0306 C3		DEFB	$C3
0307 EF		DEFB	$EF
0308 38		DEFB	$38
0309 C3		DEFB	$C3
030A 03		DEFB	$03
030B 36		DEFB	$36
030C 8A		DEFB	$8A
030D 3B		DEFB	$3B
030E 8A		DEFB	$8A
030F 3B		DEFB	$3B
0310 210000	LD	HL,$0000
0313 39		ADD	HL,SP		; get stack address in HL
0314 221001	LD	($0110),HL	; ($0110) = stack address backup
0317 318A3B	LD	SP,$3B8A		; set stack at $3B8A
031A 2A0600	LD	HL,($0006)	; HL = BDOS start address = $D106
031D 2E00	LD	L,$00
031F E5		PUSH	HL		; save $D100 on stack	### PUSH 1 ###
0320 3A6D01	LD	A,($016D)	; A = $FF
0323 B7		OR	A		; test if zero
0324 CA3103	JP	Z,$0331		; if zero, jump ---> ---> ---> --->|
0327 5F		LD	E,A		; E = $FF			   |
0328 3C		INC	A		; A = $00			   |
0329 C22E03	JP	NZ,$032E		; jump if non zero ---> --->|	   |
032C 1E08	LD	E,$08		; if zero E=$08		    |	   |
032E 7C		LD	A,H		; <--- <--- <--- <--- <-----| A = $D1
032F 93		SUB	E		; A=$D1-$08 if Z, A=$D1-($016D) if NZ  *** A=$C9 ***
0330 67		LD	H,A		; H = $C9			   |
0331 221813	LD	($1318),HL	; <--- <--- <--- <--- <--- <--- <--| ($1318) = $C900
0334 3A1501	LD	A,($0115)	; A = $00
0337 B7		OR	A		; test if zero
0338 CA3E03	JP	Z,$033E		; jump if zero  ---> ---> --->|
033B 321913	LD	($1319),A	;			      | ($1319)=($0115) if NZ
033E 3A1701	LD	A,($0117)	; A = $00 <--- <--- <--- <----|
0341 B7		OR	A
0342 CA5F03	JP	Z,$035F		; jump if zero  ---> ---> --->| skip if ($0117) is NZ
0345 320000	LD	($0000),A	; ($0000)=($0117)
0348 4F		LD	C,A
0349 3EFF	LD	A,$FF
034B 91		SUB	C		; A=$FF-($0117)
034C 4F		LD	C,A
034D 3E38	LD	A,$38
034F 91		SUB	C		; A=$38-[$FF-($0117)]=$XX
0350 1600	LD	D,$00
0352 5F		LD	E,A
0353 3EC3	LD	A,$C3
0355 12		LD	(DE),A		; ($00XX)=$C3
0356 212904	LD	HL,$0429
0359 13		INC	DE
035A 7D		LD	A,L
035B 12		LD	(DE),A
035C 13		INC	DE
035D 7C		LD	A,H
035E 12		LD	(DE),A		; ($00XX+1)=$0429
035F AF		XOR	A		; A = $00 <--- <--- <--- <----|
0360 32E004	LD	($04E0),A	; ($04E0) = $00
0363 67		LD	H,A
0364 6F		LD	L,A		; HL = $0000
0365 22A82C	LD	($2CA8),HL	; ($2CA8) = $0000
0368 0E0C	LD	C,$0C		; BDOS function #0C (Return Version Number)
036A CD0500	CALL	$0005		; Call BDOS function #0C
036D 7D		LD	A,L		; A=$00
036E 326704	LD	($0467),A	; ($0467)=$00
0371 7C		LD	A,H		; A=$00
0372 B5		OR	L		; Z set
0373 32BD0D	LD	($0DBD),A	; ($0DBD)=$00
0376 F5		PUSH	AF		; (SP)=$00nn, Z set	### PUSH 2 ###
0377 329710	LD	($1097),A	; ($1097)=$00nn
037A 32AA0E	LD	($0EAA),A	; ($0EAA)=$00nn
037D CA8A03	JP	Z,$038A		; jump ---> ---> ---> ---> ---> --->|
0380 1EFF	LD	E,$FF		; required for BDOS $20 call	    |
0382 CD0133	CALL	$3301		; get user# (calls BDOS $20 func)   |
0385 F680	OR	$80		; set bit 7 of user#		    |
0387 32AA0E	LD	($0EAA),A	; save user# to ($0EAA)		    |
038A 2A0100	LD	HL,($0001)	; HL=addr of BIOS WBOOT <--- <--- <-|
038D 110300	LD	DE,$0003
0390 19		ADD	HL,DE		; HL=addr of BIOS CONST
0391 22CC37	LD	($37CC),HL	; ($37CC)=addr of BIOS CONST
0394 19		ADD	HL,DE		; HL=addr of BIOS CONIN
0395 222438	LD	($3824),HL	; ($3824)=addr of BIOS CONIN
0398 19		ADD	HL,DE
0399 19		ADD	HL,DE
039A 19		ADD	HL,DE
039B 19		ADD	HL,DE
039C 19		ADD	HL,DE		; HL=addr of BIOS HOME
039D 22B632	LD	($32B6),HL	; ($32B6)=addr of BIOS HOME
03A0 19		ADD	HL,DE		; HL=addr of BIOS SELDSK
03A1 22E730	LD	($30E7),HL	; ($30E7)=addr of BIOS SELDSK
03A4 19		ADD	HL,DE		; HL=addr of BIOS SETTRK
03A5 223732	LD	($3237),HL	; ($3237)=addr of BIOS SETTRK
03A8 19		ADD	HL,DE		; HL=addr of BIOS SETSEC
03A9 224527	LD	($2745),HL	; ($2745)=addr of BIOS SETSEC
03AC 19		ADD	HL,DE
03AD 19		ADD	HL,DE		; HL=addr of BIOS READ
03AE 22B833	LD	($33B8),HL	; ($33B8)=addr of BIOS READ
03B1 19		ADD	HL,DE		; HL=addr of BIOS WRITE
03B2 22C933	LD	($33C9),HL	; ($33C9)=addr of BIOS WRITE
03B5 F1		POP	AF		; A=$00 Z set		### POP 2 ###
03B6 19		ADD	HL,DE
03B7 19		ADD	HL,DE		; HL=addr of BIOS SECTRAN
03B8 222D27	LD	($272D),HL	; ($272D)=addr of BIOS SECTRAN
03BB E1		POP	HL		; HL=$D100 (?)		### POP 1 ###
03BC C2D203	JP	NZ,$03D2	; ---> ---> ---> ---> ---> ---> --->|
03BF 326701	LD	($0167),A	; ($0167)=$00
03C2 E5		PUSH	HL		; HL=$D100 (?)
03C3 110F00	LD	DE,$000F
03C6 19		ADD	HL,DE		; HL=$D10F
03C7 222D27	LD	($272D),HL	; ($272D)=$D10F
03CA E1		POP	HL		; HL=$D100 (?)
03CB 111A00	LD	DE,$001A
03CE 19		ADD	HL,DE		; HL=$D11A
03CF 222827	LD	($2728),HL	; ($2728)=$D11A
03D2 2A0E03	LD	HL,($030E)	; <--- <--- <--- <--- <--- <--- <---| HL=$3B8A
03D5 23		INC	HL		; HL=$3B8B
03D6 EB		EX	DE,HL		; DE=$3B8B, HL=$001A
03D7 218000	LD	HL,$0080		; HL=$0080
03DA 46		LD	B,(HL)		; B=($0080) = nr. of chars of all command parameters = N
03DB 78		LD	A,B
03DC 327705	LD	($0577),A	; ($0577)=($0080)
03DF 23		INC	HL		; HL=$0081
03E0 3A5D00	LD	A,($005D)	; second byte of the FCB in page 1 which is the first char of the file name
03E3 FE20	CP	$20		; check if it is a space
03E5 C4BC37	CALL	NZ,$37BC		; if not, call $37BC (move command parms ($0080 bytes) from $0081 to $3B8B). When done, DE=$3B8B+N, HL=$0081+N
03E8 EB		EX	DE,HL		;
03E9 3620	LD	(HL),$20		; ($3B8B+N)=$20 (add a space to end of relocated command parms...
03EB 23		INC	HL
03EC 3600	LD	(HL),$00		; ...and a NULL character)
03EE 3A5C00	LD	A,($005C)	; A = first byte of FCB stored in the first page = drive# (0 for default drive, 1-16 for A:...P:)
03F1 B7		OR	A		; test if zero
03F2 CCBD35	CALL	Z,$35BD		; if zero (code for default drive) call BDOS function $19 which returns A=($D442)
03F5 CD300E	CALL	$0E30		; if drive# not betw 1 and 15, return with A=$10
03F8 325C00	LD	($005C),A	; store it at $005C
03FB 327525	LD	($2575),A	; store it at $2575
03FE 3A6A01	LD	A,($016A)	; A=$01  (($016A)=drv# or what ???)
0401 321D36	LD	($361D),A	; ($361D)=$01
0404 B7		OR	A
0405 FA2904	JP	M,$0429		; if bit 7 of ($016A) is 1, jump to $0429 ---> --->|
0408 B7		OR	A		;						   |
0409 C20F04	JP	NZ,$040F	; if not 0, jump ---> --->|			   |
040C 3A5C00	LD	A,($005C)	; A=drive# in FCB	  |			   |
040F 32D03A	LD	($3AD0),A	; <--- <--- <--- <--- <---|			   |
0412 CDC631	CALL	$31C6		; calls BDOS func $1A (Set DMA Address to $0080)   |
0415 11D03A	LD	DE,$3AD0	;						   |
0418 CD1033	CALL	$3310		; zeroes out $17 bytes starting at $3AD0+$0C=$3ADC |
041B CD9F31	CALL	$319F		;						   | <<--- this will access disk !!!
041E 321D36	LD	($361D),A	;						   |
0421 C32904	JP	$0429		; jump ---> ---> ---> ---> ---> ---> ---> ---> --->|
0424 3EFF	LD	A,$FF		;						   |
0426 325C30	LD	($305C),A	;						   |
0429 318A3B	LD	SP,$3B8A	; <--- <--- <--- <--- <--- <--- <--- <--- <--- <---|
042C 3EFF	LD	A,$FF
042E 325739	LD	($3957),A
0431 3A5C30	LD	A,($305C)
0434 6F		LD	L,A
0435 CD4E30	CALL	$304E
0438 3A7705	LD	A,($0577)
043B B7		OR	A
043C C2D304	JP	NZ,$04D3
043F 3A1E01	LD	A,($011E)
0442 B7		OR	A
0443 FAD304	JP	M,$04D3
0446 A5		AND	L
0447 C2D304	JP	NZ,$04D3
044A CD6838	CALL	$3868
					; ############### DATA AREA ################

044D 0D0D09504F57455220332E3033206F6E2043502F4D        DEFM	"<CR><CR><TAB>POWER 3.03 on CP/M"

0462 A0        AND     B
0463 CD680C    CALL    $0C68
0466 3E31      LD      A,$31
0468 1F        RRA
0469 1F        RRA
046A 1F        RRA
046B 1F        RRA
046C E63F      AND     $3F
046E C630      ADD     A,$30
0470 CDEF38    CALL    $38EF
0473 3E2E      LD      A,$2E
0475 CDEF38    CALL    $38EF
0478 3A6704    LD      A,($0467)
047B E63F      AND     $3F
047D CDB42F    CALL    $2FB4
0480 CD6838    CALL    $3868

0483 20312F320D0D2020436F707972696768742028632920313938312C203139383220627920504156454C204252454445520D09416C6C207269676874732072657365727665642E2030312F30332F3833      DEFM	" 1/2<CR><CR>  Copyright (c) 1981, 1982 by PAVEL BREDER<CR><TAB>All rights reserved. 01/03/83"

04D2 8D        ADC     A,L
					; ##########################################
04D3 318A3B    LD      SP,$3B8A
04D6 CD610C    CALL    $0C61
04D9 3A0D01    LD      A,($010D)
04DC 324834    LD      ($3448),A	; ($3448)=($010D)=$FF
04DF 3E00      LD      A,$00
04E1 B7        OR      A
04E2 CAEF04    JP      Z,$04EF
04E5 325C00    LD      ($005C),A
04E8 3A1601    LD      A,($0116)
04EB 3D        DEC     A
04EC CC4E30    CALL    Z,$304E
04EF 3A1601    LD      A,($0116)
04F2 3D        DEC     A
04F3 C2FA04    JP      NZ,$04FA
04F6 2F        CPL
04F7 325C30    LD      ($305C),A
04FA CDB70D    CALL    $0DB7
04FD CA1405    JP      Z,$0514
0500 3A8708    LD      A,($0887)
0503 B7        OR      A
0504 3A9710    LD      A,($1097)
0507 C4FE32    CALL    NZ,$32FE
050A 1EFF      LD      E,$FF
050C CD0133    CALL    $3301
050F F680      OR      $80
0511 329710    LD      ($1097),A
0514 3A7705    LD      A,($0577)
0517 3C        INC     A
0518 CAA21F    JP      Z,$1FA2
051B 215D00    LD      HL,$005D
051E 060B      LD      B,$0B
0520 363F      LD      (HL),$3F
0522 23        INC     HL
0523 05        DEC     B
0524 C22005    JP      NZ,$0520
0527 2A0E03    LD      HL,($030E)
052A 22771E    LD      ($1E77),HL
052D 3EFF      LD      A,$FF
052F 326708    LD      ($0867),A
0532 3C        INC     A
0533 32C51D    LD      ($1DC5),A
0536 32370B    LD      ($0B37),A
0539 32F910    LD      ($10F9),A
053C 328215    LD      ($1582),A
053F 325109    LD      ($0951),A
0542 328708    LD      ($0887),A
0545 328508    LD      ($0885),A
0548 329F08    LD      ($089F),A
054B 32750E    LD      ($0E75),A
054E 32E004    LD      ($04E0),A
0551 32B70E    LD      ($0EB7),A
0554 32A616    LD      ($16A6),A
0557 32681E    LD      ($1E68),A
055A 32C52F    LD      ($2FC5),A
055D 32D01A    LD      ($1AD0),A
0560 32E41E    LD      ($1EE4),A
0563 32D00F    LD      ($0FD0),A
0566 327C00    LD      ($007C),A
0569 32131C    LD      ($1C13),A
056C 32141C    LD      ($1C14),A
056F 3A5C00    LD      A,($005C)
0572 327525    LD      ($2575),A
0575 4F        LD      C,A
0576 3E00      LD      A,$00
0578 B7        OR      A
0579 CA8405    JP      Z,$0584
057C 3EFF      LD      A,$FF
057E 327705    LD      ($0577),A
0581 C3D005    JP      $05D0
0584 CD6338    CALL    $3863
0587 AF        XOR     A
0588 320A39    LD      ($390A),A
058B 322039    LD      ($3920),A
058E 79        LD      A,C
058F CD8035    CALL    $3580
0592 CDB70D    CALL    $0DB7
0595 CAC705    JP      Z,$05C7
0598 3AAA0E    LD      A,($0EAA)
059B E67F      AND     $7F
059D 4F        LD      C,A
059E 3A9710    LD      A,($1097)
05A1 E67F      AND     $7F
05A3 47        LD      B,A
05A4 B7        OR      A
05A5 C2B405    JP      NZ,$05B4
05A8 B9        CP      C
05A9 C2B405    JP      NZ,$05B4
05AC 3A1C01    LD      A,($011C)
05AF B7        OR      A
05B0 CAC705    JP      Z,$05C7
05B3 78        LD      A,B
05B4 C5        PUSH    BC
05B5 CD972F    CALL    $2F97
05B8 C1        POP     BC
05B9 79        LD      A,C
05BA B8        CP      B
05BB CAC705    JP      Z,$05C7
05BE F5        PUSH    AF
05BF CD6838    CALL    $3868
05C2 AD        XOR     L
05C3 F1        POP     AF
05C4 CD972F    CALL    $2F97
05C7 3A0701    LD      A,($0107)
05CA CDEF38    CALL    $38EF
05CD CD0336    CALL    $3603
05D0 2A0E03    LD      HL,($030E)
05D3 23        INC     HL
05D4 E5        PUSH    HL
05D5 CD860C    CALL    $0C86
05D8 E1        POP     HL
05D9 CDA80D    CALL    $0DA8
05DC CD782F    CALL    $2F78
05DF CA0106    JP      Z,$0601
05E2 FE5B      CP      $5B
05E4 CA0106    JP      Z,$0601
05E7 23        INC     HL
05E8 7E        LD      A,(HL)
05E9 CD2A0E    CALL    $0E2A
05EC 2B        DEC     HL
05ED C20806    JP      NZ,$0608
05F0 7E        LD      A,(HL)
05F1 CD5130    CALL    $3051
05F4 3A5C00    LD      A,($005C)
05F7 327525    LD      ($2575),A
05FA 23        INC     HL
05FB CD782F    CALL    $2F78
05FE C20806    JP      NZ,$0608
0601 AF        XOR     A
0602 327705    LD      ($0577),A
0605 C3D304    JP      $04D3

0608 E5        PUSH    HL
0609 0600      LD      B,$00
060B 11D001    LD      DE,$01D0
060E AF        XOR     A
060F 322E06    LD      ($062E),A
0612 7E        LD      A,(HL)
0613 CD1638    CALL    $3816
0616 EB        EX      DE,HL
0617 BE        CP      (HL)
0618 CA2406    JP      Z,$0624
061B 4F        LD      C,A
061C 7E        LD      A,(HL)
061D E67F      AND     $7F
061F CD1638    CALL    $3816
0622 B9        CP      C
0623 79        LD      A,C
0624 EB        EX      DE,HL
0625 C29806    JP      NZ,$0698
0628 FE20      CP      $20
062A C28B06    JP      NZ,$068B
062D 3E00      LD      A,$00
062F B7        OR      A
0630 CAB106    JP      Z,$06B1
0633 3E00      LD      A,$00
0635 B7        OR      A
0636 C2B106    JP      NZ,$06B1
0639 CD6838    CALL    $3868
					; ############## DATA AREA ###############
063C 090770617373776F7264207265717569726564	DEFM	"<TAB><BEL>password required"
064F 00		DEFB	$00
					; ########################################
0650 AF        XOR     A
0651 323406    LD      ($0634),A
0654 CD792F    CALL    $2F79
0657 E5        PUSH    HL
0658 118001    LD      DE,$0180
065B CD7006    CALL    $0670
065E CD6838    CALL    $3868
					; ############## DATA AREA ###############
0661 09076261642070617373776F7264	DEFM	"<TAB><BEL>bad password"
066F 00		DEFB	$00
					; ########################################
0670 1A        LD      A,(DE)
0671 B7        OR      A
0672 CA8106    JP      Z,$0681
0675 0F        RRCA
0676 0F        RRCA
0677 0F        RRCA
0678 EE97      XOR     $97
067A BE        CP      (HL)
067B C0        RET     NZ
067C 13        INC     DE
067D 23        INC     HL
067E C37006    JP      $0670

0681 7E        LD      A,(HL)
0682 FE20      CP      $20
0684 C0        RET     NZ
0685 323406    LD      ($0634),A
0688 C3D304    JP      $04D3

068B 1A        LD      A,(DE)
068C 07        RLCA
068D D29306    JP      NC,$0693
0690 322E06    LD      ($062E),A
0693 23        INC     HL
0694 13        INC     DE
0695 C31206    JP      $0612
0698 1A        LD      A,(DE)
0699 B7        OR      A
069A CADD0D    JP      Z,$0DDD
069D 13        INC     DE
069E FE20      CP      $20
06A0 C29806    JP      NZ,$0698
06A3 EB        EX      DE,HL
06A4 CD792F    CALL    $2F79
06A7 EB        EX      DE,HL
06A8 CADD0D    JP      Z,$0DDD
06AB 04        INC     B
06AC E1        POP     HL
06AD E5        PUSH    HL
06AE C30E06    JP      $060E
06B1 78        LD      A,B
06B2 3C        INC     A
06B3 32EF14    LD      ($14EF),A
06B6 E5        PUSH    HL
06B7 FE09      CP      $09
06B9 C27507    JP      NZ,$0775
06BC E5        PUSH    HL
06BD 2A1813    LD      HL,($1318)
06C0 222D13    LD      ($132D),HL
06C3 25        DEC     H
06C4 25        DEC     H
06C5 75        LD      (HL),L
06C6 22EA06    LD      ($06EA),HL
06C9 23        INC     HL
06CA 3620      LD      (HL),$20
06CC E1        POP     HL
06CD CD792F    CALL    $2F79
06D0 CA7507    JP      Z,$0775
06D3 23        INC     HL
06D4 7E        LD      A,(HL)
06D5 CD2A0E    CALL    $0E2A
06D8 CC782F    CALL    Z,$2F78
06DB CA7507    JP      Z,$0775
06DE FE20      CP      $20
06E0 C2D306    JP      NZ,$06D3
06E3 CD792F    CALL    $2F79
06E6 CA7507    JP      Z,$0775
06E9 110000    LD      DE,$0000
06EC 13        INC     DE
06ED 010000    LD      BC,$0000
06F0 13        INC     DE
06F1 7E        LD      A,(HL)
06F2 12        LD      (DE),A
06F3 B7        OR      A
06F4 CA6E07    JP      Z,$076E
06F7 CD2A0E    CALL    $0E2A
06FA C20107    JP      NZ,$0701
06FD CD782F    CALL    $2F78
0700 2B        DEC     HL
0701 23        INC     HL
0702 13        INC     DE
0703 0C        INC     C
0704 C3F106    JP      $06F1
0707 4E        LD      C,(HL)
0708 23        INC     HL
0709 46        LD      B,(HL)
070A EB        EX      DE,HL
070B C5        PUSH    BC
070C C9        RET
070D 34        INC     (HL)
070E 76        HALT
070F 22191B    LD      ($1B19),HL
0712 23        INC     HL
0713 0D        DEC     C
0714 74        LD      (HL),H
0715 25        DEC     H
0716 0E13      LD      C,$13
0718 220F19    LD      ($190F),HL
071B 221B5A    LD      ($5A1B),HL
071E 201C      JR      NZ,$073C
0720 04        INC     B
0721 3820      JR      C,$0743
0723 7C        LD      A,H
0724 29        ADD     HL,HL
0725 1F        RRA
0726 7C        LD      A,H
0727 29        ADD     HL,HL
0728 17        RLA
0729 B2        OR      D
072A 39        ADD     HL,SP
072B 10B8      DJNZ    $06E5
072D 15        DEC     D
072E 16A7      LD      D,$A7
0730 260A      LD      H,$0A
0732 8A        ADC     A,D
0733 1F        RRA
0734 2B        DEC     HL
0735 EC1F2C    CALL    PE,$2C1F
0738 17        RLA
0739 201A      JR      NZ,$0755
073B BC        CP      H
073C 0D        DEC     C
073D 2ED3      LD      L,$D3
073F 1F        RRA
0740 2F        CPL
0741 D9        EXX
0742 1F        RRA
0743 30DF      JR      NC,$0724
0745 1F        RRA
0746 31E51F    LD      SP,$1FE5
0749 215029    LD      HL,$2950
074C 225029    LD      ($2950),HL
074F 25        DEC     H
0750 5D        LD      E,L
0751 2D        DEC     L
0752 264D      LD      H,$4D
0754 2D        DEC     L
0755 24        INC     H
0756 55        LD      D,L
0757 2D        DEC     L
0758 23        INC     HL
0759 45        LD      B,L
075A 2D        DEC     L
075B 27        DAA
075C 4F        LD      C,A
075D 2C        INC     L
075E 2803      JR      Z,$0763
0760 2F        CPL
0761 29        ADD     HL,HL
0762 C42E2A    CALL    NZ,$2A2E
0765 68        LD      L,B
0766 2D        DEC     L
0767 32DB0A    LD      ($0ADB),A
076A 33        INC     SP
076B 50        LD      D,B
076C 06FF      LD      B,$FF
076E 2AEA06    LD      HL,($06EA)
0771 71        LD      (HL),C
0772 09        ADD     HL,BC
0773 23        INC     HL
0774 70        LD      (HL),B
0775 E1        POP     HL
0776 D1        POP     DE
0777 CD792F    CALL    $2F79
077A CADD07    JP      Z,$07DD
077D FE3D      CP      $3D
077F C28E07    JP      NZ,$078E
0782 3A5C00    LD      A,($005C)
0785 32B70E    LD      ($0EB7),A
0788 CD782F    CALL    $2F78
078B CADD07    JP      Z,$07DD
078E 23        INC     HL
078F 7E        LD      A,(HL)
0790 2B        DEC     HL
0791 CD2A0E    CALL    $0E2A
0794 C2DD07    JP      NZ,$07DD
0797 3AE004    LD      A,($04E0)
079A B7        OR      A
079B C2A407    JP      NZ,$07A4
079E 3A5C00    LD      A,($005C)
07A1 32E004    LD      ($04E0),A
07A4 7E        LD      A,(HL)
07A5 CD300E    CALL    $0E30
07A8 325C00    LD      ($005C),A
07AB 3AEF14    LD      A,($14EF)
07AE FE1A      CP      $1A
07B0 CABC0D    JP      Z,$0DBC
07B3 CD4E30    CALL    $304E
07B6 23        INC     HL
07B7 CD782F    CALL    $2F78
07BA CADD07    JP      Z,$07DD
07BD FE3D      CP      $3D
07BF C2DD07    JP      NZ,$07DD
07C2 CD782F    CALL    $2F78
07C5 3A5C00    LD      A,($005C)
07C8 32B70E    LD      ($0EB7),A
07CB CAD707    JP      Z,$07D7
07CE 23        INC     HL
07CF 7E        LD      A,(HL)
07D0 2B        DEC     HL
07D1 CD2A0E    CALL    $0E2A
07D4 CA8E07    JP      Z,$078E
07D7 3AE004    LD      A,($04E0)
07DA 325C00    LD      ($005C),A
07DD EB        EX      DE,HL
07DE 210D07    LD      HL,$070D
07E1 3AEF14    LD      A,($14EF)
07E4 BE        CP      (HL)
07E5 7E        LD      A,(HL)
07E6 23        INC     HL
07E7 CA0707    JP      Z,$0707
07EA 23        INC     HL
07EB 23        INC     HL
07EC 3C        INC     A
07ED C2E107    JP      NZ,$07E1
07F0 EB        EX      DE,HL
07F1 CDB70D    CALL    $0DB7
07F4 C20408    JP      NZ,$0804
07F7 3AEF14    LD      A,($14EF)
07FA FE12      CP      $12
07FC DA0408    JP      C,$0804
07FF FE16      CP      $16
0801 DADD0D    JP      C,$0DDD
0804 CD792F    CALL    $2F79
0807 C4F321    CALL    NZ,$21F3
080A 015C00    LD      BC,$005C
080D C5        PUSH    BC
080E C4AC21    CALL    NZ,$21AC
0811 22362F    LD      ($2F36),HL
0814 E1        POP     HL
0815 060B      LD      B,$0B
0817 23        INC     HL
0818 7E        LD      A,(HL)
0819 FE3F      CP      $3F
081B CA2208    JP      Z,$0822
081E 05        DEC     B
081F C21708    JP      NZ,$0817
0822 326B0E    LD      ($0E6B),A
0825 3AEF14    LD      A,($14EF)
0828 FE1E      CP      $1E
082A CA472B    JP      Z,$2B47
082D FE1D      CP      $1D
082F CAAD2B    JP      Z,$2BAD
0832 FE2D      CP      $2D
0834 CA362C    JP      Z,$2C36
0837 F5        PUSH    AF
0838 CD6338    CALL    $3863
083B F1        POP     AF
083C FE09      CP      $09
083E CA5008    JP      Z,$0850
0841 FE01      CP      $01
0843 CA5B08    JP      Z,$085B
0846 AF        XOR     A
0847 328708    LD      ($0887),A
084A 328508    LD      ($0885),A
084D C3E008    JP      $08E0
0850 216500    LD      HL,$0065
0853 3643      LD      (HL),$43
0855 23        INC     HL
0856 364F      LD      (HL),$4F
0858 23        INC     HL
0859 364D      LD      (HL),$4D
085B CD8408    CALL    $0884
085E CAE008    JP      Z,$08E0
0861 7B        LD      A,E
0862 B7        OR      A
0863 CA9708    JP      Z,$0897
0866 3EFF      LD      A,$FF
0868 3C        INC     A
0869 326708    LD      ($0867),A
086C 5F        LD      E,A
086D 3A6101    LD      A,($0161)
0870 BB        CP      E
0871 7B        LD      A,E
0872 D28A08    JP      NC,$088A
0875 3EFF      LD      A,$FF
0877 326708    LD      ($0867),A
087A 3A8508    LD      A,($0885)
087D B7        OR      A
087E CAD304    JP      Z,$04D3
0881 C35B08    JP      $085B
0884 3E00      LD      A,$00
0886 1E00      LD      E,$00
0888 B3        OR      E
0889 C9        RET
088A 32370B    LD      ($0B37),A
088D CDFE32    CALL    $32FE
0890 3A6708    LD      A,($0867)
0893 B7        OR      A
0894 C2E008    JP      NZ,$08E0
0897 3A8508    LD      A,($0885)
089A B7        OR      A
089B CAE008    JP      Z,$08E0
089E 3E00      LD      A,$00
08A0 5F        LD      E,A
08A1 3C        INC     A
08A2 329F08    LD      ($089F),A
08A5 325C00    LD      ($005C),A
08A8 3A4834    LD      A,($3448)
08AB B7        OR      A
08AC CAB608    JP      Z,$08B6
08AF 3A6001    LD      A,($0160)
08B2 B7        OR      A
08B3 C2DC08    JP      NZ,$08DC
08B6 D5        PUSH    DE
08B7 0E18      LD      C,$18
08B9 CD0500    CALL    $0005
08BC D1        POP     DE
08BD 011000    LD      BC,$0010
08C0 0D        DEC     C
08C1 FAD304    JP      M,$04D3
08C4 22D108    LD      ($08D1),HL
08C7 CD702F    CALL    $2F70
08CA 78        LD      A,B
08CB 04        INC     B
08CC BB        CP      E
08CD C2C008    JP      NZ,$08C0
08D0 210000    LD      HL,$0000
08D3 CD702F    CALL    $2F70
08D6 D29E08    JP      NC,$089E
08D9 C3E008    JP      $08E0
08DC BB        CP      E
08DD CAD304    JP      Z,$04D3
08E0 2A0E03    LD      HL,($030E)
08E3 22771E    LD      ($1E77),HL
08E6 210000    LD      HL,$0000
08E9 22F40F    LD      ($0FF4),HL
08EC 22B709    LD      ($09B7),HL
08EF CD4E30    CALL    $304E
08F2 3E00      LD      A,$00
08F4 B7        OR      A
08F5 C23F31    JP      NZ,$313F
08F8 115C00    LD      DE,$005C
08FB 1A        LD      A,(DE)
08FC 32063B    LD      ($3B06),A
08FF CD7B31    CALL    $317B
0902 CD3030    CALL    $3030
0905 54        LD      D,H
0906 5D        LD      E,L
0907 210900    LD      HL,$0009
090A 19        ADD     HL,DE
090B 46        LD      B,(HL)
090C 3AEF14    LD      A,($14EF)
090F 23        INC     HL
0910 4E        LD      C,(HL)
0911 FE14      CP      $14
0913 CA3C09    JP      Z,$093C
0916 FE15      CP      $15
0918 C22209    JP      NZ,$0922
091B 78        LD      A,B
091C EEFF      XOR     $FF
091E 47        LD      B,A
091F C33C09    JP      $093C
0922 41        LD      B,C
0923 FE12      CP      $12
0925 CA1B09    JP      Z,$091B
0928 FE13      CP      $13
092A CA3C09    JP      Z,$093C
092D FE09      CP      $09
092F CA5009    JP      Z,$0950
0932 3A6B0E    LD      A,($0E6B)
0935 FE3F      CP      $3F
0937 C25009    JP      NZ,$0950
093A AF        XOR     A
093B 47        LD      B,A
093C DA9F09    JP      C,$099F
093F 3A6501    LD      A,($0165)
0942 B7        OR      A
0943 FA4B09    JP      M,$094B
0946 79        LD      A,C
0947 17        RLA
0948 DA9F09    JP      C,$099F
094B 78        LD      A,B
094C 17        RLA
094D DA9F09    JP      C,$099F
0950 3E00      LD      A,$00
0952 B7        OR      A
0953 CA7309    JP      Z,$0973
0956 F5        PUSH    AF
0957 D5        PUSH    DE
0958 11F6FF    LD      DE,$FFF6
095B 19        ADD     HL,DE
095C E60F      AND     $0F
095E 5F        LD      E,A
095F 1600      LD      D,$00
0961 19        ADD     HL,DE
0962 D1        POP     DE
0963 F1        POP     AF
0964 7E        LD      A,(HL)
0965 FA6F09    JP      M,$096F
0968 17        RLA
0969 DA9F09    JP      C,$099F
096C C37309    JP      $0973
096F 17        RLA
0970 D29F09    JP      NC,$099F
0973 2A771E    LD      HL,($1E77)
0976 060B      LD      B,$0B
0978 13        INC     DE
0979 3600      LD      (HL),$00
097B 23        INC     HL
097C 3600      LD      (HL),$00
097E 23        INC     HL
097F 1A        LD      A,(DE)
0980 77        LD      (HL),A
0981 23        INC     HL
0982 13        INC     DE
0983 05        DEC     B
0984 C27F09    JP      NZ,$097F
0987 22771E    LD      ($1E77),HL
098A EB        EX      DE,HL
098B 2AB709    LD      HL,($09B7)
098E 23        INC     HL
098F 22B709    LD      ($09B7),HL
0992 29        ADD     HL,HL
0993 19        ADD     HL,DE
0994 24        INC     H
0995 EB        EX      DE,HL
0996 2A1813    LD      HL,($1318)
0999 CD2C2B    CALL    $2B2C
099C DA5E2F    JP      C,$2F5E
099F 2A771E    LD      HL,($1E77)
09A2 36FF      LD      (HL),$FF
09A4 23        INC     HL
09A5 36FF      LD      (HL),$FF
09A7 CDA731    CALL    $31A7
09AA C20209    JP      NZ,$0902
09AD 2A0E03    LD      HL,($030E)
09B0 23        INC     HL
09B1 7E        LD      A,(HL)
09B2 3C        INC     A
09B3 CA8231    JP      Z,$3182
09B6 211D00    LD      HL,$001D
09B9 23        INC     HL
09BA 22D809    LD      ($09D8),HL
09BD 2A0E03    LD      HL,($030E)
09C0 EB        EX      DE,HL
09C1 2A771E    LD      HL,($1E77)
09C4 222F0A    LD      ($0A2F),HL
09C7 226A0A    LD      ($0A6A),HL
09CA 23        INC     HL
09CB 23        INC     HL
09CC 010D00    LD      BC,$000D
09CF 73        LD      (HL),E
09D0 23        INC     HL
09D1 72        LD      (HL),D
09D2 23        INC     HL
09D3 EB        EX      DE,HL
09D4 09        ADD     HL,BC
09D5 EB        EX      DE,HL
09D6 E5        PUSH    HL
09D7 210000    LD      HL,$0000
09DA 2B        DEC     HL
09DB 22D809    LD      ($09D8),HL
09DE 7D        LD      A,L
09DF B4        OR      H
09E0 E1        POP     HL
09E1 C2CF09    JP      NZ,$09CF
09E4 2AB709    LD      HL,($09B7)
09E7 23        INC     HL
09E8 22560A    LD      ($0A56),HL
09EB 2B        DEC     HL
09EC 7D        LD      A,L
09ED B4        OR      H
09EE CAF00A    JP      Z,$0AF0
09F1 3A0401    LD      A,($0104)
09F4 B7        OR      A
09F5 CAF00A    JP      Z,$0AF0
09F8 CD702F    CALL    $2F70
09FB B4        OR      H
09FC CAF00A    JP      Z,$0AF0
09FF 7D        LD      A,L
0A00 F601      OR      $01
0A02 6F        LD      L,A
0A03 22460A    LD      ($0A46),HL
0A06 23        INC     HL
0A07 22590A    LD      ($0A59),HL
0A0A EB        EX      DE,HL
0A0B 2A460A    LD      HL,($0A46)
0A0E 7B        LD      A,E
0A0F 95        SUB     L
0A10 6F        LD      L,A
0A11 7A        LD      A,D
0A12 9C        SBC     A,H
0A13 67        LD      H,A
0A14 22430A    LD      ($0A43),HL
0A17 EB        EX      DE,HL
0A18 2A460A    LD      HL,($0A46)
0A1B 19        ADD     HL,DE
0A1C 222C0A    LD      ($0A2C),HL
0A1F 3E0D      LD      A,$0D
0A21 CD690A    CALL    $0A69
0A24 F2550A    JP      P,$0A55
0A27 2A430A    LD      HL,($0A43)
0A2A EB        EX      DE,HL
0A2B 211E00    LD      HL,$001E
0A2E 01033D    LD      BC,$3D03
0A31 29        ADD     HL,HL
0A32 09        ADD     HL,BC
0A33 EB        EX      DE,HL
0A34 29        ADD     HL,HL
0A35 09        ADD     HL,BC
0A36 4E        LD      C,(HL)
0A37 1A        LD      A,(DE)
0A38 EB        EX      DE,HL
0A39 71        LD      (HL),C
0A3A 12        LD      (DE),A
0A3B 23        INC     HL
0A3C 13        INC     DE
0A3D 4E        LD      C,(HL)
0A3E 1A        LD      A,(DE)
0A3F EB        EX      DE,HL
0A40 71        LD      (HL),C
0A41 12        LD      (DE),A
0A42 111D00    LD      DE,$001D
0A45 210100    LD      HL,$0001
0A48 7B        LD      A,E
0A49 95        SUB     L
0A4A 6F        LD      L,A
0A4B 7A        LD      A,D
0A4C 9C        SBC     A,H
0A4D 67        LD      H,A
0A4E FA550A    JP      M,$0A55
0A51 B5        OR      L
0A52 C2140A    JP      NZ,$0A14
0A55 111E00    LD      DE,$001E
0A58 211E00    LD      HL,$001E
0A5B 23        INC     HL
0A5C 7B        LD      A,E
0A5D 95        SUB     L
0A5E 7A        LD      A,D
0A5F 9C        SBC     A,H
0A60 F2070A    JP      P,$0A07
0A63 2A460A    LD      HL,($0A46)
0A66 C3F809    JP      $09F8
0A69 01033D    LD      BC,$3D03
0A6C 29        ADD     HL,HL
0A6D 09        ADD     HL,BC
0A6E EB        EX      DE,HL
0A6F 29        ADD     HL,HL
0A70 09        ADD     HL,BC
0A71 EB        EX      DE,HL
0A72 4E        LD      C,(HL)
0A73 23        INC     HL
0A74 46        LD      B,(HL)
0A75 EB        EX      DE,HL
0A76 5E        LD      E,(HL)
0A77 23        INC     HL
0A78 56        LD      D,(HL)
0A79 EB        EX      DE,HL
0A7A 5F        LD      E,A
0A7B 0A        LD      A,(BC)
0A7C FEFF      CP      $FF
0A7E C8        RET     Z
0A7F E5        PUSH    HL
0A80 D5        PUSH    DE
0A81 110B00    LD      DE,$000B
0A84 19        ADD     HL,DE
0A85 7E        LD      A,(HL)
0A86 D1        POP     DE
0A87 E1        POP     HL
0A88 17        RLA
0A89 3E00      LD      A,$00
0A8B CE00      ADC     A,$00
0A8D 57        LD      D,A
0A8E 3A0401    LD      A,($0104)
0A91 FE01      CP      $01
0A93 CACB0A    JP      Z,$0ACB
0A96 FE03      CP      $03
0A98 CAB60A    JP      Z,$0AB6
0A9B FE05      CP      $05
0A9D D2CB0A    JP      NC,$0ACB
0AA0 E5        PUSH    HL
0AA1 210B00    LD      HL,$000B
0AA4 09        ADD     HL,BC
0AA5 7E        LD      A,(HL)
0AA6 E1        POP     HL
0AA7 17        RLA
0AA8 3E00      LD      A,$00
0AAA CE00      ADC     A,$00
0AAC 92        SUB     D
0AAD C0        RET     NZ
0AAE 3A0401    LD      A,($0104)
0AB1 FE02      CP      $02
0AB3 CACB0A    JP      Z,$0ACB
0AB6 E5        PUSH    HL
0AB7 C5        PUSH    BC
0AB8 160A      LD      D,$0A
0ABA 7B        LD      A,E
0ABB 92        SUB     D
0ABC 5F        LD      E,A
0ABD 23        INC     HL
0ABE 03        INC     BC
0ABF 15        DEC     D
0AC0 C2BD0A    JP      NZ,$0ABD
0AC3 CDCB0A    CALL    $0ACB
0AC6 C1        POP     BC
0AC7 E1        POP     HL
0AC8 C0        RET     NZ
0AC9 1E0A      LD      E,$0A
0ACB 7E        LD      A,(HL)
0ACC E67F      AND     $7F
0ACE 57        LD      D,A
0ACF 0A        LD      A,(BC)
0AD0 E67F      AND     $7F
0AD2 BA        CP      D
0AD3 03        INC     BC
0AD4 23        INC     HL
0AD5 C0        RET     NZ
0AD6 1D        DEC     E
0AD7 C2CB0A    JP      NZ,$0ACB
0ADA C9        RET
0ADB CD792F    CALL    $2F79
0ADE FE30      CP      $30
0AE0 DABA3A    JP      C,$3ABA
0AE3 FE3A      CP      $3A
0AE5 D2BA3A    JP      NC,$3ABA
0AE8 D630      SUB     $30
0AEA 320401    LD      ($0104),A
0AED C3D304    JP      $04D3
0AF0 2A560A    LD      HL,($0A56)
0AF3 29        ADD     HL,HL
0AF4 EB        EX      DE,HL
0AF5 2A771E    LD      HL,($1E77)
0AF8 19        ADD     HL,DE
0AF9 22771E    LD      ($1E77),HL
0AFC CD8408    CALL    $0884
0AFF CA050B    JP      Z,$0B05
0B02 CD6338    CALL    $3863
0B05 3AEF14    LD      A,($14EF)
0B08 FE01      CP      $01
0B0A CA150B    JP      Z,$0B15
0B0D 3A6B0E    LD      A,($0E6B)
0B10 FE3F      CP      $3F
0B12 C2360E    JP      NZ,$0E36
0B15 3A5C00    LD      A,($005C)
0B18 CD8035    CALL    $3580
0B1B 3A8708    LD      A,($0887)
0B1E B7        OR      A
0B1F C2360B    JP      NZ,$0B36
0B22 3A9710    LD      A,($1097)
0B25 E67F      AND     $7F
0B27 C2380B    JP      NZ,$0B38
0B2A 3AAA0E    LD      A,($0EAA)
0B2D E67F      AND     $7F
0B2F C2360B    JP      NZ,$0B36
0B32 3A1C01    LD      A,($011C)
0B35 B7        OR      A
0B36 3E00      LD      A,$00
0B38 F5        PUSH    AF
0B39 C4972F    CALL    NZ,$2F97
0B3C CD7E35    CALL    $357E
0B3F F1        POP     AF
0B40 CA480B    JP      Z,$0B48
0B43 FE0A      CP      $0A
0B45 DCED38    CALL    C,$38ED
0B48 3AEF14    LD      A,($14EF)
0B4B FE01      CP      $01
0B4D 3A6401    LD      A,($0164)
0B50 C2580B    JP      NZ,$0B58
0B53 B7        OR      A
0B54 F2580B    JP      P,$0B58
0B57 3C        INC     A
0B58 E67F      AND     $7F
0B5A 32C52F    LD      ($2FC5),A
0B5D 2AF40F    LD      HL,($0FF4)
0B60 EB        EX      DE,HL
0B61 2AB709    LD      HL,($09B7)
0B64 CD2C2B    CALL    $2B2C
0B67 DA3C0E    JP      C,$0E3C
0B6A 2AF40F    LD      HL,($0FF4)
0B6D 29        ADD     HL,HL
0B6E EB        EX      DE,HL
0B6F 2A2F0A    LD      HL,($0A2F)
0B72 23        INC     HL
0B73 23        INC     HL
0B74 19        ADD     HL,DE
0B75 5E        LD      E,(HL)
0B76 23        INC     HL
0B77 56        LD      D,(HL)
0B78 EB        EX      DE,HL
0B79 E5        PUSH    HL
0B7A 2AF40F    LD      HL,($0FF4)
0B7D 23        INC     HL
0B7E 22F40F    LD      ($0FF4),HL
0B81 E1        POP     HL
0B82 3AEF14    LD      A,($14EF)
0B85 FE01      CP      $01
0B87 C29E0B    JP      NZ,$0B9E
0B8A 3A0E01    LD      A,($010E)
0B8D B7        OR      A
0B8E CAAD0B    JP      Z,$0BAD
0B91 FA9E0B    JP      M,$0B9E
0B94 CD6838    CALL    $3868
0B97 2020      JR      NZ,$0BB9
0B99 20A0      JR      NZ,$0B3B
0B9B C3AD0B    JP      $0BAD
0B9E E5        PUSH    HL
0B9F 2AF40F    LD      HL,($0FF4)
0BA2 0E30      LD      C,$30
0BA4 CDED2F    CALL    $2FED
0BA7 E1        POP     HL
0BA8 3E3D      LD      A,$3D
0BAA CDEF38    CALL    $38EF
0BAD E5        PUSH    HL
0BAE 110A00    LD      DE,$000A
0BB1 19        ADD     HL,DE
0BB2 7E        LD      A,(HL)
0BB3 32D60B    LD      ($0BD6),A
0BB6 23        INC     HL
0BB7 3A7001    LD      A,($0170)
0BBA B7        OR      A
0BBB 7E        LD      A,(HL)
0BBC 32E80B    LD      ($0BE8),A
0BBF E1        POP     HL
0BC0 CAC70B    JP      Z,$0BC7
0BC3 B7        OR      A
0BC4 FC680C    CALL    M,$0C68
0BC7 B7        OR      A
0BC8 3E28      LD      A,$28
0BCA FCEF38    CALL    M,$38EF
0BCD F4ED38    CALL    P,$38ED
0BD0 23        INC     HL
0BD1 23        INC     HL
0BD2 CD180C    CALL    $0C18
0BD5 3E43      LD      A,$43
0BD7 B7        OR      A
0BD8 3E2A      LD      A,$2A
0BDA FCEF38    CALL    M,$38EF
0BDD FAF20B    JP      M,$0BF2
0BE0 3A7001    LD      A,($0170)
0BE3 B7        OR      A
0BE4 C2E90B    JP      NZ,$0BE9
0BE7 3E4F      LD      A,$4F
0BE9 B7        OR      A
0BEA 3E29      LD      A,$29
0BEC FCEF38    CALL    M,$38EF
0BEF F4ED38    CALL    P,$38ED
0BF2 CD610C    CALL    $0C61
0BF5 E5        PUSH    HL
0BF6 D5        PUSH    DE
0BF7 2AB709    LD      HL,($09B7)
0BFA EB        EX      DE,HL
0BFB 2AF40F    LD      HL,($0FF4)
0BFE CD2C2B    CALL    $2B2C
0C01 D1        POP     DE
0C02 E1        POP     HL
0C03 D23C0E    JP      NC,$0E3C
0C06 3AC52F    LD      A,($2FC5)
0C09 3D        DEC     A
0C0A 32C52F    LD      ($2FC5),A
0C0D CA020B    JP      Z,$0B02
0C10 3E7C      LD      A,$7C
0C12 CDEF38    CALL    $38EF
0C15 C35D0B    JP      $0B5D
0C18 E5        PUSH    HL
0C19 D1        POP     DE
0C1A E5        PUSH    HL
0C1B C1        POP     BC
0C1C 3A6B01    LD      A,($016B)
0C1F E60F      AND     $0F
0C21 CA390C    JP      Z,$0C39
0C24 E5        PUSH    HL
0C25 D5        PUSH    DE
0C26 5F        LD      E,A
0C27 1600      LD      D,$00
0C29 19        ADD     HL,DE
0C2A 7E        LD      A,(HL)
0C2B 17        RLA
0C2C DA370C    JP      C,$0C37
0C2F 2B        DEC     HL
0C30 7E        LD      A,(HL)
0C31 17        RLA
0C32 3F        CCF
0C33 D2370C    JP      NC,$0C37
0C36 AF        XOR     A
0C37 D1        POP     DE
0C38 E1        POP     HL
0C39 F5        PUSH    AF
0C3A 3E08      LD      A,$08
0C3C CD510C    CALL    $0C51
0C3F F1        POP     AF
0C40 3E2E      LD      A,$2E
0C42 CA4C0C    JP      Z,$0C4C
0C45 3E3E      LD      A,$3E
0C47 D24C0C    JP      NC,$0C4C
0C4A 3E3C      LD      A,$3C
0C4C CDEF38    CALL    $38EF
0C4F 3E03      LD      A,$03
0C51 F5        PUSH    AF
0C52 7E        LD      A,(HL)
0C53 12        LD      (DE),A
0C54 02        LD      (BC),A
0C55 CDEF38    CALL    $38EF
0C58 23        INC     HL
0C59 13        INC     DE
0C5A 03        INC     BC
0C5B F1        POP     AF
0C5C 3D        DEC     A
0C5D C2510C    JP      NZ,$0C51
0C60 C9        RET
0C61 E5        PUSH    HL
0C62 217801    LD      HL,$0178
0C65 C36C0C    JP      $0C6C
					; ### THIS PRINTS A STRING TO CONSOLE.
					; ### String must be stored starting at 0171
					; ### and 0170 must contain its length-1
					; #############################################
0C68 E5        PUSH    HL		; **1** save HL on stack
0C69 217001    LD      HL,$0170		; load (string address - 1) in it (this should be = (string length-1))
0C6C C5        PUSH    BC		; **2** save BC on stack
0C6D 46        LD      B,(HL)		; load size of string in B
0C6E 23        INC     HL		; increment string pointer <--- <--- <--- <---|
0C6F 05        DEC     B		; decrement counter			      |
0C70 FA820C    JP      M,$0C82		; jump if bit7 of B is 1 ---> --->|	      |
0C73 E5        PUSH    HL		;					      |
0C74 D5        PUSH    DE		;					      |
0C75 C5        PUSH    BC		;					      |
0C76 5E        LD      E,(HL)		;					      |
0C77 0E02      LD      C,$02		;					      |
0C79 CD0500    CALL    $0005		; call BDOS function #2 (Console Output)      |
0C7C C1        POP     BC		;					      |
0C7D D1        POP     DE		;					      |
0C7E E1        POP     HL		;					      |
0C7F C36E0C    JP      $0C6E		; jump ---> ---> ---> ---> ---> ---> ---> --->|
0C82 C1        POP     BC		; **2** restore BC				  |
0C83 E1        POP     HL		; **1** restore HL
0C84 AF        XOR     A		; zero out contents of A
0C85 C9        RET

0C86 5E        LD      E,(HL)
0C87 1C        INC     E
0C88 23        INC     HL
0C89 7E        LD      A,(HL)
0C8A 1D        DEC     E
0C8B C8        RET     Z
0C8C FE5B      CP      $5B
0C8E C2880C    JP      NZ,$0C88
0C91 CD782F    CALL    $2F78
0C94 C8        RET     Z
0C95 FE5D      CP      $5D
0C97 C8        RET     Z
0C98 01910C    LD      BC,$0C91
0C9B C5        PUSH    BC
0C9C CD1638    CALL    $3816
0C9F FE2B      CP      $2B
0CA1 CAD00C    JP      Z,$0CD0
0CA4 FE2D      CP      $2D
0CA6 CAC90C    JP      Z,$0CC9
0CA9 FE22      CP      $22
0CAB CA400D    JP      Z,$0D40
0CAE FE31      CP      $31
0CB0 DAFF0C    JP      C,$0CFF
0CB3 FE3A      CP      $3A
0CB5 D2FF0C    JP      NC,$0CFF
0CB8 E60F      AND     $0F
0CBA 47        LD      B,A
0CBB 3A6401    LD      A,($0164)
0CBE B7        OR      A
0CBF 78        LD      A,B
0CC0 F2C50C    JP      P,$0CC5
0CC3 F680      OR      $80
0CC5 326401    LD      ($0164),A
0CC8 C9        RET
0CC9 CDD80C    CALL    $0CD8
0CCC 325109    LD      ($0951),A
0CCF C9        RET
0CD0 CDD80C    CALL    $0CD8
0CD3 C680      ADD     A,$80
0CD5 C3CC0C    JP      $0CCC
0CD8 23        INC     HL
0CD9 7E        LD      A,(HL)
0CDA CD1638    CALL    $3816
0CDD 0E09      LD      C,$09
0CDF FE52      CP      $52
0CE1 CAFD0C    JP      Z,$0CFD
0CE4 0C        INC     C
0CE5 FE53      CP      $53
0CE7 CAFD0C    JP      Z,$0CFD
0CEA 0C        INC     C
0CEB FE58      CP      $58
0CED CAFD0C    JP      Z,$0CFD
0CF0 FE31      CP      $31
0CF2 DABA3A    JP      C,$3ABA
0CF5 FE39      CP      $39
0CF7 D2BA3A    JP      NC,$3ABA
0CFA E60F      AND     $0F
0CFC C9        RET
0CFD 79        LD      A,C
0CFE C9        RET
0CFF E5        PUSH    HL
0D00 FE56      CP      $56
0D02 CA9A0D    JP      Z,$0D9A
0D05 FE52      CP      $52
0D07 CA620D    JP      Z,$0D62
0D0A FE53      CP      $53
0D0C CA5C0D    JP      Z,$0D5C
0D0F FE54      CP      $54
0D11 CA680D    JP      Z,$0D68
0D14 FE50      CP      $50
0D16 CA560D    JP      Z,$0D56
0D19 FE55      CP      $55
0D1B CA6E0D    JP      Z,$0D6E
0D1E FE58      CP      $58
0D20 CA7A0D    JP      Z,$0D7A
0D23 FE4D      CP      $4D
0D25 CA850D    JP      Z,$0D85
0D28 FE51      CP      $51
0D2A CA940D    JP      Z,$0D94
0D2D FE24      CP      $24
0D2F CA8E0D    JP      Z,$0D8E
0D32 E1        POP     HL
0D33 FE41      CP      $41
0D35 D8        RET     C
0D36 FE45      CP      $45
0D38 D0        RET     NC
0D39 E60F      AND     $0F
0D3B 3D        DEC     A
0D3C 326201    LD      ($0162),A
0D3F C9        RET
0D40 23        INC     HL
0D41 7E        LD      A,(HL)
0D42 FE22      CP      $22
0D44 C8        RET     Z
0D45 B7        OR      A
0D46 2B        DEC     HL
0D47 C8        RET     Z
0D48 23        INC     HL
0D49 FE0E      CP      $0E
0D4B F5        PUSH    AF
0D4C CC6338    CALL    Z,$3863
0D4F F1        POP     AF
0D50 C4EF38    CALL    NZ,$38EF
0D53 C3400D    JP      $0D40
0D56 210501    LD      HL,$0105
0D59 C3A30D    JP      $0DA3
0D5C 216501    LD      HL,$0165
0D5F C3A30D    JP      $0DA3
0D62 216301    LD      HL,$0163
0D65 C3A30D    JP      $0DA3
0D68 216601    LD      HL,$0166
0D6B C3A30D    JP      $0DA3
0D6E CDB70D    CALL    $0DB7
0D71 CAA60D    JP      Z,$0DA6
0D74 218708    LD      HL,$0887
0D77 C3A50D    JP      $0DA5
0D7A 328508    LD      ($0885),A
0D7D 3A5C00    LD      A,($005C)
0D80 32E004    LD      ($04E0),A
0D83 E1        POP     HL
0D84 C9        RET
0D85 216B01    LD      HL,$016B
0D88 7E        LD      A,(HL)
0D89 C680      ADD     A,$80
0D8B C3A50D    JP      $0DA5
0D8E 21F002    LD      HL,$02F0
0D91 C39D0D    JP      $0D9D
0D94 21F910    LD      HL,$10F9
0D97 C3A50D    JP      $0DA5
0D9A 216701    LD      HL,$0167
0D9D CDB70D    CALL    $0DB7
0DA0 CAA50D    JP      Z,$0DA5
0DA3 7E        LD      A,(HL)
0DA4 2F        CPL
0DA5 77        LD      (HL),A
0DA6 E1        POP     HL
0DA7 C9        RET
0DA8 3A0501    LD      A,($0105)
0DAB B7        OR      A
0DAC C8        RET     Z
0DAD 3C        INC     A
0DAE 322039    LD      ($3920),A
0DB1 3E20      LD      A,$20
0DB3 320A39    LD      ($390A),A
0DB6 C9        RET
0DB7 3ABD0D    LD      A,($0DBD)
0DBA B7        OR      A
0DBB C9        RET
0DBC 3E31      LD      A,$31
0DBE FE16      CP      $16
0DC0 DADD0D    JP      C,$0DDD
0DC3 3A5C00    LD      A,($005C)
0DC6 CD300E    CALL    $0E30
0DC9 210100    LD      HL,$0001
0DCC CDD30D    CALL    $0DD3
0DCF C3D304    JP      $04D3
0DD2 29        ADD     HL,HL
0DD3 3D        DEC     A
0DD4 C2D20D    JP      NZ,$0DD2
0DD7 EB        EX      DE,HL
0DD8 0E25      LD      C,$25
0DDA C30500    JP      $0005
0DDD AF        XOR     A
0DDE 327705    LD      ($0577),A
0DE1 CD6838    CALL    $3868
					; ############## DATA AREA ###############
0DE4 0907696E636F72726563742C20666F72206C697374206F6620636F6D6D616E647320656E7465723A	DEFM	"<TAB><BEL>incorrect, for list of commands enter:"
0E0C A0		DEFB	$A0		; '\x20' with bit 7 set
					; ########################################
0E0D AF        XOR     A
0E0E 21D001    LD      HL,$01D0
0E11 23        INC     HL
0E12 BE        CP      (HL)
0E13 C2110E    JP      NZ,$0E11
0E16 2B        DEC     HL
0E17 2B        DEC     HL
0E18 7E        LD      A,(HL)
0E19 FE20      CP      $20
0E1B C2170E    JP      NZ,$0E17
0E1E 23        INC     HL
0E1F 7E        LD      A,(HL)
0E20 B7        OR      A
0E21 CAD304    JP      Z,$04D3
0E24 CDEF38    CALL    $38EF
0E27 C31E0E    JP      $0E1E
0E2A FE3A      CP      $3A
0E2C C8        RET     Z
0E2D FE3B      CP      $3B
0E2F C9        RET

0E30 E60F      AND     $0F
0E32 C0        RET     NZ	; return if drive# is betw 1 and 15
0E33 3E10      LD      A,$10	; if not, make drive#=$10
0E35 C9        RET

0E36 210100    LD      HL,$0001
0E39 22F40F    LD      ($0FF4),HL
0E3C 3AEF14    LD      A,($14EF)
0E3F FE01      CP      $01
0E41 C24D0E    JP      NZ,$0E4D
0E44 CD8408    CALL    $0884
0E47 CAD304    JP      Z,$04D3
0E4A C35B08    JP      $085B
0E4D 2A771E    LD      HL,($1E77)
0E50 23        INC     HL
0E51 22771E    LD      ($1E77),HL
0E54 E5        PUSH    HL
0E55 2AF40F    LD      HL,($0FF4)
0E58 2B        DEC     HL
0E59 7D        LD      A,L
0E5A B4        OR      H
0E5B E1        POP     HL
0E5C C2710E    JP      NZ,$0E71
0E5F 23        INC     HL
0E60 3601      LD      (HL),$01
0E62 23        INC     HL
0E63 3631      LD      (HL),$31
0E65 23        INC     HL
0E66 3620      LD      (HL),$20
0E68 23        INC     HL
0E69 77        LD      (HL),A
0E6A 3E4D      LD      A,$4D
0E6C FE3F      CP      $3F
0E6E C29F0E    JP      NZ,$0E9F
0E71 CDA80D    CALL    $0DA8
0E74 3E70      LD      A,$70
0E76 FE2A      CP      $2A
0E78 C2900E    JP      NZ,$0E90
0E7B 2A771E    LD      HL,($1E77)
0E7E 23        INC     HL
0E7F 3602      LD      (HL),$02
0E81 23        INC     HL
0E82 3631      LD      (HL),$31
0E84 23        INC     HL
0E85 362D      LD      (HL),$2D
0E87 23        INC     HL
0E88 3620      LD      (HL),$20
0E8A 23        INC     HL
0E8B 3600      LD      (HL),$00
0E8D C39F0E    JP      $0E9F
0E90 CD6838    CALL    $3868
					; ############## DATA AREA ###############
0E93 0D73656C6563743F	DEFM	"<CR>select?"
0E9B A0		DEFB	$A0		; '\x20' with bit 7 set
					; ########################################
0E9C CD0336    CALL    $3603
0E9F 2A771E    LD      HL,($1E77)
0EA2 23        INC     HL
0EA3 7E        LD      A,(HL)
0EA4 2B        DEC     HL
0EA5 B7        OR      A
0EA6 CAD304    JP      Z,$04D3
0EA9 3E80      LD      A,$80
0EAB 32681E    LD      ($1E68),A
0EAE 3AEF14    LD      A,($14EF)
0EB1 FE02      CP      $02
0EB3 C2480F    JP      NZ,$0F48
0EB6 3E00      LD      A,$00
0EB8 B7        OR      A
0EB9 C2DC0E    JP      NZ,$0EDC
0EBC CD6838    CALL    $3868
					; ############## DATA AREA ###############
0EBF 0D0D64657374696E6174696F6E20647269766520	DEFM	"<CR><CR>destination drive "
0ED3 BA		DEFB	$BA		; '\x3A' with bit 7 set (':')
					; ########################################
0ED4 CD1038    CALL    $3810
0ED7 FE0D      CP      $0D
0ED9 CAD304    JP      Z,$04D3
0EDC CD300E    CALL    $0E30
0EDF 322A3B    LD      ($3B2A),A
0EE2 5F        LD      E,A
0EE3 215C00    LD      HL,$005C
0EE6 56        LD      D,(HL)
0EE7 73        LD      (HL),E
0EE8 D5        PUSH    DE
0EE9 CD4E30    CALL    $304E
0EEC D1        POP     DE
0EED 3AF308    LD      A,($08F3)
0EF0 B7        OR      A
0EF1 C23F31    JP      NZ,$313F
0EF4 72        LD      (HL),D
0EF5 7A        LD      A,D
0EF6 BB        CP      E
0EF7 C2660F    JP      NZ,$0F66
0EFA 3AF910    LD      A,($10F9)
0EFD B7        OR      A
0EFE C2660F    JP      NZ,$0F66
0F01 3A9710    LD      A,($1097)
0F04 5F        LD      E,A
0F05 3A681E    LD      A,($1E68)
0F08 BB        CP      E
0F09 C22A0F    JP      NZ,$0F2A
0F0C CD6838    CALL    $3868
					; ############## DATA AREA ###############
0F0F 0302636F707920746F2073616D652064726976	DEFM	"\x03\x02copy to same driv"
0F22 E5		DEFB	$E5		; '\x65' with bit 7 set ('e')
					; ########################################
0F23 AF        XOR     A
0F24 32B70E    LD      ($0EB7),A
0F27 C3AE0E    JP      $0EAE
0F2A CD6838    CALL    $3868
					; ############## DATA AREA ###############
0F2D 0D2843296F7079206F7220284D296F7665		DEFM	"<CR>(C)opy or (M)ove"
0F3E BA		DEFB	$BA		; '\x3A' with bit 7 set (':')
					; ########################################
0F3F CD1038    CALL    $3810
0F42 32C51D    LD      ($1DC5),A
0F45 C3660F    JP      $0F66
0F48 F5        PUSH    AF
0F49 AF        XOR     A
0F4A 322A3B    LD      ($3B2A),A
0F4D 32F910    LD      ($10F9),A
0F50 F1        POP     AF
0F51 FE04      CP      $04
0F53 C2660F    JP      NZ,$0F66
0F56 CD6838    CALL    $3868
					; ############## DATA AREA ###############
0F59 0D0745524153 	DEFM	"<CR><BEL>ERAS"
0F5F C5		DEFB	$C5		; '\x45' with bit 7 set ('E')
					; ########################################
0F60 CD1B1C    CALL    $1C1B
0F63 C2D304    JP      NZ,$04D3
0F66 CD6338    CALL    $3863
0F69 CDA80D    CALL    $0DA8
0F6C 3AEF14    LD      A,($14EF)
0F6F FE02      CP      $02
0F71 C2770F    JP      NZ,$0F77
0F74 320A39    LD      ($390A),A
0F77 3A2A3B    LD      A,($3B2A)
0F7A B7        OR      A
0F7B C2810F    JP      NZ,$0F81
0F7E 3A063B    LD      A,($3B06)
0F81 F5        PUSH    AF
0F82 CD9E32    CALL    $329E
0F85 2A771E    LD      HL,($1E77)
0F88 23        INC     HL
0F89 23        INC     HL
0F8A 229D0F    LD      ($0F9D),HL
0F8D AF        XOR     A
0F8E 6F        LD      L,A
0F8F 67        LD      H,A
0F90 320210    LD      ($1002),A
0F93 220F10    LD      ($100F),HL
0F96 225610    LD      ($1056),HL
0F99 224A10    LD      ($104A),HL
0F9C 218C3B    LD      HL,$3B8C
0F9F CD792F    CALL    $2F79
0FA2 229D0F    LD      ($0F9D),HL
0FA5 CA7C10    JP      Z,$107C
0FA8 110000    LD      DE,$0000
0FAB EB        EX      DE,HL
0FAC 1A        LD      A,(DE)
0FAD D630      SUB     $30
0FAF A7        AND     A
0FB0 FAE20F    JP      M,$0FE2
0FB3 FE0A      CP      $0A
0FB5 3F        CCF
0FB6 DACF0F    JP      C,$0FCF
0FB9 13        INC     DE
0FBA 29        ADD     HL,HL
0FBB E5        PUSH    HL
0FBC 29        ADD     HL,HL
0FBD 29        ADD     HL,HL
0FBE C1        POP     BC
0FBF 09        ADD     HL,BC
0FC0 4F        LD      C,A
0FC1 0600      LD      B,$00
0FC3 09        ADD     HL,BC
0FC4 C3AC0F    JP      $0FAC
0FC7 3EFF      LD      A,$FF
0FC9 32D00F    LD      ($0FD0),A
0FCC C3A80F    JP      $0FA8
0FCF 3EFF      LD      A,$FF
0FD1 3C        INC     A
0FD2 C8        RET     Z
0FD3 EB        EX      DE,HL
0FD4 23        INC     HL
0FD5 7E        LD      A,(HL)
0FD6 B7        OR      A
0FD7 CA7C10    JP      Z,$107C
0FDA FE20      CP      $20
0FDC C2D40F    JP      NZ,$0FD4
0FDF C39F0F    JP      $0F9F
0FE2 3AD00F    LD      A,($0FD0)
0FE5 3C        INC     A
0FE6 C8        RET     Z
0FE7 3A681E    LD      A,($1E68)
0FEA B7        OR      A
0FEB FAEF0F    JP      M,$0FEF
0FEE C0        RET     NZ
0FEF EB        EX      DE,HL
0FF0 1B        DEC     DE
0FF1 E5        PUSH    HL
0FF2 D5        PUSH    DE
0FF3 210200    LD      HL,$0002
0FF6 CD2C2B    CALL    $2B2C
0FF9 D1        POP     DE
0FFA E1        POP     HL
0FFB 229D0F    LD      ($0F9D),HL
0FFE DAD40F    JP      C,$0FD4
1001 3E00      LD      A,$00
1003 FE2D      CP      $2D
1005 C21210    JP      NZ,$1012
1008 EB        EX      DE,HL
1009 23        INC     HL
100A 225610    LD      ($1056),HL
100D EB        EX      DE,HL
100E 111200    LD      DE,$0012
1011 13        INC     DE
1012 CD792F    CALL    $2F79
1015 7E        LD      A,(HL)
1016 320210    LD      ($1002),A
1019 FE2D      CP      $2D
101B C22F10    JP      NZ,$102F
101E CD782F    CALL    $2F78
1021 229D0F    LD      ($0F9D),HL
1024 C22F10    JP      NZ,$102F
1027 E5        PUSH    HL
1028 2AF40F    LD      HL,($0FF4)
102B 225610    LD      ($1056),HL
102E E1        POP     HL
102F EB        EX      DE,HL
1030 220F10    LD      ($100F),HL
1033 EB        EX      DE,HL
1034 13        INC     DE
1035 6B        LD      L,E
1036 62        LD      H,D
1037 29        ADD     HL,HL
1038 EB        EX      DE,HL
1039 2A2F0A    LD      HL,($0A2F)
103C 19        ADD     HL,DE
103D 5E        LD      E,(HL)
103E 23        INC     HL
103F 56        LD      D,(HL)
1040 EB        EX      DE,HL
1041 23        INC     HL
1042 7E        LD      A,(HL)
1043 2B        DEC     HL
1044 B6        OR      (HL)
1045 C25510    JP      NZ,$1055
1048 E5        PUSH    HL
1049 210100    LD      HL,$0001
104C 23        INC     HL
104D 224A10    LD      ($104A),HL
1050 EB        EX      DE,HL
1051 E1        POP     HL
1052 73        LD      (HL),E
1053 23        INC     HL
1054 72        LD      (HL),D
1055 210000    LD      HL,$0000
1058 7D        LD      A,L
1059 B4        OR      H
105A CA9C0F    JP      Z,$0F9C
105D EB        EX      DE,HL
105E 2A0F10    LD      HL,($100F)
1061 23        INC     HL
1062 220F10    LD      ($100F),HL
1065 E5        PUSH    HL
1066 CD2C2B    CALL    $2B2C
1069 E1        POP     HL
106A 5D        LD      E,L
106B 54        LD      D,H
106C DA3410    JP      C,$1034
106F 2B        DEC     HL
1070 220F10    LD      ($100F),HL
1073 210000    LD      HL,$0000
1076 225610    LD      ($1056),HL
1079 C39C0F    JP      $0F9C
107C 3A681E    LD      A,($1E68)
107F B7        OR      A
1080 FA8410    JP      M,$1084
1083 C0        RET     NZ
1084 210000    LD      HL,$0000
1087 22291A    LD      ($1A29),HL
108A 2C        INC     L
108B 22F40F    LD      ($0FF4),HL
108E 2A2F0A    LD      HL,($0A2F)
1091 23        INC     HL
1092 23        INC     HL
1093 22771E    LD      ($1E77),HL
1096 3E80      LD      A,$80
1098 B7        OR      A
1099 C4FE32    CALL    NZ,$32FE
109C 2A0E03    LD      HL,($030E)
109F CD6338    CALL    $3863
10A2 010D00    LD      BC,$000D
10A5 C3A910    JP      $10A9
10A8 09        ADD     HL,BC
10A9 23        INC     HL
10AA 7E        LD      A,(HL)
10AB 56        LD      D,(HL)
10AC 3C        INC     A
10AD CAD304    JP      Z,$04D3
10B0 2B        DEC     HL
10B1 5E        LD      E,(HL)
10B2 E5        PUSH    HL
10B3 2AF40F    LD      HL,($0FF4)
10B6 E5        PUSH    HL
10B7 CD2C2B    CALL    $2B2C
10BA 7C        LD      A,H
10BB B5        OR      L
10BC D1        POP     DE
10BD E1        POP     HL
10BE C2A810    JP      NZ,$10A8
10C1 23        INC     HL
10C2 77        LD      (HL),A
10C3 2B        DEC     HL
10C4 77        LD      (HL),A
10C5 E5        PUSH    HL
10C6 EB        EX      DE,HL
10C7 23        INC     HL
10C8 22F40F    LD      ($0FF4),HL
10CB E1        POP     HL
10CC 3A2A3B    LD      A,($3B2A)
10CF B7        OR      A
10D0 CADC10    JP      Z,$10DC
10D3 CD8035    CALL    $3580
10D6 CD6838    CALL    $3868
10D9 183A      JR      $1115
10DB BD        CP      L
10DC 3A5C00    LD      A,($005C)
10DF CD7B35    CALL    $357B
10E2 11073B    LD      DE,$3B07
10E5 012B3B    LD      BC,$3B2B
10E8 23        INC     HL
10E9 23        INC     HL
10EA CD1C0C    CALL    $0C1C
10ED 2E18      LD      L,$18
10EF AF        XOR     A
10F0 02        LD      (BC),A
10F1 12        LD      (DE),A
10F2 03        INC     BC
10F3 13        INC     DE
10F4 2D        DEC     L
10F5 C2F010    JP      NZ,$10F0
10F8 3E00      LD      A,$00
10FA B7        OR      A
10FB CA7611    JP      Z,$1176
10FE 212B3B    LD      HL,$3B2B
1101 060B      LD      B,$0B
1103 363F      LD      (HL),$3F
1105 23        INC     HL
1106 05        DEC     B
1107 C20311    JP      NZ,$1103
110A CD6838    CALL    $3868
					; ############## DATA AREA ###############
110D 096E6577206E616D65		DEFM	"<TAB>new name"
1116 BA		DEFB	$BA		; '\x3A' with bit 7 set (':')
					; ########################################
1117 CD0336    CALL    $3603
111A 2A771E    LD      HL,($1E77)
111D 23        INC     HL
111E CD782F    CALL    $2F78
1121 CA4311    JP      Z,$1143
1124 CDF321    CALL    $21F3
1127 C23D11    JP      NZ,$113D
112A CD6838    CALL    $3868
					; ############## DATA AREA ###############
112D 0720426164206E616D650D09	DEFM	"<BEL> Bad name<CR><TAB>"
1139 89		DEFB	$89		; '\x09' with bit 7 set ('TAB')
					; ########################################
113A C30A11    JP      $110A
113D 012A3B    LD      BC,$3B2A
1140 CDAC21    CALL    $21AC
1143 CD6838    CALL    $3868
1146 0D        DEC     C
1147 2020      JR      NZ,$1169
1149 2020      JR      NZ,$116B
114B A0        AND     B
114C 11073B    LD      DE,$3B07
114F 212B3B    LD      HL,$3B2B
1152 060B      LD      B,$0B
1154 7E        LD      A,(HL)
1155 FE3F      CP      $3F
1157 C25B11    JP      NZ,$115B
115A 1A        LD      A,(DE)
115B CDEF38    CALL    $38EF
115E 4F        LD      C,A
115F 1A        LD      A,(DE)
1160 B7        OR      A
1161 79        LD      A,C
1162 F26711    JP      P,$1167
1165 F680      OR      $80
1167 77        LD      (HL),A
1168 13        INC     DE
1169 23        INC     HL
116A 78        LD      A,B
116B FE04      CP      $04
116D 3E2E      LD      A,$2E
116F CCEF38    CALL    Z,$38EF
1172 05        DEC     B
1173 C25411    JP      NZ,$1154
1176 21333B    LD      HL,$3B33
1179 11F43A    LD      DE,$3AF4
117C 0603      LD      B,$03
117E CDBC37    CALL    $37BC
1181 3AEF14    LD      A,($14EF)
1184 FE03      CP      $03
1186 CA9311    JP      Z,$1193
1189 3A6301    LD      A,($0163)
118C B7        OR      A
118D C41B1C    CALL    NZ,$1C1B
1190 C29610    JP      NZ,$1096
1193 11063B    LD      DE,$3B06
1196 3AEF14    LD      A,($14EF)
1199 FE18      CP      $18
119B CA7419    JP      Z,$1974
119E FE0B      CP      $0B
11A0 C4D631    CALL    NZ,$31D6
11A3 3A2A3B    LD      A,($3B2A)
11A6 B7        OR      A
11A7 C2AD1C    JP      NZ,$1CAD
11AA 67        LD      H,A
11AB 6F        LD      L,A
11AC 32C52F    LD      ($2FC5),A
11AF 227B1F    LD      ($1F7B),HL
11B2 21F000    LD      HL,$00F0
11B5 223C1E    LD      ($1E3C),HL
11B8 CDC631    CALL    $31C6
11BB 11063B    LD      DE,$3B06
11BE 210F3B    LD      HL,$3B0F
11C1 3AEF14    LD      A,($14EF)
11C4 4F        LD      C,A
11C5 FE04      CP      $04
11C7 CA441A    JP      Z,$1A44
11CA FE0C      CP      $0C
11CC CA6513    JP      Z,$1365
11CF FE0B      CP      $0B
11D1 CA601B    JP      Z,$1B60
11D4 FE03      CP      $03
11D6 CA791A    JP      Z,$1A79
11D9 FE11      CP      $11
11DB CA7E1C    JP      Z,$1C7E
11DE FE14      CP      $14
11E0 CA9B1C    JP      Z,$1C9B
11E3 FE15      CP      $15
11E5 CAA11C    JP      Z,$1CA1
11E8 23        INC     HL
11E9 FE13      CP      $13
11EB CA9B1C    JP      Z,$1C9B
11EE FE12      CP      $12
11F0 CAA11C    JP      Z,$1CA1
11F3 FE09      CP      $09
11F5 C25713    JP      NZ,$1357
11F8 D5        PUSH    DE
11F9 CD6338    CALL    $3863
11FC CD601B    CALL    $1B60
11FF D1        POP     DE
1200 CD1033    CALL    $3310
1203 2A273B    LD      HL,($3B27)
1206 EB        EX      DE,HL
1207 2AEA06    LD      HL,($06EA)
120A 24        INC     H
120B D5        PUSH    DE
120C E5        PUSH    HL
120D EB        EX      DE,HL
120E 21FF12    LD      HL,$12FF
1211 3A7525    LD      A,($2575)
1214 324813    LD      ($1348),A
1217 065F      LD      B,$5F
1219 CDBC37    CALL    $37BC
121C E1        POP     HL
121D E5        PUSH    HL
121E 2E16      LD      L,$16
1220 3600      LD      (HL),$00
1222 23        INC     HL
1223 74        LD      (HL),H
1224 2E2B      LD      L,$2B
1226 3625      LD      (HL),$25
1228 23        INC     HL
1229 74        LD      (HL),H
122A 2E3E      LD      L,$3E
122C 3638      LD      (HL),$38
122E 23        INC     HL
122F 74        LD      (HL),H
1230 E1        POP     HL
1231 D1        POP     DE
1232 E5        PUSH    HL
1233 D5        PUSH    DE
1234 25        DEC     H
1235 25        DEC     H
1236 0E80      LD      C,$80
1238 CD401C    CALL    $1C40
123B D1        POP     DE
123C CD2C2B    CALL    $2B2C
123F DA5E2F    JP      C,$2F5E
1242 AF        XOR     A
1243 32D01A    LD      ($1AD0),A
1246 E1        POP     HL
1247 25        DEC     H
1248 7E        LD      A,(HL)
1249 B7        OR      A
124A C4782F    CALL    NZ,$2F78
124D CA6212    JP      Z,$1262
1250 23        INC     HL
1251 7E        LD      A,(HL)
1252 2B        DEC     HL
1253 CD2A0E    CALL    $0E2A
1256 C26212    JP      NZ,$1262
1259 7E        LD      A,(HL)
125A CD300E    CALL    $0E30
125D 326A12    LD      ($126A),A
1260 23        INC     HL
1261 23        INC     HL
1262 3AEB06    LD      A,($06EB)
1265 3C        INC     A
1266 47        LD      B,A
1267 0E80      LD      C,$80
1269 3E00      LD      A,$00
126B 02        LD      (BC),A
126C CDAC21    CALL    $21AC
126F AF        XOR     A
1270 1E05      LD      E,$05
1272 02        LD      (BC),A
1273 03        INC     BC
1274 1D        DEC     E
1275 C27212    JP      NZ,$1272
1278 CD782F    CALL    $2F78
127B 0B        DEC     BC
127C 23        INC     HL
127D 7E        LD      A,(HL)
127E 2B        DEC     HL
127F CA8F12    JP      Z,$128F
1282 CD2A0E    CALL    $0E2A
1285 C28F12    JP      NZ,$128F
1288 7E        LD      A,(HL)
1289 CD300E    CALL    $0E30
128C 02        LD      (BC),A
128D 23        INC     HL
128E 23        INC     HL
128F CDAC21    CALL    $21AC
1292 AF        XOR     A
1293 1E05      LD      E,$05
1295 02        LD      (BC),A
1296 03        INC     BC
1297 1D        DEC     E
1298 C29512    JP      NZ,$1295
129B 21063B    LD      HL,$3B06
129E 115C00    LD      DE,$005C
12A1 CDBA37    CALL    $37BA
12A4 3AF002    LD      A,($02F0)
12A7 B7        OR      A
12A8 FAE412    JP      M,$12E4
12AB C2B112    JP      NZ,$12B1
12AE 3A7525    LD      A,($2575)
12B1 21D03A    LD      HL,$3AD0
12B4 77        LD      (HL),A
12B5 112A3B    LD      DE,$3B2A
12B8 D5        PUSH    DE
12B9 CDBA37    CALL    $37BA
12BC D1        POP     DE
12BD CD1033    CALL    $3310
12C0 CD9F31    CALL    $319F
12C3 C2E412    JP      NZ,$12E4
12C6 CDAF31    CALL    $31AF
12C9 21F002    LD      HL,$02F0
12CC 54        LD      D,H
12CD 5D        LD      E,L
12CE 06FF      LD      B,$FF
12D0 23        INC     HL
12D1 7E        LD      A,(HL)
12D2 04        INC     B
12D3 B7        OR      A
12D4 C2D012    JP      NZ,$12D0
12D7 78        LD      A,B
12D8 32F002    LD      ($02F0),A
12DB CDC931    CALL    $31C9
12DE CD8535    CALL    $3585
12E1 CDF131    CALL    $31F1
12E4 115C00    LD      DE,$005C
12E7 CDD631    CALL    $31D6
12EA 2AEA06    LD      HL,($06EA)
12ED 24        INC     H
12EE 24        INC     H
12EF F9        LD      SP,HL
12F0 210000    LD      HL,$0000
12F3 E5        PUSH    HL
12F4 2AEA06    LD      HL,($06EA)
12F7 24        INC     H
12F8 110001    LD      DE,$0100
12FB CDB01F    CALL    $1FB0
12FE E9        JP      (HL)
12FF D5        PUSH    DE
1300 0E1A      LD      C,$1A
1302 CD0500    CALL    $0005
1305 115C00    LD      DE,$005C
1308 0E14      LD      C,$14
130A CD0500    CALL    $0005
130D D1        POP     DE
130E 218000    LD      HL,$0080
1311 19        ADD     HL,DE
1312 EB        EX      DE,HL
1313 B7        OR      A
1314 CAFF12    JP      Z,$12FF
1317 2100C2    LD      HL,$C200
131A 2E00      LD      L,$00
131C 25        DEC     H
131D 25        DEC     H
131E 7E        LD      A,(HL)
131F 118000    LD      DE,$0080
1322 12        LD      (DE),A
1323 47        LD      B,A
1324 23        INC     HL
1325 13        INC     DE
1326 7E        LD      A,(HL)
1327 12        LD      (DE),A
1328 05        DEC     B
1329 F22413    JP      P,$1324
132C 210000    LD      HL,$0000
132F 2E80      LD      L,$80
1331 25        DEC     H
1332 115C00    LD      DE,$005C
1335 0624      LD      B,$24
1337 7E        LD      A,(HL)
1338 12        LD      (DE),A
1339 23        INC     HL
133A 13        INC     DE
133B 05        DEC     B
133C C23713    JP      NZ,$1337
133F 118000    LD      DE,$0080
1342 0E1A      LD      C,$1A
1344 CD0500    CALL    $0005
1347 1E00      LD      E,$00
1349 1D        DEC     E
134A 0E0E      LD      C,$0E
134C CD0500    CALL    $0005
134F C30001    JP      $0100
1352 3AFD3A    LD      A,($3AFD)
1355 B7        OR      A
1356 C9        RET
1357 CD6838    CALL    $3868
135A 0D        DEC     C
135B 8D        ADC     A,L
135C 2A3C1E    LD      HL,($1E3C)
135F 7D        LD      A,L
1360 E60F      AND     $0F
1362 322F15    LD      ($152F),A
1365 3AEF14    LD      A,($14EF)
1368 B7        OR      A
1369 F27113    JP      P,$1371
136C E67F      AND     $7F
136E C30F14    JP      $140F
1371 11063B    LD      DE,$3B06
1374 CD1132    CALL    $3211
1377 B7        OR      A
1378 C2F619    JP      NZ,$19F6
137B 3AEF14    LD      A,($14EF)
137E FE05      CP      $05
1380 CA0414    JP      Z,$1404
1383 FE0C      CP      $0C
1385 CA0414    JP      Z,$1404
1388 3A0C01    LD      A,($010C)
138B B7        OR      A
138C CA0414    JP      Z,$1404
138F 3A263B    LD      A,($3B26)
1392 3D        DEC     A
1393 6F        LD      L,A
1394 2600      LD      H,$00
1396 3AFA3A    LD      A,($3AFA)
1399 3C        INC     A
139A 4F        LD      C,A
139B CD401C    CALL    $1C40
139E 7B        LD      A,E
139F 32D132    LD      ($32D1),A
13A2 3AFB3A    LD      A,($3AFB)
13A5 4F        LD      C,A
13A6 3A123B    LD      A,($3B12)
13A9 A1        AND     C
13AA 4F        LD      C,A
13AB 45        LD      B,L
13AC 21163B    LD      HL,$3B16
13AF CABC13    JP      Z,$13BC
13B2 3E10      LD      A,$10
13B4 B7        OR      A
13B5 1F        RRA
13B6 0D        DEC     C
13B7 C2B413    JP      NZ,$13B4
13BA 80        ADD     A,B
13BB 47        LD      B,A
13BC 05        DEC     B
13BD FACB13    JP      M,$13CB
13C0 23        INC     HL
13C1 CD5213    CALL    $1352
13C4 CABC13    JP      Z,$13BC
13C7 23        INC     HL
13C8 C3BC13    JP      $13BC
13CB 7E        LD      A,(HL)
13CC 5E        LD      E,(HL)
13CD 320A34    LD      ($340A),A
13D0 CD5213    CALL    $1352
13D3 57        LD      D,A
13D4 CAD913    JP      Z,$13D9
13D7 23        INC     HL
13D8 56        LD      D,(HL)
13D9 7A        LD      A,D
13DA 320B34    LD      ($340B),A
13DD CDC632    CALL    $32C6
13E0 CD0827    CALL    $2708
13E3 CD6838    CALL    $3868
13E6 0D        DEC     C
13E7 0D        DEC     C
13E8 8D        ADC     A,L
13E9 CDF628    CALL    $28F6
13EC CDED38    CALL    $38ED
13EF 21063B    LD      HL,$3B06
13F2 7E        LD      A,(HL)
13F3 CD7B35    CALL    $357B
13F6 23        INC     HL
13F7 CD180C    CALL    $0C18
13FA CDED38    CALL    $38ED
13FD 7E        LD      A,(HL)
13FE CDB42F    CALL    $2FB4
1401 CD6338    CALL    $3863
1404 218000    LD      HL,$0080
1407 3AEF14    LD      A,($14EF)
140A FE0C      CP      $0C
140C CA8815    JP      Z,$1588
140F F5        PUSH    AF
1410 FE06      CP      $06
1412 CA1C14    JP      Z,$141C
1415 FE07      CP      $07
1417 CA1C14    JP      Z,$141C
141A FE08      CP      $08
141C CC8914    CALL    Z,$1489
141F F1        POP     AF
1420 FE06      CP      $06
1422 CAC214    JP      Z,$14C2
1425 FE07      CP      $07
1427 CAC214    JP      Z,$14C2
142A FE08      CP      $08
142C CA3C14    JP      Z,$143C
142F FE05      CP      $05
1431 CA3A15    JP      Z,$153A
1434 3E06      LD      A,$06
1436 32EF14    LD      ($14EF),A
1439 C30F14    JP      $140F
143C 7E        LD      A,(HL)
143D CDA021    CALL    $21A0
1440 DABA14    JP      C,$14BA
1443 CD5015    CALL    $1550
1446 CD6314    CALL    $1463
1449 3AEF14    LD      A,($14EF)
144C E67F      AND     $7F
144E FE06      CP      $06
1450 C23C14    JP      NZ,$143C
1453 7D        LD      A,L
1454 E60F      AND     $0F
1456 CABF14    JP      Z,$14BF
1459 3A1801    LD      A,($0118)
145C 3D        DEC     A
145D CCED38    CALL    Z,$38ED
1460 C33C14    JP      $143C
1463 3AEF14    LD      A,($14EF)
1466 E67F      AND     $7F
1468 FE06      CP      $06
146A C8        RET     Z
146B 3A1801    LD      A,($0118)
146E 3D        DEC     A
146F CA8514    JP      Z,$1485
1472 CDED38    CALL    $38ED
1475 3AEF14    LD      A,($14EF)
1478 E67F      AND     $7F
147A FE07      CP      $07
147C C28514    JP      NZ,$1485
147F 7D        LD      A,L
1480 E603      AND     $03
1482 CCED38    CALL    Z,$38ED
1485 7D        LD      A,L
1486 E60F      AND     $0F
1488 C0        RET     NZ
1489 CD6338    CALL    $3863
148C 3AEF14    LD      A,($14EF)
148F B7        OR      A
1490 F29914    JP      P,$1499
1493 22A82C    LD      ($2CA8),HL
1496 C3A614    JP      $14A6
1499 E5        PUSH    HL
149A 2A3C1E    LD      HL,($1E3C)
149D D5        PUSH    DE
149E 111000    LD      DE,$0010
14A1 19        ADD     HL,DE
14A2 D1        POP     DE
14A3 223C1E    LD      ($1E3C),HL
14A6 CDBA2F    CALL    $2FBA
14A9 AF        XOR     A
14AA 32C52F    LD      ($2FC5),A
14AD CD7E35    CALL    $357E
14B0 CDED38    CALL    $38ED
14B3 3AEF14    LD      A,($14EF)
14B6 B7        OR      A
14B7 F8        RET     M
14B8 E1        POP     HL
14B9 C9        RET
14BA 3E2E      LD      A,$2E
14BC C34314    JP      $1443
14BF CD8914    CALL    $1489
14C2 7E        LD      A,(HL)
14C3 E5        PUSH    HL
14C4 CDB42F    CALL    $2FB4
14C7 E1        POP     HL
14C8 3AEF14    LD      A,($14EF)
14CB E67F      AND     $7F
14CD FE06      CP      $06
14CF CADB14    JP      Z,$14DB
14D2 CD5315    CALL    $1553
14D5 CD6314    CALL    $1463
14D8 C3C214    JP      $14C2
14DB 3A1801    LD      A,($0118)
14DE 3D        DEC     A
14DF CAED14    JP      Z,$14ED
14E2 3C        INC     A
14E3 CCED38    CALL    Z,$38ED
14E6 7D        LD      A,L
14E7 3C        INC     A
14E8 E603      AND     $03
14EA CCED38    CALL    Z,$38ED
14ED 23        INC     HL
14EE 3E1D      LD      A,$1D
14F0 B7        OR      A
14F1 F21015    JP      P,$1510
14F4 1B        DEC     DE
14F5 7A        LD      A,D
14F6 B3        OR      E
14F7 C21015    JP      NZ,$1510
14FA D5        PUSH    DE
14FB 7D        LD      A,L
14FC E60F      AND     $0F
14FE CA1615    JP      Z,$1516
1501 7D        LD      A,L
1502 EE10      XOR     $10
1504 E60F      AND     $0F
1506 2F        CPL
1507 E60F      AND     $0F
1509 3C        INC     A
150A 5F        LD      E,A
150B 19        ADD     HL,DE
150C D1        POP     DE
150D C31615    JP      $1516
1510 7D        LD      A,L
1511 E60F      AND     $0F
1513 C2C214    JP      NZ,$14C2
1516 3A1801    LD      A,($0118)
1519 3D        DEC     A
151A C22615    JP      NZ,$1526
151D CD6838    CALL    $3868
1520 0D        DEC     C
1521 2D        DEC     L
1522 2D        DEC     L
1523 2D        DEC     L
1524 2D        DEC     L
1525 BA        CP      D
1526 CDED38    CALL    $38ED
1529 D5        PUSH    DE
152A 11F0FF    LD      DE,$FFF0
152D 19        ADD     HL,DE
152E 1E00      LD      E,$00
1530 AF        XOR     A
1531 57        LD      D,A
1532 322F15    LD      ($152F),A
1535 19        ADD     HL,DE
1536 D1        POP     DE
1537 C33C14    JP      $143C
153A 7E        LD      A,(HL)
153B FE1A      CP      $1A
153D CA4615    JP      Z,$1546
1540 CD5015    CALL    $1550
1543 C33A15    JP      $153A
1546 3AEF14    LD      A,($14EF)
1549 B7        OR      A
154A F29610    JP      P,$1096
154D C3D304    JP      $04D3
1550 CDEF38    CALL    $38EF
1553 23        INC     HL
1554 3AEF14    LD      A,($14EF)
1557 B7        OR      A
1558 F26E15    JP      P,$156E
155B E5        PUSH    HL
155C 2A7B1F    LD      HL,($1F7B)
155F 2B        DEC     HL
1560 227B1F    LD      ($1F7B),HL
1563 7C        LD      A,H
1564 B5        OR      L
1565 EB        EX      DE,HL
1566 E1        POP     HL
1567 C0        RET     NZ
1568 22A82C    LD      ($2CA8),HL
156B C3D304    JP      $04D3
156E 3A8215    LD      A,($1582)
1571 B7        OR      A
1572 C27D15    JP      NZ,$157D
1575 3A0601    LD      A,($0106)
1578 FE0D      CP      $0D
157A CAEC19    JP      Z,$19EC
157D 7D        LD      A,L
157E B7        OR      A
157F C0        RET     NZ
1580 E1        POP     HL
1581 3E00      LD      A,$00
1583 B7        OR      A
1584 C0        RET     NZ
1585 C36513    JP      $1365
1588 7E        LD      A,(HL)
1589 32C52F    LD      ($2FC5),A
158C E5        PUSH    HL
158D 2A7B1F    LD      HL,($1F7B)
1590 7C        LD      A,H
1591 E680      AND     $80
1593 F5        PUSH    AF
1594 29        ADD     HL,HL
1595 3AC52F    LD      A,($2FC5)
1598 85        ADD     A,L
1599 6F        LD      L,A
159A F1        POP     AF
159B CAA615    JP      Z,$15A6
159E 7C        LD      A,H
159F EEA0      XOR     $A0
15A1 67        LD      H,A
15A2 7D        LD      A,L
15A3 EE97      XOR     $97
15A5 6F        LD      L,A
15A6 227B1F    LD      ($1F7B),HL
15A9 E1        POP     HL
15AA 3AEF14    LD      A,($14EF)
15AD B7        OR      A
15AE C8        RET     Z
15AF CDC537    CALL    $37C5
15B2 CD5315    CALL    $1553
15B5 C38815    JP      $1588
15B8 CD792F    CALL    $2F79
15BB CD1638    CALL    $3816
15BE 325816    LD      ($1658),A
15C1 CD4E30    CALL    $304E
15C4 CD6838    CALL    $3868
					; ############## DATA AREA ###############
15C7 0305636865636B73756D20262074657374	DEFM	"\x03\x05checksum & test"
15D8 8D		DEFB	$8D		; '\x0D' with bit 7 set ('CR')
					; ########################################
15D9 3E80      LD      A,$80
15DB 32E41E    LD      ($1EE4),A
15DE 3D        DEC     A
15DF 32A616    LD      ($16A6),A
15E2 CDBF26    CALL    $26BF
15E5 EB        EX      DE,HL
15E6 36FF      LD      (HL),$FF
15E8 23        INC     HL
15E9 22B316    LD      ($16B3),HL
15EC 115C00    LD      DE,$005C
15EF 060B      LD      B,$0B
15F1 3A0A01    LD      A,($010A)
15F4 13        INC     DE
15F5 12        LD      (DE),A
15F6 05        DEC     B
15F7 C2F415    JP      NZ,$15F4
15FA 0615      LD      B,$15
15FC AF        XOR     A
15FD 320A39    LD      ($390A),A
1600 13        INC     DE
1601 12        LD      (DE),A
1602 05        DEC     B
1603 C20016    JP      NZ,$1600
1606 115C00    LD      DE,$005C
1609 CD9F31    CALL    $319F
160C CA2F16    JP      Z,$162F
160F CD3030    CALL    $3030
1612 3AD60B    LD      A,($0BD6)
1615 B7        OR      A
1616 F22916    JP      P,$1629
1619 3A6500    LD      A,($0065)
161C E67F      AND     $7F
161E 326500    LD      ($0065),A
1621 115C00    LD      DE,$005C
1624 0E1E      LD      C,$1E
1626 CD0633    CALL    $3306
1629 115C00    LD      DE,$005C
162C CDC131    CALL    $31C1
162F CDB70D    CALL    $0DB7
1632 CA4016    JP      Z,$1640
1635 3A0A01    LD      A,($010A)
1638 EE80      XOR     $80
163A 326500    LD      ($0065),A
163D 326600    LD      ($0066),A
1640 AF        XOR     A
1641 326800    LD      ($0068),A
1644 CDBF26    CALL    $26BF
1647 AF        XOR     A
1648 32EF14    LD      ($14EF),A
164B 67        LD      H,A
164C 6F        LD      L,A
164D 227B1F    LD      ($1F7B),HL
1650 223C1E    LD      ($1E3C),HL
1653 3C        INC     A
1654 32A616    LD      ($16A6),A
1657 3E00      LD      A,$00
1659 FE53      CP      $53
165B C26516    JP      NZ,$1665
165E 220027    LD      ($2700),HL
1661 23        INC     HL
1662 220627    LD      ($2706),HL
1665 CD122B    CALL    $2B12
1668 DAA516    JP      C,$16A5
166B CDFF26    CALL    $26FF
166E 3EFF      LD      A,$FF
1670 32C52F    LD      ($2FC5),A
1673 3A0C01    LD      A,($010C)
1676 B7        OR      A
1677 CA9316    JP      Z,$1693
167A 3E2A      LD      A,$2A
167C F4EF38    CALL    P,$38EF
167F F29316    JP      P,$1693
1682 CDF628    CALL    $28F6
1685 3E0D      LD      A,$0D
1687 CDEF38    CALL    $38EF
168A 3A5139    LD      A,($3951)
168D B7        OR      A
168E 3E0A      LD      A,$0A
1690 FCEF38    CALL    M,$38EF
1693 CDB033    CALL    $33B0
1696 CDC537    CALL    $37C5
1699 218000    LD      HL,$0080
169C CD8815    CALL    $1588
169F CDC728    CALL    $28C7
16A2 D26516    JP      NC,$1665
16A5 3E00      LD      A,$00
16A7 B7        OR      A
16A8 F26F17    JP      P,$176F
16AB AF        XOR     A
16AC 32A616    LD      ($16A6),A
16AF 321617    LD      ($1716),A
16B2 210000    LD      HL,$0000
16B5 22F816    LD      ($16F8),HL
16B8 CD5213    CALL    $1352
16BB 3E08      LD      A,$08
16BD C2C116    JP      NZ,$16C1
16C0 87        ADD     A,A
16C1 321C17    LD      ($171C),A
16C4 2AF816    LD      HL,($16F8)
16C7 7E        LD      A,(HL)
16C8 23        INC     HL
16C9 B6        OR      (HL)
16CA CA6F17    JP      Z,$176F
16CD 112000    LD      DE,$0020
16D0 2A0E03    LD      HL,($030E)
16D3 7E        LD      A,(HL)
16D4 FEE5      CP      $E5
16D6 CAE116    JP      Z,$16E1
16D9 3C        INC     A
16DA CA9735    JP      Z,$3597
16DD 19        ADD     HL,DE
16DE C3D316    JP      $16D3
16E1 EB        EX      DE,HL
16E2 D5        PUSH    DE
16E3 AF        XOR     A
16E4 12        LD      (DE),A
16E5 13        INC     DE
16E6 215D00    LD      HL,$005D
16E9 061F      LD      B,$1F
16EB CDBC37    CALL    $37BC
16EE D1        POP     DE
16EF 211000    LD      HL,$0010
16F2 19        ADD     HL,DE
16F3 222817    LD      ($1728),HL
16F6 EB        EX      DE,HL
16F7 210000    LD      HL,$0000
16FA 4E        LD      C,(HL)
16FB 23        INC     HL
16FC CD5213    CALL    $1352
16FF CA0517    JP      Z,$1705
1702 46        LD      B,(HL)
1703 23        INC     HL
1704 78        LD      A,B
1705 B1        OR      C
1706 CA4317    JP      Z,$1743
1709 CD5213    CALL    $1352
170C 79        LD      A,C
170D 12        LD      (DE),A
170E 13        INC     DE
170F CA1517    JP      Z,$1715
1712 78        LD      A,B
1713 12        LD      (DE),A
1714 13        INC     DE
1715 3E00      LD      A,$00
1717 3C        INC     A
1718 321617    LD      ($1716),A
171B FE00      CP      $00
171D C2FA16    JP      NZ,$16FA
1720 22F816    LD      ($16F8),HL
1723 3AFB3A    LD      A,($3AFB)
1726 4F        LD      C,A
1727 210000    LD      HL,$0000
172A 2B        DEC     HL
172B 2B        DEC     HL
172C 2B        DEC     HL
172D 2B        DEC     HL
172E 3A6800    LD      A,($0068)
1731 81        ADD     A,C
1732 77        LD      (HL),A
1733 3C        INC     A
1734 326800    LD      ($0068),A
1737 23        INC     HL
1738 23        INC     HL
1739 23        INC     HL
173A 3680      LD      (HL),$80
173C AF        XOR     A
173D 321617    LD      ($1716),A
1740 C3C416    JP      $16C4
1743 3A1617    LD      A,($1716)
1746 4F        LD      C,A
1747 3AFA3A    LD      A,($3AFA)
174A 3C        INC     A
174B 47        LD      B,A
174C 0D        DEC     C
174D CA5417    JP      Z,$1754
1750 80        ADD     A,B
1751 C34C17    JP      $174C
1754 FE81      CP      $81
1756 DA5B17    JP      C,$175B
1759 E67F      AND     $7F
175B 2A2817    LD      HL,($1728)
175E 2B        DEC     HL
175F 77        LD      (HL),A
1760 2B        DEC     HL
1761 2B        DEC     HL
1762 2B        DEC     HL
1763 3A6800    LD      A,($0068)
1766 DA6E17    JP      C,$176E
1769 4F        LD      C,A
176A 3AFB3A    LD      A,($3AFB)
176D 89        ADC     A,C
176E 77        LD      (HL),A
176F 2A3C1E    LD      HL,($1E3C)
1772 7D        LD      A,L
1773 B4        OR      H
1774 CA9917    JP      Z,$1799
1777 AF        XOR     A
1778 32E41E    LD      ($1EE4),A
177B CD6838    CALL    $3868
					; ############## DATA AREA ###############
177E 0D736176	DEFM	"<CR>sav"
1782 E5		DEFB	$E5		; '\x65' with bit 7 set ('e')
					; ########################################
1783 CD1B1C    CALL    $1C1B
1786 C29917    JP      NZ,$1799
1789 3E01      LD      A,$01
178B 32E41E    LD      ($1EE4),A
178E CDBF26    CALL    $26BF
1791 3EFF      LD      A,$FF
1793 325C30    LD      ($305C),A
1796 CD4E30    CALL    $304E
1799 CD6838    CALL    $3868
					; ############## DATA AREA ###############
179C 0D0D05636865636B73756D20	DEFM	"<CR><CR>\x05checksum "
17A8 A0		DEFB	$A0		; '\x20' with bit 7 set (' ')
					; ########################################
17A9 2A7B1F    LD      HL,($1F7B)
17AC CDBA2F    CALL    $2FBA
17AF AF        XOR     A
17B0 32C52F    LD      ($2FC5),A
17B3 2A3C1E    LD      HL,($1E3C)
17B6 7D        LD      A,L
17B7 B4        OR      H
17B8 CAD304    JP      Z,$04D3
17BB CD6838    CALL    $3868
17BE 0D        DEC     C
17BF 62        LD      H,D
17C0 61        LD      H,C
17C1 64        LD      H,H
17C2 2062      JR      NZ,$1826
17C4 6C        LD      L,H
17C5 6F        LD      L,A
17C6 63        LD      H,E
17C7 6B        LD      L,E
17C8 73        LD      (HL),E
17C9 2020      JR      NZ,$17EB
17CB 20A0      JR      NZ,$176D
17CD CDDF2F    CALL    $2FDF
17D0 3AE41E    LD      A,($1EE4)
17D3 B7        OR      A
17D4 CA3718    JP      Z,$1837
17D7 CD6838    CALL    $3868
17DA 0D        DEC     C
17DB 0D        DEC     C
17DC 04        INC     B
17DD A0        AND     B
17DE 0608      LD      B,$08
17E0 3A0A01    LD      A,($010A)
17E3 C5        PUSH    BC
17E4 CDEF38    CALL    $38EF
17E7 C1        POP     BC
17E8 05        DEC     B
17E9 C2E017    JP      NZ,$17E0
17EC 3E2E      LD      A,$2E
17EE CDEF38    CALL    $38EF
17F1 3A0A01    LD      A,($010A)
17F4 CDEF38    CALL    $38EF
17F7 CDEF38    CALL    $38EF
17FA CDEF38    CALL    $38EF
17FD CD6838    CALL    $3868
1800 2068      JR      NZ,$186A
1802 61        LD      H,C
1803 73        LD      (HL),E
1804 2074      JR      NZ,$187A
1806 68        LD      L,B
1807 65        LD      H,L
1808 2062      JR      NZ,$186C
180A 61        LD      H,C
180B 64        LD      H,H
180C 2062      JR      NZ,$1870
180E 6C        LD      L,H
180F 6F        LD      L,A
1810 63        LD      H,E
1811 6B        LD      L,E
1812 73        LD      (HL),E
1813 AE        XOR     (HL)
1814 CDB70D    CALL    $0DB7
1817 CA3718    JP      Z,$1837
181A CD6838    CALL    $3868
181D 2046      JR      NZ,$1865
181F 69        LD      L,C
1820 6C        LD      L,H
1821 65        LD      H,L
1822 2069      JR      NZ,$188D
1824 73        LD      (HL),E
1825 2073      JR      NZ,$189A
1827 65        LD      H,L
1828 74        LD      (HL),H
1829 2074      JR      NZ,$189F
182B 6F        LD      L,A
182C 2053      JR      NZ,$1881
182E 59        LD      E,C
182F 53        LD      D,E
1830 2026      JR      NZ,$1858
1832 2052      JR      NZ,$1886
1834 2F        CPL
1835 4F        LD      C,A
1836 AE        XOR     (HL)
1837 CD6838    CALL    $3868
183A 0D        DEC     C
183B 0D        DEC     C
183C 73        LD      (HL),E
183D 68        LD      L,B
183E 6F        LD      L,A
183F 77        LD      (HL),A
1840 2062      JR      NZ,$18A4
1842 61        LD      H,C
1843 64        LD      H,H
1844 2004      JR      NZ,$184A
1846 F3        DI
1847 CD1B1C    CALL    $1C1B
184A C2F118    JP      NZ,$18F1
184D CD6838    CALL    $3868
1850 0D        DEC     C
1851 0D        DEC     C
1852 75        LD      (HL),L
1853 73        LD      (HL),E
1854 65        LD      H,L
1855 72        LD      (HL),D
1856 09        ADD     HL,BC
1857 04        INC     B
1858 09        ADD     HL,BC
1859 2065      JR      NZ,$18C0
185B 78        LD      A,B
185C 74        LD      (HL),H
185D 8D        ADC     A,L
185E 2A771E    LD      HL,($1E77)
1861 7E        LD      A,(HL)
1862 FEE5      CP      $E5
1864 CABE18    JP      Z,$18BE
1867 3C        INC     A
1868 CAF118    JP      Z,$18F1
186B 011000    LD      BC,$0010
186E 09        ADD     HL,BC
186F EB        EX      DE,HL
1870 2AB316    LD      HL,($16B3)
1873 3A1C17    LD      A,($171C)
1876 32A118    LD      ($18A1),A
1879 4E        LD      C,(HL)
187A CD5213    CALL    $1352
187D CA8418    JP      Z,$1884
1880 23        INC     HL
1881 46        LD      B,(HL)
1882 78        LD      A,B
1883 2B        DEC     HL
1884 B1        OR      C
1885 CABE18    JP      Z,$18BE
1888 1A        LD      A,(DE)
1889 13        INC     DE
188A B9        CP      C
188B C29918    JP      NZ,$1899
188E CD5213    CALL    $1352
1891 CACB18    JP      Z,$18CB
1894 1A        LD      A,(DE)
1895 B8        CP      B
1896 CACB18    JP      Z,$18CB
1899 CD5213    CALL    $1352
189C CAA018    JP      Z,$18A0
189F 13        INC     DE
18A0 3E00      LD      A,$00
18A2 3D        DEC     A
18A3 32A118    LD      ($18A1),A
18A6 C27918    JP      NZ,$1879
18A9 23        INC     HL
18AA CD5213    CALL    $1352
18AD CAB118    JP      Z,$18B1
18B0 23        INC     HL
18B1 E5        PUSH    HL
18B2 2A771E    LD      HL,($1E77)
18B5 111000    LD      DE,$0010
18B8 19        ADD     HL,DE
18B9 EB        EX      DE,HL
18BA E1        POP     HL
18BB C37318    JP      $1873
18BE 2A771E    LD      HL,($1E77)
18C1 112000    LD      DE,$0020
18C4 19        ADD     HL,DE
18C5 22771E    LD      ($1E77),HL
18C8 C35E18    JP      $185E
18CB CDED38    CALL    $38ED
18CE 2A771E    LD      HL,($1E77)
18D1 7E        LD      A,(HL)
18D2 E5        PUSH    HL
18D3 CD9C2F    CALL    $2F9C
18D6 CDED38    CALL    $38ED
18D9 E1        POP     HL
18DA E5        PUSH    HL
18DB 23        INC     HL
18DC CD180C    CALL    $0C18
18DF CDED38    CALL    $38ED
18E2 E1        POP     HL
18E3 110C00    LD      DE,$000C
18E6 19        ADD     HL,DE
18E7 7E        LD      A,(HL)
18E8 CDB42F    CALL    $2FB4
18EB CD6338    CALL    $3863
18EE C3BE18    JP      $18BE
18F1 CD6838    CALL    $3868
18F4 0D        DEC     C
18F5 72        LD      (HL),D
18F6 65        LD      H,L
18F7 70        LD      (HL),B
18F8 61        LD      H,C
18F9 69        LD      L,C
18FA F2CD1B    JP      P,$1BCD
18FD 1C        INC     E
18FE C2D304    JP      NZ,$04D3
1901 3E35      LD      A,$35
1903 32EF14    LD      ($14EF),A
1906 3AFA3A    LD      A,($3AFA)
1909 3C        INC     A
190A 6F        LD      L,A
190B 2600      LD      H,$00
190D 54        LD      D,H
190E 227B1F    LD      ($1F7B),HL
1911 2AB316    LD      HL,($16B3)
1914 5E        LD      E,(HL)
1915 CD5213    CALL    $1352
1918 CA1D19    JP      Z,$191D
191B 23        INC     HL
191C 56        LD      D,(HL)
191D 7B        LD      A,E
191E B2        OR      D
191F C22519    JP      NZ,$1925
1922 C3D304    JP      $04D3
1925 CDBD32    CALL    $32BD
1928 CDFF26    CALL    $26FF
192B CDB033    CALL    $33B0
192E 2A7B1F    LD      HL,($1F7B)
1931 2B        DEC     HL
1932 227B1F    LD      ($1F7B),HL
1935 7D        LD      A,L
1936 B4        OR      H
1937 CA4019    JP      Z,$1940
193A CDC728    CALL    $28C7
193D C32819    JP      $1928
1940 2AB316    LD      HL,($16B3)
1943 23        INC     HL
1944 CD5213    CALL    $1352
1947 CA4B19    JP      Z,$194B
194A 23        INC     HL
194B 22B316    LD      ($16B3),HL
194E C30619    JP      $1906
1951 218000    LD      HL,$0080
1954 CD9133    CALL    $3391
1957 CD6338    CALL    $3863
195A CDF628    CALL    $28F6
195D 0E02      LD      C,$02
195F CDC833    CALL    $33C8
1962 B7        OR      A
1963 CCB733    CALL    Z,$33B7
1966 B7        OR      A
1967 C8        RET     Z
1968 CD6838    CALL    $3868
196B 2002      JR      NZ,$196F
196D 72        LD      (HL),D
196E 65        LD      H,L
196F 70        LD      (HL),B
1970 61        LD      H,C
1971 69        LD      L,C
1972 F2C93E    JP      P,$3EC9
1975 3F        CCF
1976 32123B    LD      ($3B12),A
1979 CD9F31    CALL    $319F
197C CD3030    CALL    $3030
197F 110C00    LD      DE,$000C
1982 19        ADD     HL,DE
1983 CDED38    CALL    $38ED
1986 7E        LD      A,(HL)
1987 E5        PUSH    HL
1988 CDB42F    CALL    $2FB4
198B E1        POP     HL
198C CD6838    CALL    $3868
198F 20A0      JR      NZ,$1931
1991 23        INC     HL
1992 23        INC     HL
1993 23        INC     HL
1994 CD5213    CALL    $1352
1997 0608      LD      B,$08
1999 C29E19    JP      NZ,$199E
199C 0610      LD      B,$10
199E 23        INC     HL
199F CD5213    CALL    $1352
19A2 CAB819    JP      Z,$19B8
19A5 5E        LD      E,(HL)
19A6 23        INC     HL
19A7 56        LD      D,(HL)
19A8 7B        LD      A,E
19A9 B2        OR      D
19AA CAC919    JP      Z,$19C9
19AD E5        PUSH    HL
19AE C5        PUSH    BC
19AF EB        EX      DE,HL
19B0 CDBA2F    CALL    $2FBA
19B3 C1        POP     BC
19B4 E1        POP     HL
19B5 C3C219    JP      $19C2
19B8 7E        LD      A,(HL)
19B9 B7        OR      A
19BA CAC919    JP      Z,$19C9
19BD E5        PUSH    HL
19BE CDB42F    CALL    $2FB4
19C1 E1        POP     HL
19C2 CDED38    CALL    $38ED
19C5 05        DEC     B
19C6 C29E19    JP      NZ,$199E
19C9 CDA731    CALL    $31A7
19CC CA9610    JP      Z,$1096
19CF F5        PUSH    AF
19D0 CD6838    CALL    $3868
19D3 0D        DEC     C
19D4 09        ADD     HL,BC
19D5 2020      JR      NZ,$19F7
19D7 2020      JR      NZ,$19F9
19D9 20A0      JR      NZ,$197B
19DB 3A6301    LD      A,($0163)
19DE B7        OR      A
19DF F2E819    JP      P,$19E8
19E2 CD6838    CALL    $3868
19E5 09        ADD     HL,BC
19E6 09        ADD     HL,BC
19E7 A0        AND     B
19E8 F1        POP     AF
19E9 C37C19    JP      $197C
19EC 318A3B    LD      SP,$3B8A
19EF AF        XOR     A
19F0 327915    LD      ($1579),A
19F3 CDA80D    CALL    $0DA8
19F6 3AEF14    LD      A,($14EF)
19F9 FE0C      CP      $0C
19FB CA061A    JP      Z,$1A06
19FE CD6838    CALL    $3868
1A01 0D        DEC     C
1A02 8D        ADC     A,L
1A03 C39610    JP      $1096
1A06 CD6838    CALL    $3868
1A09 03        INC     BC
1A0A 63        LD      H,E
1A0B 68        LD      L,B
1A0C 65        LD      H,L
1A0D 63        LD      H,E
1A0E 6B        LD      L,E
1A0F 73        LD      (HL),E
1A10 75        LD      (HL),L
1A11 6D        LD      L,L
1A12 3AA02A    LD      A,($2AA0)
1A15 7B        LD      A,E
1A16 1F        RRA
1A17 E5        PUSH    HL
1A18 CDBA2F    CALL    $2FBA
1A1B CD6838    CALL    $3868
1A1E 2020      JR      NZ,$1A40
1A20 74        LD      (HL),H
1A21 6F        LD      L,A
1A22 74        LD      (HL),H
1A23 61        LD      H,C
1A24 6C        LD      L,H
1A25 3AA0D1    LD      A,($D1A0)
1A28 210000    LD      HL,$0000
1A2B 19        ADD     HL,DE
1A2C 22291A    LD      ($1A29),HL
1A2F E5        PUSH    HL
1A30 CDBA2F    CALL    $2FBA
1A33 CD6838    CALL    $3868
1A36 2020      JR      NZ,$1A58
1A38 64        LD      H,H
1A39 65        LD      H,L
1A3A 63        LD      H,E
1A3B 3AA0E1    LD      A,($E1A0)
1A3E CDDF2F    CALL    $2FDF
1A41 C39610    JP      $1096
1A44 7E        LD      A,(HL)
1A45 B7        OR      A
1A46 FA6731    JP      M,$3167
1A49 CDC131    CALL    $31C1
1A4C C39610    JP      $1096
1A4F 3AD01A    LD      A,($1AD0)
1A52 B7        OR      A
1A53 C2AE1D    JP      NZ,$1DAE
1A56 CDB41D    CALL    $1DB4
1A59 C36B1A    JP      $1A6B
1A5C CD6838    CALL    $3868
1A5F 49        LD      C,C
1A60 6C        LD      L,H
1A61 6C        LD      L,H
1A62 65        LD      H,L
1A63 67        LD      H,A
1A64 61        LD      H,C
1A65 6C        LD      L,H
1A66 206E      JR      NZ,$1AD6
1A68 61        LD      H,C
1A69 6D        LD      L,L
1A6A E5        PUSH    HL
1A6B CD6338    CALL    $3863
1A6E 21063B    LD      HL,$3B06
1A71 7E        LD      A,(HL)
1A72 23        INC     HL
1A73 CD7B35    CALL    $357B
1A76 CD180C    CALL    $0C18
1A79 3A0F3B    LD      A,($3B0F)
1A7C B7        OR      A
1A7D FA6731    JP      M,$3167
1A80 CD6838    CALL    $3868
1A83 203D      JR      NZ,$1AC2
1A85 A0        AND     B
1A86 3AD01A    LD      A,($1AD0)
1A89 B7        OR      A
1A8A 210000    LD      HL,$0000
1A8D FAC61A    JP      M,$1AC6
1A90 CD6838    CALL    $3868
1A93 6E        LD      L,(HL)
1A94 65        LD      H,L
1A95 77        LD      (HL),A
1A96 204E      JR      NZ,$1AE6
1A98 41        LD      B,C
1A99 4D        LD      C,L
1A9A 45        LD      B,L
1A9B BA        CP      D
1A9C CD0336    CALL    $3603
1A9F 2A771E    LD      HL,($1E77)
1AA2 23        INC     HL
1AA3 7E        LD      A,(HL)
1AA4 B7        OR      A
1AA5 CA9610    JP      Z,$1096
1AA8 CD6338    CALL    $3863
1AAB CD782F    CALL    $2F78
1AAE CDF321    CALL    $21F3
1AB1 32D01A    LD      ($1AD0),A
1AB4 C2C61A    JP      NZ,$1AC6
1AB7 CD2A0E    CALL    $0E2A
1ABA C25C1A    JP      NZ,$1A5C
1ABD CD782F    CALL    $2F78
1AC0 CDF321    CALL    $21F3
1AC3 CA5C1A    JP      Z,$1A5C
1AC6 228B1A    LD      ($1A8B),HL
1AC9 012A3B    LD      BC,$3B2A
1ACC CDAC21    CALL    $21AC
1ACF 3E00      LD      A,$00
1AD1 FE3A      CP      $3A
1AD3 C2DE1A    JP      NZ,$1ADE
1AD6 F680      OR      $80
1AD8 32D01A    LD      ($1AD0),A
1ADB C36E1A    JP      $1A6E
1ADE B7        OR      A
1ADF FAF31A    JP      M,$1AF3
1AE2 21063B    LD      HL,$3B06
1AE5 7E        LD      A,(HL)
1AE6 23        INC     HL
1AE7 CD7B35    CALL    $357B
1AEA CD180C    CALL    $0C18
1AED CD6838    CALL    $3868
1AF0 203D      JR      NZ,$1B2F
1AF2 A0        AND     B
1AF3 21073B    LD      HL,$3B07
1AF6 11173B    LD      DE,$3B17
1AF9 060B      LD      B,$0B
1AFB D5        PUSH    DE
1AFC C5        PUSH    BC
1AFD CDBC37    CALL    $37BC
1B00 212B3B    LD      HL,$3B2B
1B03 C1        POP     BC
1B04 D1        POP     DE
1B05 7E        LD      A,(HL)
1B06 FE3F      CP      $3F
1B08 CA151B    JP      Z,$1B15
1B0B 4F        LD      C,A
1B0C 1A        LD      A,(DE)
1B0D B7        OR      A
1B0E 79        LD      A,C
1B0F F2141B    JP      P,$1B14
1B12 F680      OR      $80
1B14 12        LD      (DE),A
1B15 1A        LD      A,(DE)
1B16 CDEF38    CALL    $38EF
1B19 23        INC     HL
1B1A 13        INC     DE
1B1B 78        LD      A,B
1B1C FE04      CP      $04
1B1E 3E2E      LD      A,$2E
1B20 CCEF38    CALL    Z,$38EF
1B23 05        DEC     B
1B24 C2051B    JP      NZ,$1B05
1B27 11163B    LD      DE,$3B16
1B2A 1A        LD      A,(DE)
1B2B 323A1B    LD      ($1B3A),A
1B2E 3A063B    LD      A,($3B06)
1B31 12        LD      (DE),A
1B32 AF        XOR     A
1B33 32223B    LD      ($3B22),A
1B36 CD9F31    CALL    $319F
1B39 3E00      LD      A,$00
1B3B 12        LD      (DE),A
1B3C C24F1A    JP      NZ,$1A4F
1B3F 3A6301    LD      A,($0163)
1B42 B7        OR      A
1B43 F2571B    JP      P,$1B57
1B46 CD6838    CALL    $3868
1B49 2020      JR      NZ,$1B6B
1B4B 72        LD      (HL),D
1B4C 65        LD      H,L
1B4D 6E        LD      L,(HL)
1B4E 61        LD      H,C
1B4F 6D        LD      L,L
1B50 E5        PUSH    HL
1B51 CD1B1C    CALL    $1C1B
1B54 C29610    JP      NZ,$1096
1B57 11063B    LD      DE,$3B06
1B5A CDD131    CALL    $31D1
1B5D C39610    JP      $1096
1B60 11063B    LD      DE,$3B06
1B63 CD1033    CALL    $3310
1B66 3E3F      LD      A,$3F
1B68 32123B    LD      ($3B12),A
1B6B CDB70D    CALL    $0DB7
1B6E C2A91B    JP      NZ,$1BA9
1B71 CD7E31    CALL    $317E
1B74 210000    LD      HL,$0000
1B77 22273B    LD      ($3B27),HL
1B7A C3981B    JP      $1B98
1B7D 3AFA3A    LD      A,($3AFA)
1B80 3C        INC     A
1B81 6F        LD      L,A
1B82 2600      LD      H,$00
1B84 111000    LD      DE,$0010
1B87 CD5E35    CALL    $355E
1B8A EB        EX      DE,HL
1B8B 2A273B    LD      HL,($3B27)
1B8E 19        ADD     HL,DE
1B8F 22273B    LD      ($3B27),HL
1B92 CDA731    CALL    $31A7
1B95 CAAE1B    JP      Z,$1BAE
1B98 CD3030    CALL    $3030
1B9B 110F00    LD      DE,$000F
1B9E 19        ADD     HL,DE
1B9F 7E        LD      A,(HL)
1BA0 FE80      CP      $80
1BA2 CA7D1B    JP      Z,$1B7D
1BA5 5F        LD      E,A
1BA6 C38B1B    JP      $1B8B
1BA9 0E23      LD      C,$23
1BAB CD0633    CALL    $3306
1BAE 3AEF14    LD      A,($14EF)
1BB1 FE0B      CP      $0B
1BB3 C0        RET     NZ
1BB4 CD6838    CALL    $3868
1BB7 20AD      JR      NZ,$1B66
1BB9 2A273B    LD      HL,($3B27)
1BBC E5        PUSH    HL
1BBD CDDF2F    CALL    $2FDF
1BC0 CD6838    CALL    $3868
1BC3 2081      JR      NZ,$1B46
1BC5 E1        POP     HL
1BC6 0E08      LD      C,$08
1BC8 CD401C    CALL    $1C40
1BCB 7B        LD      A,E
1BCC B7        OR      A
1BCD CAD11B    JP      Z,$1BD1
1BD0 23        INC     HL
1BD1 CD0E26    CALL    $260E
1BD4 17        RLA
1BD5 4F        LD      C,A
1BD6 C5        PUSH    BC
1BD7 CD401C    CALL    $1C40
1BDA C1        POP     BC
1BDB 7B        LD      A,E
1BDC B7        OR      A
1BDD CAE11B    JP      Z,$1BE1
1BE0 23        INC     HL
1BE1 59        LD      E,C
1BE2 1600      LD      D,$00
1BE4 CD5E35    CALL    $355E
1BE7 E5        PUSH    HL
1BE8 110800    LD      DE,$0008
1BEB CD5E35    CALL    $355E
1BEE EB        EX      DE,HL
1BEF 2A273B    LD      HL,($3B27)
1BF2 EB        EX      DE,HL
1BF3 CD2C2B    CALL    $2B2C
1BF6 CDDF2F    CALL    $2FDF
1BF9 CD6838    CALL    $3868
1BFC 2065      JR      NZ,$1C63
1BFE 6D        LD      L,L
1BFF 70        LD      (HL),B
1C00 74        LD      (HL),H
1C01 F9        LD      SP,HL
1C02 D1        POP     DE
1C03 D5        PUSH    DE
1C04 2A131C    LD      HL,($1C13)
1C07 19        ADD     HL,DE
1C08 22131C    LD      ($1C13),HL
1C0B E1        POP     HL
1C0C CD9F26    CALL    $269F
1C0F CDED38    CALL    $38ED
1C12 210000    LD      HL,$0000
1C15 CD9F26    CALL    $269F
1C18 C39610    JP      $1096
1C1B CDA80D    CALL    $0DA8
1C1E CD6838    CALL    $3868
1C21 2028      JR      NZ,$1C4B
1C23 59        LD      E,C
1C24 2F        CPL
1C25 4E        LD      C,(HL)
1C26 29        ADD     HL,HL
1C27 20BF      JR      NZ,$1BE8
1C29 CD1038    CALL    $3810
1C2C FE4E      CP      $4E
1C2E C2361C    JP      NZ,$1C36
1C31 CD6838    CALL    $3868
1C34 6F        LD      L,A
1C35 A0        AND     B
1C36 FE59      CP      $59
1C38 C0        RET     NZ
1C39 CD6838    CALL    $3868
1C3C 65        LD      H,L
1C3D F3        DI
1C3E AF        XOR     A
1C3F C9        RET
1C40 110000    LD      DE,$0000
1C43 42        LD      B,D
1C44 79        LD      A,C
1C45 B7        OR      A
1C46 C8        RET     Z
1C47 3D        DEC     A
1C48 C8        RET     Z
1C49 E5        PUSH    HL
1C4A 7D        LD      A,L
1C4B 91        SUB     C
1C4C 6F        LD      L,A
1C4D 7C        LD      A,H
1C4E 98        SBC     A,B
1C4F 67        LD      H,A
1C50 DA591C    JP      C,$1C59
1C53 13        INC     DE
1C54 E3        EX      (SP),HL
1C55 E1        POP     HL
1C56 C3491C    JP      $1C49
1C59 E1        POP     HL
1C5A EB        EX      DE,HL
1C5B C9        RET
1C5C CD6838    CALL    $3868
1C5F 89        ADC     A,C
1C60 060B      LD      B,$0B
1C62 23        INC     HL
1C63 7E        LD      A,(HL)
1C64 B7        OR      A
1C65 3E2D      LD      A,$2D
1C67 F26C1C    JP      P,$1C6C
1C6A 3E49      LD      A,$49
1C6C CDEF38    CALL    $38EF
1C6F 78        LD      A,B
1C70 FE04      CP      $04
1C72 3E2E      LD      A,$2E
1C74 CCEF38    CALL    Z,$38EF
1C77 05        DEC     B
1C78 C2621C    JP      NZ,$1C62
1C7B C39610    JP      $1096
1C7E 21063B    LD      HL,$3B06
1C81 3A5109    LD      A,($0951)
1C84 B7        OR      A
1C85 CA5C1C    JP      Z,$1C5C
1C88 00        NOP
1C89 00        NOP
1C8A 00        NOP
1C8B 00        NOP
1C8C 00        NOP
1C8D 00        NOP
1C8E F5        PUSH    AF
1C8F D5        PUSH    DE
1C90 E60F      AND     $0F
1C92 5F        LD      E,A
1C93 1600      LD      D,$00
1C95 19        ADD     HL,DE
1C96 D1        POP     DE
1C97 F1        POP     AF
1C98 FAA11C    JP      M,$1CA1
1C9B 7E        LD      A,(HL)
1C9C F680      OR      $80
1C9E C3A41C    JP      $1CA4
1CA1 7E        LD      A,(HL)
1CA2 E67F      AND     $7F
1CA4 77        LD      (HL),A
1CA5 0E1E      LD      C,$1E
1CA7 CD0633    CALL    $3306
1CAA C39610    JP      $1096
1CAD 3A9710    LD      A,($1097)
1CB0 B7        OR      A
1CB1 3A681E    LD      A,($1E68)
1CB4 C4FE32    CALL    NZ,$32FE
1CB7 112A3B    LD      DE,$3B2A
1CBA CD9F31    CALL    $319F
1CBD CAC41D    JP      Z,$1DC4
1CC0 CD3030    CALL    $3030
1CC3 3AD60B    LD      A,($0BD6)
1CC6 B7        OR      A
1CC7 FA6731    JP      M,$3167
1CCA 3A6201    LD      A,($0162)
1CCD 3A6201    LD      A,($0162)
1CD0 B7        OR      A
1CD1 CAC11D    JP      Z,$1DC1
1CD4 FE02      CP      $02
1CD6 C2AA1D    JP      NZ,$1DAA
1CD9 CD6838    CALL    $3868
1CDC 2004      JR      NZ,$1CE2
1CDE 2065      JR      NZ,$1D45
1CE0 78        LD      A,B
1CE1 69        LD      L,C
1CE2 73        LD      (HL),E
1CE3 74        LD      (HL),H
1CE4 73        LD      (HL),E
1CE5 2C        INC     L
1CE6 2028      JR      NZ,$1D10
1CE8 42        LD      B,D
1CE9 29        ADD     HL,HL
1CEA 61        LD      H,C
1CEB 63        LD      H,E
1CEC 6B        LD      L,E
1CED 75        LD      (HL),L
1CEE 70        LD      (HL),B
1CEF 2C        INC     L
1CF0 2028      JR      NZ,$1D1A
1CF2 4F        LD      C,A
1CF3 29        ADD     HL,HL
1CF4 76        HALT
1CF5 65        LD      H,L
1CF6 72        LD      (HL),D
1CF7 77        LD      (HL),A
1CF8 72        LD      (HL),D
1CF9 69        LD      L,C
1CFA 74        LD      (HL),H
1CFB 65        LD      H,L
1CFC 2C        INC     L
1CFD 2028      JR      NZ,$1D27
1CFF 53        LD      D,E
1D00 29        ADD     HL,HL
1D01 6B        LD      L,E
1D02 69        LD      L,C
1D03 70        LD      (HL),B
1D04 BA        CP      D
1D05 CD1038    CALL    $3810
1D08 FE4F      CP      $4F
1D0A CAC11D    JP      Z,$1DC1
1D0D FE53      CP      $53
1D0F CA9610    JP      Z,$1096
1D12 FE42      CP      $42
1D14 C29610    JP      NZ,$1096
1D17 212B3B    LD      HL,$3B2B
1D1A 113B3B    LD      DE,$3B3B
1D1D 0608      LD      B,$08
1D1F CDBC37    CALL    $37BC
1D22 3E42      LD      A,$42
1D24 12        LD      (DE),A
1D25 13        INC     DE
1D26 3E41      LD      A,$41
1D28 12        LD      (DE),A
1D29 13        INC     DE
1D2A 3E4B      LD      A,$4B
1D2C 12        LD      (DE),A
1D2D 113A3B    LD      DE,$3B3A
1D30 1A        LD      A,(DE)
1D31 32961D    LD      ($1D96),A
1D34 3A2A3B    LD      A,($3B2A)
1D37 12        LD      (DE),A
1D38 CD1033    CALL    $3310
1D3B CD9F31    CALL    $319F
1D3E CA951D    JP      Z,$1D95
1D41 D5        PUSH    DE
1D42 CD3030    CALL    $3030
1D45 D1        POP     DE
1D46 3AD60B    LD      A,($0BD6)
1D49 B7        OR      A
1D4A F2641D    JP      P,$1D64
1D4D 3A6201    LD      A,($0162)
1D50 FE02      CP      $02
1D52 CC6338    CALL    Z,$3863
1D55 CD6838    CALL    $3868
1D58 206F      JR      NZ,$1DC9
1D5A 6C        LD      L,H
1D5B 64        LD      H,H
1D5C 202E      JR      NZ,$1D8C
1D5E 42        LD      B,D
1D5F 41        LD      B,C
1D60 CBC3      SET     0,E
1D62 67        LD      H,A
1D63 313A6E    LD      SP,$6E3A
1D66 01B7CA    LD      BC,$CAB7
1D69 8F        ADC     A,A
1D6A 1D        DEC     E
1D6B 3A6201    LD      A,($0162)
1D6E FE02      CP      $02
1D70 CC6338    CALL    Z,$3863
1D73 CD6838    CALL    $3868
1D76 206F      JR      NZ,$1DE7
1D78 76        HALT
1D79 65        LD      H,L
1D7A 72        LD      (HL),D
1D7B 77        LD      (HL),A
1D7C 72        LD      (HL),D
1D7D 69        LD      L,C
1D7E 74        LD      (HL),H
1D7F 65        LD      H,L
1D80 206F      JR      NZ,$1DF1
1D82 6C        LD      L,H
1D83 64        LD      H,H
1D84 202E      JR      NZ,$1DB4
1D86 42        LD      B,D
1D87 41        LD      B,C
1D88 CBCD      SET     1,L
1D8A 1B        DEC     DE
1D8B 1C        INC     E
1D8C C29610    JP      NZ,$1096
1D8F 113A3B    LD      DE,$3B3A
1D92 CDC131    CALL    $31C1
1D95 3E00      LD      A,$00
1D97 12        LD      (DE),A
1D98 CDCE31    CALL    $31CE
1D9B 213B3B    LD      HL,$3B3B
1D9E 060B      LD      B,$0B
1DA0 3600      LD      (HL),$00
1DA2 23        INC     HL
1DA3 05        DEC     B
1DA4 C2A01D    JP      NZ,$1DA0
1DA7 C3C41D    JP      $1DC4
1DAA 3D        DEC     A
1DAB CA171D    JP      Z,$1D17
1DAE CDB41D    CALL    $1DB4
1DB1 C39610    JP      $1096
1DB4 CD6838    CALL    $3868
1DB7 03        INC     BC
1DB8 04        INC     B
1DB9 2065      JR      NZ,$1E20
1DBB 78        LD      A,B
1DBC 69        LD      L,C
1DBD 73        LD      (HL),E
1DBE 74        LD      (HL),H
1DBF F3        DI
1DC0 C9        RET
1DC1 CDBE31    CALL    $31BE
1DC4 3E00      LD      A,$00
1DC6 FE4D      CP      $4D
1DC8 CA3B1F    JP      Z,$1F3B
1DCB 3E24      LD      A,$24
1DCD 11333B    LD      DE,$3B33
1DD0 12        LD      (DE),A
1DD1 13        INC     DE
1DD2 12        LD      (DE),A
1DD3 13        INC     DE
1DD4 12        LD      (DE),A
1DD5 112A3B    LD      DE,$3B2A
1DD8 CD1033    CALL    $3310
1DDB CD9F31    CALL    $319F
1DDE CA091E    JP      Z,$1E09
1DE1 D5        PUSH    DE
1DE2 CD3030    CALL    $3030
1DE5 D1        POP     DE
1DE6 3AD60B    LD      A,($0BD6)
1DE9 B7        OR      A
1DEA F2091E    JP      P,$1E09
1DED 3A6201    LD      A,($0162)
1DF0 FE02      CP      $02
1DF2 CC6338    CALL    Z,$3863
1DF5 CD6838    CALL    $3868
1DF8 206F      JR      NZ,$1E69
1DFA 6C        LD      L,H
1DFB 64        LD      H,H
1DFC 2074      JR      NZ,$1E72
1DFE 65        LD      H,L
1DFF 6D        LD      L,L
1E00 70        LD      (HL),B
1E01 202E      JR      NZ,$1E31
1E03 24        INC     H
1E04 24        INC     H
1E05 A4        AND     H
1E06 C36731    JP      $3167
1E09 CDBE31    CALL    $31BE
1E0C CDAF31    CALL    $31AF
1E0F 3A6701    LD      A,($0167)
1E12 B7        OR      A
1E13 112A3B    LD      DE,$3B2A
1E16 0E24      LD      C,$24
1E18 C40500    CALL    NZ,$0005
1E1B AF        XOR     A
1E1C 32E41E    LD      ($1EE4),A
1E1F 67        LD      H,A
1E20 6F        LD      L,A
1E21 223C1E    LD      ($1E3C),HL
1E24 227B1F    LD      ($1F7B),HL
1E27 3A9710    LD      A,($1097)
1E2A B7        OR      A
1E2B C4FE32    CALL    NZ,$32FE
1E2E 3A5C00    LD      A,($005C)
1E31 CD9E32    CALL    $329E
1E34 CDC537    CALL    $37C5
1E37 2A771E    LD      HL,($1E77)
1E3A EB        EX      DE,HL
1E3B 21801E    LD      HL,$1E80
1E3E 19        ADD     HL,DE
1E3F E5        PUSH    HL
1E40 EB        EX      DE,HL
1E41 CDC931    CALL    $31C9
1E44 E1        POP     HL
1E45 3A1913    LD      A,($1319)
1E48 3D        DEC     A
1E49 BC        CP      H
1E4A CA671E    JP      Z,$1E67
1E4D 11063B    LD      DE,$3B06
1E50 CD1132    CALL    $3211
1E53 B7        OR      A
1E54 C2641E    JP      NZ,$1E64
1E57 2A3C1E    LD      HL,($1E3C)
1E5A 118000    LD      DE,$0080
1E5D 19        ADD     HL,DE
1E5E 223C1E    LD      ($1E3C),HL
1E61 C3341E    JP      $1E34
1E64 32E41E    LD      ($1EE4),A
1E67 3E00      LD      A,$00
1E69 B7        OR      A
1E6A C4FE32    CALL    NZ,$32FE
1E6D 3A2A3B    LD      A,($3B2A)
1E70 CD9E32    CALL    $329E
1E73 CDC537    CALL    $37C5
1E76 118A3B    LD      DE,$3B8A
1E79 2A7B1F    LD      HL,($1F7B)
1E7C 3A3D1E    LD      A,($1E3D)
1E7F BC        CP      H
1E80 C2751F    JP      NZ,$1F75
1E83 3A3C1E    LD      A,($1E3C)
1E86 BD        CP      L
1E87 C2751F    JP      NZ,$1F75
1E8A 3A6701    LD      A,($0167)
1E8D B7        OR      A
1E8E CAE31E    JP      Z,$1EE3
1E91 EB        EX      DE,HL
1E92 227B1F    LD      ($1F7B),HL
1E95 EB        EX      DE,HL
1E96 2A3C1E    LD      HL,($1E3C)
1E99 19        ADD     HL,DE
1E9A 223C1E    LD      ($1E3C),HL
1E9D CDC631    CALL    $31C6
1EA0 CDC537    CALL    $37C5
1EA3 112A3B    LD      DE,$3B2A
1EA6 0E21      LD      C,$21
1EA8 CD0633    CALL    $3306
1EAB B7        OR      A
1EAC C2E31E    JP      NZ,$1EE3
1EAF 2A7B1F    LD      HL,($1F7B)
1EB2 118000    LD      DE,$0080
1EB5 1A        LD      A,(DE)
1EB6 BE        CP      (HL)
1EB7 C2631F    JP      NZ,$1F63
1EBA 13        INC     DE
1EBB 23        INC     HL
1EBC 7B        LD      A,E
1EBD B7        OR      A
1EBE C2B51E    JP      NZ,$1EB5
1EC1 227B1F    LD      ($1F7B),HL
1EC4 E5        PUSH    HL
1EC5 2A4B3B    LD      HL,($3B4B)
1EC8 23        INC     HL
1EC9 224B3B    LD      ($3B4B),HL
1ECC E1        POP     HL
1ECD 3A3D1E    LD      A,($1E3D)
1ED0 BC        CP      H
1ED1 C2A01E    JP      NZ,$1EA0
1ED4 3A3C1E    LD      A,($1E3C)
1ED7 BD        CP      L
1ED8 C2A01E    JP      NZ,$1EA0
1EDB 112A3B    LD      DE,$3B2A
1EDE 0E21      LD      C,$21
1EE0 CD0633    CALL    $3306
1EE3 3E00      LD      A,$00
1EE5 B7        OR      A
1EE6 CA1B1E    JP      Z,$1E1B
1EE9 3A681E    LD      A,($1E68)
1EEC B7        OR      A
1EED FCFE32    CALL    M,$32FE
1EF0 CDF131    CALL    $31F1
1EF3 212B3B    LD      HL,$3B2B
1EF6 113B3B    LD      DE,$3B3B
1EF9 0608      LD      B,$08
1EFB CDBC37    CALL    $37BC
1EFE 21F43A    LD      HL,$3AF4
1F01 0603      LD      B,$03
1F03 CDBC37    CALL    $37BC
1F06 3A6B01    LD      A,($016B)
1F09 B7        OR      A
1F0A F5        PUSH    AF
1F0B CA1E1F    JP      Z,$1F1E
1F0E FA1E1F    JP      M,$1F1E
1F11 E60F      AND     $0F
1F13 213B3B    LD      HL,$3B3B
1F16 5F        LD      E,A
1F17 1600      LD      D,$00
1F19 19        ADD     HL,DE
1F1A 7E        LD      A,(HL)
1F1B C680      ADD     A,$80
1F1D 77        LD      (HL),A
1F1E CDCE31    CALL    $31CE
1F21 F1        POP     AF
1F22 CA9610    JP      Z,$1096
1F25 FA9610    JP      M,$1096
1F28 F5        PUSH    AF
1F29 3A9710    LD      A,($1097)
1F2C B7        OR      A
1F2D C4FE32    CALL    NZ,$32FE
1F30 F1        POP     AF
1F31 11063B    LD      DE,$3B06
1F34 6F        LD      L,A
1F35 2600      LD      H,$00
1F37 19        ADD     HL,DE
1F38 C39B1C    JP      $1C9B
1F3B 3A9710    LD      A,($1097)
1F3E CDFE32    CALL    $32FE
1F41 3E3F      LD      A,$3F
1F43 32123B    LD      ($3B12),A
1F46 11063B    LD      DE,$3B06
1F49 CD9F31    CALL    $319F
1F4C CA9610    JP      Z,$1096
1F4F CD3030    CALL    $3030
1F52 3A681E    LD      A,($1E68)
1F55 E67F      AND     $7F
1F57 77        LD      (HL),A
1F58 CDBA33    CALL    $33BA
1F5B 3EFF      LD      A,$FF
1F5D 325C30    LD      ($305C),A
1F60 C3461F    JP      $1F46
1F63 CD6838    CALL    $3868
1F66 07        RLCA
1F67 03        INC     BC
1F68 56        LD      D,(HL)
1F69 65        LD      H,L
1F6A 72        LD      (HL),D
1F6B 69        LD      L,C
1F6C 66        LD      H,(HL)
1F6D 79        LD      A,C
1F6E 2065      JR      NZ,$1FD5
1F70 72        LD      (HL),D
1F71 72        LD      (HL),D
1F72 6F        LD      L,A
1F73 72        LD      (HL),D
1F74 00        NOP
1F75 19        ADD     HL,DE
1F76 EB        EX      DE,HL
1F77 CDC931    CALL    $31C9
1F7A 213800    LD      HL,$0038
1F7D 118000    LD      DE,$0080
1F80 19        ADD     HL,DE
1F81 227B1F    LD      ($1F7B),HL
1F84 CD8535    CALL    $3585
1F87 C3731E    JP      $1E73
1F8A AF        XOR     A
1F8B 327705    LD      ($0577),A
1F8E 3A6D01    LD      A,($016D)
1F91 B7        OR      A
1F92 C2AB1F    JP      NZ,$1FAB
1F95 3C        INC     A
1F96 325C00    LD      ($005C),A
1F99 325C30    LD      ($305C),A
1F9C CD4E30    CALL    $304E
1F9F CDB01F    CALL    $1FB0
1FA2 3A6D01    LD      A,($016D)
1FA5 B7        OR      A
1FA6 0E00      LD      C,$00
1FA8 CA0500    JP      Z,$0005
1FAB 2A1001    LD      HL,($0110)
1FAE F9        LD      SP,HL
1FAF C9        RET
1FB0 3A0000    LD      A,($0000)
1FB3 4F        LD      C,A
1FB4 3A1701    LD      A,($0117)
1FB7 B9        CP      C
1FB8 C2C01F    JP      NZ,$1FC0
1FBB 3EC3      LD      A,$C3
1FBD 320000    LD      ($0000),A
1FC0 3A9710    LD      A,($1097)
1FC3 E67F      AND     $7F
1FC5 17        RLA
1FC6 17        RLA
1FC7 17        RLA
1FC8 17        RLA
1FC9 4F        LD      C,A
1FCA 3A7525    LD      A,($2575)
1FCD 3D        DEC     A
1FCE B1        OR      C
1FCF 320400    LD      ($0004),A
1FD2 C9        RET
1FD3 114001    LD      DE,$0140
1FD6 C3E81F    JP      $1FE8
1FD9 114801    LD      DE,$0148
1FDC C3E81F    JP      $1FE8
1FDF 115001    LD      DE,$0150
1FE2 C3E81F    JP      $1FE8
1FE5 115801    LD      DE,$0158
1FE8 EB        EX      DE,HL
1FE9 C31A20    JP      $201A
1FEC CD2620    CALL    $2026
1FEF 223C1E    LD      ($1E3C),HL
1FF2 2A1813    LD      HL,($1318)
1FF5 E3        EX      (SP),HL
1FF6 210000    LD      HL,$0000
1FF9 E5        PUSH    HL
1FFA 2A3C1E    LD      HL,($1E3C)
1FFD E5        PUSH    HL
1FFE EB        EX      DE,HL
1FFF E5        PUSH    HL
2000 118100    LD      DE,$0081
2003 0600      LD      B,$00
2005 7E        LD      A,(HL)
2006 B7        OR      A
2007 CA1120    JP      Z,$2011
200A 12        LD      (DE),A
200B 23        INC     HL
200C 13        INC     DE
200D 04        INC     B
200E C20520    JP      NZ,$2005
2011 78        LD      A,B
2012 328000    LD      ($0080),A
2015 E1        POP     HL
2016 C9        RET
2017 CD2620    CALL    $2026
201A 223C1E    LD      ($1E3C),HL
201D 318A3B    LD      SP,$3B8A
2020 212904    LD      HL,$0429
2023 C3F91F    JP      $1FF9
2026 CDAE3A    CALL    $3AAE
2029 110000    LD      DE,$0000
202C EB        EX      DE,HL
202D 1A        LD      A,(DE)
202E CD1638    CALL    $3816
2031 FE2C      CP      $2C
2033 C8        RET     Z
2034 FE20      CP      $20
2036 C8        RET     Z
2037 D630      SUB     $30
2039 DABA3A    JP      C,$3ABA
203C C6E9      ADD     A,$E9
203E DABA3A    JP      C,$3ABA
2041 C606      ADD     A,$06
2043 F24B20    JP      P,$204B
2046 C607      ADD     A,$07
2048 DABA3A    JP      C,$3ABA
204B C60A      ADD     A,$0A
204D B7        OR      A
204E 4F        LD      C,A
204F 0600      LD      B,$00
2051 29        ADD     HL,HL
2052 29        ADD     HL,HL
2053 29        ADD     HL,HL
2054 29        ADD     HL,HL
2055 09        ADD     HL,BC
2056 13        INC     DE
2057 C32D20    JP      $202D
205A CD2620    CALL    $2026
205D AF        XOR     A
205E 329220    LD      ($2092),A
2061 322039    LD      ($3920),A
2064 E5        PUSH    HL
2065 CD6838    CALL    $3868
2068 0D        DEC     C
2069 61        LD      H,C
206A 64        LD      H,H
206B 64        LD      H,H
206C 72        LD      (HL),D
206D 3A4865    LD      A,($6548)
2070 78        LD      A,B
2071 2044      JR      NZ,$20B7
2073 65        LD      H,L
2074 63        LD      H,E
2075 2020      JR      NZ,$2097
2077 42        LD      B,D
2078 69        LD      L,C
2079 6E        LD      L,(HL)
207A 61        LD      H,C
207B 72        LD      (HL),D
207C 79        LD      A,C
207D 2041      JR      NZ,$20C0
207F 73        LD      (HL),E
2080 63        LD      H,E
2081 69        LD      L,C
2082 69        LD      L,C
2083 2045      JR      NZ,$20CA
2085 6E        LD      L,(HL)
2086 74        LD      (HL),H
2087 65        LD      H,L
2088 F2E1CD    JP      P,$CDE1
208B 63        LD      H,E
208C 38E5      JR      C,$2073
208E CDBA2F    CALL    $2FBA
2091 3E00      LD      A,$00
2093 B7        OR      A
2094 F47E35    CALL    P,$357E
2097 F29E20    JP      P,$209E
209A CD6838    CALL    $3868
209D AD        XOR     L
209E CDED38    CALL    $38ED
20A1 E1        POP     HL
20A2 E5        PUSH    HL
20A3 7E        LD      A,(HL)
20A4 47        LD      B,A
20A5 CDB42F    CALL    $2FB4
20A8 CDED38    CALL    $38ED
20AB 78        LD      A,B
20AC CDA62F    CALL    $2FA6
20AF CDED38    CALL    $38ED
20B2 78        LD      A,B
20B3 CD842F    CALL    $2F84
20B6 CDED38    CALL    $38ED
20B9 78        LD      A,B
20BA B7        OR      A
20BB 3E20      LD      A,$20
20BD F2C220    JP      P,$20C2
20C0 3E2D      LD      A,$2D
20C2 CDEF38    CALL    $38EF
20C5 78        LD      A,B
20C6 E67F      AND     $7F
20C8 FE20      CP      $20
20CA DAD220    JP      C,$20D2
20CD FE7F      CP      $7F
20CF DADA20    JP      C,$20DA
20D2 CD3937    CALL    $3739
20D5 C640      ADD     A,$40
20D7 C3DF20    JP      $20DF
20DA F5        PUSH    AF
20DB CDED38    CALL    $38ED
20DE F1        POP     AF
20DF CDEF38    CALL    $38EF
20E2 CD6838    CALL    $3868
20E5 2020      JR      NZ,$2107
20E7 BC        CP      H
20E8 3A6801    LD      A,($0168)
20EB CDEF38    CALL    $38EF
20EE CD6838    CALL    $3868
20F1 BE        CP      (HL)
20F2 CD0336    CALL    $3603
20F5 2A771E    LD      HL,($1E77)
20F8 23        INC     HL
20F9 CD782F    CALL    $2F78
20FC C20621    JP      NZ,$2106
20FF E1        POP     HL
2100 CD6F21    CALL    $216F
2103 C38A20    JP      $208A
2106 47        LD      B,A
2107 3A0801    LD      A,($0108)
210A B8        CP      B
210B C23521    JP      NZ,$2135
210E 23        INC     HL
210F 7E        LD      A,(HL)
2110 CD1638    CALL    $3816
2113 FE42      CP      $42
2115 CA2C21    JP      Z,$212C
2118 FE44      CP      $44
211A CA2C21    JP      Z,$212C
211D FE41      CP      $41
211F CA2C21    JP      Z,$212C
2122 FE2E      CP      $2E
2124 CAD304    JP      Z,$04D3
2127 FE48      CP      $48
2129 C2BA3A    JP      NZ,$3ABA
212C 326801    LD      ($0168),A
212F CD782F    CALL    $2F78
2132 CA8920    JP      Z,$2089
2135 229D0F    LD      ($0F9D),HL
2138 3A6801    LD      A,($0168)
213B FE41      CP      $41
213D CA7821    JP      Z,$2178
2140 FE42      CP      $42
2142 CA7C21    JP      Z,$217C
2145 FE44      CP      $44
2147 CA9721    JP      Z,$2197
214A CD2620    CALL    $2026
214D 7C        LD      A,H
214E B7        OR      A
214F C2BA3A    JP      NZ,$3ABA
2152 7D        LD      A,L
2153 E1        POP     HL
2154 77        LD      (HL),A
2155 CD6F21    CALL    $216F
2158 EB        EX      DE,HL
2159 2A9D0F    LD      HL,($0F9D)
215C 7E        LD      A,(HL)
215D 23        INC     HL
215E FE20      CP      $20
2160 C25C21    JP      NZ,$215C
2163 CD792F    CALL    $2F79
2166 EB        EX      DE,HL
2167 CA8A20    JP      Z,$208A
216A E5        PUSH    HL
216B EB        EX      DE,HL
216C C30621    JP      $2106
216F 23        INC     HL
2170 3A9220    LD      A,($2092)
2173 B7        OR      A
2174 F0        RET     P
2175 2B        DEC     HL
2176 2B        DEC     HL
2177 C9        RET
2178 6E        LD      L,(HL)
2179 C35221    JP      $2152
217C 010008    LD      BC,$0800
217F 7E        LD      A,(HL)
2180 FE30      CP      $30
2182 CA8B21    JP      Z,$218B
2185 FE31      CP      $31
2187 C2BA3A    JP      NZ,$3ABA
218A 37        SCF
218B 79        LD      A,C
218C 17        RLA
218D 4F        LD      C,A
218E 23        INC     HL
218F 05        DEC     B
2190 C27F21    JP      NZ,$217F
2193 69        LD      L,C
2194 C35221    JP      $2152
2197 CDC70F    CALL    $0FC7
219A CDB63A    CALL    $3AB6
219D C35221    JP      $2152
21A0 FE5F      CP      $5F
21A2 CAAA21    JP      Z,$21AA
21A5 FE20      CP      $20
21A7 D8        RET     C
21A8 FE7F      CP      $7F
21AA 3F        CCF
21AB C9        RET
21AC 03        INC     BC
21AD 7E        LD      A,(HL)
21AE FE2A      CP      $2A
21B0 C2BB21    JP      NZ,$21BB
21B3 23        INC     HL
21B4 7E        LD      A,(HL)
21B5 FE2A      CP      $2A
21B7 CABB21    JP      Z,$21BB
21BA 2B        DEC     HL
21BB 32750E    LD      ($0E75),A
21BE 1E08      LD      E,$08
21C0 CDC621    CALL    $21C6
21C3 23        INC     HL
21C4 1E03      LD      E,$03
21C6 7E        LD      A,(HL)
21C7 FE2A      CP      $2A
21C9 CA0122    JP      Z,$2201
21CC FE2E      CP      $2E
21CE CAEE21    JP      Z,$21EE
21D1 CDF321    CALL    $21F3
21D4 CAED21    JP      Z,$21ED
21D7 57        LD      D,A
21D8 3A6C01    LD      A,($016C)
21DB B7        OR      A
21DC 7A        LD      A,D
21DD CC1638    CALL    Z,$3816
21E0 02        LD      (BC),A
21E1 1D        DEC     E
21E2 03        INC     BC
21E3 23        INC     HL
21E4 C2C621    JP      NZ,$21C6
21E7 7E        LD      A,(HL)
21E8 FE2E      CP      $2E
21EA CAEE21    JP      Z,$21EE
21ED 2B        DEC     HL
21EE 3E20      LD      A,$20
21F0 C30B22    JP      $220B
21F3 FE20      CP      $20
21F5 C8        RET     Z
21F6 FE5B      CP      $5B
21F8 C8        RET     Z
21F9 FE5D      CP      $5D
21FB C8        RET     Z
21FC FE3A      CP      $3A
21FE C8        RET     Z
21FF B7        OR      A
2200 C9        RET
2201 23        INC     HL
2202 7E        LD      A,(HL)
2203 FE2E      CP      $2E
2205 CA0922    JP      Z,$2209
2208 2B        DEC     HL
2209 3E3F      LD      A,$3F
220B 1C        INC     E
220C 1D        DEC     E
220D C8        RET     Z
220E 02        LD      (BC),A
220F 03        INC     BC
2210 C30C22    JP      $220C
2213 CD2B22    CALL    $222B
2216 C3D304    JP      $04D3
2219 CD2B22    CALL    $222B
221C 7B        LD      A,E
221D F680      OR      $80
221F 32AA0E    LD      ($0EAA),A
2222 3A9710    LD      A,($1097)
2225 CDFE32    CALL    $32FE
2228 C3D304    JP      $04D3
222B CDB70D    CALL    $0DB7
222E CADD0D    JP      Z,$0DDD
2231 CD792F    CALL    $2F79
2234 3E01      LD      A,$01
2236 32681E    LD      ($1E68),A
2239 E5        PUSH    HL
223A 7E        LD      A,(HL)
223B FE20      CP      $20
223D CA4E22    JP      Z,$224E
2240 FE30      CP      $30
2242 DABA3A    JP      C,$3ABA
2245 FE3A      CP      $3A
2247 D2BA3A    JP      NC,$3ABA
224A 23        INC     HL
224B C33A22    JP      $223A
224E 363A      LD      (HL),$3A
2250 E1        POP     HL
2251 CD8A0F    CALL    $0F8A
2254 3A6101    LD      A,($0161)
2257 BB        CP      E
2258 DA6122    JP      C,$2261
225B 7B        LD      A,E
225C FE10      CP      $10
225E DA6922    JP      C,$2269
2261 3A3406    LD      A,($0634)
2264 B7        OR      A
2265 7B        LD      A,E
2266 CA3906    JP      Z,$0639
2269 FE20      CP      $20
226B D2BA3A    JP      NC,$3ABA
226E F680      OR      $80
2270 32AA0E    LD      ($0EAA),A
2273 C30133    JP      $3301
2276 CD792F    CALL    $2F79
2279 CD1638    CALL    $3816
227C 32DC22    LD      ($22DC),A
227F 21D001    LD      HL,$01D0
2282 CD6338    CALL    $3863
2285 3A6401    LD      A,($0164)
2288 E67F      AND     $7F
228A 47        LD      B,A
228B CD610C    CALL    $0C61
228E CD792F    CALL    $2F79
2291 0E0F      LD      C,$0F
2293 E5        PUSH    HL
2294 2B        DEC     HL
2295 1600      LD      D,$00
2297 23        INC     HL
2298 7E        LD      A,(HL)
2299 B7        OR      A
229A F2A322    JP      P,$22A3
229D F5        PUSH    AF
229E 7A        LD      A,D
229F F601      OR      $01
22A1 57        LD      D,A
22A2 F1        POP     AF
22A3 E67F      AND     $7F
22A5 FE7F      CP      $7F
22A7 CABF22    JP      Z,$22BF
22AA CD1638    CALL    $3816
22AD D2B822    JP      NC,$22B8
22B0 FE20      CP      $20
22B2 CAC022    JP      Z,$22C0
22B5 D29722    JP      NC,$2297
22B8 3E02      LD      A,$02
22BA B2        OR      D
22BB 57        LD      D,A
22BC C39722    JP      $2297
22BF 57        LD      D,A
22C0 E1        POP     HL
22C1 7A        LD      A,D
22C2 FE7F      CP      $7F
22C4 CAF922    JP      Z,$22F9
22C7 0F        RRCA
22C8 57        LD      D,A
22C9 D2D622    JP      NC,$22D6
22CC 3A3406    LD      A,($0634)
22CF B7        OR      A
22D0 CAF922    JP      Z,$22F9
22D3 CD680C    CALL    $0C68
22D6 7A        LD      A,D
22D7 0F        RRCA
22D8 D2E222    JP      NC,$22E2
22DB 3E00      LD      A,$00
22DD FE3F      CP      $3F
22DF C2F922    JP      NZ,$22F9
22E2 7E        LD      A,(HL)
22E3 E67F      AND     $7F
22E5 FE20      CP      $20
22E7 CA0723    JP      Z,$2307
22EA D2EE22    JP      NC,$22EE
22ED 0D        DEC     C
22EE CD4137    CALL    $3741
22F1 23        INC     HL
22F2 0D        DEC     C
22F3 FAF922    JP      M,$22F9
22F6 C2E222    JP      NZ,$22E2
22F9 7E        LD      A,(HL)
22FA B7        OR      A
22FB CAD304    JP      Z,$04D3
22FE 23        INC     HL
22FF FE20      CP      $20
2301 C2F922    JP      NZ,$22F9
2304 C38B22    JP      $228B
2307 CD792F    CALL    $2F79
230A CAD304    JP      Z,$04D3
230D CDED38    CALL    $38ED
2310 0D        DEC     C
2311 C20D23    JP      NZ,$230D
2314 05        DEC     B
2315 C28B22    JP      NZ,$228B
2318 C38222    JP      $2282
231B CD6338    CALL    $3863
231E 3A6201    LD      A,($0162)
2321 C641      ADD     A,$41
2323 CDEF38    CALL    $38EF
2326 CD6838    CALL    $3868
2329 09        ADD     HL,BC
232A 49        LD      C,C
232B 66        LD      H,(HL)
232C 2004      JR      NZ,$2332
232E 2065      JR      NZ,$2395
2330 78        LD      A,B
2331 69        LD      L,C
2332 73        LD      (HL),E
2333 74        LD      (HL),H
2334 2041      JR      NZ,$2377
2336 2D        DEC     L
2337 6F        LD      L,A
2338 76        HALT
2339 65        LD      H,L
233A 72        LD      (HL),D
233B 6C        LD      L,H
233C 61        LD      H,C
233D 79        LD      A,C
233E 2C        INC     L
233F 2042      JR      NZ,$2383
2341 2D        DEC     L
2342 62        LD      H,D
2343 61        LD      H,C
2344 63        LD      H,E
2345 6B        LD      L,E
2346 2075      JR      NZ,$23BD
2348 70        LD      (HL),B
2349 2C        INC     L
234A 2043      JR      NZ,$238F
234C 2D        DEC     L
234D 61        LD      H,C
234E 73        LD      (HL),E
234F 6B        LD      L,E
2350 2C        INC     L
2351 2044      JR      NZ,$2397
2353 2D        DEC     L
2354 73        LD      (HL),E
2355 6B        LD      L,E
2356 69        LD      L,C
2357 70        LD      (HL),B
2358 8D        ADC     A,L
2359 3A6401    LD      A,($0164)
235C F5        PUSH    AF
235D C630      ADD     A,$30
235F CDEF38    CALL    $38EF
2362 CD6838    CALL    $3868
2365 09        ADD     HL,BC
2366 63        LD      H,E
2367 6F        LD      L,A
2368 6C        LD      L,H
2369 75        LD      (HL),L
236A 6D        LD      L,L
236B 6E        LD      L,(HL)
236C F3        DI
236D F1        POP     AF
236E 17        RLA
236F D27F23    JP      NC,$237F
2372 CD6838    CALL    $3868
2375 202B      JR      NZ,$23A2
2377 312069    LD      SP,$6920
237A 6E        LD      L,(HL)
237B 2044      JR      NZ,$23C1
237D 49        LD      C,C
237E D2CD68    JP      NC,$68CD
2381 380D      JR      C,$2390
2383 D0        RET     NC
2384 3A0501    LD      A,($0105)
2387 2F        CPL
2388 3C        INC     A
2389 CDE025    CALL    $25E0
238C CD6838    CALL    $3868
238F 09        ADD     HL,BC
2390 70        LD      (HL),B
2391 61        LD      H,C
2392 67        LD      H,A
2393 69        LD      L,C
2394 6E        LD      L,(HL)
2395 67        LD      H,A
2396 0D        DEC     C
2397 D23A63    JP      NC,$633A
239A 01CDE0    LD      BC,$E0CD
239D 25        DEC     H
239E CD6838    CALL    $3868
23A1 09        ADD     HL,BC
23A2 72        LD      (HL),D
23A3 65        LD      H,L
23A4 71        LD      (HL),C
23A5 75        LD      (HL),L
23A6 65        LD      H,L
23A7 73        LD      (HL),E
23A8 74        LD      (HL),H
23A9 2059      JR      NZ,$2404
23AB 2F        CPL
23AC 4E        LD      C,(HL)
23AD 206F      JR      NZ,$241E
23AF 6E        LD      L,(HL)
23B0 2063      JR      NZ,$2415
23B2 75        LD      (HL),L
23B3 72        LD      (HL),D
23B4 72        LD      (HL),D
23B5 65        LD      H,L
23B6 6E        LD      L,(HL)
23B7 74        LD      (HL),H
23B8 2004      JR      NZ,$23BE
23BA 09        ADD     HL,BC
23BB 2851      JR      Z,$240E
23BD 2D        DEC     L
23BE 72        LD      (HL),D
23BF 65        LD      H,L
23C0 71        LD      (HL),C
23C1 75        LD      (HL),L
23C2 65        LD      H,L
23C3 73        LD      (HL),E
23C4 74        LD      (HL),H
23C5 206E      JR      NZ,$2435
23C7 65        LD      H,L
23C8 77        LD      (HL),A
23C9 206E      JR      NZ,$2439
23CB 61        LD      H,C
23CC 6D        LD      L,L
23CD 65        LD      H,L
23CE 29        ADD     HL,HL
23CF 0D        DEC     C
23D0 D63A      SUB     $3A
23D2 67        LD      H,A
23D3 01CDE0    LD      BC,$E0CD
23D6 25        DEC     H
23D7 CD6838    CALL    $3868
23DA 09        ADD     HL,BC
23DB 72        LD      (HL),D
23DC 65        LD      H,L
23DD 61        LD      H,C
23DE 64        LD      H,H
23DF 2061      JR      NZ,$2442
23E1 66        LD      H,(HL)
23E2 74        LD      (HL),H
23E3 65        LD      H,L
23E4 72        LD      (HL),D
23E5 2077      JR      NZ,$245E
23E7 72        LD      (HL),D
23E8 69        LD      L,C
23E9 74        LD      (HL),H
23EA 65        LD      H,L
23EB 0D        DEC     C
23EC D33A      OUT     ($3A),A
23EE 65        LD      H,L
23EF 01CDE0    LD      BC,$E0CD
23F2 25        DEC     H
23F3 CD6838    CALL    $3868
23F6 09        ADD     HL,BC
23F7 73        LD      (HL),E
23F8 68        LD      L,B
23F9 6F        LD      L,A
23FA 77        LD      (HL),A
23FB 2073      JR      NZ,$2470
23FD 79        LD      A,C
23FE 73        LD      (HL),E
23FF 74        LD      (HL),H
2400 65        LD      H,L
2401 6D        LD      L,L
2402 2004      JR      NZ,$2408
2404 73        LD      (HL),E
2405 0D        DEC     C
2406 D43A66    CALL    NC,$663A
2409 01CDE0    LD      BC,$E0CD
240C 25        DEC     H
240D CD6838    CALL    $3868
2410 09        ADD     HL,BC
2411 73        LD      (HL),E
2412 74        LD      (HL),H
2413 6F        LD      L,A
2414 70        LD      (HL),B
2415 2069      JR      NZ,$2480
2417 66        LD      H,(HL)
2418 2005      JR      NZ,$241F
241A 69        LD      L,C
241B 73        LD      (HL),E
241C 2066      JR      NZ,$2484
241E 75        LD      (HL),L
241F 6C        LD      L,H
2420 6C        LD      L,H
2421 0D        DEC     C
2422 CD3A6B    CALL    $6B3A
2425 01B7CA    LD      BC,$CAB7
2428 2B        DEC     HL
2429 24        INC     H
242A 2F        CPL
242B CDE025    CALL    $25E0
242E CD6838    CALL    $3868
2431 09        ADD     HL,BC
2432 4D        LD      C,L
2433 61        LD      H,C
2434 72        LD      (HL),D
2435 6B        LD      L,E
2436 2063      JR      NZ,$249B
2438 6F        LD      L,A
2439 70        LD      (HL),B
243A 69        LD      L,C
243B 65        LD      H,L
243C 64        LD      H,H
243D 2066      JR      NZ,$24A5
243F 69        LD      L,C
2440 6C        LD      L,H
2441 65        LD      H,L
2442 73        LD      (HL),E
2443 0D        DEC     C
2444 58        LD      E,B
2445 09        ADD     HL,BC
2446 6C        LD      L,H
2447 69        LD      L,C
2448 73        LD      (HL),E
2449 74        LD      (HL),H
244A 2064      JR      NZ,$24B0
244C 72        LD      (HL),D
244D 69        LD      L,C
244E 76        HALT
244F 65        LD      H,L
2450 73        LD      (HL),E
2451 2018      JR      NZ,$246B
2453 41        LD      B,C
2454 AD        XOR     L
2455 3A6001    LD      A,($0160)
2458 5F        LD      E,A
2459 3A4834    LD      A,($3448)
245C 57        LD      D,A
245D B7        OR      A
245E 7B        LD      A,E
245F C26324    JP      NZ,$2463
2462 AF        XOR     A
2463 CD300E    CALL    $0E30
2466 CD8035    CALL    $3580
2469 7A        LD      A,D
246A A3        AND     E
246B C27C24    JP      NZ,$247C
246E CD6838    CALL    $3868
2471 2069      JR      NZ,$24DC
2473 66        LD      H,(HL)
2474 206F      JR      NZ,$24E5
2476 6E        LD      L,(HL)
2477 206C      JR      NZ,$24E5
2479 69        LD      L,C
247A 6E        LD      L,(HL)
247B E5        PUSH    HL
247C CDB70D    CALL    $0DB7
247F CADB24    JP      Z,$24DB
2482 CD6838    CALL    $3868
2485 0D        DEC     C
2486 55        LD      D,L
2487 09        ADD     HL,BC
2488 6C        LD      L,H
2489 69        LD      L,C
248A 73        LD      (HL),E
248B 74        LD      (HL),H
248C 2075      JR      NZ,$2503
248E 73        LD      (HL),E
248F 65        LD      H,L
2490 72        LD      (HL),D
2491 73        LD      (HL),E
2492 2020      JR      NZ,$24B4
2494 1830      JR      $24C6
2496 AD        XOR     L
2497 3A6101    LD      A,($0161)
249A CD972F    CALL    $2F97
249D CD6838    CALL    $3868
24A0 0D        DEC     C
24A1 A4        AND     H
24A2 3AF002    LD      A,($02F0)
24A5 2F        CPL
24A6 CDE025    CALL    $25E0
24A9 CD6838    CALL    $3868
24AC 09        ADD     HL,BC
24AD 73        LD      (HL),E
24AE 75        LD      (HL),L
24AF 62        LD      H,D
24B0 6D        LD      L,L
24B1 69        LD      L,C
24B2 74        LD      (HL),H
24B3 2024      JR      NZ,$24D9
24B5 24        INC     H
24B6 24        INC     H
24B7 2E53      LD      L,$53
24B9 55        LD      D,L
24BA 42        LD      B,D
24BB 83        ADD     A,E
24BC 21F002    LD      HL,$02F0
24BF 7E        LD      A,(HL)
24C0 B7        OR      A
24C1 F2C624    JP      P,$24C6
24C4 2F        CPL
24C5 B7        OR      A
24C6 C2CC24    JP      NZ,$24CC
24C9 3A7525    LD      A,($2575)
24CC CD7B35    CALL    $357B
24CF 23        INC     HL
24D0 7E        LD      A,(HL)
24D1 B7        OR      A
24D2 CADB24    JP      Z,$24DB
24D5 CDEF38    CALL    $38EF
24D8 C3CF24    JP      $24CF
24DB CD6838    CALL    $3868
24DE 0D        DEC     C
24DF 2B        DEC     HL
24E0 2F        CPL
24E1 2D        DEC     L
24E2 09        ADD     HL,BC
24E3 312D38    LD      SP,$382D
24E6 206F      JR      NZ,$2557
24E8 72        LD      (HL),D
24E9 2028      JR      NZ,$2513
24EB 52        LD      D,D
24EC 29        ADD     HL,HL
24ED 65        LD      H,L
24EE 61        LD      H,C
24EF 64        LD      H,H
24F0 2F        CPL
24F1 77        LD      (HL),A
24F2 72        LD      (HL),D
24F3 69        LD      L,C
24F4 74        LD      (HL),H
24F5 65        LD      H,L
24F6 2C        INC     L
24F7 2028      JR      NZ,$2521
24F9 53        LD      D,E
24FA 29        ADD     HL,HL
24FB 73        LD      (HL),E
24FC 79        LD      A,C
24FD 73        LD      (HL),E
24FE 74        LD      (HL),H
24FF 65        LD      H,L
2500 6D        LD      L,L
2501 2F        CPL
2502 64        LD      H,H
2503 69        LD      L,C
2504 72        LD      (HL),D
2505 2C        INC     L
2506 2065      JR      NZ,$256D
2508 2858      JR      Z,$2562
250A 29        ADD     HL,HL
250B 74        LD      (HL),H
250C 72        LD      (HL),D
250D 61        LD      H,C
250E 0D        DEC     C
250F 50        LD      D,B
2510 4F        LD      C,A
2511 57        LD      D,A
2512 45        LD      B,L
2513 52        LD      D,D
2514 89        ADC     A,C
2515 210001    LD      HL,$0100
2518 CDBA2F    CALL    $2FBA
251B CD6838    CALL    $3868
251E 48        LD      C,B
251F 83        ADD     A,E
2520 3A1D01    LD      A,($011D)
2523 6F        LD      L,A
2524 2600      LD      H,$00
2526 29        ADD     HL,HL
2527 EB        EX      DE,HL
2528 13        INC     DE
2529 2A0E03    LD      HL,($030E)
252C 19        ADD     HL,DE
252D E5        PUSH    HL
252E CDBA2F    CALL    $2FBA
2531 CD6838    CALL    $3868
2534 48        LD      C,B
2535 0D        DEC     C
2536 54        LD      D,H
2537 50        LD      D,B
2538 41        LD      B,C
2539 89        ADC     A,C
253A E1        POP     HL
253B 7D        LD      A,L
253C B7        OR      A
253D 118000    LD      DE,$0080
2540 6A        LD      L,D
2541 19        ADD     HL,DE
2542 F24625    JP      P,$2546
2545 19        ADD     HL,DE
2546 E5        PUSH    HL
2547 CDBA2F    CALL    $2FBA
254A CD6838    CALL    $3868
254D 48        LD      C,B
254E 83        ADD     A,E
254F 2A1813    LD      HL,($1318)
2552 2B        DEC     HL
2553 E5        PUSH    HL
2554 CDBA2F    CALL    $2FBA
2557 CD6838    CALL    $3868
255A 48        LD      C,B
255B A0        AND     B
255C E1        POP     HL
255D 23        INC     HL
255E D1        POP     DE
255F CD2C2B    CALL    $2B2C
2562 0607      LD      B,$07
2564 CD702F    CALL    $2F70
2567 05        DEC     B
2568 C26425    JP      NZ,$2564
256B CDDF2F    CALL    $2FDF
256E CD6838    CALL    $3868
2571 2001      JR      NZ,$2574
2573 00        NOP
2574 3E01      LD      A,$01
2576 32E004    LD      ($04E0),A
2579 0E1D      LD      C,$1D
257B CD0500    CALL    $0005
257E E5        PUSH    HL
257F 0E18      LD      C,$18
2581 CD0500    CALL    $0005
2584 EB        EX      DE,HL
2585 E1        POP     HL
2586 011000    LD      BC,$0010
2589 0D        DEC     C
258A FAD304    JP      M,$04D3
258D 78        LD      A,B
258E FE08      CP      $08
2590 C29525    JP      NZ,$2595
2593 6C        LD      L,H
2594 5A        LD      E,D
2595 04        INC     B
2596 7B        LD      A,E
2597 1F        RRA
2598 5F        LD      E,A
2599 D2D825    JP      NC,$25D8
259C E67F      AND     $7F
259E F5        PUSH    AF
259F C5        PUSH    BC
25A0 D5        PUSH    DE
25A1 78        LD      A,B
25A2 325C00    LD      ($005C),A
25A5 CD4E30    CALL    $304E
25A8 CD6338    CALL    $3863
25AB D1        POP     DE
25AC C1        POP     BC
25AD 78        LD      A,B
25AE CD7B35    CALL    $357B
25B1 CD6838    CALL    $3868
25B4 1820      JR      $25D6
25B6 52        LD      D,D
25B7 AF        XOR     A
25B8 7D        LD      A,L
25B9 1F        RRA
25BA 6F        LD      L,A
25BB 3E57      LD      A,$57
25BD D2C225    JP      NC,$25C2
25C0 3E4F      LD      A,$4F
25C2 CDEF38    CALL    $38EF
25C5 CDED38    CALL    $38ED
25C8 E5        PUSH    HL
25C9 D5        PUSH    DE
25CA C5        PUSH    BC
25CB CDFB25    CALL    $25FB
25CE CD1626    CALL    $2616
25D1 C1        POP     BC
25D2 D1        POP     DE
25D3 E1        POP     HL
25D4 F1        POP     AF
25D5 C38925    JP      $2589
25D8 F5        PUSH    AF
25D9 7D        LD      A,L
25DA 1F        RRA
25DB 6F        LD      L,A
25DC F1        POP     AF
25DD C38925    JP      $2589
25E0 B7        OR      A
25E1 FAF025    JP      M,$25F0
25E4 CD6838    CALL    $3868
25E7 2028      JR      NZ,$2611
25E9 184F      JR      $263A
25EB 46        LD      B,(HL)
25EC 46        LD      B,(HL)
25ED 17        RLA
25EE A9        XOR     C
25EF C9        RET
25F0 CD6838    CALL    $3868
25F3 2028      JR      NZ,$261D
25F5 184F      JR      $2646
25F7 4E        LD      C,(HL)
25F8 17        RLA
25F9 A9        XOR     C
25FA C9        RET
25FB 2AFC3A    LD      HL,($3AFC)
25FE 23        INC     HL
25FF CD0E26    CALL    $260E
2602 CA0A26    JP      Z,$260A
2605 29        ADD     HL,HL
2606 3D        DEC     A
2607 C30226    JP      $2602
260A 227B1F    LD      ($1F7B),HL
260D C9        RET
260E 3AF93A    LD      A,($3AF9)
2611 D603      SUB     $03
2613 C0        RET     NZ
2614 37        SCF
2615 C9        RET
2616 210000    LD      HL,$0000
2619 223C1E    LD      ($1E3C),HL
261C 2AFC3A    LD      HL,($3AFC)
261F 23        INC     HL
2620 EB        EX      DE,HL
2621 0E1B      LD      C,$1B
2623 D5        PUSH    DE
2624 CD0500    CALL    $0005
2627 D1        POP     DE
2628 0608      LD      B,$08
262A 7E        LD      A,(HL)
262B 07        RLCA
262C DA3826    JP      C,$2638
262F E5        PUSH    HL
2630 2A3C1E    LD      HL,($1E3C)
2633 23        INC     HL
2634 223C1E    LD      ($1E3C),HL
2637 E1        POP     HL
2638 F5        PUSH    AF
2639 1B        DEC     DE
263A 7A        LD      A,D
263B B3        OR      E
263C CA4826    JP      Z,$2648
263F F1        POP     AF
2640 05        DEC     B
2641 C22B26    JP      NZ,$262B
2644 23        INC     HL
2645 C32826    JP      $2628
2648 F1        POP     AF
2649 CD0E26    CALL    $260E
264C CA5A26    JP      Z,$265A
264F 2A3C1E    LD      HL,($1E3C)
2652 29        ADD     HL,HL
2653 223C1E    LD      ($1E3C),HL
2656 3D        DEC     A
2657 C34C26    JP      $264C
265A CD6838    CALL    $3868
265D 55        LD      D,L
265E 73        LD      (HL),E
265F 65        LD      H,L
2660 64        LD      H,H
2661 BA        CP      D
2662 2A3C1E    LD      HL,($1E3C)
2665 EB        EX      DE,HL
2666 2A7B1F    LD      HL,($1F7B)
2669 CD2C2B    CALL    $2B2C
266C E5        PUSH    HL
266D 2AFE3A    LD      HL,($3AFE)
2670 23        INC     HL
2671 0E20      LD      C,$20
2673 CD401C    CALL    $1C40
2676 EB        EX      DE,HL
2677 E1        POP     HL
2678 CD2C2B    CALL    $2B2C
267B CD9F26    CALL    $269F
267E CD6838    CALL    $3868
2681 2C        INC     L
2682 2046      JR      NZ,$26CA
2684 72        LD      (HL),D
2685 65        LD      H,L
2686 65        LD      H,L
2687 BA        CP      D
2688 2A3C1E    LD      HL,($1E3C)
268B CD9F26    CALL    $269F
268E CD6838    CALL    $3868
2691 2C        INC     L
2692 2043      JR      NZ,$26D7
2694 61        LD      H,C
2695 70        LD      (HL),B
2696 61        LD      H,C
2697 63        LD      H,E
2698 69        LD      L,C
2699 74        LD      (HL),H
269A 79        LD      A,C
269B BA        CP      D
269C 2A7B1F    LD      HL,($1F7B)
269F CDDF2F    CALL    $2FDF
26A2 CD6838    CALL    $3868
26A5 CBC9      SET     1,C
26A7 CD6838    CALL    $3868
26AA 03        INC     BC
26AB 64        LD      H,H
26AC 65        LD      H,L
26AD 6C        LD      L,H
26AE 65        LD      H,L
26AF 74        LD      (HL),H
26B0 65        LD      H,L
26B1 64        LD      H,H
26B2 2004      JR      NZ,$26B8
26B4 73        LD      (HL),E
26B5 0D        DEC     C
26B6 8D        ADC     A,L
26B7 CD4E30    CALL    $304E
26BA 3E02      LD      A,$02
26BC 32BD33    LD      ($33BD),A
26BF 2A043B    LD      HL,($3B04)
26C2 220027    LD      ($2700),HL
26C5 210100    LD      HL,$0001
26C8 220627    LD      ($2706),HL
26CB 2AFE3A    LD      HL,($3AFE)
26CE 23        INC     HL
26CF CD702F    CALL    $2F70
26D2 CD702F    CALL    $2F70
26D5 44        LD      B,H
26D6 4D        LD      C,L
26D7 2A771E    LD      HL,($1E77)
26DA EB        EX      DE,HL
26DB C5        PUSH    BC
26DC D5        PUSH    DE
26DD 42        LD      B,D
26DE 4B        LD      C,E
26DF 3A1913    LD      A,($1319)
26E2 3D        DEC     A
26E3 3D        DEC     A
26E4 BA        CP      D
26E5 DA5E2F    JP      C,$2F5E
26E8 CDC931    CALL    $31C9
26EB CDFF26    CALL    $26FF
26EE 3AE41E    LD      A,($1EE4)
26F1 3D        DEC     A
26F2 C24927    JP      NZ,$2749
26F5 3D        DEC     A
26F6 325C30    LD      ($305C),A
26F9 CDBA33    CALL    $33BA
26FC C34C27    JP      $274C
26FF 110200    LD      DE,$0002
2702 CD2332    CALL    $3223
2705 110100    LD      DE,$0001
2708 E5        PUSH    HL
2709 D5        PUSH    DE
270A 2A043B    LD      HL,($3B04)
270D EB        EX      DE,HL
270E 220627    LD      ($2706),HL
2711 2A0027    LD      HL,($2700)
2714 CD2C2B    CALL    $2B2C
2717 C1        POP     BC
2718 60        LD      H,B
2719 69        LD      L,C
271A D22727    JP      NC,$2727
271D 3E01      LD      A,$01
271F B7        OR      A
2720 C23F27    JP      NZ,$273F
2723 2B        DEC     HL
2724 C33F27    JP      $273F
2727 214AEC    LD      HL,$EC4A
272A EB        EX      DE,HL
272B 0B        DEC     BC
272C CD30CA    CALL    $CA30		; *** call address directly modified at beginning of this program to hold addr of BIOS SECTRAN
272F 3AF83A    LD      A,($3AF8)
2732 B7        OR      A
2733 C23727    JP      NZ,$2737
2736 67        LD      H,A
2737 CDB70D    CALL    $0DB7
273A C23F27    JP      NZ,$273F
273D 67        LD      H,A
273E 69        LD      L,C
273F 22CD30    LD      ($30CD),HL
2742 44        LD      B,H
2743 4D        LD      C,L
2744 CD21CA    CALL    $CA21		; *** call address directly modified at beginning of this program to hold addr of BIOS SETSEC
2747 E1        POP     HL
2748 C9        RET
2749 CDB033    CALL    $33B0
274C CDC728    CALL    $28C7
274F D1        POP     DE
2750 C1        POP     BC
2751 218000    LD      HL,$0080
2754 19        ADD     HL,DE
2755 EB        EX      DE,HL
2756 0B        DEC     BC
2757 78        LD      A,B
2758 B1        OR      C
2759 C2DB26    JP      NZ,$26DB
275C D5        PUSH    DE
275D CDC631    CALL    $31C6
2760 D1        POP     DE
2761 3AE41E    LD      A,($1EE4)
2764 B7        OR      A
2765 C0        RET     NZ
2766 2AFE3A    LD      HL,($3AFE)
2769 44        LD      B,H
276A 4D        LD      C,L
276B 2A771E    LD      HL,($1E77)
276E 112000    LD      DE,$0020
2771 7E        LD      A,(HL)
2772 FEE5      CP      $E5
2774 23        INC     HL
2775 C2B928    JP      NZ,$28B9
2778 23        INC     HL
2779 7E        LD      A,(HL)
277A FEE5      CP      $E5
277C 2B        DEC     HL
277D 2B        DEC     HL
277E CAB928    JP      Z,$28B9
2781 23        INC     HL
2782 3A5C00    LD      A,($005C)
2785 CD7B35    CALL    $357B
2788 5D        LD      E,L
2789 54        LD      D,H
278A C5        PUSH    BC
278B D5        PUSH    DE
278C E5        PUSH    HL
278D CD180C    CALL    $0C18
2790 D1        POP     DE
2791 D5        PUSH    DE
2792 1B        DEC     DE
2793 D5        PUSH    DE
2794 1A        LD      A,(DE)
2795 32E41E    LD      ($1EE4),A
2798 3A5C00    LD      A,($005C)
279B CD9E32    CALL    $329E
279E 12        LD      (DE),A
279F D5        PUSH    DE
27A0 210C00    LD      HL,$000C
27A3 19        ADD     HL,DE
27A4 7E        LD      A,(HL)
27A5 32D60B    LD      ($0BD6),A
27A8 3600      LD      (HL),$00
27AA D1        POP     DE
27AB E5        PUSH    HL
27AC CD9F31    CALL    $319F
27AF E1        POP     HL
27B0 3AD60B    LD      A,($0BD6)
27B3 77        LD      (HL),A
27B4 3AE41E    LD      A,($1EE4)
27B7 D1        POP     DE
27B8 12        LD      (DE),A
27B9 CAD527    JP      Z,$27D5
27BC CD6838    CALL    $3868
27BF 03        INC     BC
27C0 02        LD      (BC),A
27C1 72        LD      (HL),D
27C2 65        LD      H,L
27C3 63        LD      H,E
27C4 6F        LD      L,A
27C5 76        HALT
27C6 65        LD      H,L
27C7 72        LD      (HL),D
27C8 2C        INC     L
27C9 2004      JR      NZ,$27CF
27CB 2065      JR      NZ,$2832
27CD 78        LD      A,B
27CE 69        LD      L,C
27CF 73        LD      (HL),E
27D0 74        LD      (HL),H
27D1 F3        DI
27D2 C3B328    JP      $28B3
27D5 3AFB3A    LD      A,($3AFB)
27D8 4F        LD      C,A
27D9 3AD60B    LD      A,($0BD6)
27DC B9        CP      C
27DD CA0728    JP      Z,$2807
27E0 81        ADD     A,C
27E1 B9        CP      C
27E2 CA0728    JP      Z,$2807
27E5 CD6838    CALL    $3868
27E8 03        INC     BC
27E9 02        LD      (BC),A
27EA 72        LD      (HL),D
27EB 65        LD      H,L
27EC 63        LD      H,E
27ED 6F        LD      L,A
27EE 76        HALT
27EF 65        LD      H,L
27F0 72        LD      (HL),D
27F1 2C        INC     L
27F2 2004      JR      NZ,$27F8
27F4 2077      JR      NZ,$286D
27F6 69        LD      L,C
27F7 74        LD      (HL),H
27F8 68        LD      L,B
27F9 2062      JR      NZ,$285D
27FB 61        LD      H,C
27FC 64        LD      H,H
27FD 2065      JR      NZ,$2864
27FF 78        LD      A,B
2800 74        LD      (HL),H
2801 65        LD      H,L
2802 6E        LD      L,(HL)
2803 F4C3B3    CALL    P,$B3C3
2806 28CD      JR      Z,$27D5
2808 68        LD      L,B
2809 3803      JR      C,$280E
280B 72        LD      (HL),D
280C 65        LD      H,L
280D 63        LD      H,E
280E 6F        LD      L,A
280F 76        HALT
2810 65        LD      H,L
2811 F2CD1B    JP      P,$1BCD
2814 1C        INC     E
2815 C2B328    JP      NZ,$28B3
2818 325628    LD      ($2856),A
281B E1        POP     HL
281C D1        POP     DE
281D C1        POP     BC
281E C5        PUSH    BC
281F D5        PUSH    DE
2820 E5        PUSH    HL
2821 2B        DEC     HL
2822 227B1F    LD      ($1F7B),HL
2825 3A9710    LD      A,($1097)
2828 E67F      AND     $7F
282A 77        LD      (HL),A
282B E5        PUSH    HL
282C 110900    LD      DE,$0009
282F 19        ADD     HL,DE
2830 CDB70D    CALL    $0DB7
2833 CA3A28    JP      Z,$283A
2836 7E        LD      A,(HL)
2837 F680      OR      $80
2839 77        LD      (HL),A
283A 23        INC     HL
283B 23        INC     HL
283C 23        INC     HL
283D 7E        LD      A,(HL)
283E 32D60B    LD      ($0BD6),A
2841 23        INC     HL
2842 23        INC     HL
2843 23        INC     HL
2844 7E        LD      A,(HL)
2845 FE80      CP      $80
2847 E1        POP     HL
2848 C2A328    JP      NZ,$28A3
284B 112000    LD      DE,$0020
284E 19        ADD     HL,DE
284F 0B        DEC     BC
2850 78        LD      A,B
2851 B1        OR      C
2852 C26728    JP      NZ,$2867
2855 3E00      LD      A,$00
2857 B7        OR      A
2858 C2A328    JP      NZ,$28A3
285B 2F        CPL
285C 325628    LD      ($2856),A
285F 2AFE3A    LD      HL,($3AFE)
2862 44        LD      B,H
2863 4D        LD      C,L
2864 2A771E    LD      HL,($1E77)
2867 7E        LD      A,(HL)
2868 FEE5      CP      $E5
286A C24B28    JP      NZ,$284B
286D 223C1E    LD      ($1E3C),HL
2870 EB        EX      DE,HL
2871 2A7B1F    LD      HL,($1F7B)
2874 C5        PUSH    BC
2875 0E0B      LD      C,$0B
2877 23        INC     HL
2878 13        INC     DE
2879 1A        LD      A,(DE)
287A BE        CP      (HL)
287B CA8428    JP      Z,$2884
287E F680      OR      $80
2880 BE        CP      (HL)
2881 C29B28    JP      NZ,$289B
2884 0D        DEC     C
2885 C27728    JP      NZ,$2877
2888 23        INC     HL
2889 3AD60B    LD      A,($0BD6)
288C 96        SUB     (HL)
288D FAA228    JP      M,$28A2
2890 2A3C1E    LD      HL,($1E3C)
2893 79        LD      A,C
2894 325628    LD      ($2856),A
2897 C1        POP     BC
2898 C32528    JP      $2825
289B C1        POP     BC
289C 2A3C1E    LD      HL,($1E3C)
289F C34B28    JP      $284B
28A2 C1        POP     BC
28A3 3E01      LD      A,$01
28A5 32E41E    LD      ($1EE4),A
28A8 CDBF26    CALL    $26BF
28AB 3E80      LD      A,$80
28AD 32E41E    LD      ($1EE4),A
28B0 CDBF26    CALL    $26BF
28B3 CD6338    CALL    $3863
28B6 E1        POP     HL
28B7 D1        POP     DE
28B8 C1        POP     BC
28B9 2B        DEC     HL
28BA 112000    LD      DE,$0020
28BD 19        ADD     HL,DE
28BE 0B        DEC     BC
28BF 78        LD      A,B
28C0 B1        OR      C
28C1 C27127    JP      NZ,$2771
28C4 C3D304    JP      $04D3
28C7 E5        PUSH    HL
28C8 D5        PUSH    DE
28C9 2A0627    LD      HL,($2706)
28CC 23        INC     HL
28CD EB        EX      DE,HL
28CE 2AF73A    LD      HL,($3AF7)
28D1 CD2C2B    CALL    $2B2C
28D4 EB        EX      DE,HL
28D5 D2F028    JP      NC,$28F0
28D8 2A0027    LD      HL,($2700)
28DB 23        INC     HL
28DC EB        EX      DE,HL
28DD 2A2532    LD      HL,($3225)
28E0 CD2C2B    CALL    $2B2C
28E3 D2E928    JP      NC,$28E9
28E6 110000    LD      DE,$0000
28E9 EB        EX      DE,HL
28EA 220027    LD      ($2700),HL
28ED 210100    LD      HL,$0001
28F0 220627    LD      ($2706),HL
28F3 D1        POP     DE
28F4 E1        POP     HL
28F5 C9        RET
28F6 E5        PUSH    HL
28F7 CD2F35    CALL    $352F
28FA CD6838    CALL    $3868
28FD 47        LD      B,A
28FE BD        CP      L
28FF 2A043B    LD      HL,($3B04)
2902 EB        EX      DE,HL
2903 2A0027    LD      HL,($2700)
2906 CD2C2B    CALL    $2B2C
2909 DA1E29    JP      C,$291E
290C 2A0A34    LD      HL,($340A)
290F CDBA2F    CALL    $2FBA
2912 CD7E35    CALL    $357E
2915 3AD132    LD      A,($32D1)
2918 CDB42F    CALL    $2FB4
291B C32829    JP      $2928
291E CD6838    CALL    $3868
2921 2D        DEC     L
2922 2D        DEC     L
2923 2D        DEC     L
2924 2D        DEC     L
2925 3A2DAD    LD      A,($AD2D)
2928 CD6838    CALL    $3868
292B 2054      JR      NZ,$2981
292D BD        CP      L
292E 4F        LD      C,A
292F 2A0027    LD      HL,($2700)
2932 CDE72F    CALL    $2FE7
2935 CD6838    CALL    $3868
2938 2053      JR      NZ,$298D
293A BD        CP      L
293B 2A0627    LD      HL,($2706)
293E CDED2F    CALL    $2FED
2941 CD6838    CALL    $3868
2944 2050      JR      NZ,$2996
2946 53        LD      D,E
2947 BD        CP      L
2948 2ACD30    LD      HL,($30CD)
294B CDED2F    CALL    $2FED
294E E1        POP     HL
294F C9        RET
2950 3AEF14    LD      A,($14EF)
2953 FE21      CP      $21
2955 3E1F      LD      A,$1F
2957 CA5C29    JP      Z,$295C
295A 3E20      LD      A,$20
295C 32EF14    LD      ($14EF),A
295F CD4E30    CALL    $304E
2962 CD2620    CALL    $2026
2965 CDB63A    CALL    $3AB6
2968 EB        EX      DE,HL
2969 E5        PUSH    HL
296A 2AFC3A    LD      HL,($3AFC)
296D CD2C2B    CALL    $2B2C
2970 CDBD32    CALL    $32BD
2973 210100    LD      HL,$0001
2976 227B1F    LD      ($1F7B),HL
2979 C3A429    JP      $29A4
297C CD4E30    CALL    $304E
297F CDAE3A    CALL    $3AAE
2982 CDC70F    CALL    $0FC7
2985 CDB63A    CALL    $3AB6
2988 220027    LD      ($2700),HL
298B 210100    LD      HL,$0001
298E 227B1F    LD      ($1F7B),HL
2991 EB        EX      DE,HL
2992 CDAF3A    CALL    $3AAF
2995 CDC70F    CALL    $0FC7
2998 CDB63A    CALL    $3AB6
299B D5        PUSH    DE
299C 220627    LD      ($2706),HL
299F 7D        LD      A,L
29A0 B4        OR      H
29A1 CA332B    JP      Z,$2B33
29A4 E1        POP     HL
29A5 CD782F    CALL    $2F78
29A8 CA112A    JP      Z,$2A11
29AB 3AEF14    LD      A,($14EF)
29AE FE1F      CP      $1F
29B0 C2F029    JP      NZ,$29F0
29B3 7E        LD      A,(HL)
29B4 CD1638    CALL    $3816
29B7 FE58      CP      $58
29B9 C2F029    JP      NZ,$29F0
29BC 3E06      LD      A,$06
29BE 328215    LD      ($1582),A
29C1 23        INC     HL
29C2 7E        LD      A,(HL)
29C3 CD1638    CALL    $3816
29C6 FE20      CP      $20
29C8 CADF29    JP      Z,$29DF
29CB FE41      CP      $41
29CD C2D529    JP      NZ,$29D5
29D0 3E08      LD      A,$08
29D2 C3DC29    JP      $29DC
29D5 FE48      CP      $48
29D7 C2DC29    JP      NZ,$29DC
29DA 3E07      LD      A,$07
29DC 328215    LD      ($1582),A
29DF E5        PUSH    HL
29E0 218000    LD      HL,$0080
29E3 223C1E    LD      ($1E3C),HL
29E6 E1        POP     HL
29E7 CD782F    CALL    $2F78
29EA C2002A    JP      NZ,$2A00
29ED C3172A    JP      $2A17
29F0 CD2620    CALL    $2026
29F3 CDB63A    CALL    $3AB6
29F6 223C1E    LD      ($1E3C),HL
29F9 EB        EX      DE,HL
29FA CD782F    CALL    $2F78
29FD CA172A    JP      Z,$2A17
2A00 CDC70F    CALL    $0FC7
2A03 CDB63A    CALL    $3AB6
2A06 227B1F    LD      ($1F7B),HL
2A09 7D        LD      A,L
2A0A B4        OR      H
2A0B CAD304    JP      Z,$04D3
2A0E C3172A    JP      $2A17
2A11 218000    LD      HL,$0080
2A14 223C1E    LD      ($1E3C),HL
2A17 2A7B1F    LD      HL,($1F7B)
2A1A 3A1901    LD      A,($0119)
2A1D 3D        DEC     A
2A1E FEFF      CP      $FF
2A20 C2272A    JP      NZ,$2A27
2A23 3AF93A    LD      A,($3AF9)
2A26 3C        INC     A
2A27 5F        LD      E,A
2A28 4F        LD      C,A
2A29 1600      LD      D,$00
2A2B CD2C2B    CALL    $2B2C
2A2E 3E03      LD      A,$03
2A30 DE01      SBC     A,$01
2A32 32BD33    LD      ($33BD),A
2A35 79        LD      A,C
2A36 32062B    LD      ($2B06),A
2A39 2A3C1E    LD      HL,($1E3C)
2A3C EB        EX      DE,HL
2A3D CDC931    CALL    $31C9
2A40 CD122B    CALL    $2B12
2A43 DA602A    JP      C,$2A60
2A46 CDFF26    CALL    $26FF
2A49 2A7B1F    LD      HL,($1F7B)
2A4C 2B        DEC     HL
2A4D 7D        LD      A,L
2A4E B4        OR      H
2A4F CA602A    JP      Z,$2A60
2A52 3A8215    LD      A,($1582)
2A55 B7        OR      A
2A56 C2602A    JP      NZ,$2A60
2A59 3A0C01    LD      A,($010C)
2A5C B7        OR      A
2A5D CA802A    JP      Z,$2A80
2A60 CD6338    CALL    $3863
2A63 CDF628    CALL    $28F6
2A66 CD6838    CALL    $3868
2A69 2041      JR      NZ,$2AAC
2A6B 74        LD      (HL),H
2A6C BA        CP      D
2A6D 2A3C1E    LD      HL,($1E3C)
2A70 E5        PUSH    HL
2A71 CDBA2F    CALL    $2FBA
2A74 CD6838    CALL    $3868
2A77 AD        XOR     L
2A78 E1        POP     HL
2A79 117F00    LD      DE,$007F
2A7C 19        ADD     HL,DE
2A7D CDBA2F    CALL    $2FBA
2A80 CD122B    CALL    $2B12
2A83 DA332B    JP      C,$2B33
2A86 3AEF14    LD      A,($14EF)
2A89 B7        OR      A
2A8A CA332B    JP      Z,$2B33
2A8D FE1F      CP      $1F
2A8F F5        PUSH    AF
2A90 CCB033    CALL    Z,$33B0
2A93 F1        POP     AF
2A94 C4BA33    CALL    NZ,$33BA
2A97 3AEF14    LD      A,($14EF)
2A9A F5        PUSH    AF
2A9B 2A3C1E    LD      HL,($1E3C)
2A9E E5        PUSH    HL
2A9F 217000    LD      HL,$0070
2AA2 223C1E    LD      ($1E3C),HL
2AA5 218000    LD      HL,$0080
2AA8 7D        LD      A,L
2AA9 E60F      AND     $0F
2AAB 322F15    LD      ($152F),A
2AAE 3A8215    LD      A,($1582)
2AB1 32EF14    LD      ($14EF),A
2AB4 B7        OR      A
2AB5 CAD22A    JP      Z,$2AD2
2AB8 F5        PUSH    AF
2AB9 3A0C01    LD      A,($010C)
2ABC B7        OR      A
2ABD F5        PUSH    AF
2ABE C46338    CALL    NZ,$3863
2AC1 CD0714    CALL    $1407
2AC4 F1        POP     AF
2AC5 CACD2A    JP      Z,$2ACD
2AC8 CD6838    CALL    $3868
2ACB 0D        DEC     C
2ACC 8D        ADC     A,L
2ACD F1        POP     AF
2ACE 210000    LD      HL,$0000
2AD1 E3        EX      (SP),HL
2AD2 E1        POP     HL
2AD3 223C1E    LD      ($1E3C),HL
2AD6 F1        POP     AF
2AD7 32EF14    LD      ($14EF),A
2ADA 2A3C1E    LD      HL,($1E3C)
2ADD 118000    LD      DE,$0080
2AE0 19        ADD     HL,DE
2AE1 223C1E    LD      ($1E3C),HL
2AE4 2A7B1F    LD      HL,($1F7B)
2AE7 2B        DEC     HL
2AE8 227B1F    LD      ($1F7B),HL
2AEB 7D        LD      A,L
2AEC B4        OR      H
2AED CAD304    JP      Z,$04D3
2AF0 CDC728    CALL    $28C7
2AF3 D2052B    JP      NC,$2B05
2AF6 AF        XOR     A
2AF7 32EF14    LD      ($14EF),A
2AFA 67        LD      H,A
2AFB 3A1E27    LD      A,($271E)
2AFE 6F        LD      L,A
2AFF 22CD30    LD      ($30CD),HL
2B02 C3602A    JP      $2A60
2B05 3E01      LD      A,$01
2B07 3D        DEC     A
2B08 32062B    LD      ($2B06),A
2B0B B7        OR      A
2B0C CA172A    JP      Z,$2A17
2B0F C3392A    JP      $2A39
2B12 2A0027    LD      HL,($2700)
2B15 EB        EX      DE,HL
2B16 2A2532    LD      HL,($3225)
2B19 CD2C2B    CALL    $2B2C
2B1C D8        RET     C
2B1D 7D        LD      A,L
2B1E B4        OR      H
2B1F 2A0627    LD      HL,($2706)
2B22 EB        EX      DE,HL
2B23 2AF73A    LD      HL,($3AF7)
2B26 C22C2B    JP      NZ,$2B2C
2B29 211400    LD      HL,$0014
2B2C 7D        LD      A,L
2B2D 93        SUB     E
2B2E 6F        LD      L,A
2B2F 7C        LD      A,H
2B30 9A        SBC     A,D
2B31 67        LD      H,A
2B32 C9        RET
2B33 CD6838    CALL    $3868
2B36 07        RLCA
2B37 03        INC     BC
2B38 4F        LD      C,A
2B39 75        LD      (HL),L
2B3A 74        LD      (HL),H
2B3B 206F      JR      NZ,$2BAC
2B3D 66        LD      H,(HL)
2B3E 2005      JR      NZ,$2B45
2B40 62        LD      H,D
2B41 6F        LD      L,A
2B42 75        LD      (HL),L
2B43 6E        LD      L,(HL)
2B44 64        LD      H,H
2B45 73        LD      (HL),E
2B46 00        NOP
2B47 CD1F2F    CALL    $2F1F
2B4A 2A3C1E    LD      HL,($1E3C)
2B4D E5        PUSH    HL
2B4E CD8B2B    CALL    $2B8B
2B51 CD6838    CALL    $3868
2B54 204C      JR      NZ,$2BA2
2B56 61        LD      H,C
2B57 73        LD      (HL),E
2B58 74        LD      (HL),H
2B59 2041      JR      NZ,$2B9C
2B5B 64        LD      H,H
2B5C 64        LD      H,H
2B5D 72        LD      (HL),D
2B5E 65        LD      H,L
2B5F 73        LD      (HL),E
2B60 73        LD      (HL),E
2B61 BA        CP      D
2B62 2A3C1E    LD      HL,($1E3C)
2B65 D1        POP     DE
2B66 7C        LD      A,H
2B67 BA        CP      D
2B68 C2702B    JP      NZ,$2B70
2B6B 7D        LD      A,L
2B6C BB        CP      E
2B6D CA712B    JP      Z,$2B71
2B70 2B        DEC     HL
2B71 CDBA2F    CALL    $2FBA
2B74 CD6838    CALL    $3868
2B77 48        LD      C,B
2B78 A0        AND     B
2B79 CDC631    CALL    $31C6
2B7C CDB02B    CALL    $2BB0
2B7F 2A273B    LD      HL,($3B27)
2B82 CDDF2F    CALL    $2FDF
2B85 CD6838    CALL    $3868
2B88 2001      JR      NZ,$2B8B
2B8A 00        NOP
2B8B 115C00    LD      DE,$005C
2B8E CDD631    CALL    $31D6
2B91 2A3C1E    LD      HL,($1E3C)
2B94 EB        EX      DE,HL
2B95 CDC931    CALL    $31C9
2B98 115C00    LD      DE,$005C
2B9B CD1132    CALL    $3211
2B9E 3D        DEC     A
2B9F C8        RET     Z
2BA0 2A3C1E    LD      HL,($1E3C)
2BA3 118000    LD      DE,$0080
2BA6 19        ADD     HL,DE
2BA7 223C1E    LD      ($1E3C),HL
2BAA C3912B    JP      $2B91
2BAD CD1F2F    CALL    $2F1F
2BB0 215C00    LD      HL,$005C
2BB3 112A3B    LD      DE,$3B2A
2BB6 D5        PUSH    DE
2BB7 CDBA37    CALL    $37BA
2BBA E1        POP     HL
2BBB E5        PUSH    HL
2BBC 11063B    LD      DE,$3B06
2BBF CDBA37    CALL    $37BA
2BC2 D1        POP     DE
2BC3 CD9F31    CALL    $319F
2BC6 C2D42B    JP      NZ,$2BD4
2BC9 3AEF14    LD      A,($14EF)
2BCC FE1D      CP      $1D
2BCE C2DF31    JP      NZ,$31DF
2BD1 C3022C    JP      $2C02
2BD4 D5        PUSH    DE
2BD5 CD3030    CALL    $3030
2BD8 D1        POP     DE
2BD9 CD601B    CALL    $1B60
2BDC 3AEF14    LD      A,($14EF)
2BDF FE1D      CP      $1D
2BE1 C0        RET     NZ
2BE2 3AD60B    LD      A,($0BD6)
2BE5 B7        OR      A
2BE6 F2EF2B    JP      P,$2BEF
2BE9 CD6D31    CALL    $316D
2BEC C3D304    JP      $04D3
2BEF 2A7B1F    LD      HL,($1F7B)
2BF2 23        INC     HL
2BF3 7D        LD      A,L
2BF4 B4        OR      H
2BF5 C2FF2B    JP      NZ,$2BFF
2BF8 2A273B    LD      HL,($3B27)
2BFB 23        INC     HL
2BFC 227B1F    LD      ($1F7B),HL
2BFF CDBE31    CALL    $31BE
2C02 2A7B1F    LD      HL,($1F7B)
2C05 23        INC     HL
2C06 7D        LD      A,L
2C07 B4        OR      H
2C08 CABA3A    JP      Z,$3ABA
2C0B CDAF31    CALL    $31AF
2C0E 2A7B1F    LD      HL,($1F7B)
2C11 2B        DEC     HL
2C12 227B1F    LD      ($1F7B),HL
2C15 7D        LD      A,L
2C16 B4        OR      H
2C17 CA302C    JP      Z,$2C30
2C1A 2A3C1E    LD      HL,($1E3C)
2C1D E5        PUSH    HL
2C1E EB        EX      DE,HL
2C1F CDC931    CALL    $31C9
2C22 E1        POP     HL
2C23 118000    LD      DE,$0080
2C26 19        ADD     HL,DE
2C27 223C1E    LD      ($1E3C),HL
2C2A CD8535    CALL    $3585
2C2D C30E2C    JP      $2C0E
2C30 CDF131    CALL    $31F1
2C33 C3D304    JP      $04D3
2C36 CD1F2F    CALL    $2F1F
2C39 EB        EX      DE,HL
2C3A 227B1F    LD      ($1F7B),HL
2C3D 318A3B    LD      SP,$3B8A
2C40 212404    LD      HL,$0424
2C43 E5        PUSH    HL
2C44 2A3C1E    LD      HL,($1E3C)
2C47 E5        PUSH    HL
2C48 CD8B2B    CALL    $2B8B
2C4B 2A7B1F    LD      HL,($1F7B)
2C4E C9        RET
2C4F CD082D    CALL    $2D08
2C52 7C        LD      A,H
2C53 B5        OR      L
2C54 CAD304    JP      Z,$04D3
2C57 E5        PUSH    HL
2C58 2A7B1F    LD      HL,($1F7B)
2C5B 78        LD      A,B
2C5C BC        CP      H
2C5D DA7C2C    JP      C,$2C7C
2C60 C2682C    JP      NZ,$2C68
2C63 79        LD      A,C
2C64 BD        CP      L
2C65 DA7C2C    JP      C,$2C7C
2C68 D1        POP     DE
2C69 19        ADD     HL,DE
2C6A E5        PUSH    HL
2C6B 60        LD      H,B
2C6C 69        LD      L,C
2C6D 19        ADD     HL,DE
2C6E 44        LD      B,H
2C6F 4D        LD      C,L
2C70 E1        POP     HL
2C71 13        INC     DE
2C72 7E        LD      A,(HL)
2C73 02        LD      (BC),A
2C74 0B        DEC     BC
2C75 2B