62 lines
772 B
NASM
62 lines
772 B
NASM
|
org #5cca
|
||
|
|
|
||
|
|
bodyformat:
|
||
|
|
db #ff
|
||
|
|
linenumber:
|
||
|
|
db #00 ;MSB
|
||
|
|
db #00 ;LSB
|
||
|
|
|
||
|
|
linelength:
|
||
|
|
dw eol - border ;will need calculated and adjusted post hoc. Length of text including ENTER
|
||
|
|
border:
|
||
|
|
db #e7, '0' ;BORDER 0
|
||
|
|
db #0e ;number
|
||
|
|
db 0,0 ;mantissa
|
||
|
|
dw 0 ;number
|
||
|
|
db 0
|
||
|
|
db ':'
|
||
|
|
|
||
|
|
paper:
|
||
|
|
db #da, '0' ;PAPER 0
|
||
|
|
db #0e
|
||
|
|
db 0,0
|
||
|
|
dw 0
|
||
|
|
db 0
|
||
|
|
db ':'
|
||
|
|
|
||
|
|
ink:
|
||
|
|
db #d9, '7' ;INK 7
|
||
|
|
db #0e
|
||
|
|
db 0,0
|
||
|
|
dw 7
|
||
|
|
db 0
|
||
|
|
db ':'
|
||
|
|
|
||
|
|
clear:
|
||
|
|
db #fd, "59999" ;CLEAR 59999 - presumably code will be loaded somewhere?
|
||
|
|
db #0e
|
||
|
|
db 0,0
|
||
|
|
dw 59999
|
||
|
|
db 0
|
||
|
|
db ':'
|
||
|
|
|
||
|
|
printusr:
|
||
|
|
db #f5, #c0 ;PRINT USR
|
||
|
|
db "0" ;don't know if actual value is important
|
||
|
|
db #0e
|
||
|
|
db 0,0
|
||
|
|
dw code ;actual call to REM statement code
|
||
|
|
db 0
|
||
|
|
db ':'
|
||
|
|
|
||
|
|
remcode:
|
||
|
|
db #ea ;REM
|
||
|
|
|
||
|
|
code:
|
||
|
|
ld bc, 42 ;your code goes here
|
||
|
|
ret
|
||
|
|
|
||
|
|
enter:
|
||
|
|
db #0d
|
||
|
|
eol:
|