Retro1.org codex

*DECK DLPSIN
          IDENT  DLPSIN 
          ENTRY  DLPSIN 
          ENTRY  PSTAB
          ENTRY  PSSIZE 
 DLPSIN   SUBR               ENTRY/EXIT 
          SB1    1
 
*         SHELL SORT OF NEMONICS TABLE. 
 
 PRT17    SX3    L.SYMTAB 
          SX2    O.SYMTAB 
          ZR     X3,PRT22    IF NEMONICS TABLE IS NOW EMPTY 
          SA0    X2-2        (A0) = TABLE ADDRESS 
          SB7    X3          N = LENGTH 
          SB6    X3          M = N
          SX5    2
 
 PRT18    SX0    B6          M = M/2
          AX0    2
          LX0    1
          SB6    X0 
          ZR     B6,PRT22    IF M = 0 
          SB4    B7-B6       K = N - M
          SB3    B1+B1       J = 1
          SB2    B3+         I = J
 PRT20    SB5    B2+B6       L = I + M
          SX1    A0+B2
          SX2    A0+B5
          SA3    X1+B1       A(I) 
          SA4    X2+B1       A(L) 
          IX6    X4-X3
          PL     X6,PRT21    IF A(L) \ A(I) 
          BX6    X4          INTERCHANGE A(L) AND A(I)
          LX7    X3 
          SA6    A3 
          SA7    A4 
          SA3    X1          INTERCHANGE FIRST WORDS OF ENTRIES 
          SA4    X2 
          SB2    B2-B6       I = I - M
          BX6    X3 
          LX7    X4 
          SA6    X2 
          SA7    X1 
          GT     B2,PRT20    IF I > 0 
 PRT21    SB3    B3+X5       J = J + 1
          SB2    B3          I = J
          LE     B3,B4,PRT20 IF J @ K 
          EQ     PRT18       LOOP 
 
*         OUTPUT PFC/SFC NEMONIC TABLE
 
 PRT22    BSS    0
          EQ     DLPSINX
 
