80-Bus News

  

November–December 1982, Volume 1, Issue 4











Page 25 of 51











Z2 ASSEMBLY LISTING ...+«..-. PAGE 1 4 Z2 ASSEMBLY LISTING ........ PAGE 2

OF61 5 EERE AAA EAE ERE REESE oce9

OF61 ;* TAPE BACKUP OF DISK FILES * oc29 OF61 a tc a ta * 0029

OF61 3 * o00c CLEAR EQU #0c OF61 ;* M.J.R GIBBS 14-07-82 * 00D CRET EQU £0D OF61 EERE EEE EERE oo1B ESC EQU #1 B 0018 NASSYS EQU £18 0009 TAB EQU £09 0028 PRS EQU £28 0009 ; 0030 ROUT " EQU £30 ocso ORG #080

0038 RDEL EQU £38 0c80 LOAD £8000

0038 . ;NASSYS COMMANDS ocs0

OO7B BLINK EQU 2&7B 0C80 AF START XOR A :SET FILE NUMBER 0068 B2HEX EQU £68 OC81 32E50R LD (RILENO),A ;ZBRO FILE NUMBER 0065 CRT BQU «865 0C84 CDDAOD CALL HEAD ;WRITE HEADINGS 0071 NOM EQU = £71 OC87 214408 STA1O LD HL, LINE2

0077 NNOM EQU. £77 OCBA 22290 LD (CURSOR) , HL

0058 RETNAS EQU £58 ocsD EF RST PRS

O06P gout EQU &£6F OCBE ODO9 DB CRET, TAB

0066 TBCD3 EQU £66 0090 4C4P4144

0066 ;DISK COMMANDS 0C94 20204469

0081 ZDRD QU £81 ;READ 0C98 736B2074

0083 ZRDIR EQU £83 ;READ DIRECTORY OCIS 6F206265

0088 ZcovV. EQU £88 ;CALL OVERLAY OCAO 2044’756D

0088 ;DISK LOCATIONS OCA4 706564 DB ‘LOAD Disk to be Dumped’

C055 SiFCB BQU £0055 OCA7T ODODOY DB CRET, CRET, TAB C069 S2FCB EQU &C069 OCAA 50726573

Coot DDRV EQU #£CO01 :DIRECTORY DRIVE OCAE 73204548

c400 BUFFER EQU £0400 OCB2 54455220

C44 NXTSEC BQU £0414 ;NEXT FREE SECTOR OCB6 5768656E

C416 ENDDIR EQU £0416 ;END OF DIRECTORY OCBA 20526561

C418 DIR RQU = C418 ;DIR ADDRESS OCBE 64’792E DB ‘Press ENTER When Ready." C418 ;DUMMY FCB occ) oDpoDe9 DB CRET, CRET, TAB

6055 . ORG occ4 20202020

C055 LOAD OCCB 20204553

C055 FNAM «= DS ;FILE NAME ocee 43202020

cO5D FEXT DS ?FILE EXTENSION OCDO 746F2053

COSF FSFL DS ;SYSTEM FLAG OCD4 T46F702E DB ‘ ESC to Stop. C060 FUFL DS ;USER FLAG ocDs8 oponos DB CRET, CRET, TAB

C061 FSEC DS ;SECTOR ADDRESS OCDB 45657465

C063 FNSC DS :NUMBER SECTORS OCDF 72205265

C065 FLDA DS LOAD ADDRESS OCES 71756972

CO6T FEXA DS ;BXEC ADDRESS OCET 65642047

CO6T OCEB 7074696F

C067 SCREEN ADDRESSES OCEF 68203D3D

C067 OCF3 3D3EOO DB ‘Enter Required Option ===>’,00 OBCA TOPLN EQU OBCA OCF6 DF RST WASSYS

O80A LINE1 EQU £080A OCF] 7B DB BLINK ;WAIT REPLY O84A LINE2 EQU LINE1+£0040 OCF8 FEOD CP CRET ;WAS CRET O84A OCPA 2807 JR 2%, STA20

OB4A MONITOR LOCATIONS OCFC FEIB cP ESC ;WAS ESCAPE

O84A OCFE C2800C JP NZ,START ;NO TRY AGAIN ococ ARGT EQU &0COC QbDO1 DF RST NASSYS

OCOE ARG2 EQU £0COR opo2 5B DB RETNAS :STOP

oc29 CURSOR EQU £0029 ODO3 CDDDOE STA2O CALL WAIT ;WAIT .5 SEC OD06 JEFF LD A, £FP ;RESET DIRECTOR READ ODOB 3201C0 LD (DDRV),A ZAP IT IN ODOB OOO LD c,0 :FORCE READ ON DRIVE 0

CURSOR CONTROL CHARS

ee ee en

a o By Mog Vee AANA


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











Page 25 of 51