INMC 80 News

  

September 1980 – January 1981, Issue 2











Page 34 of 59











-34=

1800 } Bad data, put error messaae and scroli

O0SC DF49 1810 Loz SCAL SPACE OOSE DF6B 1820 SCAL ERRM 0660 18AL 1830 JR Ubi 1850 $ End 0062 FF 1840 Lbs RST ROUT 0043 0 t 1870 SCAL BLINK 00465 EA7F 1880 AND 7FH 0067 FEOL 1890 cr Ck 0049 i900 JR NZ LD2 0068 1910 RST ROUT 1930 $ Return to monitor 0060 DFSE 940 SCAL MRET 1940 j END OF LISTING

ZEAP Z80 Assembler – Symbol Table

OCOCH 0480 ARGL OCOEH 04960 ARGZ OC 10H o500 ARGS 0068H 0330 B2HEX 0380 4 GO0BH 0420 &S 0390 G0ODH G450 Cr GO06GH 0350 CRLF O00CH 0440 OC29H 0510 CURSOR CO6EH 03460 1 0430 ESC 0003H 1170 1200 LO? COZ7H 1410 OGRA LAB O Lia OOO AGGO 8049H 1650 Lbe QOSCH 1810 1840 Loe O000H 1130 0300 MRET 0028H 02460 FRE

1079K 0370 GO69H 0340 Q007H 0680 T QO1DH 0880 O066H 0310 TECHS

RLIN O0S0H 0270 ROUT OOOOH 0640 TAB Q013H 0790

0067H 0320

TKK KR FOKK OK OK

CALL END AR

RRM RX

x x * x By John Waddell x *

KOKORO OK OK OK OK K

xXKKRRRBAS

REM KOK REM *K Initialise

DIM Nc12)

FOR I#3328 TO 3336 STEP 2$READ JIDOKE T,Js NEXT FOR Tei TO 123READ NOT) ENEXT

GOS SUG 730

tart here and get year tRESTORE 940 “What year do you want 3 F=1l THEN PRINTSFRINT TABC33 "CENTERS for mext month) "3 FRINT "? "3 GOSUE 780 IF F=0 AND ITc="" THEN 210


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











Page 34 of 59