mirror of https://github.com/wwarthen/RomWBW.git
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.
164 lines
2.4 KiB
164 lines
2.4 KiB
extrn .begin,.chl,.swt
|
|
extrn csave,cret,.move
|
|
global pINFOLIS_,2
|
|
global pSYSCFG_,2
|
|
global line_,2
|
|
PUBLIC main_
|
|
main_: lxi d,.2
|
|
call csave
|
|
LXI H,5
|
|
SHLD line_
|
|
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,.1+0
|
|
PUSH H
|
|
CALL printf_
|
|
XCHG
|
|
LXI H,16
|
|
DAD SP
|
|
SPHL
|
|
LXI H,.1+36
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
CALL pager_
|
|
CALL pager_
|
|
LXI H,-6596
|
|
SHLD ireghl_
|
|
CALL bioscall_
|
|
LHLD ireghl_
|
|
SHLD pINFOLIS_
|
|
LXI H,.1+72
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
LHLD pINFOLIS_
|
|
INX H
|
|
INX H
|
|
MOV E,M
|
|
INX H
|
|
MOV D,M
|
|
XCHG
|
|
SHLD dregde_
|
|
LXI H,9
|
|
SHLD dregbc_
|
|
CALL bdoscall_
|
|
CALL pager_
|
|
LXI H,-4096
|
|
SHLD hregbc_
|
|
LXI H,-16384
|
|
SHLD hregde_
|
|
CALL diagnose_
|
|
LXI H,-16384
|
|
SHLD pSYSCFG_
|
|
LHLD pSYSCFG_
|
|
PUSH H
|
|
CALL cnamept1_
|
|
POP D
|
|
LHLD pSYSCFG_
|
|
PUSH H
|
|
CALL cnamept2_
|
|
POP D
|
|
LHLD pSYSCFG_
|
|
PUSH H
|
|
CALL cnamept3_
|
|
POP D
|
|
LHLD pSYSCFG_
|
|
PUSH H
|
|
CALL cnamept4_
|
|
POP D
|
|
RET
|
|
.2 EQU -7
|
|
.1:
|
|
DB 67,80,77,78,65,77,69,46,67,79,77,32,37,100,47
|
|
DB 37,100,47,37,100,32,118,37,100,46,37,100,46,37,100
|
|
DB 32,40,37,100,41,0,32,100,119,103,32,45,32,68,105
|
|
DB 115,112,108,97,121,32,83,121,115,116,101,109,32,67,111
|
|
DB 110,102,105,103,117,114,97,116,105,111,110,0,112,73,78
|
|
DB 70,79,76,73,83,84,45,62,98,97,110,112,116,114,32
|
|
DB 61,61,62,32,0
|
|
PUBLIC pager_
|
|
pager_: lxi d,.4
|
|
call csave
|
|
LHLD line_
|
|
INX H
|
|
SHLD line_
|
|
LXI H,.3+0
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
LXI H,24
|
|
XCHG
|
|
LHLD line_
|
|
CALL .eq
|
|
JZ .5
|
|
LXI H,.3+2
|
|
PUSH H
|
|
CALL printf_
|
|
POP D
|
|
LXI H,1
|
|
SHLD dregbc_
|
|
CALL bdoscall_
|
|
LXI H,1
|
|
SHLD line_
|
|
.5:
|
|
RET
|
|
.4 EQU 0
|
|
.3:
|
|
DB 10,0,32,32,32,32,32,112,114,101,115,115,32,97,110
|
|
DB 121,32,107,101,121,32,116,111,32,99,111,110,116,105,110
|
|
DB 117,101,0
|
|
extrn printf_
|
|
extrn crtlc_
|
|
extrn crtclr_
|
|
extrn crtinit_
|
|
extrn cnamept4_
|
|
extrn cnamept3_
|
|
extrn cnamept2_
|
|
extrn cnamept1_
|
|
extrn diagnose_
|
|
extrn hregde_
|
|
extrn hregbc_
|
|
extrn bdoscall_
|
|
extrn dregde_
|
|
extrn dregbc_
|
|
extrn bioscall_
|
|
extrn ireghl_
|
|
extrn .eq
|
|
END
|
|
|