|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/3 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/3 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2540 (0x9ec)
Types: s3xseg
Names: »S$EIOB«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$EIOB«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$EIOB«
MACRO 00010000
$EIOB
.************************************************************ 00040000
.* 00050000
.* |---------|----------|---------------------------------| 00060000
.* | | IOBD | OPERANDS (DESCRIBED BELOW) | 00070000
.* |_________|__________|_________________________________| 00080000
.* 00090000
.* THIS MACRO GENERATES THE FIELD EQUATES FOR THE FOLLOWING DEVICES: 00100000
.* DISK
.* 00130000
.* DISK=Y CREATES IOB FIELD EQUATES FOR DISK(5444,5445) 00340000
.* 00360000
.************************************************************* 00370000
TEXT 00380000
******************************************* 00410000
* IOB COMMON EQUATES * 00420000
******************************************* 00430000
SPACE 00440000
IOBECB EQU 0 WAIT/POST BYTE -- BYTE 1 OF ECB 00450000
IOBCOM EQU 1 COMPLETION CODE -BYTE 2 OF ECB 00460000
IOBCMP EQU 2 COMPLETION CODE - BYTE 3 OF ECB 00470000
IOBCHN EQU 6 IOS QUEUE CHAIN POINTER 00480000
IOBQB EQU 7 Q-BYTE OF SIO 00490000
IOBRB EQU 8 R-BYTE OF SIO 00500000
IOBEID EQU 9 ERP MODULE DISPLACEMENT ID 00510000
IOBDAT EQU 11 DATA (LIO) ADDRESS 00520000
IOBSNS EQU 13 SENSE AREA 00530000
IOBFLG EQU 14 FLAG BITS 00540000
IOBERR EQU 15 ERROR COUNTS 00550000
IOBTCB EQU 17 TCB ADDRESS 00560000
SPACE 3 01560000
* EQUATES FOR DISK (5444 AND 5445) 01570000
IOBWRK EQU 18 IOS PARTIAL COMPLETION CODE 01580000
IOBFL2 EQU 19 5445 SECOND FLAG BYTE 01590000
IOBCC EQU 20 5445 CYLINDER; 5444 NOT USED 01600000
IOBHH EQU 21 5445 HEAD 01610000
IOBR EQU 22 5445 RECORD 01620000
IOBN EQU 23 5445 NUMBER OF RECORED (-1) 01630000
IOBDAD EQU 25 PTR TO 5445 10 BYTE DISK ADDRESS 01640000
IOBDCH EQU 27 DATA MGMT CHAIN POINTER 01650000
IOBDTF EQU 29 ADDRESS OF ASSOCIATED DTF 01660000
* OPERATED UPON 01670000
IOBCB EQU 21 5444 CYLINDER 01680000
IOBSB EQU 22 5444 SECTOR 01690000
IOBNB EQU 23 5444 NUMBER OF RECORDS (-1) 01700000
WRIDFB EQU 24 01710000
WRIDCB EQU 25 01720000
WRIDSB EQU 26 01730000
RDIDFB EQU 27 01740000
RDIDCB EQU 28 01750000
RDIDSB EQU 29 01760000
SPACE 1
* THE FOLLOWING EQUATES ARE FOR THOSE PROGRAMS WHO USE READ 01780000
* OR WRITE HA AND R0 COUNT OR WRITE COUNT KEY DATA COMMANDS. 01790000
* FIELD MUST IMMEDIATELY FOLLOW IOB IF USING THESE EQUATES. 01800000
IOBF EQU 30 5445 FLAG BYTE IN DDCF 01810000
IOBCYL EQU 32 5445 CYLINDER ADDR IN DDCF 01820000
IOBHD EQU 34 5445 HEAD IN DDCF 01830000
IOBREC EQU 35 5445 RECORD IN DDCF 01840000
IOBKEY EQU 36 5445 KEY LENGTH IN DDCF 01850000
IOBDTA EQU 38 5445 DATA LENGTH IN DDCF 01860000
IOBNUM EQU 39 5445 NUMBER OF RECORDS (1) 01870000
MEND 01900000