08 KACRU AXXXXXXXX, VER 2.2 JNTELL,EC 8/KOD 8 MONITOR, VERSION 3.0, 14 APRIL 1975 ERROXX · 0 PAGE 32           3EIX C2                           MDV A,C                                i RETRIEVE ORIGINAL VALUE         3E!B 2x0X                         ANI om                                 ; LOWER 4 BITS         3EID 44EA3D                       JMP HXD                                  P                                  P                                  t PUNCH b INCHXX OX LEADER                                  W                                  P         3E20                     LEAD:         3E20 163C                       " MVI C,6U                              i SET TU PUNXX » INCHES Of NULLS         3E22                     LECN         3E22 0EQ0                     ' MVJ B,0         3E24 46B53E                       CXXX PO         3E27 S!                           OCR C         3E28 48223E                       JNZ LEO         3ExB 07                           RET                                  ; .                                  ; EXTERNALLY REXXXXXXXX ROUTINE                                  i LIST JUTPUT C'ObE                                  ; XXXXX EXPECTED lid B                                  ; A,B,H,L, And FLAGS x'.0L)jFIED                                  ; STACK (jSAGE: 2 bYTES                                  ;         mc                       L,0:                                           i LIST OUTPUT         3E2C 3b032EOQ                     LXl H,IOBYT         3E30 C7                           MClV A,m                              ; GET SXXXXX BYTE         3E31 24CO                         An! not lhsk                          ; GET LIST BITS         3ti33 685C3C                      JZ TTYUUT                             ; HST · Till         3Xx JC4Q                                           CPI LCHT         3E3B 68bC3C                       JZ CR10UT                             ; LXXX · CRT         3E3B 3?8x                         CPI LUSEI                             7 TESX FDR USLR DEFINED LIST DEVICE         3t3O 681237                       JZ LILOC                              ; BKAx4CH TO USER DEVICE         3E40 'U1537                       JMP L2LUC                             ; ELSE BRANCH TO USER LIST 2                                  ;                                  ; EXTERNALLY REFERXXXXX RUUTlhE                                  ; REIURK XXXXXXX OF END OF MXX!0RY TO USER                                  ; A,B,CX,L, ANX FLXXX KDDIFIED                                  ; VALXX RETXXXXX IN (C,A)                                  ; STACK USAGEX 2 BYTES                                  ;         3E43                     MEMCxC:         3E43       36002EOQ bXj Fl,0         3E47                     m:         3e47                    CF                     MOV B,M         3E48       3EAA                   HXX M,QAAH         3E4A       C7                     MOV A,M         3E'IB      F9                     NOX M,l3         3E4C       28                     JNR H         3E4D       3CAA                   CPl 0AAK         3E4F       b8473E                 JZ MO                    29                     OCR hi         3E52         3E53       2!9                    ocr h         3E54       31                     OCR L