80-Bus News

Z2 ASSEMBLY LISTING .....«.. PAGE 5

OEO8 OEOB QBOC OROD OEOE OE10 OB14 OB18 OnIC OEIF OB23 OB27 O82B OB2F OB33 OE34 OE38 OEZC OB40 OB44 OE47 OB48 OE49 OBC OE4D OB4E OB4F OE53 OES7 OE5B OESF OB6O OE63 OR65 OBG66 OB67 ORGS ORGA OE6C ORGE OB6F OE70 OETi

OET2 OET4 OETT OET9 OETB OE7C OESO OBS4 OESsS OESB OSD ORF

21 R608 DF

Th

EF

opoD 20204449 53482048 414D4520 3A2D20 20202020 20202020 20202020 20202020 20202020 oD NAME 20204649 A4C4A52048 48202020 3A2D2000 3AE5OB 3C

27 32E508 DF

68

EF oD202046 49404520 48414D45 2035A2D20 00 215500 0608

is PRTIO FT

23

1OFB 3R2E 0603

2B

FT PRT20 23

TE

10FB 3SA5FCO FEO" 2012

EP 203503020 4CEPG636B 65642020 3E3E00 1814 FEO2 PRT3O 2010

LD RST DB RST DB

DB

DB

DB LD INC DAA LD RST DB RST

DB LD LD LD RST INC DINZ

LD DEC RST INC LD DINZ LD cP

RST

HL,OUTTAB ;SET UART ON

NASSYS

NOM ;SWITCH NEW OUTPUT ON PRS

CRET, CRET

’ DISK NAME :–

’, CRET

’ FILE NO x* ‘,00

A, (FILENO) ;A = FILE NO

A ;FILENO = FILENO+1 ;CONV TO DEC

CRILENO),A ;SAVE I?

NASSYS

B2HEX ;PRINT FILENO

PRS

CRET,’ FILE NAME :- ‘,00 HL,SIFCB ;HL = A(FCB)

B,8 ;B = LCFILE NAME) A, (HL) ;GET CHAR

ROUT ;PRINT IT

EL ;INDEX TO NEXT PRI1O ;LOOP ON IT

A,*.! cA = tt

B, ;OUTPUT FILE EXTENSION HL

ROUT ;PUSH IT OUT

HL ;INDEX ALONG

A, (Ht) ;GHT CHARACTER PRT2O

A, (FSFL) ;A = SYSTEM FLAG 1 318 = LOCKED FILE NZ, PRTSO

PRS

’ << Locked >>’,00

PRT40 J

2 31S = DELETED PILE NZ, PRT4O

Z2 ASSEMBLY LISTING ........ PAGE 6

OE91, EF RST PRS OB92 203C03C20 OB96 44454045 OBQA 54454420

OEQE 3E3EO00 DB ‘ << DELETED >>’, 00

OBA EF PRT4Q RST PRS OBA2 OD20204C

OBA6 47414445

OBAA 44204154

OEAB 203A2D20

OEB2 00 DB CRET,’

OEB6 DF RST NASSYS OBB] 66 DB TBCDS OEBS EF RST PRS OBB9 OD202045

OEBD 58454320

OfC1 41542020

OEC5 203A2D20

OEC9 00 DB cRET,’

OECD DF RST NASSYS OECE 66 DB TBCD3 OECF EF RST = PRS OEDO ODpOO DB CRET, 00 OED2 3852 LD A,’R’ OED4 DF RST NASSYS OEDS 6F DB Sout OED6 3HOD LD A, CRET ORDS DF RST NASSYS OED 6F DB Sout OEDA DF RST NASSYS OEDB 77 DB NNOM OEDC C9 RET

OEDC

ORDC

OnDC

OEDD AF WAIT XOR A ORDE 47 LD B,A OEDF FF WAITIO RST RDEL OEEO 10FD DINZ WAITIO OBR2 C9 RET

ORES DIRPOS DS 2

OBES FILENO DS 1

LOADED AT :- ‘,00 OEB3 2A65C0 LD HL, (FLDA)

;HL = LOAD ADDRESS

;PRINT IT

EXEC AT :- ‘,00 OECA 2A67CO LD HL, (FEXA)

;PRINT IT

;FORCE A READ

;ZAP IT OUT THE UART ;FOLLOWED BY CRET

RESET OUTPUT TABLE

--- SUBROUTINE WAIT ---

anne oe

yA = 0 3B = 0 sNASSYS WAIT ;LOOP IT

OEBE6 656FOO OUTTAB DB CRT, SOUT, £00

OBES 45786563 OBED 20202020 OBF1 4756 TABLE DB ‘Exec OEF3 456D7367 ORF7 20202020 OEFB 4F56 DB ‘Emag OEFD 44667565 OBO1 20202020 OEO5 4F56 DB ‘Dfun OFOT 45636D64 OFOB 20202020 OFOF 4F56 DB *Eomd

ov’

ov’

ov’

ov’

27,