59 lines
739 B
NASM
59 lines
739 B
NASM
|
org #5ccb
|
||
|
|
|
||
|
|
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, '6' ;INK 7
|
||
|
|
db #0e
|
||
|
|
db 0,0
|
||
|
|
dw 6
|
||
|
|
db 0
|
||
|
|
db ':'
|
||
|
|
|
||
|
|
clear:
|
||
|
|
db #fd, "32767" ;CLEAR 59999 - presumably code will be loaded somewhere?
|
||
|
|
db #0e
|
||
|
|
db 0,0
|
||
|
|
dw 32767
|
||
|
|
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 entry_point ;actual call to REM statement code
|
||
|
|
db 0
|
||
|
|
db ':'
|
||
|
|
|
||
|
|
remcode:
|
||
|
|
db #ea ;REM
|
||
|
|
|
||
|
|
code:
|
||
|
|
INCLUDE code.asm
|
||
|
|
|
||
|
|
enter:
|
||
|
|
db #0d
|
||
|
|
eol:
|