|
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: 1778 (0x6f2)
Types: s3xseg
Names: »S$EFT«
└─⟦d0bc1a931⟧ Bits:30009189 5704-sc1.V08.ccp
└─⟦64693a1c9⟧
└─⟦this⟧ »S$EFT«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$EFT«
MACRO 00010000
.********************************************************************** 00020000
.* STATUS: RELEASE 2 * 00030000
.* * 00040000
.* NAME: $EFT * 00050000
.* * 00060000
.* FUNCTION: DEFINE THE LABELS NECESSARY TO REFERENCE THE * 00070000
.* 'FORMAT TABLE' IN PROGRAM APPENDED STORAGE. * 00080000
.* * 00090000
.* INPUT OPERANDS: NONE * 00100000
.********************************************************************** 00110000
$EFT 00120000
TEXT 00130000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00140000
* * 00150000
* EQUATES FOR ITEMS IN 'FORMAT TABLE' FOUND IN PAS (PROGRAM * 00160000
* APPENDED STORAGE) FOR DFF. * 00170000
* 02/07/73 * 00180000
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00190000
SPACE 00200000
FT EQU 0 START OF FORMAT TABLE 00210000
* LNG CONTENTS 00220000
SPACE 00230000
FTCHN@ EQU FT+1 CHAIN @ TO NEXT FT ENTRY 00240000
* 2 00250000
SPACE 00260000
FTNAME EQU FTCHN@+6 NAME OF DISPLAY FORMAT 00270000
* 6 00280000
SPACE 00290000
FTFCS EQU FTNAME+2 ACTUAL DISK C/S OF FDT 00300000
* 2 00310000
SPACE 00320000
FTFDTL EQU FTFCS+1 # SECTORS TO READ FOR FDT 00330000
* 1 00340000
SPACE 00350000
FTTSCS EQU FTFDTL+2 DISK C/S OF TEXT STREAM FOR THIS 00360000
* 2 FORMAT. 00370000
SPACE 00380000
FTTSL EQU FTTSCS+1 # SECTORS OF TEXT STREAM FOR 00390000
* 1 OUTPUT 00400000
FTM#2 EQU BIT0 1-MODEL 2 00410000
* 0-MODEL 1 00420000
SPACE 00430000
FTOUTL EQU FTTSL+2 LENGTH IN BYTES OF OUTPUT TEXT 00440000
* 2 STREAM FOR OUTPUT. 00450000
SPACE 00460000
FTINL EQU FTOUTL+2 LENGTH OF DATA TEXT TO EXPECT 00470000
* 2 FOR A FULL INPUT BUFFER FOR 00480000
* HOLD AREA. 00490000
SPACE 00500000
FTL EQU FTINL-FT+1 LENGTH OF ONE FT ENTRY. 00510000
EJECT 00520000
MEND 00530000