MACRO                                                          00001000
         IO    &SECT                                                    00002000
         PUSH  PRINT                                                    00002200
         AIF   ('&SYSPARM' NE 'SUP').ACC01                              00002400
         PRINT OFF,NOGEN                                                00002600
.ACC01   ANOP                                                           00002800
         LCLC  &T                                                       00003000
         AIF   ('&SECT' EQ 'CSECT').CSECT                               00004000
&T       SETC  'V'                                                      00005000
OPSECT   DSECT                                                          00006000
         AGO   .CONT                                                    00007000
.CSECT   ANOP                                                           00008000
&T       SETC  'A'                                                      00009000
OPSECT   DS    0D                                                       00010000
         ENTRY OPSECT                                                   00011000
.CONT    ANOP                                                           00012000
*                                                                       00013000
*   COMMANDER-IN-CHIEF OF ALL I/O OPERATION LISTS                       00014000
*                                                                       00015000
PLIST    DS    0D                                                       00016000
CMSOP    DS    CL8                 I/O OPERATION COMMAND WORD           00017000
FILENAME DS    CL8                 FILE NAME                            00018000
FILETYPE DS    CL8                 FILE TYPE                            00019000
FILEMODE DS    CL2                 FILE MODE                            00020000
FILEITEM DS    H                   ITEM IDENTIFICATION NUMBER           00021000
FILEBUFF DS    F                   INPUT-OUTPUT BUFFER                  00022000
FILEBYTE DS    F                   DATA COUNT                           00023000
FILEFORM DS    CL2                 FILE FORMAT: FIXED/VARIABLE RECORDS  00024000
FILECOUT DS    H                  RECORDS PER BLOCK                     00025000
FILEREAD DS    F                   READ DATA COUNT                      00026000
POINTERS EQU   FILEITEM                                                 00027000
AFST     EQU   FILEBUFF                                                 00028000
*                                                                       00029000
IOAREA   EQU   FILEBUFF       BUFFER AREA LOCATION                      00030000
IOLENGTH EQU   FILEBYTE       BUFFER LENGTH                             00031000
*                                                                       00032000
*   IMMEDIATE REGISTER SAVE ARE                                         00033000
*                                                                       00034000
*                                                                       00035000
SAVER14  DC    F'0'           TEMP R14 SAVE                             00036000
SAVER15  DC    F'0'           TEMP R15 SAVE                             00037000
SAVER0   DC    F'0'           TEMP R0 SAVE                              00038000
SAVER1   DC    F'0'           TEMP R1 SAVE                              00039000
*                                                                       00040000
CMSNAME  DC    CL8'FILE    '      "DEFAULT FILENAME"                    00041000
*                                                                       00042000
*   CONSOLE PARAMETER LISTS                                             00043000
*                                                                       00044000
         DS    0F                                                       00045000
*   READ CONSOLE                                                        00046000
CONREAD  DC    CL8'WAITRD'         TERMINAL READ                        00047000
CONRDBUF DC    &T.(CMNDLINE)    ADDRESS OF INPUT BUFFER                 00048000
CONRDCOD DC    C'U'                TRANSLATE CODE                       00049000
         DC    X'00'                                                    00050000
CONRDCNT DC    AL2(0)              DATA BYTE COUNT                      00051000
         DC    F'0'           RESERVED FOR FUTURE USE                   00052000
*                                                                       00053000
*   CONSOLE WAIT LIST                                                   00054000
WAITLIST DS    0F                                                       00055000
         DC    CL8'CONWAIT'                                             00056000
*                                                                       00057000
*   WRITE CONSOLE                                                       00058000
CONWRITE DS    0F                                                       00059000
         DC    CL8'TYPLIN'                                              00060000
CONWRBUF DC    A(0)                LOCATION OF MESSAGE TEXT             00061000
CONWRCOD DC    C'B'                COLOR CODE                           00062000
         DC    X'00'                                                    00063000
