mirror of
https://github.com/wwarthen/RomWBW.git
synced 2026-02-06 14:11:48 -06:00
44 lines
640 B
NASM
44 lines
640 B
NASM
extrn .begin,.chl,.swt
|
||
extrn csave,cret,.move
|
||
global style_,1
|
||
global vdp_rege_,960
|
||
global pINFOLIS_,2
|
||
global metadata_,128
|
||
global pCNFGDAT_,2
|
||
global pSYSCFG_,2
|
||
PUBLIC main_
|
||
main_: lxi d,.2
|
||
call csave
|
||
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
|
||
RET
|
||
.2 EQU -1
|
||
extrn diagnose_
|
||
extrn hregde_
|
||
extrn hregbc_
|
||
extrn crtlc_
|
||
extrn crtclr_
|
||
extrn crtinit_
|
||
END
|
||
|