8008 MACRO AXXXXXXXX, VER 2.2 INTELLEX 8/PJOD 13 MUNITOR, U"RSIC1N 3.0, 14 APRIL, 1975 ERRORS · Q PAGE /                                      ENDJF                              J                  I                 If NOT XXXXX             3800 I                 ORG 380UH                J LOCATE IN TOP 8 ROMS IN 16K                                    ENDIF '                              I                              ; BRANCH TABLE FOR J/Cl SYSTEM                              ;             3800 4429x8            JMP BEGIN                ; RESET ENTRY POINT             3XXx 4x963C            JME' CI                  ; CUNSOLE INPUT             3806 44DB3E            JMP R!                   7 READER INPUT             3809 44523C            JMP CU                   : CONSOLE OUTPUT             38QC 44B5xE            JMP PO                   ; PU!\iCH OUTPUT             38QF 44xC3E            JMP LO                   ; LIST OUTPUT             381? 44bbjC            JKP CS'FS                ; CONSOLE INPUT SFAXXX             3815 44F43D            JKP IOCHK                ; X/O SYSTEM STATUS             3818 44FAJL)           JMP ZUSET                ; SET I/C1 CONFIGURATION             3818 44433E            JMP MEMCK                J' COMPUTE SIZE UF MEMORY                              ;                              J IhjTIAL CONDITIONS FOR J/U SYSTEM                              b             0000             JhlT EQU 0; JNX'1'IALL,Y,                                                             ; CONSOLE · TTY,                                                             ; READER · TTY,                                                             ; PUNCH · TTY,                                                             ; LIST · TTY                              ;             381E 0XXXxxxx VERS: DB CX,L,F,'8008 V'             3822 30382056                  1                 IF NOT DEBUG             x826 i 332E30          DB VER/1Q+'O','.',VER MOD 10+'0'                                    ENDIF                              ;                  I                 IF DEBUG                  I                 DB 'X.X'                                    ENDIF             0009             LVER EQX $-VERS                              $                              ; PROGRAM ENTRY POXXX                              ;                              b LOCATE THE STACK IN THE TOP OF AVXXXXXXX RAM                              ;             3829             BEGIN:             3829 36032Ex0 LXJ H,I0BYT                       7 POINT KL, AT IOBYT             382d 3e00              mvi m,init               ; initial value of 1/0                              ;                              ; TYPE SIGN-ON                              ;             382F 361E2E3X LXI              H,VERS           : ADDXXXX OF MESSAGX             3x3x 160BMVI                   C,L,VEX          ; LENGTH OF MESSAGE             3835             VER08