This BASIC program will print the machine language code for the ZX81 BASIC program in hex. This can then be inserted into an an assembly program and compiled.
The included program is used in prtscrl2 assembly code.
PROG : 16509
D-FILE: 16970
VARS : 17763
E-LINE: 17808
STKBOT: 17823
STKEND: 17823
9999 means line number
PRINT means treat as KEYWORD P
1 GOTO 100
10 CLS
20 LET T$="**WELCOME TO THE 80
S TEXT DEMO**"
30 PRINT USR 16514;T$;
40 LET T$=T$(2 TO )+T$(1)
50 GOTO 30
99 STOP
100 PRINT "ML LIST"
110 LET PC=16509+15
115 LET H$="0123456789ABCDEF"
120 LET P=PEEK PC
130 GOSUB 200
140 IF P=118 THEN GOSUB 250
150 IF P=227 THEN STOP
160 LET PC=PC+1
170 GOTO 120
200 REM **PRINT HEX**
210 LET M=INT (P/16)
220 LET L=(P/16-M)*16
230 PRINT "$";H$(M+1);H$(L+1);"
";
240 RETURN
250 PAUSE 4E4
260 CLS
270 RETURN