1580
2590
1600
1610
1620
1630
1680
1650
1660
1670
1680
1690
1700
1710
1720
1750
1740
1750
1760
1770
1780
1790
1800
1910
1920
1830
ap
ip
NoTPAD CP
gp
INC
SKIP SCAL
DEFB
PoP
RET
BLEEP RST
DEFB
RET
Nz, NOTPAD
A, 20H
OFFH
Nz, SKIP,
a
oe
‘
AF
7,0
:
3 TEMP STORES.
OWNLNL “DEFS
CURRNO DEFS
CURLET DEFS
1
1
1
NULLS*
SPRINTER
ROUTINE
BLEEP – “NAS-SYS 6” ONLY
SETUP NEW STORES TO DEFAULT VALUES AT
THE START OF PROCESSING.
CTRL7AO AND CTRL/BO
INCREMENT
SLINELENGTH
COUNTER
SCHECK TF LINE
#18 GETTING TOO
AND FLAS,
ELINELENGTH ERROR
DEFALT LD <LNVAL),A
LD COWNLNL) 8
XOR
Lo “(cURRNOD A
LD asta
to (GURLET) A
JP OLDDEF
CHANGE LINELENGTH COUNTER ON CTRL/L
5
NEWLNL LD COWNLNLD A
SP PTKO
‘
5 NEW CTRL EMBEDDED COMMANDS
$ CTRL/U, CTRL/A, CTRL/B,
PROSSU CP “U
SP NZ,LETTER
CALL GETDEC
Lo Aye
PUSH AF
LD A, (LAVAL?
ING Al
Lo “unvaLy,A
cP OFEH
SR C,CONTIN
LD DE, 1266H
CALL ERROR
CONTIN FOP AF
cr 20H