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