MirrorRepos
/
RomWBW
mirror of https://github.com/wwarthen/RomWBW.git
1
0
Fork 1
Code Issues Projects Releases Wiki Activity
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
55 Commits
2 Branches
380 Tags
257 MiB
 
 
 
 
 
 
Tree: a11f38fdbd
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'a11f38fdbd'
${ noResults }
RomWBW/Apps/crossdev/VIEW.ASM

2233 lines
24 KiB
Raw Blame History

extrn .begin,.chl,.swt
extrn csave,cret,.move
global pDPHMAP_,2
global pDPHVEC_,16
DSEG
public pSYSCFG_
pSYSCFG_:
DW -16384
CSEG
PUBLIC dispdpb_
dispdpb_: lxi d,.2
call csave
LXI H,10-.2
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,10-.2
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
CALL crtlc_
POP D
POP D
LXI H,12-.2
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,14-.2
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,.1+0
PUSH H
CALL printf_
POP D
POP D
POP D
LXI H,10-.2
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,10-.2
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
PUSH H
CALL crtlc_
POP D
POP D
LXI H,12-.2
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
INX H
MOV E,M
MVI D,0
PUSH D
LXI H,14-.2
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
INX H
PUSH H
LXI H,.1+17
PUSH H
CALL printf_
POP D
POP D
POP D
LXI H,10-.2
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,10-.2
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
INX H
PUSH H
CALL crtlc_
POP D
POP D
LXI H,12-.2
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
INX H
INX H
MOV E,M
MVI D,0
PUSH D
LXI H,14-.2
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
INX H
INX H
PUSH H
LXI H,.1+34
PUSH H
CALL printf_
POP D
POP D
POP D
LXI H,10-.2
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,10-.2
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
INX H
INX H
PUSH H
CALL crtlc_
POP D
POP D
LXI H,12-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,4
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,14-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,4
DAD D
PUSH H
LXI H,.1+51
PUSH H
CALL printf_
POP D
POP D
POP D
LXI H,10-.2
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,10-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,4
DAD D
PUSH H
CALL crtlc_
POP D
POP D
LXI H,12-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,5
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,14-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,5
DAD D
PUSH H
LXI H,.1+68
PUSH H
CALL printf_
POP D
POP D
POP D
LXI H,10-.2
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,10-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,5
DAD D
PUSH H
CALL crtlc_
POP D
POP D
LXI H,12-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,7
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,14-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,7
DAD D
PUSH H
LXI H,.1+85
PUSH H
CALL printf_
POP D
POP D
POP D
LXI H,10-.2
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,10-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,6
DAD D
PUSH H
CALL crtlc_
POP D
POP D
LXI H,12-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,9
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,14-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,9
DAD D
PUSH H
LXI H,.1+102
PUSH H
CALL printf_
POP D
POP D
POP D
LXI H,10-.2
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,10-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,7
DAD D
PUSH H
CALL crtlc_
POP D
POP D
LXI H,12-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,10
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,14-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,10
DAD D
PUSH H
LXI H,.1+119
PUSH H
CALL printf_
POP D
POP D
POP D
LXI H,10-.2
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,10-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,8
DAD D
PUSH H
CALL crtlc_
POP D
POP D
LXI H,12-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,11
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,14-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,11
DAD D
PUSH H
LXI H,.1+136
PUSH H
CALL printf_
POP D
POP D
POP D
LXI H,10-.2
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,10-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,9
DAD D
PUSH H
CALL crtlc_
POP D
POP D
LXI H,12-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,13
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,14-.2
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,13
DAD D
PUSH H
LXI H,.1+153
PUSH H
CALL printf_
POP D
POP D
POP D
RET
.2 EQU 0
.1:
DB 91,37,48,52,120,93,32,115,112,116,32,61,37,48,52
DB 120,0,91,37,48,52,120,93,32,98,115,104,32,61,37
DB 48,50,120,0,91,37,48,52,120,93,32,98,108,109,32
DB 61,37,48,50,120,0,91,37,48,52,120,93,32,101,120
DB 109,32,61,37,48,50,120,0,91,37,48,52,120,93,32
DB 100,115,109,32,61,37,48,52,120,0,91,37,48,52,120
DB 93,32,100,114,109,32,61,37,48,52,120,0,91,37,48
DB 52,120,93,32,97,108,48,32,61,37,48,50,120,0,91
DB 37,48,52,120,93,32,97,108,49,32,61,37,48,50,120
DB 0,91,37,48,52,120,93,32,99,107,115,32,61,37,48
DB 52,120,0,91,37,48,52,120,93,32,111,102,102,32,61
DB 37,48,52,120,0
PUBLIC dispdph_
dispdph_: lxi d,.4
call csave
LXI H,-6629
SHLD ireghl_
LXI H,8-.4
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
SHLD iregbc_
LXI H,0
SHLD iregde_
CALL bioscall_
LHLD ireghl_
MOV A,H
ORA L
JNZ .5
LXI H,0
RET
.5:
LHLD ireghl_
XCHG
LXI H,2-.4
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,2-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,10
DAD D
MOV E,M
INX H
MOV D,M
LXI H,0-.4
DAD SP
MOV M,E
INX H
MOV M,D
LHLD ireghl_
DCX H
XCHG
LXI H,-2-.4
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,-2-.4
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
MOV E,M
MVI D,0
LXI H,-4-.4
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
PUSH H
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
DCX H
PUSH H
CALL crtlc_
POP D
POP D
LXI H,8-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,65
DAD D
PUSH H
LXI H,.3+0
PUSH H
CALL printf_
POP D
POP D
LXI H,-4-.4
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
JMP .6
.8:
LXI H,.3+11
PUSH H
CALL printf_
POP D
JMP .7
.9:
LXI H,.3+18
PUSH H
CALL printf_
POP D
JMP .7
.10:
LXI H,.3+25
PUSH H
CALL printf_
POP D
JMP .7
.11:
LXI H,.3+32
PUSH H
CALL printf_
POP D
JMP .7
.12:
LXI H,.3+39
PUSH H
CALL printf_
POP D
JMP .7
.13:
LXI H,.3+46
PUSH H
CALL printf_
POP D
JMP .7
.14:
LXI H,.3+53
PUSH H
CALL printf_
POP D
JMP .7
.15:
LXI H,.3+60
PUSH H
CALL printf_
POP D
JMP .7
.16:
LXI H,.3+67
PUSH H
CALL printf_
POP D
JMP .7
.17:
LXI H,.3+74
PUSH H
CALL printf_
POP D
JMP .7
.18:
LXI H,.3+81
PUSH H
CALL printf_
POP D
JMP .7
.19:
LXI H,.3+88
PUSH H
CALL printf_
POP D
JMP .7
.20:
LXI H,.3+95
PUSH H
CALL printf_
POP D
JMP .7
.21:
LXI H,.3+102
PUSH H
CALL printf_
POP D
JMP .7
.22:
LXI H,.3+109
PUSH H
CALL printf_
POP D
JMP .7
.23:
LXI H,.3+116
PUSH H
CALL printf_
POP D
JMP .7
.6:
CALL .swt
DW 16
DW 0,.9
DW 1,.8
DW 16,.10
DW 17,.11
DW 32,.12
DW 33,.13
DW 48,.14
DW 49,.15
DW 64,.16
DW 65,.17
DW 80,.18
DW 81,.19
DW 96,.20
DW 97,.21
DW 112,.22
DW 113,.23
DW .7
.7:
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
CALL crtlc_
POP D
POP D
LXI H,2-.4
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,4-.4
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,.3+123
PUSH H
CALL printf_
POP D
POP D
POP D
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
PUSH H
CALL crtlc_
POP D
POP D
LXI H,2-.4
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
INX H
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,4-.4
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
INX H
PUSH H
LXI H,.3+140
PUSH H
CALL printf_
POP D
POP D
POP D
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
INX H
PUSH H
CALL crtlc_
POP D
POP D
LXI H,2-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,4
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,4-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,4
DAD D
PUSH H
LXI H,.3+157
PUSH H
CALL printf_
POP D
POP D
POP D
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
INX H
INX H
PUSH H
CALL crtlc_
POP D
POP D
LXI H,2-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,6
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,4-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,6
DAD D
PUSH H
LXI H,.3+174
PUSH H
CALL printf_
POP D
POP D
POP D
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,4
DAD D
PUSH H
CALL crtlc_
POP D
POP D
LXI H,2-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,8
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,4-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,8
DAD D
PUSH H
LXI H,.3+191
PUSH H
CALL printf_
POP D
POP D
POP D
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,5
DAD D
PUSH H
CALL crtlc_
POP D
POP D
LXI H,2-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,10
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,4-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,10
DAD D
PUSH H
LXI H,.3+208
PUSH H
CALL printf_
POP D
POP D
POP D
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,6
DAD D
PUSH H
CALL crtlc_
POP D
POP D
LXI H,2-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,12
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,4-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,12
DAD D
PUSH H
LXI H,.3+225
PUSH H
CALL printf_
POP D
POP D
POP D
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,7
DAD D
PUSH H
CALL crtlc_
POP D
POP D
LXI H,2-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,14
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,4-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,14
DAD D
PUSH H
LXI H,.3+242
PUSH H
CALL printf_
POP D
POP D
POP D
LXI H,2-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,16
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,76
POP D
CALL .eq
JZ .24
LXI H,2-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,17
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,85
POP D
CALL .eq
JZ .24
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,8
DAD D
PUSH H
CALL crtlc_
POP D
POP D
LXI H,2-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,16
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,4-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,16
DAD D
PUSH H
LXI H,.3+259
PUSH H
CALL printf_
POP D
POP D
POP D
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,9
DAD D
PUSH H
CALL crtlc_
POP D
POP D
LXI H,2-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,17
DAD D
MOV E,M
MVI D,0
PUSH D
LXI H,4-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,17
DAD D
PUSH H
LXI H,.3+276
PUSH H
CALL printf_
POP D
POP D
POP D
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,10
DAD D
PUSH H
CALL crtlc_
POP D
POP D
LXI H,2-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,18
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,4-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,18
DAD D
PUSH H
LXI H,.3+293
PUSH H
CALL printf_
POP D
POP D
POP D
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,11
DAD D
PUSH H
CALL crtlc_
POP D
POP D
LXI H,2-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,20
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,4-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,20
DAD D
PUSH H
LXI H,.3+310
PUSH H
CALL printf_
POP D
POP D
POP D
.24:
LXI H,0-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,5
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,350
POP D
CALL .eq
JZ .25
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
PUSH H
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,9
DAD D
PUSH H
CALL crtlc_
POP D
POP D
LXI H,.3+327
PUSH H
CALL printf_
POP D
LXI H,34
PUSH H
LXI H,.3+333
PUSH H
CALL printf_
POP D
POP D
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
PUSH H
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,10
DAD D
PUSH H
CALL crtlc_
POP D
POP D
LXI H,.3+343
PUSH H
CALL printf_
POP D
.25:
LXI H,0-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,5
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,710
POP D
CALL .eq
JZ .26
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
PUSH H
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,9
DAD D
PUSH H
CALL crtlc_
POP D
POP D
LXI H,.3+358
PUSH H
CALL printf_
POP D
LXI H,34
PUSH H
LXI H,.3+364
PUSH H
CALL printf_
POP D
POP D
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
PUSH H
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,10
DAD D
PUSH H
CALL crtlc_
POP D
POP D
LXI H,.3+374
PUSH H
CALL printf_
POP D
.26:
LXI H,0-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,5
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,170
POP D
CALL .eq
JZ .27
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
PUSH H
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,9
DAD D
PUSH H
CALL crtlc_
POP D
POP D
LXI H,.3+390
PUSH H
CALL printf_
POP D
LXI H,34
PUSH H
LXI H,.3+396
PUSH H
CALL printf_
POP D
POP D
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
PUSH H
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,10
DAD D
PUSH H
CALL crtlc_
POP D
POP D
LXI H,.3+406
PUSH H
CALL printf_
POP D
.27:
LXI H,0-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,5
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,591
POP D
CALL .eq
JZ .28
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
PUSH H
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,9
DAD D
PUSH H
CALL crtlc_
POP D
POP D
LXI H,.3+421
PUSH H
CALL printf_
POP D
LXI H,34
PUSH H
LXI H,.3+427
PUSH H
CALL printf_
POP D
POP D
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
PUSH H
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,10
DAD D
PUSH H
CALL crtlc_
POP D
POP D
LXI H,.3+437
PUSH H
CALL printf_
POP D
.28:
LXI H,0-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,5
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,546
POP D
CALL .eq
JZ .29
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
PUSH H
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,9
DAD D
PUSH H
CALL crtlc_
POP D
POP D
LXI H,.3+452
PUSH H
CALL printf_
POP D
LXI H,34
PUSH H
LXI H,.3+458
PUSH H
CALL printf_
POP D
POP D
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
PUSH H
LXI H,12-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,10
DAD D
PUSH H
CALL crtlc_
POP D
POP D
LXI H,.3+468
PUSH H
CALL printf_
POP D
.29:
LXI H,2-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,10
DAD D
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,14-.4
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,14-.4
DAD SP
MOV E,M
INX H
MOV D,M
LXI H,12
DAD D
PUSH H
CALL dispdpb_
POP D
POP D
POP D
RET
.4 EQU -8
.3:
DB 68,114,105,118,101,32,37,99,58,32,0,32,32,32,82
DB 65,77,0,32,32,32,82,79,77,0,32,32,32,70,68
DB 48,0,32,32,32,70,68,49,0,32,32,73,68,69,48
DB 0,32,32,73,68,69,49,0,65,84,65,80,73,48,0
DB 65,84,65,80,73,49,0,80,80,73,68,69,48,0,80
DB 80,73,68,69,49,0,32,32,32,83,68,48,0,32,32
DB 32,83,68,49,0,80,82,80,83,68,48,0,80,82,80
DB 83,68,49,0,80,80,80,83,68,48,0,80,80,80,83
DB 68,49,0,91,37,48,52,120,93,32,120,108,116,32,61
DB 37,48,52,120,0,91,37,48,52,120,93,32,114,118,49
DB 32,61,37,48,52,120,0,91,37,48,52,120,93,32,114
DB 118,50,32,61,37,48,52,120,0,91,37,48,52,120,93
DB 32,114,118,51,32,61,37,48,52,120,0,91,37,48,52
DB 120,93,32,100,98,102,32,61,37,48,52,120,0,91,37
DB 48,52,120,93,32,100,112,98,32,61,37,48,52,120,0
DB 91,37,48,52,120,93,32,99,115,118,32,61,37,48,52
DB 120,0,91,37,48,52,120,93,32,97,108,118,32,61,37
DB 48,52,120,0,91,37,48,52,120,93,32,115,105,103,108
DB 61,37,48,50,120,0,91,37,48,52,120,93,32,115,105
DB 103,117,61,37,48,50,120,0,91,37,48,52,120,93,32
DB 99,117,114,114,61,37,48,52,120,0,91,37,48,52,120
DB 93,32,110,117,109,98,61,37,48,52,120,0,51,45,49
DB 47,50,0,37,99,32,32,57,32,83,80,84,0,55,50
DB 48,75,66,32,68,83,68,68,32,70,77,84,0,51,45
DB 49,47,50,0,37,99,32,49,56,32,83,80,84,0,49
DB 46,52,52,77,66,32,68,83,72,68,32,70,77,84,0
DB 53,45,49,47,52,0,37,99,32,32,57,32,83,80,84
DB 0,51,54,48,75,66,32,68,83,68,68,32,70,77,84
DB 0,53,45,49,47,52,0,37,99,32,49,53,32,83,80
DB 84,0,49,46,50,77,66,32,68,83,72,68,32,70,77
DB 84,0,32,32,32,32,56,0,37,99,32,49,53,32,83
DB 80,84,0,49,46,49,49,77,66,32,68,83,68,68,32
DB 70,77,84,0
PUBLIC main_
main_: lxi d,.31
call csave
LXI H,25
SHLD dregbc_
CALL bdoscall_
LDA drega_
MOV L,A
MVI H,0
XCHG
LXI H,2-.31
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,2-.31
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
JMP .32
.34:
LXI H,4
XCHG
LXI H,0-.31
DAD SP
MOV M,E
INX H
MOV M,D
JMP .33
.35:
LXI H,4
XCHG
LXI H,0-.31
DAD SP
MOV M,E
INX H
MOV M,D
JMP .33
.36:
LXI H,4
XCHG
LXI H,0-.31
DAD SP
MOV M,E
INX H
MOV M,D
JMP .33
.37:
LXI H,4
XCHG
LXI H,0-.31
DAD SP
MOV M,E
INX H
MOV M,D
JMP .33
.38:
LXI H,4
XCHG
LXI H,0-.31
DAD SP
MOV M,E
INX H
MOV M,D
JMP .33
.39:
LXI H,3
XCHG
LXI H,0-.31
DAD SP
MOV M,E
INX H
MOV M,D
JMP .33
.40:
LXI H,2
XCHG
LXI H,0-.31
DAD SP
MOV M,E
INX H
MOV M,D
JMP .33
.41:
LXI H,1
XCHG
LXI H,0-.31
DAD SP
MOV M,E
INX H
MOV M,D
JMP .33
.42:
LXI H,0
XCHG
LXI H,0-.31
DAD SP
MOV M,E
INX H
MOV M,D
JMP .33
.32:
CALL .swt
DW 8
DW 0,.34
DW 1,.35
DW 2,.36
DW 3,.37
DW 4,.38
DW 5,.39
DW 6,.40
DW 7,.41
DW .42
.33:
LXI H,2
XCHG
LXI H,8-.31
DAD SP
MOV A,M
INX H
MOV H,M
MOV L,A
CALL .eq
JZ .43
LXI H,10-.31
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
INX H
MOV E,M
INX H
MOV D,M
PUSH D
LXI H,-126-.31
DAD SP
PUSH H
CALL strcpy_
POP D
POP D
LXI H,-128-.31
DAD SP
PUSH H
CALL strlen_
POP D
PUSH H
LXI H,2
POP D
CALL .eq
JZ .44
LXI H,-127-.31
DAD SP
MOV E,M
MVI D,0
PUSH D
LXI H,58
POP D
CALL .eq
JZ .45
LXI H,-128-.31
DAD SP
MOV E,M
MVI D,0
XCHG
JMP .46
.48:
.49:
LXI H,0
XCHG
LXI H,2-.31
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,4
XCHG
LXI H,0-.31
DAD SP
MOV M,E
INX H
MOV M,D
JMP .47
.50:
.51:
LXI H,1
XCHG
LXI H,2-.31
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,4
XCHG
LXI H,0-.31
DAD SP
MOV M,E
INX H
MOV M,D
JMP .47
.52:
.53:
LXI H,2
XCHG
LXI H,2-.31
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,4
XCHG
LXI H,0-.31
DAD SP
MOV M,E
INX H
MOV M,D
JMP .47
.54:
.55:
LXI H,3
XCHG
LXI H,2-.31
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,4
XCHG
LXI H,0-.31
DAD SP
MOV M,E
INX H
MOV M,D
JMP .47
.56:
.57:
LXI H,4
XCHG
LXI H,2-.31
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,4
XCHG
LXI H,0-.31
DAD SP
MOV M,E
INX H
MOV M,D
JMP .47
.58:
.59:
LXI H,5
XCHG
LXI H,2-.31
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,3
XCHG
LXI H,0-.31
DAD SP
MOV M,E
INX H
MOV M,D
JMP .47
.60:
.61:
LXI H,2
XCHG
LXI H,0-.31
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,6
XCHG
LXI H,2-.31
DAD SP
MOV M,E
INX H
MOV M,D
JMP .47
.62:
.63:
LXI H,7
XCHG
LXI H,2-.31
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,1
XCHG
LXI H,0-.31
DAD SP
MOV M,E
INX H
MOV M,D
JMP .47
.64:
.65:
LXI H,8
XCHG
LXI H,2-.31
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,1
XCHG
LXI H,0-.31
DAD SP
MOV M,E
INX H
MOV M,D
JMP .47
.66:
.67:
LXI H,9
XCHG
LXI H,2-.31
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,1
XCHG
LXI H,0-.31
DAD SP
MOV M,E
INX H
MOV M,D
JMP .47
.68:
.69:
LXI H,10
XCHG
LXI H,2-.31
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,1
XCHG
LXI H,0-.31
DAD SP
MOV M,E
INX H
MOV M,D
JMP .47
.70:
.71:
LXI H,11
XCHG
LXI H,2-.31
DAD SP
MOV M,E
INX H
MOV M,D
LXI H,1
XCHG
LXI H,0-.31
DAD SP
MOV M,E
INX H
MOV M,D
JMP .47
.46:
LXI D,-65
DAD D
XCHG
LXI H,-44
DAD D
JC .47
LXI H,.72
DAD D
DAD D
MOV E,M
INX H
MOV D,M
XCHG
PCHL
.72: DW .48
DW .50
DW .52
DW .54
DW .56
DW .58
DW .60
DW .62
DW .64
DW .66
DW .68
DW .70
DW .47
DW .47
DW .47
DW .47
DW .47
DW .47
DW .47
DW .47
DW .47
DW .47
DW .47
DW .47
DW .47
DW .47
DW .47
DW .47
DW .47
DW .47
DW .47
DW .47
DW .49
DW .51
DW .53
DW .55
DW .57
DW .59
DW .61
DW .63
DW .65
DW .67
DW .69
DW .71
.47:
.45:
.44:
.43:
LXI H,-4096
SHLD hregbc_
LXI H,-16384
SHLD hregde_
CALL diagnose_
LXI H,-16384
SHLD pSYSCFG_
LHLD pSYSCFG_
LXI D,68
DAD D
MOV E,M
MVI D,0
PUSH D
CALL crtinit_
POP D
CALL crtclr_
LXI H,0
PUSH H
LXI H,0
PUSH H
CALL crtlc_
POP D
POP D
LXI H,1
PUSH H
LXI H,0
PUSH H
LXI H,5
PUSH H
LXI H,2
PUSH H
LXI H,2013
PUSH H
LXI H,31
PUSH H
LXI H,3
PUSH H
LXI H,.30+0
PUSH H
CALL printf_
XCHG
LXI H,16
DAD SP
SPHL
LXI H,.30+33
PUSH H
CALL printf_
POP D
LXI H,0
XCHG
LXI H,0-.31
DAD SP
MOV A,M
INX H
MOV H,M
MOV L,A
CALL .lt
JZ .73
LXI H,2
PUSH H
LXI H,3
PUSH H
LXI H,6-.31
DAD SP
MOV E,M
INX H
MOV D,M
PUSH D
CALL dispdph_
POP D
POP D
POP D
.73:
LXI H,1
XCHG
LXI H,0-.31
DAD SP
MOV A,M
INX H
MOV H,M
MOV L,A
CALL .lt
JZ .74
LXI H,22
PUSH H
LXI H,3
PUSH H
LXI H,6-.31
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
PUSH H
CALL dispdph_
POP D
POP D
POP D
.74:
LXI H,2
XCHG
LXI H,0-.31
DAD SP
MOV A,M
INX H
MOV H,M
MOV L,A
CALL .lt
JZ .75
LXI H,42
PUSH H
LXI H,3
PUSH H
LXI H,6-.31
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
INX H
PUSH H
CALL dispdph_
POP D
POP D
POP D
.75:
LXI H,3
XCHG
LXI H,0-.31
DAD SP
MOV A,M
INX H
MOV H,M
MOV L,A
CALL .lt
JZ .76
LXI H,62
PUSH H
LXI H,3
PUSH H
LXI H,6-.31
DAD SP
MOV E,M
INX H
MOV D,M
XCHG
INX H
INX H
INX H
PUSH H
CALL dispdph_
POP D
POP D
POP D
.76:
LXI H,0
SHLD dregbc_
CALL bdoscall_
RET
.31 EQU -132
.30:
DB 86,73,69,87,46,67,79,77,32,37,100,47,37,100,47
DB 37,100,32,118,37,100,46,37,100,46,37,100,32,40,37
DB 100,41,0,32,100,119,103,32,45,32,83,121,115,116,101
DB 109,32,83,116,111,114,97,103,101,32,68,114,105,118,101
DB 115,32,97,110,100,32,76,111,103,105,99,97,108,32,85
DB 110,105,116,115,0
extrn strlen_
extrn strcpy_
extrn printf_
extrn crtlc_
extrn crtclr_
extrn crtinit_
extrn diagnose_
extrn hregde_
extrn hregbc_
extrn bdoscall_
extrn dregbc_
extrn drega_
extrn bioscall_
extrn ireghl_
extrn iregde_
extrn iregbc_
extrn .eq
extrn .lt
END