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