80-Bus News

  

May-June 1984, Volume 3, Issue 3











Page 46 of 51











by Olav

Bergen, Nov.27,

NAS-SYS 3 modifications

Lerflaten. Norway 1983

ORG £0005 JP PRINIT

ORG £00B6 LD D, £7

ORG £012F ce "]+1

ORG £0145 JR £0155

3;Rest of PRARGS code

CONTUE

NXTARG

RET Z

LD B,A

LD HL, £0C0C LD A, (HL) SCAL "L

INC HL

INC HL

DJNZ NXTARG RET

DEFB 0

ORG £0183 JP DRIVER

ORG £0408

;Link PIO init routine

;Change kbd mask (@ repeating)

;Support lower case [ \ ]

3@ as CTRL key not supported

sReturn if no arguments ;No. of arge in B reg. sARGI

sArg in A reg.

;Output arg to printer

sHL points to next arg ;Cont until no more args 3End of PRARGS

;Fill

;Workspace init $UOUT

DEFM /* NAS-SYS 3.1 */ :New commercial

ORG £04A9

s;Shortened PREGS routine

PREGS

3PI0 initialization routine

PRINIT

RST £28

DEFB £18 DEFM /PC=/ DEFB O

LD HL, (£0C69) SCAL £66

SCAL £6A

RET

LD A, EEF OUT (6),A XOR A OUT (6),A DEC A

3 PRS : ;CCR

;HL=(PC) before brkpt 3; TBCD3

sCRLF

3End of PREGS routine

OUT (7),A DEC A OUT (7),A LD A, OUT (5),A JP £03FE

sPrinter driver routine

DRIVER BUSY

NOCHG

FIN

yStart of PRARGS

PUSH AF IN A,(5) AND £04

JR NZ, BUSY POP AF

PUSH AF

CP £0A

JR 2,FIN

cP £0D

JR NZ,NOCHG suB 3

OUT (4),A XOR A

our (5),A INC A

OUT (5),A POP AF

RET

;STROBE line high sjump to MRET

3Save AF

jLine B2 high Lf busy ; Mask

y?ry again if busy sData restored in A

sIs it LF ?

sIf so, ignore

sie it CR?

y1f not so, don’t modify sMake a LF from the CR ;Data to printer

sStrobe low sStrobe high again

Restore AF before return sEnd of printer driver

NAS-SYS F command

LD A, (£0C0B) OR A JP CONTUE

s;ARGN workep loc ;Set 2 flag if no arguments sContinue elsewhere

;Changes to the keyboard table

ORG £0504 DEFB £FF

ORG £05D1 DEFB £FF

ORG £0616 DEFB £0E

ORG £0619 DEFB £8D

;No LF on LF key

sNo CH on CH key

;CH/LF key gives "\" and "|"

sShife/@ gives " " char

;Changes in subroutine table

ORG £078C DEFW £04E8

ORG £0798 DEFW £04CB

3F command, args to printer

3L command, printer driver

NEHOAORANY


This is an OCR’d version of the scanned page and likely contains recognition errors.











Page 46 of 51