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.
59 lines
768 B
59 lines
768 B
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
|
|
|