INMC 80 News

  

September 1980 – January 1981, Issue 2











Page 32 of 59











0000

0000 0003

0007 0008 0004 OboB

0o0D GO0E Oou1

6043

6015 06146 Ooly

O01 001D OOLE 0020 Od21 0023

0025 0024 0028 002A

0000

0000 0001

0003

ZA0E0C EDSB100C

E7 EDS2 19 3906

EF ZEODOO DF SEs

oEO0

2027000 DF 66

0608 7E DF 67 23 DFS? LOFS

79

DFe8 DF6eA 18DE

EF oCo0

DOF 7E

0550

0570 0580 0590 0600 0610

0430 0640 0650

0670 0680 04690 0700 o710

0730 0740 0750 0749

0780 0790

0810 0820 0830 0840

0860 08790 0880 09890 0900 O910 0920

0940 0950 0960 0970 a980

1000 1020

1040 1050 1040 1070 1080 1090 1100

1120 1130 1140

1166 1170

-32-

ORG Q 3 The TAR routine is executed from TAB, } having activated the appropriate ‘xX’ 3 routine. The ‘from’ and ‘to’ arqumants 3 follow the execute address. The date 3 ovtput scrolled on tine sereen- $ Get *from’ and ‘to’ into HL and DE TAB LD HL, (CARG2Z) LD DE, (ARGS) 3 Test if HL < DE, if so continue Tet OR a) SBC HL, DE ADD Hi» DE JR Cc Tez 3 HE ® DE, so must be end RST FRS DEFB ".,CR,0 – SCAL MRET 3 Initialize checksum TEZ LD C, 9 3 Output address RST FRS DEFB " 4" 40 SCAL TECDS 3 Output 8 bytes LD B, 8 TB3 LD Ay CHL SCAL TBCDZ INC) HL SCAL SPACE DINZ TES 3 Output checksum LD A, C SCAL B2HEX SCAL CRLF JR TE. JOR OOOO OO OOIOI OK AOIOI IO SC ICICI ACK IKK KK, ORG 0 $ The LOAD routine executes at LOAD, and 3 data is input from the keyboard in the 3 TAB format, terminated with a ‘newline’. 3 ANY error will result in an ‘Error’ } message, Correct entry will clear the $3 line leaving only the last line address } entered for easy reference. ; Clear the sereen LOAD RST FRS

c +

DEFE CS,0

Get an input

LDL SCAL BLINK


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











Page 32 of 59