|
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: 1270 (0x4f6)
Types: s3xseg
Names: »S$ETPX«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$ETPX«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* NAME: $ETPX * 00040000
.* * 00050000
.* STATUS: 02/20/78 RELEASE 03 * 00060000
.* * 00070000
.* FUNCTION: TO GENERATE OFFSETS TO THE PORT EXPANSION AREA. * 00080000
.* * 00090000
.* INPUT OPERANDS: NONE. * 00100000
.* * 00110000
.********************************************************************** 00120000
$ETPX 00130000
TEXT 00140000
********************************************************************** 00150000
* TPBUFFER PORT EXPANSION AREA. * 00160000
********************************************************************** 00170000
SPACE 1 00180000
TPXBEG EQU 0 BEGINING OF EXPANSION AREA. 00190000
TPXFRP EQU TPXBEG+4-1 FREEMAIN PARMETER IN TPBUFFER. 00200000
TPXCHN EQU TPXFRP+2 PORT CHAIN ADDRESS FOR DATA. 00210000
TPXRTC EQU TPXCHN+2 RETURN CODE FOR DATA RECIEVED. 00220000
TPXPID EQU TPXRTC+1 PORT ID FOR DATA RECIEVED. 00230000
TPXNAQ EQU B'10000000' * DATA RECV FOR NON-ACQ PORT. 00240000
TPXCMD EQU B'01000000' * DATA IS PORT COMMAND DATA. 00250000
* B'00111111' * PORT NUMBER. 00260000
TPXDLN EQU TPXPID+2 LENGTH OF DATA RECIEVED. 00270000
TPXFR@ EQU TPXDLN+4 FREEMAIN PARMETER (ADDRESS) 00280000
TPXFRL EQU TPXFR@+2 FREEMAIN PARMETER (LENGTH) 00290000
TPXLNG EQU TPXFRL+1 LENGTH OF THIS PORT EXPANSION. 00300000
MEND 00310000