8008 HACR0 ASSŁ,4BL,ZR, \/XX 2.2 INXXx,L,EC 8/!'.00 8 MXXXXXX, VtiRSXx!1 3.0, 14 APXXX 1975 XXXXXX · 0 PAGE 13                                 ; EACH LAXX.                               ;              3901             BNPF:             390t    q68jj30          CALL EXPR                 ; GLT TWO ADDRESSES             3911    46CC3C           CALL CRLF             3914    46203E           CALL LEXX             3917              LINO :             3917    46953E          CALL PEQL                  ; PUNCH CR,LF'             391A    46D43D          CALX GETAD                 ; GEX HL AND DE             391D    Jb20            MVI C,' °                  ; ZERO SUPPRESSION CHARACTER             391F"   26101E27 LXI 0,1000x                       } PUhXX ADDRESS IN DECIMAL             3923    462C3DCALL DIGXX             392b    26E81E03 LXI 0,100x             392A    qbzC307ALL DIGIT             3921)   2x>x4lE00 LXI D,lcj0             3931    462C3DCXXX DIGIT             x934    260AJEX)x LXI D,10             393b    4bZXxXXXXX DIGIT             3938    26011E00 LXl D,1             393F    lo30M4I C,'0'                              ; FORCE AT LEAST 1 ZLRO             3941    462C3D          CALL UIGIT             3944    0E20            MVI B,' °             3946    46853E          CALL po             394y    460x30          CAXX GEIAD                 ] GET HI, AND 1)E             394C              BXi:             x94C    x65530          CALL ENCODE                } ENCODE A MEKORY BYTE IXXX BNPF             39;F    46D43D          CALL GEIXX                 ) Gxl HL ANU DE             3952    4dE23D          CALL HIL,0             395$    6?8E3A          JC NULL                    } ALb DONE, PUNCH TRAILER AND RETURN             39$8    46343F          CALL SAVIT             3958    46043J          CALL GEIAD                 } GET HL AND DE             395E    C6              HOV A,L             39SF    2x03            ANX 03H                    } PUNXX CR,LF,ADXXXXX OK MULTIPLE OF 4             39x1    484C3x          JNZ Bhl             3x64    441739          JKP BN0                               }                               } CUKPAXX PROM WITH HEMORY.                               )                               } THIS ROUTINE EXPECTS UNE riiXADEXXXXX PARAKETER WHICH                               } XX INTERPRETX AS A MEMORY AU1)RESS. THE ROUTINE                               } COMPARES THE F'XXX IN THE FRXXX PANEL SOCKET dITX A                               } 256 bYTE AREA Of XEJ'.QRY POINTED TO BY THE INPUT PARAMETER.                               } AXX DIFFERENCES BETKEEX XXX PR0.4 AND THE KEx'4QRY AREA                               } are displayld in xit following furkat:                               }                               } <MEN1 ADDRESS> <HEK CQhTENTS> <CCiRRESF1jNDIKG XXXX C0NTENTS>                               1             3967              CQKP:             3967 11                 OCR C             3968 468530             CALL XXXX                  } GET ONE ADDRESS             396B x6CC3C             CALL CRLF                  / OUTPUT XX XXX LF