MOV AX, 3F00
MOV BX, 0000
MOV CX, FFFF
MOV DX, 02FA
INT 21
MOV SI, 02FA
MOV DI, 02FA
PSH DI
MOV CX, 0001
MOV DI, 029E
CMPD
JNE 03
JMP 0008
INC CX
DEC SI
DEC SI
DEC SI
DEC SI
JMP FFF1
POP DI
DEC CX
JNE 13
MOV BX, 00B8
CAL 00F5
CMPW
DEC DI
DEC DI
MOV CX, 0004
CAL 00F7
STOW
JMP 00E2
DEC CX
JNE 0E
MOV AX, 00CD
STOB
MOV CX, 0002
CAL 00E6
STOB
JMP 00D1
DEC CX
JNE 09
MOV BX, 0050
CAL 00CE
JMP 00C5
DEC CX
JNE 09
MOV BX, 0058
CAL 00C2
JMP 00B9
DEC CX
JNE 07
MOV AX, A766
STOW
JMP 00AF
DEC CX
JNE 07
MOV AX, 00A7
STOB
JMP 00A5
DEC CX
JNE 07
MOV AX, 00AD
STOB
JMP 009B
DEC CX
JNE 07
MOV AX, 00AB
STOB
JMP 0091
DEC CX
JNE 07
MOV AX, 00AC
STOB
JMP 0087
DEC CX
JNE 07
MOV AX, 00AA
STOB
JMP 007D
DEC CX
JNE 09
MOV BX, 0040
CAL 007A
JMP 0071
DEC CX
JNE 09
MOV BX, 0048
CAL 006E
JMP 0065
DEC CX
JNE 0E
MOV AX, 0075
STOB
MOV CX, 0002
CAL 0069
STOB
JMP 0054
DEC CX
JNE 0E
MOV AX, 00E9
STOB
MOV CX, 0004
CAL 0058
STOW
JMP 0043
DEC CX
JNE 0E
MOV AX, 00E8
STOB
MOV CX, 0004
CAL 0047
STOW
JMP 0032
DEC CX
JNE 07
MOV AX, 00C3
STOB
JMP 0028
DEC CX
JNE 05
LODW
STOW
JMP 0020
DEC CX
JNE 07
LODW
STOW
LODW
STOW
JMP 0016
MOV AX, 4000
MOV BX, 02FA
DEC DI
DEC BX
JNE FC
PSH DI
POP CX
MOV BX, 0001
MOV DX, 02FA
INT 21
INT 20
CMPW
DEC DI
DEC DI
JMP FEEB
PSH AX
CAL 005C
INC AX
DEC BX
JNE FC
STOB
POP AX
RETN
PSH BX
MOV BX, 0000
CAL 0015
CAL 0023
INC AX
DEC AX
JNE 03
JMP 0004
INC BX
DEC AX
JNE FC
DEC CX
JNE EC
PSH BX
POP AX
POP BX
RETN
PSH AX
PSH CX
MOV CX, 0004
PSH BX
POP AX
INC BX
DEC AX
JNE FC
DEC CX
JNE F7
POP CX
POP AX
RETN
PSH BX
MOV AX, 0000
LODB
MOV BX, 0030
DEC AX
DEC BX
JNE FC
PSH AX
MOV BX, 000A
INC AX
DEC AX
JNE 03
JMP 000E
DEC BX
JNE F7
POP AX
MOV BX, 0007
DEC AX
DEC BX
JNE FC
JMP 0001
POP AX
POP BX
RETN
PSH DI
MOV AX, 0000
MOV DI, 02EA
CMPW
JNE 03
JMP 0006
INC AX
DEC SI
DEC SI
JMP FFF4
POP DI
RETN
DSD MOV 
DSD INT 
DSD PSH 
DSD POP 
DSD CMPD
DSD CMPW
DSD LODW
DSD STOW
DSD LODB
DSD STOB
DSD INC 
DSD DEC 
DSD JNE 
DSD JMP 
DSD CAL 
DSD RETN
DSD DSW 
DSD DSD 
DSD 


DSW AX
DSW CX
DSW DX
DSW BX
DSW SP
DSW BP
DSW SI
DSW DI