8008 P,ACR0 ASSEMBLER, VER x,2 1N7'ELAXX UMOD k$ KUNITOR, VERSION 3,x, 1x APRIL 1975 ERRORS · 0 PAGE 23                                         ; DXXXXX.                                       ;                 30DA                  HRITU                 38DA 45853D                    7ALA, EXPR                       ; GIT Two K1)CRESSES                 3EDD                  KRIO:                 3CDX 46D43D                    ?AL,L XXXXX                 3BE0 C6                        ,YQ\/ A,L,                 313El 0410                     ADI 16                 3Bt3 [)0                       µ,0\/ C,A                 3Bt.4 CS                       MUV A,H                 3BE5 0?00                      XXX 0                 3t3E7 Cti                      µ,0\/ B,A                 3t3U C4                        M0\/ A,E                 38E9 92                        SUb C                 3BEA Du                        NOV C,A                 313EB Xx                       MUV A,D                 3tiiC 99                       SxiEl B                 30Eb 70F53B                    JM rcRil                         ; RECORD LENGXX " 16                 38FU UOl0                      µ,XX A,16                 3tilF2 44F8313                 JMP nRjZ                 3Bf5                  hRI1:                                       hRI1: MOV A,C                 3eif5 C2                 38Ft) 0411                     AXX 17                 3Bfts                 NRI2:                 3i3Fls ti0                     XXX A                 :$oFy 684x38                   JZ bl'ART                 38EC ED                        µ.LJV L,A                        ; £ <- RECORD LENGTH                 xBFD 1EQ0                      µ,VI D.0                         ; CLEAR CKECKSUM                 3bFF 4o953E                    CALL PEUL                 3CC'2 I'L20                    Kill t3,' '                 xC04 4oB53E                    CALL PU                 3CJ7 QUA                       MYI b,':'                 3C09 4oB53E                    CALL PO '                 3COC C4                        MOV A,£                 xCOD 467B3E                    CAXX PBiTE                       ; PUNCH LENGTH                 3Cl0 36082100 LXl X,ADR1                 3Cl4 C7MOV A,H                 3Cl5 467x31                    ?ALL, PBYTE                      } PUNCH MSB OF' ADDRESS                 3Ci8 36092E00 LXI K,ADRx+1                 3ClC ClNOV A,F'.                 3CID 467B3E                    CALL PBYTE                       i PUNCH LSX OF ADDRESS                 3C20 AB                        XRA A                 3CZl xo/B3E                    XXXX PUTE                        ; PUNCH RECORD TYPE                 3Ci4                  hRI3:                 3C24 36082E00 LXI H,ADRI                 3C28 C7mv A,M                 3C29 30                        INK L                 3C2A F7                        MClV L,M                 3C2b i8                        M(JV H,A                 3C2C C7                        HOV A,K                 3C2D 46F03D                    ?ALL INCHX