80-Bus News

  

July-August 1984, Volume 3, Issue 4











Page 33 of 43











Z2 ASSEMBLY LISTING ..ossees

PAGE 3

OCFA OCFB OCFE ODO1 opo2 0D03 OD04 opo5 OD06 0D07 0D08 oD09 ODOB ODOE ODOE ODOE ODOE OD11 OD1L4 oD15 OD16 0D18 0D1B ODID 0D20 0D22 0D23 OD24 0D26 0D29 OD2B OD2C oD2D OD2F 0D30 0D32 0D36 OD3A OD3E 0D42 0D46 OD4A OD4E 0D52 0D54 0D55 OD56 0D56 0D56 0D56 0D56 0D58 OD5B

00 2A290C 22290C E5

DF

63

Di

ES

DF

64

El 38F3 24210C 22350F

CD6BOE DF

78

FE1B CAICOE 3EFF 3201C0 OE00

DF

83

20EB 2155C0 0630

DF

86

2829

EF

oODOD 20202020 2020203C 3D3D3D3D 2046494C 45204E4F 5420464F 554E4420 3D3D3D3D 3E00

DF

5D

18B9

CD230E 2461C0

ERR10

LOOP

WADIT

DB LD Lb PUSH RST DB POP PUSH RST DB POP

LD LD

CALL RST DB cP JP

LD LD RST DB

LD LD

DB JR RST DB

DB RST DB

CALL LD

“RAM Start Address .weooeeeim 7,0 HL,(CURSOR) ;HL = CURSOR LOCN (CURSOR) ,HL ;RESET CURSOR

HL ;KEEP CURSOR LOCN NASSYS

INLIN ;GET REPLY

DE sDECODE REPLY

HL 3;NUM MODS HL

NASSYS

NUM s;SORT OUT HEX NUMBER RL sRESTORE HL

C, ERR1O ; ERROR? 7

HL, (NUMV) 3HL = NUMBER C(RAMPOS) ,HL ;KEEP REPLY

5 sMAIN LOOP FOR LOADING FILES

HEAD2 NASSYS BLINK ESC

2, DSKEND A, £FF (DDRV) A ;FORCE DIRECTORY READ c,0 ;DIRECTORY DRIVE 0 NASSYS ZRDIR NZ, LOOP HL, SIFCB B, £30 NASSYS ZLOOK

Z, WWADLT PRS

CR, CR

;STOP

;READ DIRECTORY ;ERROR MAYBE NO DISK sHL = ACFCB)

;LOAD & LOCKED FILES

meee FILE NOT FOUND ====>- ,0 NASSYS ;WAIT TO SHOW RESULT

TDEL LOOP

wnane

3;ALL OK LOAD DISK ;SHOW ATTRIBUTES FOR CHECK

3 HEAD ;LOAD DISK HL,(PSEC) jHL = SECTOR LOCATION

Z2 ASSEMBLY LISTING «cesses

PAGE 4

OD5E OD5F OD63 0D67 OD6B OD6F 0D73 0D77 OD7B

OD7E,

OD7F OD80 oD83 0D84 OD86 OD8A OD8E oD92 0D96 OD9A OD9E ODA2 ODA5 ODA6 ODA7 ODAA ODAB ODAC ODAE ODB2 ODB6 ODBA ODBE opc2 ODC6 oDCcA ODCE ODCF QDDO ODD1L ODD 2 oDD3 oDD4 oDD5 ODD6 ODD8 oppc ODDF ODEO ODEL ODE3 ODE6 ODE7

EF 20202020 20202044 69736B20 53656374 6F 72202E 2E 25 2E 2E 2E 2E 2E3A 3D2000 DF

66 2A350F EF

opoD 20202020 20202046 726F 6D20 52616D20 2E 2E 2E2E 2E 2E 2E2E 2E 2E 2E3A 3D2000 DF

66 3A463C0 47

EF

opoD 20202020 20202045 756D6265 72206F 66 20536563 746F 7273 202E2E34 3D202020 00

78

DF

68

cs

DF

5D

cl

QEOO ED5B61C0 2A350F DF

82

2003 C3110D F5 ERRORD EF

RST

DB RST DB LD RST DB

DB RST DB LD LD RST DB

DB LD RST DB PUSH RST DB POP

PRS

– Disk Sector secesseet® “,0 NASSYS

TBCD3

HL, (RAMPOS) ;HL = RAM POSN-=

PRS

CR,CR

’ From RAM seccsneeeest™® 40 NASSYS

TBCD3

A,CENSC) ;A = NUMBER OF SECTORS B,A 3B = NUMBER OF SECTORS PRS

cR, CR

*

Number of Sectors ..:= *,0 A,B sA = NUMBER OF SECTORS NASSYS

B2HEX

BC ;WAIT TO SHOW

NASSYS

TDEL

BC ;RECOVER BC

c,0 3C = DISK DRIVE DE,(FSEC) ;DE = ACSECTOR)

HL, (RAMPOS) ;HL = ACRAM)

NASSYS

ZDWR ;WRITE IT OUT

NZ, ERRORD

LOOP ;NEXT

AP ;KEEP ERROR NUMBER

PRS

33


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











Page 33 of 43