|
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: 3048 (0xbe8)
Types: s3xseg
Names: »S$IOBD«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$IOBD«
MACRO 00010000
&LABEL $IOBD &Q-,&CYL-,&SCTR-,&NUM-,&BUFF-,&ERREC-,&LOG-,&VER-, C00200000
&CHN-,&DISK-,&HEAD- 00210000
TABLE &Q * UNIT TABLE 00220000
R1 TABDF 'X''A0''' REMOVABLE DISK DRIVE 1 00230000
F1 TABDF 'X''A8''' FIXED DISK DRIVE 1 00240000
R2 TABDF 'X''B0''' REMOVABLE DISK DRIVE 2 00250000
F2 TABDF 'X''B8''' FIXED DISK DRIVE 2 00260000
D1 TABDF 'X''C0''' 5445 DISK DRIVE 1 00270000
D2 TABDF 'X''C8''' 5445 DISK DRIVE 2 00280000
'' TABDF 'X''FF''' DEFAULT 00290000
TABLE &SCTR * SECTOR CONVERSION TABLE 00300000
'' TABDF 'X''FF''' DEFAULT 00310000
TABLE &ERREC * ERROR RECOVERY TABLE 00320000
'' TABDF 0 IOS HANDLES RECOVERY DEFAULT 00330000
IOS TABDF 0 IOS TO HANDLE RECOVERY 00340000
USER TABDF 128 USER WILL HANDLE RECOVERY 00350000
TABLE &LOG * LOG ON/OFF TABLE 00360000
'' TABDF 0 DEFAULT LOGGING WILL BE DONE 00370000
Y TABDF 0 LOGGING WILL BE DONE 00380000
N TABDF 32 ERROR LOGGING WILL NOT BE DONE 00390000
TABLE &VER * VERIFY OF WRITE 00400000
'' TABDF 0 DEFAULT, WRITE CHECKING DONE 00410000
Y TABDF 0 WRITE CHECKING WILL BE DONE 00420000
N TABDF 64 WRITE CHECKING NOT TO BE DONE 00430000
TABLE &CYL * CYLINDER DEFAULT TABLE 00440000
'' TABDF 'X''FF''' DEFAULT CULINDER 00450000
TABLE &NUM * NUMBER OF SECTORS DEFAULT TABLE00460000
'' TABDF 'X''00''' DEFAULT IS 0 00470000
TABLE &BUFF * BUFFER ADDRESS TABLE 00480000
'' TABDF 'X''FFFF''' DEFAULT, UNUSED 00490000
TABLE &HEAD * HEAD NUMBER TABLE 00500000
'' TABDF 'X''FF''' DEFAULT 00510000
TABLE &DISK * DISK DRIVE TABLE 00520000
5445 TABDF '5' 5445 DISK DRIVE 00530000
5444 TABDF '4' 5444 DISK DRIVE 00540000
'' TABDF '4' DEFAULT IS 5444 DRIVE 00550000
TEXT 00550001
* INPUT/OUTPUT BLOCK OF DISK RELEASE 7 00550002
AIF (T'&LABEL EQ 'O').A 00570000
&LABEL EQU * GENERATE USERS LABEL 00580000
.A DC XL2'0000' IOS CHAIN POINTER 00590000
DC XL1'40' COMPLETION CODE 00600000
DC AL1(&Q) Q-BYTE 00610000
DC XL1'00' R-BYTE 00620000
AIF (&DISK EQ '5').L 00630000
DC AL1(&CYL) CYLINDER 00640000
AIF (&SCTR GT '24').ADD 00650000
DC AL1(&SCTR*4-4) SECTOR 00660000
AGO .ADD1 00670000
.ADD DC AL1(&SCTR*4+28) SECTOR NUMBER 5444 00680000
.ADD1 DC AL1(&NUM-1) NUMBER OF SECTORS 00690000
AGO .M 00700000
.L DC XL1'00' 5445 SECOND FLAG BYTE 00710000
DC AL2($&SYSNDX) 5445 DISK ADDRESS POINTER 00720000
.M DC AL2(&BUFF) LIO ADDRESS 00730000
DS CL2 SENSE 00740000
DS CL1 ERROR COUNT 00750000
DC AL1(&ERREC+&LOG+&VER+8) FLAG BYTE 00760000
DC XL2'0000' ARR SAVE AREA 00770000
DC XL2'0000' XR2 SAVE AREA 00780000
AIF (T'&CHN EQ 'O').H 00790000
DC AL2(&CHN) CHAIN ADDRESS 00800000
AGO .J 00810000
.H DS CL2 RESERVED 00820000
.J DS CL2 RESERVED 00830000
AIF (&DISK NE '5').END 00840000
$&SYSNDX DC AL1(&CYL) 5445 CYLINDER NUMBER 00850000
DC AL1(&HEAD) 5445 HEAD NUMBER 00860000
DC AL1(&SCTR) 5445 RECORD NUMBER 00870000
DC AL1(&NUM-1) NUMBER OF RECORDS MINUS ONE 00880000
.END ANOP 00890000
MEND 00910000