mirror of
https://github.com/wwarthen/RomWBW.git
synced 2026-02-06 22:43:15 -06:00
164 lines
2.4 KiB
NASM
164 lines
2.4 KiB
NASM
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,0
|
||
PUSH H
|
||
LXI H,0
|
||
PUSH H
|
||
LXI H,3
|
||
PUSH H
|
||
LXI H,2
|
||
PUSH H
|
||
LXI H,2013
|
||
PUSH H
|
||
LXI H,16
|
||
PUSH H
|
||
LXI H,1
|
||
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
|
||
|