Micro­power

   

Volume 1, Number 4 – December 1981
Page 25 of 33
0CC6C5PUSH BC
0CC74ELD C (HL)
0CC8AFXOR A
0CC9B9CP C
0CCA20 05JR NZ, SUMCHK
0CCCC1POP BC
0CCDE1POP HL
0CCEF1POP AF
0CCF18 D5JR FORWARD
0CD1D5SUMCHKPUSH DE
0CD221 6F 0DLD HL, SUMLST
0CD509ADD HL, BC
0CD646LD B, (HL)
0CD7AFXOR A
0CD857LD D, A
0CD9C5ADDPUSH BC
0CDA23INC HL
0CDB06 00LD B, 0
0CDD4ELD C, (HL)
0CDED5PUSH DE
0CDFCD 15 0DCALL HEXLOC
0CE21ALD A, (DE)
0CE3D1POP DE
0CE482ADD A, D
0CE5D6 40SUB A, 40H
0CE757LD D, A
0CE8C1POP BC
0CE910 EEDJNZ ADD
0CEBD1POP DE
0CECC1POP BC
0CEDE1POP HL
0CEEFE 26CP 26H
0CF028 04JR Z, RETURN
0CF2F1POP AF
0CF377LD (HL), A
0CF418 BEJR NXTNUM
0CF6F1RETURNPOP AF
0CF718 ADJR NXTNUM
0CF9DF 7BSOLNSCAL BLINK
0CFB18 08JR GOBACK
0CFD1AREPLACLD A, (DE)
0CFECD 20 0DCALL TABLOC
0D0177LD (HL), A
0D023E 20LD A, 20H
0D0412LD (DE), A
0D050BGOBACKDEC BC
0D06AFXOR A
0D07B9CP C
0D0828 0AJR Z, END
0D0ACD 15 0DCALL HEXLOC
0D0D1ALD A, (DE)
0D0ECD 20 0DCALL TABLOC
0D1177LD (HL), A
0D1218 A0JR NXTNUM
0D1476ENDHALT
0D15E5HEXLOCPUSH HL
0D1621 33 0DLD HL, HEXLST-2
0D1909ADD HL, BC
Page 25 of 33