x0tj8 KACRO ASSE,YE1L,XX, VER 2.2 IN1ELLEC 8/MQD 8 KONITQR, VERSIXX 3,x, 14 APRIL 1975 ERRORS · Cl PAGE 2(J                                                                ; TU BE ADDED TU THL !'!£A0RY ADDRESS OF EACH XXXX BYTE ENCXXXXXXXX.                                                              ; IN THIS WAY, r.EXAUFCIMAL FILES P.AY ExE L,CXDEU IXXX 1'.EHORY                                                              ; IN AREAS OTHER 1HAK THOSE FOR rmICH THLY hiRE ASSElobLEX OR C1JMPILEX.                                                              ; ALL RECORDx READ ARE CRECRSUM.4ED Ahl) CCldPAREX AGAINXX i'rlE                                                              ; CHECKSUM In Trti RECOMA Ik A ChiCKSUM ERROR (OR TAPZ READ ERROR)                                                              ; OCCURS, IKE XXXXX!ii TAKES AN EHRUR EXIT. NORXXX LQADIhG IS                                                              ; TERMINATED wliLh A RECURIJ OF L£!,Giii l) XX EHCxUML"RXX. TillS IS                                                              ; IhTERPRETLD AS AN ENJ OF FILX RECORD AND THE LAJAD ADDRESS                                                              / F'IELU CF THAT RECURU is IAKIN TX BE THL EhTRX POINT XX TiiE                                                              ; PROGXXX (XX IT is NON-ZERO).                                                              ;                3AFB                                         REAO:                3AFB ii                                                       OCR                    C                                             ; GET 0Nx ADDRESS                3AF'9 46x530                                                  CALL                   £XPR                3AfC                                         REO0:                3AP'C 462Bxf                                                  CALL,                  RIX                3AFF QXxX                                                     HVI                    E1,':°                3801 91                                                       SUB                    b '                3502 4sFC3A                                                   JR Z                   REDO                                         i SCAli TO RECORD MARK                3BQ$ lj6                                                      µ,1)V                  L),A                                         ; CXXXX CEECRSUH                3Bvo 467F3C                                                   CAXX,                  t3'tTE                3DU9 bd5A3b                                                   JZ                     REDZ                                         ; ZIR0 RECORD LXXXXX, A[,L, DONE                3BOC to                                                       y.j'd                  E,A                                          ; E <- RECURD XXXXXX                3BjL) 4o7F3C                                                  CXXX                   BIXX                                         ; GET HSt3 OF XXXX ADDRESS                381V 360A2FJQ                                                 Lxi                    ri,AOR2                3814 F8                                                       ,4ljV                 MA                                            1 SAVE IX                3815 Qb713C                                                   CAli,                  El'tTE; GET LSE1 or LOAD ADDRESS                3x18 HUUEQ0                                                   1.XI                  ri,ADR2+1                mc Fo                                                         K(JV                  MA                3bid qb7F3?                                                  CXXX,                  BI'TE                                         ; KLCORD TXXX                3El2V 3bQB2EQj                                                ijxl                  ii,ADR2tl                3824 C7                                                      HOV                    A,X               3U5 3609                                                      RIVI                   L,ADR1+x AND 0FFH               3827 87                                                       ADD                    FI '                3El28 tjo                                                    mv                     C,A               3Bzy 31                                                       OXX                    X               3B2A C7                                                       HOV                    A,!d               3BZB 360A                                                     y,yj                   X,,ADR2 ANL) xFFii               3B2D Bi                                                       ADC                    tq               39,LE 36042EOQ                                                [.XI                   H,HPRIKE               3832 Fu                                                       HOV                    K,A               3833 3Q                                                       INR                    X,               3834 Fa                                                       MOV                    M,C               3b3$                                         REOi:               3835 467F3C                                                   CALL                   BYTE                                          i XXXX DATA               3838 36042E00                                                 LXl                    H,HPRIM£               3b3C Dx                                                       HXX                    C,M               3831) 30                                                      1NR                    L               3B3E E7                                                       MOV                    L,,X               383F EA                                                       mv                     H,C               3840 F8                                                       mv                     M,A                                           1 PUT IN KEMORY