We had to type-ins it...
Code: Select all
#define ORG .org ; TASM cross-assembler definitions
#define equ .equ
;-----------------------------------
;------- Rom and Ram Symbols -------
EXTERR equ $005B ; Basic Break function ! Ignore line instructions.
CURSEUR equ $8F5 ; Point to PRINT AT DEST.(BC=X,Y)
CHAINE equ $B6B ; PRINT A CHAINE (BC=LEN;DE=TEXT LOC)
; **** SYSTEM VARS ****
RAMTOP equ $4004
D_FILE equ $400C
VARS equ $4010
E_LINE equ $4014
STKEND equ $401C
; **** ROM ****
NEW equ $03CB
ROM equ $149D
ORG 16514
; Restore and READ String Routines.
RESTORE:
LD HL,16634
FIND: LD A,$EA ; CODE "REM"
LD BC,$FFFF
CPIR
LD BC,5
AND A
SBC HL,BC
LD A,118
CP (HL)
JR Z,BELOW
ADD HL,BC
STASH: LD (16507),HL
RET
BELOW: ADD HL,BC
JR FIND
READ_CHARACTER:
LD HL,(16507)
LD A,118
CP (HL)
CALL Z,FIND
LD A,(HL)
INC HL
JR STASH
READ_STRING:
LD HL,(E_LINE)
DEC HL
PUSH HL
DEC HL
DEC HL
EX (SP),HL
LOOP1: PUSH HL
CALL READ_CHARACTER
POP HL
LD B,26 ; CODE","
CP B
COMA_DONE:
JR Z,DONE
LD (HL),A
INC HL
INC_LEN:
EX (SP),HL
INC (HL)
JR NZ,NO_CARRY
INC HL
INC (HL)
DEC HL
NO_CARRY:
EX (SP),HL
DO_MORE:
AND A
JR NC,LOOP1
DONE: EX (SP),HL
POP HL
NOP
JP ROM
;FREE MEMORY Routine.
FREE_MEM:
LD HL,(STKEND)
LD B,H
LD C,L
LD HL,0
ADD HL,SP
CP A
SBC HL,BC
LD B,H
LD C,L
RET
; INSTANT REVERSE Routine.
IV: LD HL,(D_FILE)
LD B,H
LD C,L
LD D,59
SLA D
LOOP2: LD HL,(VARS)
LD A,(BC)
CP D
JR Z,AGAIN
ADD A,128
LD (BC),A
AGAIN: INC BC
CP A
SBC HL,BC
JR NZ,LOOP2
RET
; RELOCATION Routine.
RELOCATE:
LD HL,(RAMTOP)
LD BC,-120
ADD HL,BC
PUSH HL
PUSH HL
EXX
POP BC
EXX
LD HL,16514
POP DE
LD BC,120
LDIR
EXX
DEC BC
OUT (253),A
JP NEW
.end
Code: Select all
#Listing 4.
0 REM [HEX:\
21,FA,40,3E,EA,01,FF,FF,\
ED,B1,01,05,00,A7,ED,42,\
3E,76,BE,28,05,09,22,7B,\
40,C9,09,18,E6,2A,7B,40,\
3E,76,BE,CC,85,40,7E,23,\
18,EC,2A,14,40,2B,E5,2B,\
2B,E3,E5,CD,9F,40,E1,06,\
5A,B8,28,0D,77,23,E3,34,\
20,03,23,34,2B,E3,A7,30,\
E9,E3,E1,00,C3,9D,14,2A,\
1C,40,44,4D,21,00,00,39,\
BF,ED,42,44,4D,C9,2A,0C,\
40,44,4D,16,3B,CB,22,2A,\
10,40,0A,BA,28,03,C6,80,\
02,03,BF,ED,42,20,F0,C9,\
2A,04,40,01,88,FF,09,E5,\
E5,D9,C1,D9,21,82,40,D1,\
01,78,00,ED,B0,D9,0B,D3,\
FD,C3,CB,03 ]
1 SAVE "LISTING 4"
2 LPRINT "LISTING 4",,,,"USE FIRST TWO LINES ONLY WITH EXPANSION MEMORY",,,,"GRAPHICS KEYS IN LINE 30:5374TY5T55885E4W6426LYT58",,
3 LLIST 10
4 LPRINT " SLOW ",,," GOTO 10"
5 STOP
10 POKE 16389,68
20 CLS
30 PRINT AT VAL "9",VAL "2";"º »± »± º»";AT VAL "10",VAL "2";"º º° º° ¼º";AT VAL "11",VAL "2";"ª¹ ±» ±» º°"
40 FOR Z=NOT PI TO CODE "+"
50 UNPLOT Z+Z,Z
55 UNPLOT Z+Z+SGN PI,CODE "F"-Z
60 NEXT Z
63 RAND USR VAL "16608"
70 GOTO CODE "Z"
BASIC PROGRAM not update...
Download the "sync.zip" to retrieve the correct routine.
.... However, here is a scanned page 86 of the certain SYNC magazine issue! 
