Micro­power

  

Volume 1, Number 4 – December 1981











Page 25 of 33











0CC6 0CC7 0CC8 0CC9 0CCA 0CCC 0CCD 0CCE 0CCF 0CD1 0CD2 0CD5 0CD6 0CD7 0CD8 0CD9 0CDA 0CDB 0CDD 0CDE 0CDF 0CE2 0CE3 0CE4 0CE5 0CE7 0CE8 0CE9 0CEB 0CEC 0CED 0CEE 0CF0 0CF2 0CF3 0CF4 0CF6 0CF7 0CF9 0CFB 0CFD 0CFE 0D01 0D02 0D04 0D05 0D06 0D07 0D08 0D0A 0D0D 0D0E 0D11 0D12 0D14 0D15 0D16 0D19 C5 4E AF B9 20 05 C1 E1 F1 18 D5 D5 21 6F 0D 09 46 AF 57 C5 23 06 00 4E D5 CD 15 0D 1A D1 82 D6 40 57 C1 10 EE D1 C1 E1 FE 26 28 04 F1 77 18 BE F1 18 AD DF 7B 18 08 1A CD 20 0D 77 3E 20 12 0B AF B9 28 0A CD 15 0D 1A CD 20 0D 77 18 A0 76 E5 21 33 0D 09 SUMCHK ADD RETURN SOLN REPLAC GOBACK END HEXLOC PUSH BC LD C (HL) XOR A CP C JR NZ, SUMCHK POP BC POP HL POP AF JR FORWARD PUSH DE LD HL, SUMLST ADD HL, BC LD B, (HL) XOR A LD D, A PUSH BC INC HL LD B, 0 LD C, (HL) PUSH DE CALL HEXLOC LD A, (DE) POP DE ADD A, D SUB A, 40H LD D, A POP BC DJNZ ADD POP DE POP BC POP HL CP 26H JR Z, RETURN POP AF LD (HL), A JR NXTNUM POP AF JR NXTNUM SCAL BLINK JR GOBACK LD A, (DE) CALL TABLOC LD (HL), A LD A, 20H LD (DE), A DEC BC XOR A CP C JR Z, END CALL HEXLOC LD A, (DE) CALL TABLOC LD (HL), A JR NXTNUM HALT PUSH HL LD HL, HEXLST-2 ADD HL, BC


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











Page 25 of 33