DEF#      MACRO  NAME,T,VALUE MACRO TO GENERATE PFC/SFC TABLE 
D1        ECHO   ,X=(H,O,D,,C),Y=(0#,O,D,,10L)
D2        IFC    EQ,*X*T* 
          IFC    -EQ,*T*H*,3
          IFC    -EQ,*T*C*,2
NAME      EQU    VALUE_Y
          SKIP   1
NAME      EQU    Y_VALUE
          RMT 
          VFD    42D/0H_NAME,18D/0
          VFD    60D/NAME 
          RMT 
          STOPDUP 
D2        ENDIF 
D1        ENDD
DEF#      ENDM
 
B000      MICRO  1,,.B000.   # INIT HOST A-A CONN                      #
B001      MICRO  1,,.B001.   # TMNL CONN REQ                           #
B002      MICRO  1,,.B002.   #SWITCH CON FROM NVF                      #
B003      MICRO  1,,.B003.   # RECIEVING A-A CONN                      #
B004      MICRO  1,,.B004.   #RECONECT CON TO NVF                      #
B005      MICRO  1,,.B005.   # CONNECTION BROKEN                       #
B006      MICRO  1,,.B006.   # TERMINATE CONNECT                       #
B007      MICRO  1,,.B007.   #A-A CON INITIALIZED                      #
B040      MICRO  1,,.B040.   #INITIATING AA CON N                      #
B041      MICRO  1,,.B041.   # TMNL CON REQ NOR                        #
B042      MICRO  1,,.B042.   #SWITCH CN FRM NVF N                      #
B043      MICRO  1,,.B043.   # RECIEVING AA CN N                       #
B044      MICRO  1,,.B044.   #RECONN CON TO NVF N                      #
B080      MICRO  1,,.B080.   #INITIATING AA CON A                      #
B081      MICRO  1,,.B081.   #TMNL CONNECT REQ AB                      #
B082      MICRO  1,,.B082.   #SWITCH CON FROM NVF                      #
B083      MICRO  1,,.B083.   #RECIEVING AA CONN A                      #
B200      MICRO  1,,.B200.   # APP NETOFF REQUES                       #
B201      MICRO  1,,.B201.   # APP NETON REQUEST                       #
B240      MICRO  1,,.B240.   # NETON NORM(CS-NIP)                      #
B280      MICRO  1,,.B280.   # NETON ABN(CS-NIP)                       #
B300      MICRO  1,,.B300.   # APPLICATION FAILED                      #
B400      MICRO  1,,.B400.   # SHUTDOWN REQUEST                        #
CA00      MICRO  1,,.CA00.   #CHNG BATCH DEV CHAR                      #
C000      MICRO  1,,.C000.   #LIST MANAG TEMP OFF                      #
C001      MICRO  1,,.C001.   # LIST MANAG TEMP ON                      #
C002      MICRO  1,,.C002.   # MANAG SWITCH LIST                       #
C003      MICRO  1,,.C003.   # MANAGE FDX LIST                         #
C004      MICRO  1,,.C004.   # MANAGE HDX LIST                         #
C10A      MICRO  1,,.C10A.   # TMNL CHAR DEFS                          #
C104      MICRO  1,,.C104.   # DEFINE TERM CHA                         #
C105      MICRO  1,,.C105.   # START INPUT                             #
C107      MICRO  1,,.C107.   # INPUT STOPPED                           #
C108      MICRO  1,,.C108.   # DEFN TERM CHARACT                       #
C109      MICRO  1,,.C109.   # RQST TERM CHARACT                       #
C148      MICRO  1,,.C148.   # TRM CHARS NORMAL                        #
C188      MICRO  1,,.C188.   # TRM CHARS ABNORMAL                      #
C200      MICRO  1,,.C200.   # DATA CONTROL CHAR                       #
C201      MICRO  1,,.C201.   # DATA TRUNCATION                         #
C300      MICRO  1,,.C300.   #CHNG BATCH FIL CHAR                      #
C400      MICRO  1,,.C400.   #TMNTE OUTPUT MARKER                      #
C501      MICRO  1,,.C501.   # START INPUT NONTR                       #
C502      MICRO  1,,.C502.   # START INPUT TRANSP                      #
C503      MICRO  1,,.C503.   # START INPUT RESUME                      #
C600      MICRO  1,,.C600.   #ABRT AND TRMNTE INP                      #
C701      MICRO  1,,.C701.   #INPT STPD BATCH INT                      #
C702      MICRO  1,,.C702.   #INPT STPD SLIPD CRD                      #
C703      MICRO  1,,.C703.   #INPT STPD END OF ST                      #
C704      MICRO  1,,.C704.   # INPUT STOP - NR                         #
C801      MICRO  1,,.C801.   # OUTPUT STOPPED BI                       #
C802      MICRO  1,,.C802.   # OUTPUT STOPPED PM                       #
C803      MICRO  1,,.C803.   # OUTPUT STOPPED FLE                      #
C804      MICRO  1,,.C804.   # OUTPUT STOPPED DNR                      #
C901      MICRO  1,,.C901.   # ACCTG DATA AT EOI                       #
C902      MICRO  1,,.C902.   #ACCTG DAT AT EOI TM                      #
DF02      MICRO  1,,.DF02.   # ABORT NAM                               #
D00A      MICRO  1,,.D00A.   # NIP DAYFILE MSG                         #
D00B      MICRO  1,,.D00B.   #ALERT REQ FOR K DIS                      #
D00C      MICRO  1,,.D00C.   # CHNG DISP PAGE                          #
D00D      MICRO  1,,.D00D.   # HOP REL                                 #
D00E      MICRO  1,,.D00E.   # DEBUG ON                                #
D00F      MICRO  1,,.D00F.   # DEBUG OFF                               #
D000      MICRO  1,,.D000.   # OPERATOR BREAK                          #
D001      MICRO  1,,.D001.   # COMMAND TO APPL                         #
D002      MICRO  1,,.D002.   # ON AIP TRACE REQ                        #
D003      MICRO  1,,.D003.   # DMP FLD LENGTH REQ                      #
D004      MICRO  1,,.D004.   # IGNORE ALERT REQ                        #
D005      MICRO  1,,.D005.   #K DIS ASSND TO APPL                      #
D006      MICRO  1,,.D006.   # APP NOT ON K DISP                       #
D007      MICRO  1,,.D007.   # OFF AIP TRACE REQ                       #
D008      MICRO  1,,.D008.   # RSTRT STAT GATHER                       #
D009      MICRO  1,,.D009.   #DISPL MSG 4 K-DISP                       #
F000      MICRO  1,,.F000.   # STRT INPUT TRANSP                       #
F001      MICRO  1,,.F001.   # END OF JOB                              #
F002      MICRO  1,,.F002.   # RESUME INPUT                            #
F003      MICRO  1,,.F003.   # ABORT INPUT                             #
F004      MICRO  1,,.F004.   #VALIDATE JB/USR CRD                      #
F005      MICRO  1,,.F005.   # STRT INPUT NONTRN                       #
F006      MICRO  1,,.F006.   # END INPUT                               #
F007      MICRO  1,,.F007.   # INPUT STOPPED                           #
F043      MICRO  1,,.F043.   # ABORT INPUT NORM                        #
F044      MICRO  1,,.F044.   #VALIDT JB/USR CRD N                      #
F045      MICRO  1,,.F045.   # END INPUT NORM                          #
F100      MICRO  1,,.F100.   # END OF OUTPUT                           #
F101      MICRO  1,,.F101.   # BATCH DATA                              #
F102      MICRO  1,,.F102.   # RESUME OUTPUT                           #
F103      MICRO  1,,.F103.   # ABORT INPUT                             #
F104      MICRO  1,,.F104.   # RESTART OUTPUT                          #
F105      MICRO  1,,.F105.   # TEMP STOP OUTPUT                        #
F106      MICRO  1,,.F106.   # START OUTPUT                            #
F107      MICRO  1,,.F107.   # OUTPUT STOPPED                          #
F108      MICRO  1,,.F108.   # OFC/TOM                                 #
F141      MICRO  1,,.F141.   # BATCH DATA NORM                         #
F143      MICRO  1,,.F143.   # ABORT INPUT NORM                        #
F145      MICRO  1,,.F145.   # TEMP STOP OUTPUT N                      #
F201      MICRO  1,,.F201.   # SET OUTPT FLE CHAR                      #
F202      MICRO  1,,.F202.   # SET BATCH DEV CHAR                      #
F301      MICRO  1,,.F301.   # INIT PRU CONNECT                        #
F341      MICRO  1,,.F341.   # INIT PRU CONN NORM                      #
F381      MICRO  1,,.F381.   # INIT PRU CONN ABN                       #
0A0A      MICRO  1,,.0A0A.   # NPU DUMP OPTION                         #
0A0D      MICRO  1,,.0A0D.   # NPD/IN                                  #
0A4A      MICRO  1,,.0A4A.   # NPD/DT                                  #
0A4D      MICRO  1,,.0A4D.   #                                         #
0E05      MICRO  1,,.0E05.
0E0A      MICRO  1,,.0E0A.
0E0F      MICRO  1,,.0E0F.
0E4A      MICRO  1,,.0E4A.
0E4F      MICRO  1,,.0E4F.
0F03      MICRO  1,,.0F03.
0100      MICRO  1,,.0100.   # COUPL REG LEVEL                         #
0101      MICRO  1,,.0101.   # LOGIC LINK REGULAT                      #
0102      MICRO  1,,.0102.   # COUP REG STAT REQ                       #
0103      MICRO  1,,.0103.   # H-H LINK REG LEV                        #
0105      MICRO  1,,.0105.
0203      MICRO  1,,.0203.   #INIT T-A CONNECTION                      #
0209      MICRO  1,,.0209.
0211      MICRO  1,,.0211.
0243      MICRO  1,,.0243.   #                                         #
0249      MICRO  1,,.0249.   # INIT A-A CONN NORM                      #
0251      MICRO  1,,.0251.
0283      MICRO  1,,.0283.   # INIT T-A CONNEC AB                      #
0289      MICRO  1,,.0289.   #INITIATE A-A CON AB                      #
0291      MICRO  1,,.0291.
0308      MICRO  1,,.0308.   # TERMINATE CONNECT                       #
0348      MICRO  1,,.0348.   #                                         #
0403      MICRO  1,,.0403.   # CHNG TMNL CHARACTR                      #
0705      MICRO  1,,.0705.   # COUPL HDWARE ERROR                      #
0800      MICRO  1,,.0800.   # COUPL TURNED OFF                        #
1A00      MICRO  1,,.1A00.
1A02      MICRO  1,,.1A02.
1A04      MICRO  1,,.1A04.
1B00      MICRO  1,,.1B00.   # LI STAT REQUEST NP                      #
1B01      MICRO  1,,.1B01.
1B02      MICRO  1,,.1B02.   # LINE STAT REQUEST                       #
1B03      MICRO  1,,.1B03.
1B07      MICRO  1,,.1B07.
1B40      MICRO  1,,.1B40.   #                                         #
1B41      MICRO  1,,.1B41.
1B42      MICRO  1,,.1B42.   #                                         #
1B43      MICRO  1,,.1B43.
1B80      MICRO  1,,.1B80.
1B81      MICRO  1,,.1B81.
1B82      MICRO  1,,.1B82.
1B83      MICRO  1,,.1B83.
1C10      MICRO  1,,.1C10.   #                                         #
1D07      MICRO  1,,.1D07.
1E0A      MICRO  1,,.1E0A.
1E0B      MICRO  1,,.1E0B.
1F01      MICRO  1,,.1F01.
1F02      MICRO  1,,.1F02.
1F03      MICRO  1,,.1F03.
1F04      MICRO  1,,.1F04.
1001      MICRO  1,,.1001.
1002      MICRO  1,,.1002.
1003      MICRO  1,,.1003.
1004      MICRO  1,,.1004.   # ENABLE TRUNK                            #
1005      MICRO  1,,.1005.   # SUPRVSN LNK BROKEN                      #
1006      MICRO  1,,.1006.
1101      MICRO  1,,.1101.   # CONFIGURE TERMINAL                      #
1102      MICRO  1,,.1102.
1103      MICRO  1,,.1103.
1104      MICRO  1,,.1104.
1106      MICRO  1,,.1106.
1200      MICRO  1,,.1200.
1240      MICRO  1,,.1240.
1300      MICRO  1,,.1300.
1301      MICRO  1,,.1301.
1340      MICRO  1,,.1340.
1400      MICRO  1,,.1400.
1401      MICRO  1,,.1401.   #ENABLE LOGICAL LINK                      #
1402      MICRO  1,,.1402.   # ENABLE LINE                             #
1442      MICRO  1,,.1442.
1482      MICRO  1,,.1482.   # ENABLE LINE ABNORM                      #
1500      MICRO  1,,.1500.
1501      MICRO  1,,.1501.   #DISABLE LOGICAL LNK                      #
1502      MICRO  1,,.1502.   # DISABLE LINE                            #
1503      MICRO  1,,.1503.   # DISABLE TERMINAL                        #
1540      MICRO  1,,.1540.
1541      MICRO  1,,.1541.
1542      MICRO  1,,.1542.
1600      MICRO  1,,.1600.   # NPU STATUS                              #
1604      MICRO  1,,.1604.   # TRUNK STATUS                            #
1640      MICRO  1,,.1640.   #                                         #
1644      MICRO  1,,.1644.   #                                         #
1700      MICRO  1,,.1700.   # NPU STATISTICS                          #
1705      MICRO  1,,.1705.
1740      MICRO  1,,.1740.
1745      MICRO  1,,.1745.
1800      MICRO  1,,.1800.   # NPU MESSAGE                             #
1806      MICRO  1,,.1806.
1840      MICRO  1,,.1840.   #                                         #
1846      MICRO  1,,.1882.   # LINE MESSAGE ABNOR                      #
1900      MICRO  1,,.1900.
1901      MICRO  1,,.1901.
1902      MICRO  1,,.1902.
1903      MICRO  1,,.1903.
1904      MICRO  1,,.1904.
1905      MICRO  1,,.1905.
1906      MICRO  1,,.1906.
1941      MICRO  1,,.1941.
1942      MICRO  1,,.1942.
1943      MICRO  1,,.1943.
1944      MICRO  1,,.1944.
1945      MICRO  1,,.1945.
1946      MICRO  1,,.1946.
200D      MICRO  1,,.200D.
200E      MICRO  1,,.200E.
3030      MICRO  1,,.3030.
3031      MICRO  1,,.3031.
3032      MICRO  1,,.3032.
3033      MICRO  1,,.3033.
3034      MICRO  1,,.3034.   # STOP      LEVEL SEVEN MESSAGE           #
3035      MICRO  1,,.3035.   # STOPR     LEVEL SEVEN MESSAGE           #
3036      MICRO  1,,.3036.
3330      MICRO  1,,.3330.   # LEVEL SEVEN MESSAGES                    #
3331      MICRO  1,,.3331.
3332      MICRO  1,,.3332.
3333      MICRO  1,,.3333.
3334      MICRO  1,,.3334.
3335      MICRO  1,,.3335.
3336      MICRO  1,,.3336.
3337      MICRO  1,,.3337.   # LEVEL SEVEN MESSAGES                    #
3430      MICRO  1,,.3430.
3431      MICRO  1,,.3431.
3432      MICRO  1,,.3432.
3433      MICRO  1,,.3433.
3434      MICRO  1,,.3434.
3530      MICRO  1,,.3530.
3531      MICRO  1,,.3531.
3532      MICRO  1,,.3532.
3533      MICRO  1,,.3533.
3534      MICRO  1,,.3534.
3535      MICRO  1,,.3535.
3536      MICRO  1,,.3536.
3537      MICRO  1,,.3537.
3538      MICRO  1,,.3538.
3630      MICRO  1,,.3630.
3631      MICRO  1,,.3631.
3632      MICRO  1,,.3632.
4206      MICRO  1,,.4206.   # APP SHUTDOWN REQ                        #
6300      MICRO  1,,.6300.   # APP.CONNECTION                          #
6302      MICRO  1,,.6302.   # APP CON REQ                             #
6305      MICRO  1,,.6305.   # APP BROKEN RESPO                        #
6306      MICRO  1,,.6306.   # APP END REQUEST                         #
6340      MICRO  1,,.6340.   #CONNECTION REQ NORM                      #
6346      MICRO  1,,.6346.   #END CONNECTION NORM                      #
6400      MICRO  1,,.6400.   # TERM CHAR CHANGE                        #
8000      MICRO  1,,.8000.   # USER INTERRUPT                          #
8001      MICRO  1,,.8001.   #INTERRUPT ACKNOLEDG                      #
8002      MICRO  1,,.8002.   # APPL. INTERRUPT                         #
8300      MICRO  1,,.8300.   # FLOW BREAK RESPONS                      #
8301      MICRO  1,,.8301.   # FLOW CONTROL RESET                      #
8302      MICRO  1,,.8302.   # BLOCK DELIVERED                         #
8303      MICRO  1,,.8303.   #FLOW BLOCK NOT DELI                      #
8304      MICRO  1,,.8304.   #FLOW CONNECTION INA                      #
8305      MICRO  1,,.8305.   # CONNECTION STOPPED                      #
8306      MICRO  1,,.8306.   #RESUME DATA TRAFFIC                      #
8307      MICRO  1,,.8307.   # CONNECTION INIT                         #
8347      MICRO  1,,.8347.   # NORMAL RESPONSE                         #
8401      MICRO  1,,.8401.   # LOGICAL ERROR RES                       #
900D      MICRO  1,,.900D.
 
 
 
*CALL SMPFC 
*CALL SMAPPFC 
*CALL SMLEV7
 
O.SYMTAB  BSS     0 
 
          HERE
E.SYMTAB  BSS     0 
L.SYMTAB  EQU     E.SYMTAB-O.SYMTAB 
 
 PSSIZE   VFD     60D/L.SYMTAB
 PSTAB    EQU     O.SYMTAB
 
 
          END