|
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: 3810 (0xee2)
Types: s3xseg
Names: »S$DTOU«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$DTOU«
MACRO 00010000
$DTOU &DEV- 00050000
TABLE &DEV 00060000
MFCU TABDF '$RD' 00070000
PRNTR TABDF '$PD' 00080000
D1442 TABDF '$FD' 00090000
CONSOL TABDF '$CD' 00100000
'' TABDF '$RD' 00110000
TABDF '- 00120000
TEXT 00130000
* OFFSET LABELS FOR A UNIT RECORD DTF RELEASE-7 00130001
AIF (&DEV EQ '$CD').A 00140000
&DEV.DAT EQU 1 IOB DATA ADDRESS 00150000
&DEV.FLG EQU 2 IOB FLAG BYTE 00160000
&DEV.DCH EQU 4 IOB DECENDING CHAIN POINTER 00170000
.A ANOP 00180000
&DEV.DEV EQU 0 DEVICE ADDRESS 00190000
&DEV.UPS EQU 1 UPSI MASK FOR THIS DTF 00200000
&DEV.AT1 EQU 2 ATTRIBUTE BYTE 1 00210000
&DEV.AT2 EQU 3 ATTRIBUTE BYTE 2 00220000
&DEV.CHA EQU 5 BACKWARD CHAINING ADDRESS 00230000
&DEV.CHB EQU 7 FORWARD CHAINING ADDRESS 00240000
&DEV.ARR EQU 9 ARR SAVE AREA 00250000
&DEV.XR1 EQU 11 XR1 SAVE AREA 00260000
&DEV.LRA EQU 13 LOGICAL RECORD ADDRESS 00270000
&DEV.CMP EQU 14 COMPLETION CODE 00280000
AIF (&DEV NE '$CD').AA 00280001
* EQUATE VALUES FOR COMPLETIONS CODE 00280002
$CCACP EQU X'00' NO WAIT REQUEST ACCEPTED 00280003
$CCDNE EQU X'40' SUCCESSFUL COMPLETION 00280004
$CCERR EQU X'41' PERMANENT ERROR 00280005
$CCEOF EQU X'42' END OF FILE ON INPUT 00280006
$CCRST EQU X'45' NO MORE INPUT ALLOWED 00280007
$CCREQ EQU X'50' REQUEST KEY HIT 00280008
* END OF COMPLETION CODES 00280009
.AA ANOP 00280010
&DEV.OPR EQU 15 OP CODE 00290000
AIF (&DEV EQ '$CD').B 00300000
AIF (&DEV EQ '$PD').C 00310000
&DEV.STS EQU 16 STACKER SELECT BYTE 00320000
&DEV.Q EQU 17 Q BYTE (DEVICE ADDRESS) 00330000
&DEV.R EQU 18 R BYTE 00340000
&DEV.STA EQU 19 IOS/ERP STATUS INFORMATION 00350000
&DEV.SNS EQU 21 SENSE AREA 00360000
&DEV.WKA EQU 22 WORK AREA 00370000
&DEV.SVA EQU 24 IOS/ERP PERMANENT SAVE AREA ADDR 00380000
&DEV.ERP EQU 26 DISK ADDRESS OF ERP 00390000
&DEV.RIO EQU 28 READ IOB ADDRESS 00400000
&DEV.UIO EQU 30 PUNCH IOB ADDRESS 00410000
&DEV.PUB EQU 32 PUNCH I/O AREA ADDRESS 00420000
AIF (&DEV EQ '$FD').D 00430000
&DEV.PTB EQU 34 PRINT I/O AREA ADDRESS 00440000
&DEV.PTL EQU 35 PRINT RECORD LENGTH 00450000
&DEV.PUL EQU 36 PUNCH RECORD LENGTH 00460000
AGO .E 00470000
.D ANOP 00480000
&DEV.CDA EQU 32 CURRENT PROCESSING DATA ADDRESS 00490000
&DEV.PRV EQU 34 PREVIOUS OP BYTES 00500000
&DEV.PUL EQU 36 PUNCH RECORD LENGTH 00510000
AGO .E 00520000
.B ANOP 00530000
&DEV.CT1 EQU 16 COUNT BYTE ONE 00540000
&DEV.CT2 EQU 17 COUNT BYTE TWO 00550000
&DEV.SPC EQU 18 SPACE COMMAND BYTE 00560000
&DEV.IO2 EQU 20 INPUT I/O ADDRESS 00570000
&DEV.OP2 EQU 21 SECOND OPERATION CODE 00570001
AGO .E 00580000
.C ANOP 00590000
&DEV.SKB EQU 16 SKIP BEFORE BYTE 00600000
&DEV.SPB EQU 17 SPACE BEFORE BYTE 00610000
&DEV.SKA EQU 18 SKIP AFTER BYTE 00620000
&DEV.SPA EQU 19 SPACE AFTER BYTE 00630000
&DEV.Q EQU 20 Q BYTE (DEVICE ADDRESS) 00640000
&DEV.R EQU 21 R BYTE 00650000
&DEV.STA EQU 22 IOS/ERP STATUS INFORMATION 00660000
&DEV.SVA EQU 24 IOS/ERP PERMANENT SAVE AREA ADDR 00670000
&DEV.XLC EQU 25 SECONDARY LINE COUNT SAVE AREA 00680000
&DEV.SNS EQU 27 SENSE AREA 00690000
&DEV.WKA EQU &DEV.SNS WORK AREA 00700000
&DEV.ERP EQU 29 DISK ADDRESS OF ERP 00710000
&DEV.LCT EQU &DEV.ERP LINE COUNTER SAVE AREA (FOR ERP) 00720000
&DEV.IOB EQU 31 ADDRESS OF BUFFER ASSOCIATED IOB 00730000
&DEV.PRA EQU 33 ADDRESS OF BUFFER 00740000
&DEV.AR2 EQU &DEV.PRA ARR SAVE AREA (FROM D.M. TO IOS) 00750000
&DEV.LRL EQU 34 LOGICAL RECORD LENGTH 00760000
&DEV.OFL EQU 35 OVERFLOW LINE 00770000
&DEV.DCT EQU 36 POSITION COUNTER 00780000
&DEV.BUF EQU &DEV.PRA BUFFER ADDRESS 00790000
.E ANOP 00800000
MEND 00820000
NGTH 00450000 e{gggggg
ggg{ggggggggggggg' 2aaaaaaaaaBBBBBBBBBBBBBBBBBBBBBBBBBBBB}gaÅBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBôôôôôôôôôôôôôôôôôôôôôôôô
ôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôôô2aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅ@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}}}}}
}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}ØØØØØØØØØØØØØØØØØ
ØØØØØØØØØØØØØØØØØØl@ÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅ}