Re: [Type-Ins] "Your Computer" campaign...
Posted: Wed Dec 02, 2020 12:55 pm
"Your computer" 12/81
"Code Machine Tips"
/ASM tool/
Contributor : Antipontifex.
"Code Machine Tips"
/ASM tool/
Contributor : Antipontifex.
Code: Select all
1 REM [DEC: \
33,124,64,17,0,0,35,237,75,12,\
64,167,237,66,200,9,6,10,19,16,\
253,114,35,115,35,78,35,70,9,24,\
231 ]
2 CLS
3 LIST
4 RAND USR 16514
5 PRINT
6 LIST
Code: Select all
;------- TASM ASM mnemonics. -------
; Compile this file using:
; Set TASMOPTS = -b
; tasm -80 ThisCode.tas MyBinary.BIN
;-----------------------------------
; Zx81 Program name: VB81 XuR [MCREMUM.P] :
; REM line name: 1 REM: 31 Bytes@4082-40A0
#define ORG .org ; TASM cross-assembler definitions
#define equ .equ
;-----------------------------------
;------------------------------------
;-Basic sub-routine entry. -
;+----------------------------------+
; Lb4082 ; <- USR Basic Enty.
;+----------------------------------+
;------- Rom and Ram Symbols -------
RAM_D_FILE equ $400C
ORG $4082 ; [@16514/@h4082]
Lb4082: ; <- USR Basic Enty.
LD HL,$407C
LD DE,$0000
Lb4088:
INC HL
LD BC,(RAM_D_FILE) ; GET D-FILE
AND A
SBC HL,BC
RET Z
ADD HL,BC
LD B,$0A
Lb4094:
INC DE
DJNZ Lb4094 ; [$4094:16532]
LD (HL),D
INC HL
LD (HL),E
INC HL
LD C,(HL)
INC HL
LD B,(HL)
ADD HL,BC
JR Lb4088 ; [$4088:16520]
.end