I just scan the listing.
An OCR : https://www.onlineocr.net/
I get the codes :
Code: Select all
00 01 02 0F FF
…
Code: Select all
00,01,02,0F,FF
…
Code: Select all
.db 00,01,02,0F,FF
…
Code: Select all
00 01 02 0F FF
…
Code: Select all
00,01,02,0F,FF
…
Code: Select all
.db 00,01,02,0F,FF
…
Code: Select all
5 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
10 DIM A$(1,1024)
15 LET A$="AABBCCDDEEFF "
20 STOP
500 FAST
540 LET A=16514
550 FOR X=1 TO LEN A$-1 STEP 2
560 POKE A,CODE A$(X)*16+CODE A$(X+1)-476
570 LET A=A+1
580 IF A$(X+2)<>" " THEN NEXT X
590 SLOW
Code: Select all
5 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
6 LET T=PEEK 16426*256+PEEK 16425+3
10 REM AABBCCDDEEFFxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
20 STOP
500 FAST
540 LET A=16514
550 LET T=T+2
560 POKE A, PEEK(T)*16+PEEK(T+1)-476
570 LET A=A+1
580 IF PEEK(T+2)<>"x" THEN GOTO 550
590 SLOW
Code: Select all
# REM AABBCCDDEE
10 REM [HEX:\
26,26,27,27,28,28,29,29,\
2A,2A ]
20 RAND USR (PEEK 16426*256+PEEK 16425+5)
30 REM [HEX:\
21,82,40,11,82,40,01,00,\
00,7E,FE,76,C8,D6,1C,CB,\
07,CB,07,CB,07,CB,07,4F,\
23,7E,D6,1C,81,EB,77,EB,\
13,23,18,E2,40 ]
Code: Select all
;------- TASM ASM mnemonics. -------
; Compile this file using:
; Set TASMOPTS = -b
; tasm -80 ThisCode.tas MyBinary.BIN
;-----------------------------------
; Zx81 Program name: VB81 XuR
#include ZX81.sym
#define ORG .org ; TASM cross-assembler definitions
#define equ .equ
;-----------------------------------
.ORG 16514
LD HL,16514 ; FROM... Text pointer.
LD DE,16514 ; TO... ASM tagget pointer.
NTXVAL:
LD BC,0
LD A,(HL) ; GET VALUE.
CP $76
RET Z
SUB $1C
RLC A
RLC A
RLC A
RLC A
LD C,A
INC HL
LD A,(HL) ; GET VALUE.
SUB $1C
ADD A,C
EX DE,HL
LD (HL),A ; Put MC @DE pointer
EX DE,HL
INC DE
INC HL
JR NTXVAL
.end
With the animated GIF above, I just wanted to show you how I load hex values on real hardware.