DataMuseum.dk

Presents historical artifacts from the history of:

IBM System/3

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about IBM System/3

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦692935d30⟧ s3xseg

    Length: 1778 (0x6f2)
    Types: s3xseg
    Names: »S$GPU«

Derivation

└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
    └─⟦e1bdf435f⟧ 
        └─⟦this⟧ »S$GPU«

TextSegment

       MACRO                                                            00010000                
&LABEL $GPU  &DEV-,&EOF-,&ERR-,&DTF-,&OPC-,&OVRTN-,&MODUL-,&DEFER-      00170000                
       TABLE &DEV                                                       00180000                
MFCU   TABDF '$RD'                                                      00190000                
MFCU1  TABDF '$RD'                                                      00200000                
MFCU2  TABDF '$RD'                                                      00210000                
D1442  TABDF '$FD'                                                      00220000                
PRNTR  TABDF '$PD'                                                      00230000                
PRNTR1 TABDF '$PD'                                                      00240000                
PRNTR2 TABDF '$PD'                                                      00250000                
''     TABDF '$RD'                                                      00260000                
       TABLE &OPC                                                       00270000                
READ   TABDF '80'                                                       00280000                
RDPRT  TABDF 'C0'                                                       00290000                
RDPCH  TABDF 'A0'                                                       00300000                
RDPP   TABDF 'E0'                                                       00310000                
PUNCH  TABDF '20'                                                       00320000                
PUPR   TABDF '60'                                                       00330000                
PRINT  TABDF '40'                                                       00340000                
PUNNF  TABDF '30'                                                       00350000                
''     TABDF '80'                                                       00360000                
       TABLE &DEFER                                                     00370000                
Y      TABDF 'Y'                                                        00380000                
N      TABDF 'N'                                                        00390000                
''     TABDF 'N'                                                        00400000                
       TEXT                                                             00410000                
*    UNIT RECORD GET/PUT LINKAGE       RELEASE-7                        00410001                
       AIF   (T'&LABEL EQ 'O').A                                        00420000                
&LABEL EQU   *                         YES. MAKE PART OF USER GENERATED 00430000                
.A     AIF   (T'&DTF EQ 'O').B                                          00440000                
       LA    &DTF,$DTF                 LOAD DTF ADDRESS IN REGISTER 2   00450000                
.B     MVI   &DEV.OPR(,$DTF),X'&OPC'   MOVE OP CODE TO DTF              00460000                
       AIF   (&OPC GT '40').B1                                          00470000                
       AIF   (&DEFER EQ 'N').B1                                         00480000                
       SBN   &DEV.OPR(,$DTF),X'10'     SET DEFER BIT ON                 00490000                
.B1    B     &MODUL                    BRANCH TO DATA MANAGEMENT        00500000                
       CLI   &DEV.CMP(,$DTF),X'41'     WAS OPERATION IN ERROR           00510000                
       BE    &ERR                      BRANCH TO ERROR ROUTINE          00520000                
       AIF   (&DEV EQ '$PD').PTR                                        00530000                
       AIF   (T'&EOF EQ 'O').END                                        00540000                
       CLI   &DEV.CMP(,$DTF),X'42'       WAS THERE END OF FILE          00550000                
       BE    &EOF                      BRANCH TO END OF FILE ROUTINE    00560000                
.END   ANOP                                                             00570000                
       MEXIT                                                            00590000                
.PTR   CLI   &DEV.CMP(,$DTF),X'48'     WAS THERE OVERFLOW               00600000                
       BE    &OVRTN                    BRANCH TO OVERFLOW ROUTINE       00610000                
       MEND                                                             00630000                
00330000                PRINT  TABDF '40'                      PRINT                            
00340000                PUNNF  TABDF '30'                      1442 PUNCH NO FEED               
00350000                ''     TABDF '80'                      DEFAULT READ                     
00360000                       TABLE &DEFER                    * DEFER