INMC 80 News

  

May-September 1981, Issue 4











Page 66 of 71











OccB _OCCC OCCE ocDO ocDI OCcD2 OCD4 OcD6

OCD7 OCDA

ocDD OCEO OCE4 OCES OCE7 OCE8 OCEB OCED OCEE OCEF OCF2 OCF4 OCF5 OCF6 OCF7 OCF8 OCF9 OCFA OCFR OCFC

OCFE OCFF oD00d opel one3 ODOS

OD06 ODO? ODO8 oDO9 ODOA ODOB opoc ODOD ODOF 0D12 OD1L3 OD15 OD16 Onl? 0D18 OD19 ODIA

cs DF5YF DF5D AF 47 DF6F 1OFC cl

CD280D C38A06

2AD8 10 ED5BDA10 E5 ED52 El F2FEOC 3EBO BE

23 C2F50C 3E44 BE

23

5E

23

56

23

ca

19 18E2

El El EL DF6B DE7I co

46 78 23 SE 23 56 DS 1OF9 221LE0C El L80F 44 4D Dl F5 AF 1B

0490 0500 0510 0520 0530 0540 0550 0560 0570 0580 0590 0600 0610 0620 0630 0640 0650 0660 0670 0680 0690 0700 0710 0720 0730 0740 0750 0760 0770 0780 0790 0800 0810 0820 0830 0840 0850 0860 0870 0880 0890 9900 0910 0920 0930 0940 0950 0960 0970 0980 0990 1000 1010 1020 1030 1040 1050

1060 1070

1080 1090

jy o-- Header out ---

Hl

PUSH SCAL MFLIP SCAL TDEL XOR A

LD B,A SCAL SRLX DINZ H1 POP BC

BC

3 --- Save Data ---

EXITS

; nase FIN Fl

F2

M2

CALL SAVE JP SAVEND

SBR FIND LD HL, (BEGARR) LD DE, (BEGFRE) PUSH HL

SBC HL,DE

POP HL

JP P,ERI

LD A,"0+#80 cP (HL)

INC HL

JP NZ,F2

LD A,"D

CP (HL)

INC HL

LD E, (HL)

INC HL

LD D, (HL)

HL

SBR MATRIX ==== LD B, (HL)

LD A,B

INC HL

LD E, (HL)

INC HL

LD D, (HL) PUSH DE

DINZ M1

LD (ARG10), HL POP HL

JR M8

LD B,H

LD C,L

POP DE

PUSH AF

XOR A

DEG DE

-66-

OD1B OD1C OD1D ODIE 0D20 op21 0D23 OD24 0D25 OD27

op28 OD2B op2c OD2F 0D30 oD31 0D32 0D33 0D34 0D35 0D36 0D37 0D38 0D39 OD3A OD3B

OD3C op3D OD3E op40 op42 OD44 OD46 OD47 on48 op49 OD4A opac OD4E 0D51 0D53 0D55 0D56 oD58 0D59

OD58B oD5cc OD5D OD5E ODSF OD60 OD62 ODe3 OD65

09 1B BB 20FB BA 20F8 Fl 3D 20EE c9

3A1B0C 4F 3A1 FOC 47 03 OA 5F 03 03 E5 0A 6F 03 OA 67 c5

AF FF 0605 DF6F 3EFF LOFA 43 AF BB 7B DFOF DF6F CASBOD DFeD 0608 79 DF6F AF 1OFB

on El 2B AF BD 20CE BC 20CB c9

1100 M3 ADD HL,BC 1110 DEC DE 1120 cP OB

1130 JR NZ,M3 1140 cP D

1150 JR NZ,M3 1160 POP AF 1170 M8 DEC A

1180 JR NZ,M2 1190 RET

1200 ;

1210 ; ==== SBR SAVE ==== 1220 SAVE LD A, (ARG10) 1230 LD CA 1240 LD A, (ARG10)41 1250 LD B,A 1260 S1 INC BC 1270 LD A, (BC) 1280 LD E,A 1290 INC BC 1300 INC BC 1310 PUSH HL 1320 LD A, (BC) 1330 LD OLA 1340 Inc BC 1350 LD A, (BC) 1360 LD H,A 1370 PUSH BC 1380 ; --- Data out --- 1390 XOR A

1400 RST RDEL 1410 LD B,5 1420 $2 SCAL SRLX 1430 LD A, #FF 1440 DJINZ $2 1450 LD OB,E 1460 XOR A

1470 cP O£e

1480 LD A,E 1490 SCAL SRLX 1500 SCAL SRLX 1510 JP Z,84 1520 SCAL SOUT 1530 LD OB,LL 1540 LD OA,C 1550 $3 SCAL SRLX 1560 XOR A

1570 DJNZ S3 1580 3; --- Check Pointers --- 1590 S4 POP BC 1600 POP HL 1610 DEC HL 1620 XOR A

1630 cP OL

1640 JR NZ,S1L 1650 cP 4H

1660 JR NZ,S1 1670 RET

1680 ;

>


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











Page 66 of 71