80-Bus News |
November–December 1982, Volume 1, Issue 4 |
|
|
|
Page 27 of 51 |
|
|
|
---|
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,
This is an OCR’d version of the scanned page and likely contains recognition errors.
|
|
|
Page 27 of 51 |
|
|
|
---|