¢008 MACRO ASSEMBLER, VEK 2.2 INTEL,LEC 8/MOD 8 !d0XXXXX, VERSION 3.Q, 1x APRIL 1975 ERRORS · 0 PAGL 24          3C30 CD                        !d0V B,H         3C31 06                        MXX C,L         3C32 3o062EG0 LXX K,AFK1         3C36 FIBMOV M,b         3Xx"/ 30                       IXX L         3C38 F"A                      MQV M,C         3C39 467tx3E                  CALL PBYTE                        } PUNCX DATA         3C3C 21                       OXX E         3XxX 4tXxxxX                  JNZ hkj3         3C40 AB                       XKA A         3C41 93                       SUB D         3C42 46'/B3E                  2AXX PBI'IE                      ; PUNCH CHECKSUM         3C45 44DD38                   jy,P nKIO                               ;                               ; EKKQR EXII'.                               i                               ; THXX ABNORMAL EXIT IS EXECUTED FOR ALL NQNITUR ERROR CONDITIONS.                               P                               t         3C4d                  LEK:         3C4d DELA                     MVI B,'"'         3C4A 4b523C                   CALL XX         3C4D 444938                   JMP STARX                               7                               ; SUBKUUXXXXX                               P                               P         3Cx0                  BL,K:                                    7 PRINT A BLANK         3C>0 0Exx                     MVI El, ' '                               /                               ; EXTERKALLY REFEFE::XXXx ROUTINE                               ; CQNSXXX OUTPXX CODE, VALUE EXPECTED IN B                               ; A,b,H,L, AM) FLAGS H(JD1FIEb                               i STACK UXXXX 2 XXXXX                               i         3C52                  CO:J CONSOLE OUTPUT         3C52 36032E00                 LXX H,JxBYT         3C56 C7                       MOil A,M                         i GET STATUS BYTE         3X:j/ 2403                    ANI NUT CKSK                     i GET CONSULE BITS         xC59 4Bb"/3C                  JNZ COO                          i TEST FOR CRT         3CSC                  TTYUUXX         xC5C 43                       IN TTS                           i CU.HSQLE · TTY         3CSD 2404                     ANI TTY6E         3C5F 4X>C3C                   JNZ TTYQUT                       i LOOP UNTIL RXXXX         3Ct)2 Cx                      mv A,i3         3C63 2?XX                     XRI 0Ffrl         xCb5 51                       QU1' TTO                         x OUTPUT CHARACTER         3C6t) 07                      RET                              ; RETURN         3C67                  coQi         3C67 3CCll                " CPI CCXX                           ; CONSOLE · CRT?         3C69 48773C                   JNZ COl                          1 TEXX FOR XXXXX         3C6C                  CR10U1N         3C6C 4i3                      IN CRTS                          } CONSOLE · CRT