80x8 MACRO ASSEMBLER, VXR 2.2 INTEL,LEC 8/MOD 8 MONITOR, VERXIOX 3,0, 14 APRIL 1975 ERROR3 · 0 PAGE 31                                                                                                           .                                 ;              3XF0              INXHL.:              3XF0 30                 INR L              3DFI DB                 'RNZ              3DF2 28                 INR H              3UF3 07                 XET                                T                                J EXTERXALLY REFLR1NCEJ) ROUTINE                                J' IIU SYSTEM XTATUS CODE                                ; STATUS BYTE KETURNED JN X                                J' STACK USAGU 2 BXTES                                $              3DU               jOCHK:              3DF4 3x032E00           LXI H,I0BYT              3DF8 C"/                MUV A,M                    J' GET SXATUS BYTE              3DF9 0x                 RET                        J' RETURN                                P                                P                                ; EXTERNALLY REFERENCED ROUXINX                                ; SET Il0 CORilGURXTION                                ; VALUX EXPECTED IN B                                j STACK USAGU 2 blTES                                ;              3DFA              IOSET:              3DFA 36032100           LXI H,I0BYT                : POINT XI, AT IOBYT              3DFX F9                 MljV M,B              JDFF 07                 RET                        ; RL1URN                                ;                                ; PRINT C(JXTEh1S OF HI, IN HEX ON CXNSOLE DEVICE                                ;              3EQ0              LADR:              3EQ0 DO                 HOV D,H              3EOl E6                 MljV EAL              3EQ2 C3                 HOV A,1)              3EQ3 4b103E             CALL LBYTE              3X06 C4                 MUV A,E              xX07 46103E             CALL LUTE              3XOA 465x3C             CALL BLK              3EQD EB                 KljV F1,D              3EOE F4                 MOV L,E              3EOF 07                 KET                                g                                P                                ; LIST A BXTE AS ? ASXII CHARACTEXS                                ;              3El0              LBYTEX              3E10 DO                 HXV      C ,A              J SAVE A COPY Of A              3£11 QA                 RRC              3El2 DA                 RRC              3El3 QA                 RRC              3XJx QA                 RXC              3El5 240F               ANI      0FK               J UPPER 4 BITS              3E17 46XA3D             CALL     HXD