80-Bus News

  

January-February 1984, Volume 3, Issue 1











Page 43 of 55











oye oa ne rrr amaioe nce

y

Z2 ASSEMBLY LISTING ..-+ee+2 PAGE 3

OCFA OCFB OCFE Opol oDpo2 0p03 opo4 op05 OD06 0D07 oDO8 opo9 ODOB ODOE QDOE ODOE ODOE OD1L OD14 OD15 0D16 opis OD1B OD 1D 0D20 0D22 0D23 0D24 0D 26 p29 OD 2B op2cc OD 2D 0D 2F 0D30 0D 32 0D 36 0D 3A OD3E 0D42 ob46 OD4A OD4E 0D52 0D54 op55 0D56 oD56 0D56 0D56 0D56 0D58 OD58

00 2A290C 22290c ES

DF

63

DL

E5

DF

64

El 38F3 242106 22350F

CD6BOE DF

78

FELB CALCOE 3EFF 3201C0 0E00

DF

83

20E8 2155c0 0630

DF

86

2829

EF opop 20202020 2020203c 3D3D 3D 3D 2046494C 45204E4F 54204647 55484420 3D3D3D 3D 3E00

DF

5D

18B9

CD230E 2A6 100

ERR1O

LOOP

LOADIT

DB LD LD PUSH RST DB POP PUSH RST DB POP JR LD LD

RST DB

LD LD RST DB

RST DB

DB RST DB

CALL LD

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

HL 3;KEEP CURSOR LOCN NASSYS

INLIN 3GET REPLY

DE ;DECODE REPLY

HL sNUM MODS HL

NASSYS

NUM sSORT OUT HEX NUMBER HL sRESTORE HL

C,ERRIO 3ERROR??

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

,

3;MAIN LOOP FOR LOADING FILES 3

HEAD2

NASSYS

BLINK

ESC

2, DSKEND 3STOP

A, #FF

(DDRV),A FORCE DIRECTORY READ c,0 sDIRECTORY DRIVE 0 NASSYS

ZRDIR sREAD DIRECTORY

NZ, LOOP 3ERROR MAYBE NO DISK HL, SLFCB 3HL = ACFCB)

B,#30 3LOAD & LOCKED FILES NASSYS

ZLOOK

Z,LOADIT

PRS

CR,CR

,

NASSYS sWAIT TO SHOW RESULT . TDEL LOOP

an ew

sALL OK LOAD DISK 3;SHOW ATTRIBUTES FOR CHECK

5 HEAD sLOAD DISK HL, (FSEC) 3HL = SECTOR LOCATION

Z2 ASSEMBLY LISTING ...+ee00 PAGE 4

OD5E ODSF 0D63 0D67 ODe6B OD6F 0D73 0D77 0D78B OD7E OD7F oD80 op83 oD 84 0D86 OD8A OD8E QD92 0D96 OD9A OD9E ODA2 ODA5 ODA6 ODA? ODAA ODAB ODAC ODAE ODB2 ODB6 ODBA ODBE opc2 opce ODCA ODCE ODCF oppo ODD1 opD2 opp3 ODD4 opp 5 ODD6 ODDS oppc ODDF ODEO ODEL ODE3 ODE6 ODE7

EF RST 20202020

20202044

69736820

53656374

6F 722028

2E2E2E2E

2E2E2E3A

3D2000 DB DF RST 66 DB 2A350F LD EF RST oDoD DB 20202020

20202046

726F 6D 20

52616D20

2E 28 2825

2E2E2E2E

2E2E2E3A4

3D2000 DB DF RST 66 DB 3A63C0 LD 47 LD EF RST opop DB 20202020

20202048

756D6265

722068 66

20536563

74687273

202E2E3A

3D202020

00 DB 78 LD DF RST 68 DB cs PUSH DF RST 5D DB cl POP O£00 LD ED5B61C0 LD 2A 350F LD DF RST 82 DB 2003 JR c3110D JP F5 ERRORD PUSH EF RST

PRS

*

RASSYS

TBCD3

HL, (RAMPOS) ;HL = RAM POSN. PRS

CR,CR

Disk Sector «eosseeet™ ‘,6

. Brom RAM secsecessest™ “40 NASSYS

TECD3

A, CPNSC) sA = NUMBER OF SECTORS B,A 3B = NUMBER OF SECTORS PRS

CR,CR

,

Number of Sectors «.:= ‘,0 A,B 3A = NUMBER OF SECTORS NASSYS

B2HEX

BC sWAIT TO SHOW

NASSYS

TDEL

BC sRECOVER BC

c,0 3c = DISK DRIVE

DE, (FSEC) 3DE » A(SECTOR)

HL, (RAMPOS) ;HL = A(RAM)

NASSYS

ZDWR s;WRITE IT OUT

NZ, BRRORD

LOOP sNEXT

AF {KEEP ERROR NUMBER

PRS

43


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











Page 43 of 55