CONWRCNT DC    AL2(0)              LENGTH OF MESSAGE TEXT               00064000
*                                                                       00065000
*   WAIT PARAMETER LIST                                                 00066000
*                                                                       00067000
WAITLST  DS    0F                                                       00068000
         DC    CL8'WAIT'                                                00069000
WAITDEV  DC    CL4'CON1'                                                00070000
         DC    F'0'                                                     00071000
         DC    F'0'                                                     00072000
*                                                                       00073000
*   READER PARAMETER LIST                                               00074000
*                                                                       00075000
         DS    0F                                                       00076000
READLST  DC    CL8'CARDRD'                                              00077000
RDBUFF   DC    A(0)                BUFFER ADDRESS                       00078000
RDCCW    DC    H'0'               CCW BYTE COUNT                        00079000
RDCOUNT  DC    H'0'               BYTES ACTUALLY READ                   00080000
*                                                                       00081000
*   CARD PUNCH PARAMETER LIST                                           00082000
*                                                                       00083000
PUNCHLST DS    0F                                                       00084000
         DC    CL8'CARDPH'                                              00085000
PUNBUFF  DC    A(0)               PUNCH BUFFER ADDRESS                  00086000
PUNCOUNT DC    A(0)               PUNCH CCW COUT                        00087000
*                                                                       00088000
*   PRINTER PARAMETER LIST                                              00089000
*                                                                       00090000
PRINTLST DS    0F                                                       00091000
         DC    CL8'PRINTR'                                              00092000
PRBUF    DC    A(0)                PRINTER BUFFER ADDRESS               00093000
PRCNT    DC    A(0)                PRINT DATA COUNT                     00094000
*                                                                       00095000
*   TAPE PARAMETER LIST                                                 00096000
*                                                                       00097000
TAPELIST DS    0F                                                       00098000
         DC    CL8'TAPEIO'                                              00099000
TAPEOPER DC    CL8' '              TAPE OPERATION COMMAND               00100000
TAPEDEV  DC    CL4'TAP1'           TAPE SYMBOLIC DEVICE                 00101000
TAPEMASK DC    X'00'               SET MODE                             00102000
TAPEBUFF DC    AL3(0)              BUFFER LOCATION                      00103000
TAPESIZE DC    F'0'                                                     00104000
TAPECOUT DC    F'0'               TAPE COUNTER                          00105000
*                                                                       00106000
*   CLOSE OUT DEVICE DEPENDENT DATA SET ON UNIT RECORD EQUIPMENT        00107000
*                                                                       00108000
CLOSIO   DS    0F                                                       00109000
         DC    CL8'CLOSIO'        OPERATION                             00110000
CLOSIODV DC    CL8' '             DEVICE TYPE                           00111000
         DC    4X'FF'                                                   00112000
         DC    6D'0' -        UNUSED                              V0742 00113000
*                                                                       00114000
*                                                                       00115000
*   STORAGE FOR EXEC BOOTSTRAP:                                         00116000
EXLEVEL  DC    F'0'           EXEC "LEVEL"                              00117000
EXF1     DC    F'1'           (FOLLOWS EXLEVEL)                         00118000
EXNUM    DC    F'0'           NUMBER DBL-WORDS FREE STORAGE             00119000
EXADD    DC    F'0'           ADDRESS OF "EXECTOR" CORE-IMAGE           00120000
         DC    2F'0' -        UNUSED                              V0742 00121000
*                                                                       00122000
* STORAGE FOR OS MACRO SIMULATION ROUTINES                              00123000
FCBIO    DC    A(0) -         ADDRESS OF LAST FCB USED DURING I/O       00124000
OSIOTYPE DC    X'DD' -                 OS ACCESS METHOD TYPE            00125000
*                                                                       00126000
         EJECT                                                          00127000
         POP   PRINT                                                    00127100
         MEND                                                           00128000