mirror of
https://github.com/wwarthen/RomWBW.git
synced 2026-02-06 22:43:15 -06:00
59 lines
768 B
NASM
59 lines
768 B
NASM
extrn .begin,.chl,.swt
|
||
extrn csave,cret,.move
|
||
PUBLIC main_
|
||
main_: lxi d,.2
|
||
call csave
|
||
LXI H,0
|
||
XCHG
|
||
LXI H,8-.2
|
||
DAD SP
|
||
MOV A,M
|
||
INX H
|
||
MOV H,M
|
||
MOV L,A
|
||
CALL .lt
|
||
JZ .3
|
||
LXI H,.1+0
|
||
PUSH H
|
||
CALL printf_
|
||
POP D
|
||
.3:
|
||
LXI H,1
|
||
XCHG
|
||
LXI H,8-.2
|
||
DAD SP
|
||
MOV A,M
|
||
INX H
|
||
MOV H,M
|
||
MOV L,A
|
||
CALL .lt
|
||
JZ .4
|
||
LXI H,.1+7
|
||
PUSH H
|
||
CALL printf_
|
||
POP D
|
||
.4:
|
||
LXI H,2
|
||
XCHG
|
||
LXI H,8-.2
|
||
DAD SP
|
||
MOV A,M
|
||
INX H
|
||
MOV H,M
|
||
MOV L,A
|
||
CALL .lt
|
||
JZ .5
|
||
LXI H,.1+14
|
||
PUSH H
|
||
CALL printf_
|
||
POP D
|
||
.5:
|
||
RET
|
||
.2 EQU 0
|
||
.1:
|
||
DB 97,114,103,99,62,48,0,97,114,103,99,62,49,0,97
|
||
DB 114,103,99,62,50,0
|
||
extrn printf_
|
||
extrn .lt
|
||
END
|
||
|