|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 91648 (0x16600)
Types: TextFile
Notes: UNREAD_DATA_SECTOR
Names: »MXIASM«
└─⟦9d718387b⟧ Bits:30005557 8" CR80 Floppy CR80FD_0058 ( NICS TARE COMMUNICATIONS PROCESSOR 780126 NIC/210/version 01.01 MXI FR WORK )
└─⟦b3aaefac6⟧
└─ ⟦this⟧ »CP.MXIASM«
AU000001 0 0000 LIST ; AU000001
0 0000 ;=======================================================================;
AU000002 0 0000 ; CARD DECK IDENTIFICATION NUMBER: CR/C/0106 ;
AU000003 0 0000 ; MODULE IDENTIFICATION: NIC/210 ;
AU000004 0 0000 ; VERSION: 0301 ;
AU000005 0 0000 ; DATED: 780321/FR,HQH ;
AU000006 0 0000 ; ;
AU000007 0 0000 ; OPERATIONAL SUBMODULE MULTIPLEXER CPU INTERFACE (MXI) ;
AU000008 0 0000 ; ;
AU000009 0 0000 ; THE MXI SUBMODULE CONSISTS OF TWO PROCESSES BOTH OF WHICH RUN ;
AU000010 0 0000 ; MASKED WHILE UPDATING THEIR RESPECTIVE CDT/CST-RECORDS. ;
AU000011 0 0000 ; ;
AU000012 0 0000 ; . A CPU-INTERRUPT-DRIVEN ;
AU000013 0 0000 ; THE PURPOSE OF THE CPU INTERRUPT DRIVEN PROCESS IS TO SERVE THE ;
0 0000 ; MUX-CPU GENERATED CPU INTERRUPTS REQUESTING THE COM-CPU TO SERVE;
AU000014 0 0000 ; THE BY THE MUX-CPU CREATED MQI/MQO'S (MESSAGE QUEUES) THROUGH ;
AU000015 0 0000 ; WHICH SUPPLYING AND REMOVAL OF BINS FOR THE MUX IS CONTROLLED. ;
AU000016 0 0000 ; THE MXI WILL SERVE THE MUX WITH EMPTY BINS FOR INPUT DATA AND ;
0 0000 ; FULL BINS FOR OUTPUT DATA. THE DIFFERENT STATUS CHANGES REPORTED;
AU000017 0 0000 ; BY THE MUX WILL BE TRANSFERRED TO THE CST FOR LATER RETRIEVAL. ;
AU000018 0 0000 ; ;
AU000019 0 0000 ; . A LETTER-DRIVEN ;
AU000020 0 0000 ; THE PURPOSE OF THE LETTER DRIVEN PART OF THE MXI IS TO HANDLE ;
AU000021 0 0000 ; THE LTU RELATED SUBCOMMANDS ISSUED TO THE CMI SUBMODULE, I.E. ;
AU000022 0 0000 ; THE SETUP, OPENING, AND CLOSING OF CHANNELS AS WELL AS PART OF ;
AU000023 0 0000 ; THE PRE-EMPTION. ;
AU000024 0 0000 ; LETTERS ARE DISPATCHED TO THIS SUBMODULE FROM ;
AU000025 0 0000 ; . COMMAND INTERPRETER SUBMODULE ;
AU000026 0 0000 ; . OUTPUT DATA PROCESSING SUBMODULE ;
AU000027 0 0000 ; ;
AU000028 0 0000 ; N B THE MUX PSW MUST (AND WILL BE) 2#011 ;
AU000029 0 0000 ; ;
AU000030 0 0000 ; N O T E IN ORDER FOR THE CPU INTERRUPT DRIVEN PROCESS TO SERVE ;
AU000031 0 0000 ; THE MQI/MQO'S SENT FROM THE MUX-CPU PROPERLY IT WILL HAVE ;
AU000032 0 0000 ; TO RUN AT A HIGHER (S/W) PRIORITY LEVEL THAN THE LETTER ;
AU000033 0 0000 ; DRIVEN PROCESS. ;
AU000034 0 0000 ; ;
AU000035 0 0000 ; THE SYNCHRONEOUS EDC BLOCK PROTOCOL IS NOT IMPLEMENTED. ;
AU000036 0 0000 ; ;
0 0000 ;=======================================================================;
AU000037 0 0000 BEGIN MODULE SYSMXI ;
AU000038 0 0000 PMASK= #C413, CMASK= #9413 ;
AU000039 0 0000 MXIOLTO:= TRUE ; SWITCH TO INCLUDE OLTO TEST POINTS ;
AU000040 0 0000 USE BASE ;
AU000041 0 0000 LOC=0 ;
AU000042 0 0000 NOLIST ;
AU000819 0 0000 LIST ; AU000819
AU000820 0 0000 MXUSHD:= 100/10 ; SCHEDULING PERIOD FOR CPU-INTER'PT DRIVEN ;
AU000821 0 0000 ; PART IN RTC UNITS (10 MSEC). ;
AU000822 0 0000 ;
AU000823 0 0000 MXCMP= LTMS4 ; CMI-LETTER WORD WITH RETURN STATUS ;
AU000824 0 0000 MXLTOK= 0 ; LTU COMD OK-RETURN STATUS ;
AU000825 0 0000 MXASYW:= 80 ; WAIT FOR ASYNC LTU TO RESET> 170 USEC ;
AU000826 0 0000 MXMESP:= 7 ; CODE OF LOWEST MED SPEED BAUD RT- 600 ;
AU000827 0 0000 MX05SP:= 8<8 ; MED.SPD. HLT MSG BIN CNT 8*.58 = 5 SEC ;
AU000828 0 0000 MXMSBD:= 15 ; NMB OF CHARS TO PASS DURING 576 MSEC ON ;
AU000829 0 0000 ; MED SPEED CHANNEL BEFORE BIN DISCONNECT. ;
AU000830 0 0000 MX30SP:= 37<8 ; LOW SPD HLT MSG BIN CNT 37*.8 = 30 SEC ;
AU000831 0 0000 MXLSBD:= 21 ; NMB OF CHARS TO PASS DURING 806 MSEC ON ;
AU000832 0 0000 ; LOW SPEED CHANNEL BEFORE BIN DISCONNECT. ;
AU000833 0 0000 MXSTUC:= 141 ; STUCK TAPE CHARACTER COUNT ;
AU000834 0 0000 MXSTCP= 5 ; RELEASE PULSE STUCK SUPERCOUNT ;
AU000835 0 0000 ; ;
AU000836 0 0000 MXUSMS= %; MASK FOR CLEARING LTU STATUS ;
AU000837 0 0000 -1 %; ALL BITS BUT ;
AU000838 0 0000 -1<CSTSNS %; NOT SEND STATUS ;
AU000839 0 0000 -1<CSTRCS %; NOT RECEIVE STATUS ;
AU000840 0 0000 -1<CSTCBR %; NOT CHANNEL BREAK ;
AU000841 0 0000 -1<CSTRPS %; NOT RELEASE PULSE STUCK ;
AU000842 0 0000 -1<CSTSCH ; NOT STATUS CHANGED ;
AU000843 0 0000 ; ;
0 0000 ;=======================================================================;
AU000844 0 0000 ; CONSTANT DEFINITIONS ;
AU000845 0 0000 ; LETTER-DRIVEN PROCESS (2) ;
AU000846 0 0000 ; ;
0 0000 ;-----------------------------------------------------------------------;
AU000847 0 0000 ; SUBCOMMAND NOMEMCLATURE ;
AU000848 0 0000 LOC=0 ; ----------------------- ;
AU000849 0 0000 SBCTN: LOC=LOC+1 ; SUBCOMMAND WORD 1: ;
AU000850 0 0001 SBBTYP:=SBCTN<1 ; SUBCOMMAND TYPE ;
AU000851 0 0001 SBBNMB:=SBBTYP+1 ; SUBCOMMAND SEQUENCE NUMBER ;
AU000852 0 0001 SBCSU1: LOC=LOC+1 ; SUBCOMMAND WORD 2: ;
AU000853 0 0002 SBBLOG:=SBCSU1*2+1 ; LOGICAL CHANNEL NUMBER ;
AU000854 0 0002 ; FOR SET CORRESPONDING TO CSTCS1. ;
AU000855 0 0002 SBCSU2: LOC=LOC+1 ; SUBCOMMAND WORD 3 (ONLY SETUP): ;
AU000856 0 0003 ; CORRESPONDS TO CSTCS2 ;
AU000857 0 0003 SBCSU3: LOC=LOC+1 ; SUBCOMMAND WORD 4 (ONLY SETUP): ;
AU000858 0 0004 ; CORRESPONDS TO CSTCS3 ;
AU000859 0 0004 SBCSUC= LOC-SBCSU1 ; NMB OF CST PARAMETERS TO MOVE ;
AU000860 0 0004 ; ;
0 0004 ;-----------------------------------------------------------------------;
AU000861 0 0004 ; ;
AU000862 0 0004 ; ASYNCHRONUOUS LTU MEMORY LAY-OUT NOMENCLATURE ;
AU000863 0 0004 ; ;
AU000864 0 0004 ; MODE 0 OF THE ASYNC LTU ;
AU000865 0 0004 LOC=0 ;
AU000866 0 0000 MODE0: LOC= LOC+1 ; MODE 0 BYTE OF ASYNC LTU ;
AU000867 0 0001 SAVLOC2= LOC, LOC= 0 ; BINARY BIT LAY-OUT ;
AU000868 0 0000 LTABRS: LOC= LOC+4 ; BAUD RATE CODE FIELD ;
AU000869 0 0004 LTARSS: LOC= LOC+1 ; LTU RESET BIT ;
AU000870 0 0005 LTASYS: LOC= LOC+1 ; SYNC/ASUNC SISTINCTION ;
AU000871 0 0006 LTADSS: LOC= LOC+1 ; CHANNEL DISABLE BIT ;
AU000872 0 0007 LTAODS: LOC= LOC+1 ; ODD/EVEN PARITY BIT ;
AU000873 0 0008 LOC=SAVLOC2 ;
AU000874 0 0001 ; ;
AU000875 0 0001 ; MODE 1 OF THE ASYNC LTU ;
AU000876 0 0001 MODE1: LOC= LOC+1 ; MODE 1 BYTE OF ASYNC LTU ;
AU000877 0 0002 SAVLOC2= LOC, LOC= 0 ; BINARY BIT LAY-OUT ;
AU000878 0 0000 LTAFDS: LOC= LOC+1 ; FULL/HALF DUPLEX BIT ;
AU000879 0 0001 LTABLS: LOC= LOC+1 ; BLOCK/CHAR ON DEMAND ;
AU000880 0 0002 LTAFRS: LOC= LOC+1 ; FREE RUNNING/ON DEMAND MODE ;
AU000881 0 0003 LTARDS: LOC= LOC+1 ; END OF BLOCK (REL.PULSE ENABLE) ;
AU000882 0 0004 LTASTS: LOC= LOC+2 ; STOPBIT CODE FIELD ;
AU000883 0 0006 LTASPS: LOC= LOC+1 ; LOOP BIT ;
AU000884 0 0007 LTACLS: LOC= LOC+1 ; 7BIT/5BIT CHAR LENGTH DESIGNATOR ;
AU000885 0 0008 ;FF\f
;
0 0008 ;=======================================================================;
AU000886 0 0008 ; ;
AU000887 0 0008 ; CPU INTERRUPT DRIVEN PROCESS (1) ;
AU000888 0 0008 ; ;
-------- 0 0008 ;-----------------------------------------------------------------------;
AU000889 0 0008 ; ;PRCGEN1 ;
0 0008 ;-----------------------------------------------------------------------;
AU000890 0 0008 ; GENERATE PROCESS DESCRIPTOR FOR FIRST PROCESS. ;
0 0008 ;-----------------------------------------------------------------------;
AU000891 0 0008 NOLIST ;
AU000939 0 0016 LIST ; AU000939
0 0016 ;-----------------------------------------------------------------------;
AU000940 0 0016 ; DATA AREA,INITIALIZED BY DBA ;
AU000941 0 0016 ; ;
0 0016 MXR7TS: 0 ; SAVE LOC FOR R7 UNDER OLTO CALLS;
AU000942 0 0017 OTFPAG= 0, OTFATY= 0, OTFDTY= 0 ;
AU000943 0 0017 ;
AU000944 0 0017 OPTREG: ;
AU000945 0 0017 OTFTYP= RELFIL, OTFRCN= 1, OTFRCL= 08, OTFST= 0 ;
AU000946 0 0017 OTFNM1= <:RE:>, OTFNM2= <:GS:> ; ; TFDGEN ;
AU000947 0 0017 NOLIST ;
AU000972 0 001B LIST ; AU000972
AU000973 0 001B OPTWRK: ;
AU000974 0 001B OTFTYP= RELFIL, OTFRCN= 1, OTFRCL= 12, OTFST= #2A ;
AU000975 0 001B OTFNM1= <:WO:>, OTFNM2= <:RK:> ; ; TFDGEN ;
AU000976 0 001B NOLIST ;
AU001001 0 001F LIST ; AU001001
AU001002 0 001F OPTCST: ;
AU001003 0 001F OTFTYP= RELFIL, OTFRCN= (CSTELGT+15)/16, OTFRCL= 16, OTFST= 0 ;
AU001004 0 001F OTFNM1= <:CS:>, OTFNM2= <:T :> ; ; TFDGEN ;
AU001005 0 001F NOLIST ;
AU001030 0 0023 LIST ; AU001030
AU001031 0 0023 ;
AU001032 0 0023 MXITEM: %; TRANSMISSION ERR MASK, MQI ERR ;
AU001033 0 0023 1<MQIPER %; PARITY ;
AU001034 0 0023 +1<MQICFE %; FRAMING ;
AU001035 0 0023 +1<MQITXO %; TRANSMITTER OVERRUN ;
AU001036 0 0023 +1<MQIRXO ; RECEIVER OVERRUN ;
AU001037 0 0024 ;
AU001038 0 0024 MXOSTM: ; OUTPUT STATUS MASK ;
AU001039 0 0024 MXISTM: %; INPUT STATUS MASK ;
AU001040 0 0024 1<MQISCH %; STATUS CHANGED ;
AU001041 0 0024 +1<MQIRXS %; RECEIVE STATUS ;
AU001042 0 0024 +1<MQITXS ; SEND STATUS ;
AU001043 0 0025 ;
AU001044 0 0025 MXUPBM: #FF00 ; UPPER BYTE MASK ;
AU001045 0 0026 ; ;
AU001046 0 0026 MXIDPL: ; NOTE THIS LETTER WILL NOT BE ;
AU001047 0 0026 ; RETURNED BY IDP. ;
AU001048 0 0026 0 ; REL. IDP LETTER REF ;
AU001049 0 0027 MXIIDP ; LETTER URGENCY ;
AU001050 0 0028 IDPLPN, MXILPN ; RECEIVER AND SENDER ;
AU001051 0 002A ; RETURNED BY THE IDP; ;
0 002A ;-----------------------------------------------------------------------;
AU001052 0 002A ; ;PRCGEN2 ;
AU001053 0 002A NOLIST ;
AU001055 0 002A LIST ; AU001055
0 002A ;=======================================================================;
AU001056 0 002A ; ;
AU001057 0 002A ; DATA AREA ,NOT INITIALIZED BY DBA ;
AU001058 0 002A ; CPU INTERRUPT-DRIVEN PROCESS ;
AU001059 0 002A ; ;
0 002A ;-----------------------------------------------------------------------;
AU001060 0 002A ;
AU001061 0 002A MXIGST: LOC= LOC+1 ; REL POINTER TO TOP OF GST ;
AU001062 0 002B MXICDI: LOC= LOC+1 ; REL POINTER TO GST CST-DIRECTORY ;
AU001063 0 002C ;
AU001064 0 002C MXPMQI: LOC= LOC+1 ; MQI PRESET VALUE (ONE REC BEFORE TOP) ;
AU001065 0 002D MXIMQI: LOC= LOC+1 ; CURRENTLY SERVED MQI ;
AU001066 0 002E MXPMQO: LOC= LOC+1 ; MQO PRESET VALUE (ONE REC BEFORE TOP) ;
AU001067 0 002F MXIMQO: LOC= LOC+1 ; CURRENTLY SERVED MQO ;
AU001068 0 0030 ;
AU001069 0 0030 MXACST: LOC= LOC+1 ; ABS POINTER TO CURRENT CST RECORD ;
AU001070 0 0031 MXICST: LOC= LOC+1 ; CURRENT CST-RECORD BEING SERVED ;
AU001071 0 0032 MXCBSA: LOC= LOC+1 ; MEMORY SECTION FOR BIN ;
AU001072 0 0033 MXCLNK: LOC= LOC+1 ; CURRENT POINTER TO BIN SERVED ;
AU001073 0 0034 MXCRBS: LOC= LOC+1 ; CURRENT DISCONNECTED BIN STATUS ;
0 0035 ;-----------------------------------------------------------------------;
AU001074 0 0035 ; ;PRCGEN3 ;
AU001075 0 0035 NOLIST ;
AU001077 0 0035 LIST ; AU001077
AU001078 0 0035 ;FF\f
;
0 0035 ;=======================================================================;
AU001079 0 0035 ; ;PRCGEN5 ;
0 0035 ;-----------------------------------------------------------------------;
AU001080 0 0035 ; GENERATE PROCESS DESCRIPTOR FOR SECOND PROCESS. ;
0 0035 ;-----------------------------------------------------------------------;
AU001081 0 0035 NOLIST ;
AU001100 0 0016 LIST ; AU001100
AU001101 0 0016 ; ;
AU001102 0 0016 ; MXI, LETTER DRIVEN PROCESS. ;
AU001103 0 0016 ; ;
AU001104 0 0016 ; DATA AREA, INITIALIZED BY DBA ;
AU001105 0 0016 ; ;
0 0016 ;-----------------------------------------------------------------------;
AU001106 0 0016 ; ;
0 0016 0 ; SAVE LOC FOR R7 UNDER OLTO CALLS;
AU001107 0 0017 ;
AU001108 0 0017 OTFTYP= RELFIL, OTFRCN= 1, OTFRCL= 08, OTFST= 0 ;
AU001109 0 0017 OTFNM1= <:RE:>, OTFNM2= <:GS:> ; ; TFDGEN ;
AU001110 0 0017 NOLIST ;
AU001135 0 001B LIST ; AU001135
AU001136 0 001B OTFTYP= RELFIL, OTFRCN= 1, OTFRCL= 14, OTFST= #65 ;
AU001137 0 001B OTFNM1= <:WO:>, OTFNM2= <:RK:> ; ; TFDGEN ;
AU001138 0 001B NOLIST ;
AU001163 0 001F LIST ; AU001163
AU001164 0 001F OTFTYP= RELFIL, OTFRCN= CSTELGT/16, OTFRCL= 16, OTFST= 0 ;
AU001165 0 001F OTFNM1= <:CT:>, OTFNM2= <:T :> ; ; TFDGEN ;
AU001166 0 001F NOLIST ;
AU001191 0 0023 LIST ; AU001191
AU001192 0 0023 OPTCDT: ;
AU001193 0 0023 OTFTYP= RELFIL, OTFRCN= (CDTELGT+15)/16, OTFRCL= 16, OTFST= 0 ;
AU001194 0 0023 OTFNM1= <:CD:>, OTFNM2= <:T :> ; ; TFDGEN ;
AU001195 0 0023 NOLIST ;
AU001220 0 0027 LIST ; AU001220
AU001221 0 0027 ;
AU001222 0 0027 MXRTCL: ; ;
AU001223 0 0027 0 ; REL. RTC LETTER PNT ;
AU001224 0 0028 MXIRTC ; LETTER URGENCY ;
AU001225 0 0029 RTCLPN ; RECEIVER ;
AU001226 0 002A MXILPN ; SENDER ;
AU001227 0 002B ; ;
0 002B ;-----------------------------------------------------------------------;
AU001228 0 002B ; MULTIPLE BIT FIELD CONVERSION CONTROL FILE ;
AU001229 0 002B ; ------------------------------------------ ;
AU001230 0 002B MXSUCS: ; ;
AU001231 0 002B ; BAUD RATE FIELD CONVERSION TABLE ;
AU001232 0 002B MXABRT: ; ;
AU001233 0 002B LOC= 0 ;
AU001234 0 0000 MXLNK: MXASTT ; LINK TO NEXT FIELD TABLE ;
AU001235 0 0001 MXCTL: (CSTCS3-CSTCS1)+CSTBRT<4+MODE0<8 ; BAUDRATE FIELD ;
AU001236 0 0002 MXMSK: CSTBRM ; MASK ;
AU001237 0 0003 MXVAL: 2#11111111 ; VALIDITY MASK 11111111 ;
AU001238 0 0004 MXTAB: LOC= LOC+MXSUCS ; FIRST TABLE ENTRY ;
AU001239 0 002F 7<LTABRS ; 50 ;
AU001240 0 0030 6<LTABRS ; 75 ;
AU001241 0 0031 5<LTABRS ; 100 ;
AU001242 0 0032 4<LTABRS ; 110 ;
AU001243 0 0033 3<LTABRS ; 165 ;
AU001244 0 0034 2<LTABRS ; 200 ;
AU001245 0 0035 1<LTABRS ; 300 ;
AU001246 0 0036 0<LTABRS ; 600 ;
AU001247 0 0037 ; ;
AU001248 0 0037 ; ;
AU001249 0 0037 ; STOPBIT LENGTH FIELD CONVERSION ;
AU001250 0 0037 MXASTT: ; TABLE ;
AU001251 0 0037 MXAMOT ; ;
AU001252 0 0038 (CSTCS3-CSTCS1)+CSTSTB<4+MODE1<8 ; STOPBIT LENGTH FIELD ;
AU001253 0 0039 CSTSTM ; ;
AU001254 0 003A 2#1110 ; VALIDITY MASK 111. ;
AU001255 0 003B 0 ; SPARE ;
AU001256 0 003C 0<LTASTS ; 1.0 ;
AU001257 0 003D 1<LTASTS ; 1.5 ;
AU001258 0 003E 2<LTASTS ; 2.0 ;
AU001259 0 003F ; ;
AU001260 0 003F ; ;
0 003F MXAMOT: ; MODE OF OPERATION CONVERSION TABLE;
AU001261 0 003F MXAPRT ; ;
AU001262 0 0040 (CSTCS2-CSTCS1)+CSTMOP<4+MODE1<8 ; MODE OF OPERATION FIELD ;
AU001263 0 0041 CSTMOM ; ;
AU001264 0 0042 2#1110 ; VALIDITY MASK 111. ;
AU001265 0 0043 0 ; ASYNC INTERNAL MODE ;
AU001266 0 0044 (1<LTARDS)+1<LTAFRS ; FREE RUNNING ASYNC LTU ;
AU001267 0 0045 (1<LTARDS)+0<LTABLS ; &HARACTER ON DEMAND ;
AU001268 0 0046 (1<LTARDS)+1<LTABLS ; BLOCK ON DEMAND ;
AU001269 0 0047 ; ;
AU001270 0 0047 ; ;
AU001271 0 0047 ; ASYNC LTU PARITY FIELD CONVERSION ;
AU001272 0 0047 MXAPRT: ; TABLE ;
AU001273 0 0047 0 ; END OF FILE FLAG ;
AU001274 0 0048 (CSTCS3-CSTCS1)+CSTPAY<4+MODE0<8 ; PARITY FIELD ;
AU001275 0 0049 1<CSTPAY ; ;
AU001276 0 004A 2#11 ;
AU001277 0 004B 0<LTACLS ; EVEN - (DEFAULT ASYNC) ;
AU001278 0 004C 1<LTACLS ; ODD - ;
0 004D ;-----------------------------------------------------------------------;
AU001279 0 004D ; CDT PRESET COUNTERS ;
AU001280 0 004D ; ------------------- ;
AU001281 0 004D MXIMCX: (BINLGT-BINWXO)*2<8+0 ; MAX/CURRENT CHARACTER COUNT PRESET ;
AU001282 0 004E MXRPAT: 250+250<8 ; RELEASE PULSE SUBCOUNT ;
AU001283 0 004F MXSPAC: MXSTUC-1+(MXSTUC-1)<8 ; STUCK TAPE CHAR CNT CDT PRESET ;
0 0050 ;-----------------------------------------------------------------------;
AU001284 0 0050 ; CHARACTER BLOCK SIZE CONV. TABLE ;
AU001285 0 0050 MXBLKT: ; -------------------------------- ;
AU001286 0 0050 32 ; SYNCHRONEOUS ;
AU001287 0 0051 32 ; ;
AU001288 0 0052 128 ; ;
AU001289 0 0053 256 ; ;
AU001290 0 0054 512 ; ;
AU001291 0 0055 1024 ; ;
AU001292 0 0056 2048 ; ;
AU001293 0 0057 4096 ; ;
AU001294 0 0058 30 ; ASYNCHRONEOUS / ITA-5 ;
AU001295 0 0059 48 ; ITA-2 ;
AU001296 0 005A 60 ; ;
AU001297 0 005B 96 ; ;
AU001298 0 005C 120 ; ;
AU001299 0 005D 192 ; ;
AU001300 0 005E 480 ; ;
AU001301 0 005F 768 ; ;
0 0060 ;-----------------------------------------------------------------------;
AU001302 0 0060 ; MODE OF OPERATION CONVERSION TABLE (CST -> CDT) ;
AU001303 0 0060 MXDMOP: ; ---------------------------------- ;
AU001304 0 0060 1 ; 0 - ASYNC. INTERNAL ;
AU001305 0 0061 2 ; 1 - ASYNC. FREE RUNNING ;
AU001306 0 0062 3 ; 2 - ASYNC. CHARACTER ON DEMAND ;
AU001307 0 0063 4 ; 3 - ASYNC. BLOCK ON DEMAND ;
AU001308 0 0064 5 ; 4 - SYNCHRONEOUS CHANNEL WITH/WITHOUT EDC ;
AU001309 0 0065 MXDMAX= LOC-MXDMOP ; ;
0 0065 ;-----------------------------------------------------------------------;
AU001310 0 0065 ; ;
-------- 0 0065 ;-----------------------------------------------------------------------;
AU001311 0 0065 ; ;PRCGEN6 ;
AU001312 0 0065 NOLIST ;
AU001314 0 0065 LIST ; AU001314
0 0065 ;=======================================================================;
AU001315 0 0065 ; ;
AU001316 0 0065 ; DATA AREA, NOT INITIALIZED BY DBA ;
AU001317 0 0065 ; ;
AU001318 0 0065 ; MXI, LETTER-DRIVEN PROCESS. ;
AU001319 0 0065 ; ;
0 0065 ;-----------------------------------------------------------------------;
AU001320 0 0065 MXLETT: LOC= LOC+1 ; REL POINTER TO LETTER ACTIVATING LETTER DRIVEN ;
AU001321 0 0066 ; PROCESS. ;
AU001322 0 0066 ;
AU001323 0 0066 MXGST: LOC= LOC+1 ; REL POINTER TO TOP OF GST ;
AU001324 0 0067 MXNCC: LOC= LOC+1 ; POINTER TO NMB OF CONNECTED CHANNELS ;
AU001325 0 0068 MXNSC: LOC= LOC+1 ; GST NMB OF SYNCHRONEOUS ;
AU001326 0 0069 MXNAC: LOC= LOC+1 ; GST NMB OF ASYNCHRONEOUS CHANNELS ;
AU001327 0 006A MXCDI: LOC= LOC+1 ; REL POINTER TO CST-RECORD LIBRARY ;
AU001328 0 006B ;
AU001329 0 006B MXCST: LOC= LOC+1 ; REL ADDRESS CURRENT CST RECORD ;
AU001330 0 006C MXCDT: LOC= LOC+1 ; CURRENT CDT RECORD ADDRESS ;
AU001331 0 006D MXBSA: LOC= LOC+1 ; BIN BUFFER SECTION ADDRESS ;
AU001332 0 006E ;
AU001333 0 006E MXPHY: LOC= LOC+1 ; SAVE FOR C4RRE-T LTU PHYS ADDRESS ;
AU001334 0 006F MXMOD0: LOC= LOC+1 ; LTU MODE 0 BYTE BUILD UP CELL ;
AU001335 0 0070 MXMOD1: LOC= LOC+1 ; 1 BYTE BUILD UP CELL ;
AU001336 0 0071 ;
AU001337 0 0071 MXR7SV: LOC=LOC+1 ; ;
AU001338 0 0072 ; ;PRCGEN7 ;
AU001339 0 0072 NOLIST ;
AU001341 0 0072 LIST ; AU001341
AU001342 0 0072 ;FF\f
;
0 0072 ;=======================================================================;
AU001343 0 0072 ; ;
AU001344 0 0072 ; SUBCOMMAND CASETABLE ;
AU001345 0 0072 ; MUST RESIDE IN SUBMODULES PROG.REL. AREA. ;
AU001346 0 0072 ; ;
AU001347 0 0072 USE PROG LOC= 0 ;
AU001348 1 0000 ; S/W ERROR JUMP TABLE ;
AU001349 1 0000 ; -------------------- ;
AU001350 1 0000 MXELMI: MXELM ; 4 - LETTER MECHANISM ;
AU001351 1 0001 MXESBI: MXESB ; 7 - RMS (SEC QUEUE BIN CNT) ;
AU001352 1 0002 MXEIRI: MXEIR ; 8 - INTERRUPT RESERVE ERROR ;
AU001353 1 0003 MXEIOI: MXEIO ; 9 - BUFFER MISLINKAGE ;
AU001354 1 0004 ;
AU001355 1 0004 MXEUXI: MXEUX ; 8001 - UNEXPECTED SENDER ;
AU001356 1 0005 MXEXCI: MXEXC ; 8002 - EXCESSIVE CHANNEL NUMBER ;
AU001357 1 0006 MXENBI: MXENB ; 8003 - NO BUFFER AVAILABLE ;
AU001358 1 0007 MXECHI: MXECH ; 8004 - CHANNEL MISMATCH ;
AU001359 1 0008 MXENEI: MXENE ; 8005- EDC PROC REQUEST ;
AU001360 1 0009 ;
AU001361 1 0009 MXIERR0:MXERR0 ; POINTER TO S/W ERROR PROCESS ;
AU001362 1 000A MXIERR1:MXERR1 ; POINTER TO S/W ERROR PROCESS ;
AU001363 1 000B ;
AU001364 1 000B MXCSTY: ; ;
AU001365 1 000B MXINVT ; TYPE=0 INVALID ;
AU001366 1 000C MXOPIC ; 1 OPEN INPUT ;
AU001367 1 000D MXOPOC ; 2 OPEN OUTPUT ;
AU001368 1 000E MXCLIC ; 3 CLOSE INPUT ;
AU001369 1 000F MXCLOC ; 4 CLOSE OUTPUT ;
AU001370 1 0010 MXSTUP ; 5 SETUP PARAMETERS ;
AU001371 1 0011 MXCMAX= LOC-MXCSTY ; MAX TYPE AS ENTRY IN CASE TABLE ;
AU001372 1 0011 ;
AU001373 1 0011 MXGOBFI: MXGOBF ;
AU001374 1 0012 ; ;
AU001375 1 0012 MXCPEI: MXCPE ; 6 - CP ERROR ;
AU001376 1 0013 MXCMEI: MXCME ; C - COMMAND ERROR ;
AU001377 1 0014 MXATVI: MXATV ; E - ATTEMPTED VIOLATION ;
AU001378 1 0015 ;FF\f
;
1 0015 ;=======================================================================;
AU001379 1 0015 ; ;
AU001380 1 0015 ; ERROR RECOVERY PROCEDURES ;
AU001381 1 0015 ;
AU001382 1 0015 MXERR: ;
AU001383 1 0015 MXERR0: ; LOCAL INTERRUPT ENTRY, PROCESS0 ;
AU001384 1 0015 MXERR1: ; LOCAL INTERRUPT ENTRY, PROCESS 1 ;
*** 1 0015 MODC 255-GSTNEDC ; *** TEMPORARY *** ;
AU001385 1 0017 ; RECOVERABLE ERRORS ;
AU001386 1 0017 ; ----------------- ;
AU001387 1 0017 MXENE: MODC GSTNEDC-GSTCHM ; 8005 - EDC PROC REQUEST ;
AU001388 1 0018 MXECH: MODC GSTCHM-GSTNBF ; 8004 - CHANNEL MISMATCH ;
AU001389 1 0019 MXENB: MODC GSTNBF-GSTXCN ; 8003 - NO MORE BUFFERS AVAILABL ;
AU001390 1 001A MXEXC: MODC GSTXCN-GSTUXS ; 8002 - EXCESSIVE CHANNEL NMB ;
AU001391 1 001B MXEUX: MODC GSTUXS-GSTIOE ; 8001 - UNEXPECTED SENDER ;
AU001392 1 001D ; UN-RECOVERABLE ERRORS ;
AU001393 1 001D ; --------------------- ;
AU001394 1 001D MXEIO: MODC GSTIOE-GSTIRE ; 9 - BUFFER MISLINKAGE ;
AU001395 1 001E MXEIR: MODC GSTIRE-GSTSBM ; 8 - INTERRUPT RESERVATION ERROR ;
AU001396 1 001F MXESB: MODC GSTSBM-GSTNLT ; 7 - REM(SEC QUEUE BIN CNT) NE 0 ;
AU001397 1 0020 MXENL: MODC GSTNLT-GSTCPE ; 6 - NO MORE LETTERS AVAILLABLE ;
AU001398 1 0021 MXECP: MODC GSTCPE-GSTLME ; 5 - CREATE PROCESS ;
AU001399 1 0022 MXELM: MOVC GSTLME R0 ; 4 - LETTER MECHANISM ;
AU001400 1 0023 MOV R0 LINTCAUS ; ;
AU001401 1 0024 MOV R4 LINTRET ; SAVE PROC REL POINTER ;
AU001402 1 0025 MXHWERR0: ;
AU001403 1 0025 MON ERR ; ***TEMPORARY BRAKE ;
AU001404 1 0026 JMPI LINTRET ; RETURN ORIGINATOR ON RECOVERABL ;
AU001405 1 0027 ; ;
1 0027 ;=======================================================================;
AU001406 1 0027 ; PROCEDURE MAKE PROCESS KNOWN TO MONITOR; ;
AU001407 1 0027 MXCRP: ; ;
AU001408 1 0027 MOV PRCID R3 ; GET OWN PROCESS ID ;
AU001409 1 0029 MOV BAS R4 ; GET OWN PROCESS BASE ;
1 002A MON CRP ; INTRODUCE OWN PROCESS TO MONITOR;
AU001410 1 002B JMP & S4 MXECP ; ON MISMATCH, DUMP PROCESS ;
AU001411 1 002C JMP X6 ; ;
1 002D ;=======================================================================;
AU001412 1 002D ; PROCEDURE GET LETTER AND COPY FROM OWN PROCESS; ;
AU001413 1 002D MXGLET: ; ;
AU001414 1 002D MON GLET ; GET LETTER FROM POOL ;
AU001415 1 002E JMP & S4 MXENL ; (NO MORE LETTERS LEFT); ;
AU001416 1 002F SUB BAS R5 ; RELATIVIZE ;
AU001417 1 0031 MOV R5 X6 ; SAVE LETTER PNT ;
AU001418 1 0032 INCD R5 R6 ; ADVANCE TO NEXT WORDS ;
AU001419 1 0033 MODC 3 ; ;
AU001420 1 0034 MOVM X6 X5 ; PRESET LETTER TYPE, RCVR , SNDR ;
AU001421 1 0035 ADDC -4 R5 ; RE-ESTABLISH REL POINTER ;
AU001422 1 0036 JMP X4 ; RETURN ;
AU001423 1 0037 ;FF\f
;
1 0037 ;=======================================================================;
AU001424 1 0037 MXINICPU: ; INITIALIZE CPU DRIVEN PROCESS ;
AU001425 1 0037 JMP S6 MXCRP ; CREATE OWN PROCESS ;
AU001426 1 0038 MOVC MXIDPL R6 ; ;
AU001427 1 0039 JMP S4 MXGLET ; GET PRESET IDP LETTER ;
AU001428 1 003A CLR LTMS4. X5 ; FLAG FREE IDP LETTER; ;
AU001429 1 003B ;
AU001430 1 003B MOV BAS R2 ; POINT OWN BASE ;
AU001431 1 003C MOV GSTPTR R5 ; GET ABS POINTER TO THE GST ;
AU001432 1 003D SUB R2 R5 ; KAKE RELATIVE ;
AU001433 1 003E MOV R5 MXIGST ; AND SAVE; ;
AU001434 1 003F MOV GSTMQI.X5 R0 ; GET ABS MQI POINTER ;
AU001435 1 0040 SUB R2 R0 ; ;
AU001436 1 0041 MOV R0 MXIMQI ; ;
AU001437 1 0042 ADDC -MQIELGT R0 ; POINT ONE RECORD BELOW ;
AU001438 1 0043 MOV R0 MXPMQI ; ;
AU001439 1 0044 MOV GSTMQO. X5 R0 ; GET ABS MQO POINTER ;
AU001440 1 0045 SUB R2 R0 ; ;
AU001441 1 0046 MOV R0 MXIMQO ; ;
AU001442 1 0047 ADDC -MQOELGT R0 ; ADJUST TO ONE RECORD BELOW ;
AU001443 1 0048 MOV R0 MXPMQO ; ;
AU001444 1 0049 ADDC GSTCDY R5 ; ADJUST GST POINTER TO START OF ;
AU001445 1 004A MOV R5 MXICDI ; CHANNEL POINTERS; ;
AU001446 1 004B ADDC -GSTCDY R5 ; RE-ESTABLISH GST TOP POINTER ;
AU001447 1 004C MOV GSTMXP.X5 R0 ; GET MUX CHANNEL PGM START ADDR ;
AU001448 1 004D SVS R3 ; GET CURRENT CPU STATUS ;
AU001449 1 004E SWP R3 ; RIGHT-ADJUST OWN CPU NMB ;
AU001450 1 004F XTR R3 3 ; ISOLATE ;
AU001451 1 0050 ADDC 1 R3 ; LET CPU NMB START WITH ONE; ;
AU001452 1 0051 MODN R2 ; COMPENSATE OWN BASE ;
AU001453 1 0052 MOVC CPUIVT+7 R1 ; POINT REL BOTTOM CPY TABLE ;
AU001454 1 0053 MOVC 8 R7 ; FOR I:=1 UNTIL MAX NMB CPU'S ;
AU001455 1 0054 MXIC10: ; DO ;
AU001456 1 0054 INE R7 R3 ; IF NOT COM-CPU ;
AU001457 1 0055 MOV R0 X1 ; THEN POINT CHANNEL START ;
AU001458 1 0056 ADDC -1 R1 ; POINT NEXT ENTRY ;
AU001459 1 0057 SOB R7 MXIC10 ; END INITIATING CPU VECTOR TAB; ;
AU001460 1 0058 CPU ; CPU INTR'PT TO START MUX CPU'S; ;
AU001461 1 0059 ;
AU001462 1 0059 ;
AU001463 1 0059 MON RCPU ; RESERVE CPU INTERRUPT ;
AU001464 1 005A MON RTI ; RETURN TO PRIOR PROCESS. ;
AU001465 1 005B JMP MXCPST ; ;
AU001466 1 005C ;FF\f
;
1 005C ;=======================================================================;
AU001467 1 005C MXCPST: ; CONTROL ENTERS HERE, ;
AU001468 1 005C MOVC EXPR R0 ; GET EXPRESS PROCESS PRIORITY ;
AU001469 1 005D MON INQ ; INCLUDE PROCESS IN QUEUE ;
AU001470 1 005E JMPI & S4 MXELMI ; (PROCESS NOT KNOWN TO MON); ;
AU001471 1 005F ; WHEN PROCESS INVOKED ;
AU001472 1 005F MXMQIH: ; ;
AU001473 1 005F MOV MXIMQI R6 ; GET MQI PNT ;
AU001474 1 0060 IBZ X6 MQIMXI ; IF NO DATA IN MQI ;
AU001475 1 0061 JMP MXMQOH ; THEN GO HANDLE MQO S ;
AU001476 1 0062 MOV MQIBAD.X6 R5 ; GET BUFFER PNT ;
AU001477 1 0063 MON GBS ;(4,6 KEPT) GET BIN SECTION ADDRESS ;
AU001478 1 0064 MOV R3 MXCBSA ; SAVE CURRENT SECTION ;
AU001479 1 0065 MOV BAS R0 ; POINT ABS OWN BASE ;
AU001480 1 0066 MOV X6 R4 ; GET LOG CHAN NMB ;
AU001481 1 0067 IF MQILAD NE 0 ;
AU001482 1 0067 SRL R4 MQILAD ; RIGHT ADJUST LOG CHAN NMB ;
AU001483 1 0068 ELSE ;
AU001484 1 0068 XTR R4 MQILAX FI ; ISOLATE LOG CHAN ADDRESS ;
AU001485 1 0068 MOD MXICDI ; ;
AU001486 1 0069 MOV X4 R4 ; GET ABS CST PNT ;
AU001487 1 006A MOV R4 MXACST ; SAVE ABS CST PNT ;
AU001488 1 006B SUB R0 R4 ; RELATIVE OWN BASE; ;
AU001489 1 006C MOV R4 MXICST ; SAVE RELATIVE CST PNT ;
AU001490 1 006D MOV MQISTA.X6 R1 ; GET CURRENT MQISTATUS ;
1 006E ILO R1 1<MQIBML ; IF NO BUFFER DISCONNECT GENR'TED;
AU001491 1 0070 JMP MXCPMQ ; THEN BYPASS BUFFER HANDLING ;
AU001492 1 0071 SUB R0 R5 ; MAKE BIN REL OWN BASE; ;
AU001493 1 0072 SVS R7 ; SAVE CURRENT STATUS ;
AU001494 1 0073 ;
AU001495 1 0073 MOV CSTCS2.X4 R2 ; GET CHANNEL STATE WORD 2 ;
AU001496 1 0074 IBN R2 CSTICO ; IF INPUT CLOSED ;
AU001497 1 0075 JMP MXMI10 ; THEN ;
AU001498 1 0076 LDS R3 ; SWITCH TO BIN SECTION ;
AU001499 1 0077 MOV BINLNK.X5 R4 ; GET ADDRESS OF NEXT BIN ;
AU001500 1 0078 CLR BINLNK.X5 ; FORCE THIS BIN TO BE LAST ;
AU001501 1 0079 ADDC BINSTA R5 ; POINT STATUS WORD ;
AU001502 1 007A MOVC 1<BINIO X5 ; TO FLAG INPUT BIN; ;
AU001503 1 007C MOD R0 ; ;
AU001504 1 007D ADDC -BINSTA R5 ; COMPUTE ABS ADDRESS OF BIN ;
AU001505 1 007E MODN R0 ; ;
AU001506 1 007F MOV R5 BINLNK.X4 ; MAINTAIN BIN QUEUE STRUCTURE ;
AU001507 1 0080 LDS R7 ; RETURN TO ORIGINAL SECTION ;
AU001508 1 0081 MXIOLTOA= 10, MXIOLTOB= 0, MXIOLTOC= SL+LI1 ; ;MXIOLTO ;
AU001509 1 0081 ;................................................................. ;
AU001510 1 0081 IF MXIOLTO ; : ;
AU001511 1 0081 MOV R7 MXR7TS ; SAVE R7 DURING OLTO TEST : ;
AU001512 1 0082 MOV TSWITCH R7 ; GET OLTO TEST SWITCH : ;
AU001513 1 0083 IF MXIOLTOB EQ 0 ; : ;
AU001514 1 0083 JOZ R7 LOC+4 ; IF TEST SWITCH ON : ;
AU001515 1 0084 MON OLTO ; THEN : ;
AU001516 1 0085 (MXIOLTOC+MXI)<8+MXIOLTOA ; : ;
AU001517 1 0086 OPTREG ; : ;
AU001518 1 0087 ELSE ; : ;
AU001519 1 0087 JOZ R7 LOC+7 ; IF TEST SWITCH ON : ;
AU001520 1 0087 MON OLTO ; FORCE REGISTER DUMP : ;
AU001521 1 0087 (MXIOLTOC+MXI)<8+MXIOLTOA ; : ;
AU001522 1 0087 OPTREG ; : ;
AU001523 1 0087 MON OLTO ; THEN : ;
AU001524 1 0087 (MXIOLTOC+MXI)<8+MXIOLTOA+1 ; ACTIVATE : ;
AU001525 1 0087 MXIOLTOB ; ON LINE TEST OUTPUT; : ;
AU001526 1 0087 FI ; : ;
AU001527 1 0087 MOV MXR7TS R7 ; RE-ESTABLISH R7 CONTENT; : ;
AU001528 1 0088 FI ; : ;
AU001529 1 0088 ;................................................................: ;
1 0088 JMP MXCPMQ ; END MAINTAINING EMPTY BIN QUEUE;;
AU001530 1 0089 ;FF\f
;
1 0089 ;-----------------------------------------------------------------------;
AU001531 1 0089 MXMI10: ;
AU001532 1 0089 IBZ R2 CSTSYN ; IF CHANNEL SETUP TO SYNC ;
AU001533 1 008A JMP MXASYI ; THEN ;
1 008B ;-----------------------------------------------------------------------;
AU001534 1 008B MXSYNI: ; SYNC INPUT HANDLING, ENTRY ;
AU001535 1 008B MOVC 1<GSTREC R0 ; FLAG RECOVERABLE ERROR ;
AU001536 1 008D MOV R0 LINTCAUS ; ;
AU001537 1 008E MOVC <:I:> R4 ;
AU001538 1 008F MOV R4 LINTRET ;
AU001539 1 0090 MON ERR ;
AU001540 1 0091 MOV MXIMQI R6 ; GET MQI PNT ;
AU001541 1 0092 JMP MXAI95 ;
-------- 1 0093 ;-----------------------------------------------------------------------;
AU001542 1 0093 ; REGISTERS ENTRY ;
AU001543 1 0093 ; R0 OWN BASE ;
AU001544 1 0093 ; R1 CURRENT MQI STATUS ;
AU001545 1 0093 ; R2 CST STATUS INDICATORS ;
AU001546 1 0093 ; R3 BIN MEM SECTION ADDRESS ;
AU001547 1 0093 ; R4 REL CST POINTER ;
AU001548 1 0093 ; R5 REL BIN ADDRESS ;
AU001549 1 0093 ; R6 REL MQI POINTER ;
AU001550 1 0093 ; R7 OWN PSW ;
AU001551 1 0093 ; ;
AU001552 1 0093 MXASYI: ; ASYNC. BUFFER HANDLING ;
AU001553 1 0093 ; THE LINK OF THE BUFFER IS DERIVED ;
AU001554 1 0093 ; AND STORED ;
AU001555 1 0093 LDS R3 ; SWITCH TO BUFFERS SECTION ;
AU001556 1 0094 MOVL BINLNK.X5 R23 ; GET LINK AND STATUS OF BUFFER ;
AU001557 1 0095 LDS R7 ; SWITCH BACK ;
AU001558 1 0096 MOV R2 MXCLNK ; SAVE CURRENT LINK ;
AU001559 1 0097 MOV R3 MXCRBS ; SAVE CURRENT BUFFERSTATUS ;
AU001560 1 0098 MXIOLTOA= 20, MXIOLTOB= OPTWRK ; ;MXIOLTO ;
AU001561 1 0098 ;................................................................. ;
AU001562 1 0098 IF MXIOLTO ; : ;
AU001563 1 0098 MOV R7 MXR7TS ; SAVE R7 DURING OLTO TEST : ;
AU001564 1 0099 MOV TSWITCH R7 ; GET OLTO TEST SWITCH : ;
AU001565 1 009A IF MXIOLTOB EQ 0 ; : ;
AU001566 1 009A JOZ R7 LOC+4 ; IF TEST SWITCH ON : ;
AU001567 1 009A MON OLTO ; THEN : ;
AU001568 1 009A (MXIOLTOC+MXI)<8+MXIOLTOA ; : ;
AU001569 1 009A OPTREG ; : ;
AU001570 1 009A ELSE ; : ;
AU001571 1 009A JOZ R7 LOC+7 ; IF TEST SWITCH ON : ;
AU001572 1 009B MON OLTO ; FORCE REGISTER DUMP : ;
AU001573 1 009C (MXIOLTOC+MXI)<8+MXIOLTOA ; : ;
AU001574 1 009D OPTREG ; : ;
AU001575 1 009E MON OLTO ; THEN : ;
AU001576 1 009F (MXIOLTOC+MXI)<8+MXIOLTOA+1 ; ACTIVATE : ;
AU001577 1 00A0 MXIOLTOB ; ON LINE TEST OUTPUT; : ;
AU001578 1 00A1 FI ; : ;
AU001579 1 00A1 MOV MXR7TS R7 ; RE-ESTABLISH R7 CONTENT; : ;
AU001580 1 00A2 FI ; : ;
AU001581 1 00A2 ;................................................................: ;
AU001582 1 00A2 ; STATUS BIT XFER FROM MQI TO INPUT ;
AU001583 1 00A2 ; BUFFER: ;
AU001584 1 00A2 ; STUCK TAPE ;
AU001585 1 00A2 ; HALTED MESSAGE ;
AU001586 1 00A2 ; TRANSMISSION ERROR ;
1 00A2 MOVC 0 R2 ; RESET R2 AND BUILD BUFFER STATUS;
AU001587 1 00A3 IBN R1 MQISTC ; IF TAPE STUCK ;
AU001588 1 00A4 SETS R2 BINSTP ; THEN SET STUCK TAPE BIT; ;
AU001589 1 00A5 XTR R3 BINCNX ; GET BUFFER BYTE COUNT ;
AU001590 1 00A6 ADDC CSTHME R4 ; GET CSTHME PNT ;
AU001591 1 00A7 ; ;
AU001592 1 00A7 JON R3 MXAI20 ; IF BUFFER EMPTY ;
AU001593 1 00A8 INC X4 ; THEN INCREASE HMSG COUNT ;
AU001594 1 00A9 MOV X4 R0 ; GET CURRENT AND PRESET HMSG; ;
1 00AA SWP R0 ; PLACE CUR OVER PRESET AND VV;;
AU001595 1 00AB INE X4 R0 ; IF CURRENT NOT EQ PRESET ;
AU001596 1 00AC JMP MXAI30 ; THEN BYPASS INDIC HANDLE; ;
AU001597 1 00AD SETS R2 BINHMS ; FLAG HALTED MSG IN BIN; ;
AU001598 1 00AE MXAI20: ; END EMPTY BUFFER; ;
AU001599 1 00AE ; CLEAR CURRENT HALT.MSG CNT ;
AU001600 1 00AE MOV MXUPBM R0 ; GET UPPER BYTE MASK ;
AU001601 1 00AF AND R0 X4 ; LET ONLY UPP. BYTE REMAIN ;
AU001602 1 00B0 MXAI30: ; END OF HALT.MSG BIN ACCOUNTING ;
AU001603 1 00B0 MOV MXITEM R6 ; PROVIDE TRMS ERR. BIT MASK ;
AU001604 1 00B1 AND R1 R6 ; ;
AU001605 1 00B2 INE R6 0 ; IF ANY SET ;
AU001606 1 00B3 SETS R2 BINTER ; THEN SET TRANSERROR BIN BIR ;
AU001607 1 00B4 SVS R0 ; ;
AU001608 1 00B5 MOV MXCBSA R3 ; GET CURRENT SECTION ;
AU001609 1 00B6 ADDC BINSTA R5 ; GET STATUS PNT TO CURR.BUF. ;
AU001610 1 00B7 LDS R3 ; SWITCH TO BUFFERS SECTION ;
AU001611 1 00B8 MODC %; BIN STATUS PUT MASK ;
AU001612 1 00B8 1<BINSTP %; STUCK TAPE BIT ;
AU001613 1 00B8 +1<BINHMS %; HALTED MESSAGE FLAG ;
AU001614 1 00B8 +1<BINTER ; TRANSMISSION ERROR ;
AU001615 1 00B9 PUT R2 X5 ; INSERT STATUS BITS IN BIN ;
AU001616 1 00BA LDS R0 ; SWITCH BACK ;
AU001617 1 00BB MOVC 1 R3 ; GET BUFFER CNT ;
AU001618 1 00BC MOV MXACST R4 ; GET ABS CST PNT ;
AU001619 1 00BD ADDC CSTFIB R4 ; CALC ABS CSTFIB PNT ;
AU001620 1 00BE MOD BAS ; ABSOLUTIZE ;
AU001621 1 00BF ADDC -BINSTA R5 ; CALC ABS BIN PNT (FIRST) ;
AU001622 1 00C0 MOV R5 R6 ; PROVIDE ABS LAST BIN PNT ;
AU001623 1 00C1 MON LNIQ ;(NO REGS) LINK INTO QUEUE ;
-------- 1 00C2 ;-----------------------------------------------------------------------;
AU001624 1 00C2 MXGBF: ; PROVIDE NEW INPUT BUFFER FOR MUX ;
AU001625 1 00C2 MOVC 1 R3 ; GET BUFFER COUNT ;
AU001626 1 00C3 MON GNIB ; GET INPUT BUFFERS SPECIFIED ;
AU001627 1 00C4 JMP & S4 MXGOBF ; GO GET OUTPUT BUFFER ;
AU001628 1 00C5 MOV MXCLNK R4 ; GET ABS BUFFER LINK ;
AU001629 1 00C6 IEQ R4 0 ; IF ZERO ;
******** 1 00C7 JMPI S4 MXIERR0 ; THEN INPUT DRIED UP; ********;
AU001630 1 00C8 SUB BAS R4 ; RELATIVIZE ;
AU001631 1 00CA MOV MXCBSA R2 ; ;
AU001632 1 00CB SVS R1 ; SAVE CURRENT STATUS ;
AU001633 1 00CC LDS R2 ; SWITCH TO CURRENT SECTION ;
AU001634 1 00CD INEP X4 0 ; IF LINK NOT CLEAR ;
AU001635 1 00CE LDS & R1 ; SWITCH BACK ;
1 00CF JMPI& S4 MXEIOI ; AND INDICATE ERROR *** TEMPORARY;
AU001636 1 00D0 MOV R5 X4 ; ELSE PUT NEW ABS PNT INTO LINK ;
AU001637 1 00D1 LDS R1 ; SWITCH BACK ;
AU001638 1 00D2 MXIOLTOA= 30, MXIOLTOB= OPTWRK ; ;MXIOLTO ;
AU001639 1 00D2 ;................................................................. ;
AU001640 1 00D2 IF MXIOLTO ; : ;
AU001641 1 00D2 MOV R7 MXR7TS ; SAVE R7 DURING OLTO TEST : ;
AU001642 1 00D3 MOV TSWITCH R7 ; GET OLTO TEST SWITCH : ;
AU001643 1 00D4 IF MXIOLTOB EQ 0 ; : ;
AU001644 1 00D4 JOZ R7 LOC+4 ; IF TEST SWITCH ON : ;
AU001645 1 00D4 MON OLTO ; THEN : ;
AU001646 1 00D4 (MXIOLTOC+MXI)<8+MXIOLTOA ; : ;
AU001647 1 00D4 OPTREG ; : ;
AU001648 1 00D4 ELSE ; : ;
AU001649 1 00D4 JOZ R7 LOC+7 ; IF TEST SWITCH ON : ;
AU001650 1 00D5 MON OLTO ; FORCE REGISTER DUMP : ;
AU001651 1 00D6 (MXIOLTOC+MXI)<8+MXIOLTOA ; : ;
AU001652 1 00D7 OPTREG ; : ;
AU001653 1 00D8 MON OLTO ; THEN : ;
AU001654 1 00D9 (MXIOLTOC+MXI)<8+MXIOLTOA+1 ; ACTIVATE : ;
AU001655 1 00DA MXIOLTOB ; ON LINE TEST OUTPUT; : ;
AU001656 1 00DB FI ; : ;
AU001657 1 00DB MOV MXR7TS R7 ; RE-ESTABLISH R7 CONTENT; : ;
AU001658 1 00DC FI ; : ;
AU001659 1 00DC ;................................................................: ;
AU001660 1 00DC ; STATUS XFER FROM MQISTA TO CST ;
AU001661 1 00DC ; TRANSFERRED STATUS IS: ;
AU001662 1 00DC ; CHANGED STATUS ;
AU001663 1 00DC ; SEND STATUS ;
AU001664 1 00DC ; RECEIVE STATUS ;
AU001665 1 00DC ; CHANNEL BREAK (ASYNC ONLY) ;
AU001666 1 00DC ; RELEASE PULSE STUCK ;
AU001667 1 00DC MXCPMQ: ; ;
AU001668 1 00DC MOV MXICST R4 ; ;
AU001669 1 00DD MOV MXIMQI R6 ; ;
AU001670 1 00DE MOV MQISTA.X6 R2 ; GET MQI(O) STATUS FLAGS ;
AU001671 1 00DF ADDC CSTVF1 R4 ; GET VOLATILE STATUS FLAG PNT ;
AU001672 1 00E0 IBNP R2 MQISCH ; IF STATUS CHANGED ;
AU001673 1 00E1 IBN & R2 MQIBEB ; AND CHANNEL BREAK ;
AU001674 1 00E2 SETS& X4 CSTCBR ; THEN SET CHANNEL BREAK BIT; ;
AU001675 1 00E3 ;
AU001676 1 00E3 ; OUTPUT STATUS CHANGE AND ;
AU001677 1 00E3 ; RELEASE PULSE STUCH HANDLING: ;
AU001678 1 00E3 IBZ R2 MQISCH ; IF NO STATUS CHANGE ;
1 00E4 JMP MXAI70 ; THEN BYPASS OUTPUT STATUS UPDATE;
AU001679 1 00E5 MOD MXOSTM ; PROVIDE INPUT STATUS MASK (PUT) ;
AU001680 1 00E6 PUT R2 X4 ; PUT STATUS BITS INTO CST ;
AU001681 1 00E7 IBN R2 MQIRGO ; IF REL PLS GT 1 CHAR ;
AU001682 1 00E8 SETS X4 CSTRGO ; THEN SET INDICATOR ;
AU001683 1 00E9 MXAI70: ; END OF OUTPUT STATUS UPDATE ;
AU001684 1 00E9 IBZ R2 MQIRPS ; IF REL.PULSE NOT SUB-STUCK ;
AU001685 1 00EA JMP MXAI90 ; THEN BYPASS REL PULSE CNT ;
AU001686 1 00EB ADDC CSTCS3-CSTVF1 R4 ; CALC CSTCS3 PNT ;
AU001687 1 00EC SBZP R2 MQITXS ; IF SEND STATUS ON ;
AU001688 1 00ED IBZP X4 CSTFLD ; OR (SIMPLEX CHANNEL) ;
AU001689 1 00EE IBZ & R2 MQIRXS ; AND RECEIVE STATUS ON) ;
AU001690 1 00EF JMP & MXAI80 ; THEN ;
AU001691 1 00F0 DEC CSTSCN-CSTCS3.X4 ; DECR REL PLS SUPER CNT ;
AU001692 1 00F2 MOV CSTSCN-CSTCS3.X4 R0 ; GET CURRENT CNT ;
AU001693 1 00F4 XTR R0 8 ; ISOLATE REL PLS CNT BYTE ;
1 00F5 JON R0 MXAI90 ; IF NONZERO,THEN BYPASS STUCK SET;
AU001694 1 00F6 ADDC CSTVF1-CSTCS3 R4 ; ELSE CALC CSTVSF PNT ;
AU001695 1 00F7 SETS X4 CSTRPS ; SET REL PLS STUCK INDICATOR ;
AU001696 1 00F8 IBN R2 MQIRPV ; IF REL PLS CURRENT ON ;
AU001697 1 00F9 SETS X4 CSTRPV ; SET REL PLS VALUE TO ON ;
AU001698 1 00FA ADDC CSTCS3-CSTVF1 R4 ; RESTORE CSTCS3 PNT ;
AU001699 1 00FB MXAI80: ; PRESET STUCK REL PLS CNT ;
AU001700 1 00FB ADDC CSTSCN-CSTCS3 R4 ; RESTORE CSTSCN PNT ;
AU001701 1 00FC MOVC MXSTCP X4 ; PRESET STUCK REL PLS CNT BYTE ;
AU001702 1 00FD MXAI90: ; END OF REL PLS HANDLING ;
AU001703 1 00FD SETS X6 MQIIDP ; THEN SET MQI READY FOR IDP; ;
1 00FE ;-----------------------------------------------------------------------;
AU001704 1 00FE MXAI95: ;
AU001705 1 00FE MOV MXICST R7 ; THEN GET CURRENT CST PNT : ;
AU001706 1 00FF MOV R7 OPTCST+STRT; SAVE IN FILE DECLARATI: ;
AU001707 1 0100 MXIOLTOA= 40, MXIOLTOB= OPTCST, MXIOLTOC= ML ; ;MXIOLTO ;
AU001708 1 0100 ;................................................................. ;
AU001709 1 0100 IF MXIOLTO ; : ;
AU001710 1 0100 MOV R7 MXR7TS ; SAVE R7 DURING OLTO TEST : ;
AU001711 1 0101 MOV TSWITCH R7 ; GET OLTO TEST SWITCH : ;
AU001712 1 0102 IF MXIOLTOB EQ 0 ; : ;
AU001713 1 0102 JOZ R7 LOC+4 ; IF TEST SWITCH ON : ;
AU001714 1 0102 MON OLTO ; THEN : ;
AU001715 1 0102 (MXIOLTOC+MXI)<8+MXIOLTOA ; : ;
AU001716 1 0102 OPTREG ; : ;
AU001717 1 0102 ELSE ; : ;
AU001718 1 0102 JOZ R7 LOC+7 ; IF TEST SWITCH ON : ;
AU001719 1 0103 MON OLTO ; FORCE REGISTER DUMP : ;
AU001720 1 0104 (MXIOLTOC+MXI)<8+MXIOLTOA ; : ;
AU001721 1 0105 OPTREG ; : ;
AU001722 1 0106 MON OLTO ; THEN : ;
AU001723 1 0107 (MXIOLTOC+MXI)<8+MXIOLTOA+1 ; ACTIVATE : ;
AU001724 1 0108 MXIOLTOB ; ON LINE TEST OUTPUT; : ;
AU001725 1 0109 FI ; : ;
AU001726 1 0109 MOV MXR7TS R7 ; RE-ESTABLISH R7 CONTENT; : ;
AU001727 1 010A FI ; : ;
AU001728 1 010A ;................................................................: ;
AU001729 1 010A IBN X6 MQIEND ; IF LAST MQI ;
AU001730 1 010B MOV MXPMQI R6 ; THENPRESET MQI PNT ;
AU001731 1 010C ADDC MQIELGT R6 ; INCREMENT TO NEXT MQI ;
AU001732 1 010D MOV R6 MXIMQI ; AND SAVE MQI PNT ;
AU001733 1 010E LDM 2#110 ; OPAN I/O WINDOW ;
AU001734 1 010F LDM 2#111 ; CLOSE WINDOW ;
AU001735 1 0110 JMP MXMQIH ; ;
AU001736 1 0111 ;FF\f
;
1 0111 ;=======================================================================;
AU001737 1 0111 MXMQOH: ; HANDLE MQO-ELEMENT ;
AU001738 1 0111 MOV MXIMQO R6 ; GET MQO PNT ;
AU001739 1 0112 IBZ X6 MQOMXI ; IF ELEMEMT EMPTY ;
AU001740 1 0113 JMP MXQLEM ;
AU001741 1 0114 MOV MQOFLG.X6 R4 ; GET LOG CHAN NMB ;
AU001742 1 0115 IF MQOLAD NE 0 ;
AU001743 1 0115 SRL R4 MQOLAD FI ; RIGHT ADJUST LOG CHAN NMB ;
AU001744 1 0116 MOD MXICDI ; FROM CDI ;
AU001745 1 0117 MOV X4 R7 ; GET ABS CST PNT ;
AU001746 1 0118 MOV R7 MXACST ; SAVE ABS CSTPNT ;
AU001747 1 0119 MODN BAS ; RELATIVIZE ;
AU001748 1 011A ADDC CSTCS2 R7 ; CALC REL CSTCS2 PNT ;
AU001749 1 011B IBZ X7 CSTSYN ; IF CHAN SETUP FOR SYNC ;
AU001750 1 011C JMP MXASYO ; THEN ;
1 011D ;-----------------------------------------------------------------------;
AU001751 1 011D MXSYNO: ; SYNC OUTPUT HANDLING,ENTRY ;
AU001752 1 011D MOVC 1<GSTREC R0 ; FLAG RECOVERABLE ERROR ;
AU001753 1 011F MOV R0 LINTCAUS ; ;
AU001754 1 0120 MOVC <:O:> R4 ;
AU001755 1 0121 MOV R4 LINTRET ;
AU001756 1 0122 MON ERR ;
AU001757 1 0123 JMP MXAO95 ; END SERVING SYNC OUTPUT ;
1 0124 ;-----------------------------------------------------------------------;
AU001758 1 0124 ; WRITE: FOB.CST, MXIMQO ;
AU001759 1 0124 ; ;
AU001760 1 0124 MXASYO: ; ASYNC OUTPUT HANDLING, ENTRY ;
AU001761 1 0124 MOV MQOSTA.X6 R2 ; GET MQO STATUS ;
AU001762 1 0125 IBN R2 MQOBML ; IF BIN MISLINKED ;
AU001763 1 0126 JMPI S4 MXEIOI ; THEN CALL ERROR PROCESSING; ;
AU001764 1 0127 ADDC CSTSCN-CSTCS2 R7 ; CALC R.P. SUPER CNT PNT ;
AU001765 1 0128 SBZ R2 MQOBDS ; IF NO BUFFER DISCONNECTED ;
AU001766 1 0129 IBN R2 MQOIBD ; OR DE-QUEUEING INHIBITED ;
AU001767 1 012A JMP MXAO80 ; THEN BYPASS BUFFER HANDLING; ;
AU001768 1 012B ; HANDLE DISCONNECTED BUFFER ;
AU001769 1 012B MOVC MXSTCP X7 ; PRESET REL.PULS STUCK SUPCNT ;
AU001770 1 012C MOV MQOBAD.X6 R5 ; GET ABS BIN PNT ;
AU001771 1 012D MOV R5 MXCLNK ; SAVE BUFFER LINK ;
AU001772 1 012E MOVC 1 R3 ; NMB OF BINS TO BE RELEASED ;
AU001773 1 012F MOV MXACST R4 ; POINT (ABS) CURRENT CST RECORD ;
AU001774 1 0130 ADDC CSTFOB R4 ; CALC ABS CSTFOB PNT ;
AU001775 1 0131 MON LNOQ ;(NONE KEPT) LINK BIN OUT OF OUTPUT QUEUE ;
AU001776 1 0132 JMPI & S4 MXEIOI ; (LESS N BINS LEFT ERROR); ;
AU001777 1 0133 MOD MXCLNK ; PROVIDE MQI BIN ADDRESS ;
AU001778 1 0134 INE R5 0-0 ; IF NOT IDENTICAL TO FOB.CST ;
AU001779 1 0135 JMPI & S4 MXEIOI ; THEN CP SYSTEM ERROR; ;
AU001780 1 0136 MON RNBF ; RELEASE BIN TO FREE POOL; ;
AU001781 1 0137 JMP MXAO90 ; BYPASS DRY-UP HANDLING ;
AU001782 1 0138 MXAO80: ; ELSE ;
AU001783 1 0138 IBNP R2 MQOOBE ; IF OUTPUT BUFFER EMPTY ;
AU001784 1 0139 ADDC CSTVF1-CSTSCN R7 ; POINT DIRECT CSTVSF FIELD ;
AU001785 1 013A SETS X7 CSTDRY ; FLAG CHAN DR!-UP; ;
AU001786 1 013B MXAO90: ; END OF DRY-UP CHANNEL CHECK; ;
AU001787 1 013B MXAO95: ; ;
AU001788 1 013B MOV MXIMQO R6 ; GET CURRENT MQO ELEMENT ;
AU001789 1 013C XTR X6 1<MQOEND ; CLEAR MQOFLG, EXCEPT MQOEND ;
AU001790 1 013D IBN X6 MQOEND ; IF MQO LAST IN ARRAY ;
AU001791 1 013E MOV MXPMQO R6 ; THEN PRESET ;
AU001792 1 013F ADDC MQOELGT R6 ; TO START OF ARRAY ;
AU001793 1 0140 MOV R6 MXIMQO ; SAVE NEW MQO PNT ;
AU001794 1 0141 LDM 2#110 ; OPEN I/O WINDOW ;
AU001795 1 0142 LDM 2#111 ; CLOSE AGAIN ;
AU001796 1 0143 JMP MXMQOH ; GO SERVE NEXT MQO ;
AU001797 1 0144 ;
AU001798 1 0144 ;
AU001799 1 0144 ;
AU001800 1 0144 ;
1 0144 ;-----------------------------------------------------------------------;
AU001801 1 0144 MXQLEM: ; ;
AU001802 1 0144 MOV MXIMQI R6 ; GET CURRENT MQI PNT ;
AU001803 1 0145 IBN X6 MQIMXI ; IF MORE MQI'S ;
AU001804 1 0146 JMP MXMQIH ; THEN GO SERVE; ;
AU001805 1 0147 ;
AU001806 1 0147 MON RCPU ; RESERVE CPU INTERRUPT ;
AU001807 1 0148 MOVC IDLE R0 ; GET PROCESS IDLE STATE ;
AU001808 1 0149 MON INQ ; SET PROCESS IDLE ;
AU001809 1 014A JMPI & S4 MXELMI ; (PROCESS NOT KNOWN TO MON); ;
AU001810 1 014B MOV MXIDPL R5 ; GET REL IDP ;
AU001811 1 014C SOZ LTMS4. X5 ; IF LETTER MXI PROPERTY ;
AU001812 1 014D JMP MXQL50 ; THEN ;
AU001813 1 014E DEC LTMS4. X5 ; FLAG LETTER BUSY ;
AU001814 1 014F MOVC IDPLPN R0 ; SET UP IDP AS RECEIVER ;
AU001815 1 0150 MOV R0 LTRCV. X5 ; ;
AU001816 1 0151 MOVC MXILPN R0 ; SET UP OWN PROCESS ID ;
AU001817 1 0152 MOV R0 LTSND. X5 ; AS SENDER. ;
AU001818 1 0153 ADD BAS R5 ; MAKE POINTER ABS ;
AU001819 1 0155 MON SLET ; SEND LETTER ;
AU001820 1 0156 JMPI& S4 MXELMI ; (LETTER DATA ERROR); ;
AU001821 1 0157 MON SCH ; ENSURE RECEIVER ACTIVATION ;
AU001822 1 0158 JMP MXCPST ; ON CPU INT GO TO MQI HANDLING ;
AU001823 1 0159 MXQL50: ; ELSE ;
AU001824 1 0159 MON RTI ; RETURN TO INTERRUPTED PROC ;
1 015A JMP MXCPST ; ON INTERRUPT, START MMQ HANDLING;
AU001825 1 015B ;
AU001826 1 015B ;
AU001827 1 015B ;
1 015B ;-----------------------------------------------------------------------;
AU001828 1 015B MXGOBF: ; ;
AU001829 1 015B JMPI S4 MXENBI ; GET BUFFER FOR INPUT BY ;
*** 1 015C JMPI S4 MXIERR0 ; *** TEMPORARY STOP *** ;
AU001830 1 015D ; GET INPUT BUFFER BY PREEMPTING ;
AU001831 1 015D ; OUTPUT CHANNEL. ;
AU001832 1 015D ; THIS WILL NOT BE IMPLEMENTED, ;
AU001833 1 015D ; UNTIL PREEMPTION PROCEDURE IS ;
AU001834 1 015D ; SETTLED ;
AU001835 1 015D ;FF\f
;
1 015D ;=======================================================================;
AU001836 1 015D ; LETTER DRIVEN PROCESS ;
1 015D ;-----------------------------------------------------------------------;
AU001837 1 015D MXINILETT: ; INITIATE MXI SUBMODULE, ;
AU001838 1 015D ; FIRST PRESET RTC LETTER ;
AU001839 1 015D JMP S6 MXCRP ; CREATE OWN PROCESS ;
AU001840 1 015F MOVC MXRTCL R6 ; ;
AU001841 1 0160 JMP S4 MXGLET ; GET PRESET RTC LETTER ;
AU001842 1 0162 MOVC 100/10 R0 ; SET UP RTC DELAY 100 MSEC ;
AU001843 1 0163 MOV R0 LTMS4. X5 ; ;
AU001844 1 0164 ADD BAS R5 ; MAKE LETTER POINTER ABS ;
AU001845 1 0166 MON SLET ; START MXI-RTC ACTIVATION ;
AU001846 1 0167 JMPI& S4 MXELMI ; (LETTER MECH ERROR); ;
AU001847 1 0168 ;
AU001848 1 0168 MOV BAS R2 ; POINT ABS OWN BASE ;
AU001849 1 0169 MOV GSTPTR R5 ; GET ABS GST POINTER ;
AU001850 1 016A SUB R2 R5 ; MAKE RELATIVE ;
AU001851 1 016B MOV R5 MXGST ; AND SAVE; ;
AU001852 1 016C ADDC GSTCDY R5 ; POINT TO START OF CHANNEL ;
AU001853 1 016D MOV R5 MXCDI ; CDI PART OF GST; ;
AU001854 1 016E ADDC GSTNCC-GSTCDY R5 ; POINT LOC WITH NMB CONNECTED ;
AU001855 1 016F MOV R5 MXNCC ; ;
AU001856 1 0170 ADDC GSTNSC-GSTNCC R5 ; NMB OF SYNCHRONEOUS ;
AU001857 1 0171 MOV R5 MXNSC ; ;
AU001858 1 0172 ADDC GSTNAC-GSTNSC R5 ; NMB OF ASYNCHRONEOUS ;
AU001859 1 0173 MOV R5 MXNAC ; ;
AU001860 1 0174 ;
AU001861 1 0174 MON RTI ; ;
AU001862 1 0175 ;FF\f
;
1 0175 ;=======================================================================;
AU001863 1 0175 ; LTU RELATED SUBCOMMAND-EXECUTION IN MXI SUBMODULE ;
AU001864 1 0175 ; ;
AU001865 1 0175 ; THE SUBCOMMANDS HANDLED ARE: ;
AU001866 1 0175 ; ;
AU001867 1 0175 ; SETUP CHANNEL PARAMETERS ;
AU001868 1 0175 ; OPEN INPUT CHANNEL ;
AU001869 1 0175 ; OPEN OUTPUT CHANNEL ;
AU001870 1 0175 ; CLOSE INPUT CHANNEL ;
AU001871 1 0175 ; CLOSE OUTPUT CHANNEL ;
AU001872 1 0175 ; ;
AU001873 1 0175 ; R7 POINTS TO LETTER (REL) ;
AU001874 1 0175 ; ;
AU001875 1 0175 ; CONTROL ENTERS HERE WHEN A LETTER FROM CMI IS RECEIVED ;
AU001876 1 0175 ; ;
1 0175 ;-----------------------------------------------------------------------;
AU001877 1 0175 MXAWLT: ; ;
AU001878 1 0175 MON WL ; AWAIT NEXT LETTER ;
AU001879 1 0176 MXGOTL: ; ;
AU001880 1 0176 MOV R7 MXLETT ; SAVE REL POINTER TO LETTER ;
AU001881 1 0177 MOV LTTYP. X7 R0 ; GET PRIORITY OF LETTER ;
AU001882 1 0178 ILO R0 EXPR ; IF SAME OR HIGHER CPU DRIVEN ;
AU001883 1 0179 JMP MXGO10 ; THEN ;
AU001884 1 017A MOVC ORDN R0 ; FORCE LETTER DRIVEN PROCESS ;
AU001885 1 017B MON INQ ; TO BE DOWNGRADED; ;
AU001886 1 017C JMPI & S4 MXELMI ; (LETTER MECH ERROR); ;
AU001887 1 017D MOV MXLETT R7 ; RE-ESTABLISH LETTER POINTER ;
AU001888 1 017E MXGO10: ; END DOWNGRADING PROCESS PRIO; ;
AU001889 1 017E MOVC 0 R0 ; ;
AU001890 1 017F MOV R0 MXCDT ; FLAG NO CDT-RECORD RESERVED MXI ;
AU001891 1 0180 MOV LTRCV. X7 R4 ; GET SENDER OF THIS LETTER ;
AU001892 1 0181 IEQ R4 RTCLPN, JMP MXLRTC ; IF FROM RTC THEN GO SERVE ;
AU001893 1 0184 IEQ R4 CMILPN, JMP MXLCMI ; IF FROM CMI THEN GO SERVE ;
AU001894 1 0187 IEQ R4 ODPLPN, JMP MXLODP ; IF FROM ODP THEN GO SERVE; ;
AU001895 1 018A JMPI S4 MXEUXI ; ELSE UNRECOVERABLE ERROR; ;
AU001896 1 018B JMP MXAWLT ; GO WAIT FOR VALID LETTER ;
AU001897 1 018C ;
1 018C ;-----------------------------------------------------------------------;
AU001898 1 018C MXINVT: ; ;
AU001899 1 018C JMP S4 MXCPE ; SUB-COM'D TYPE 0 - SHOULD HAVE ;
AU001900 1 018D ; FILTERED BY CMI; ;
1 018D ;-----------------------------------------------------------------------;
AU001901 1 018D ;
AU001902 1 018D ; COMPLETION CODE GENERATION ;
AU001903 1 018D ; -------------------------- ;
AU001904 1 018D MXCPE: MODC CMCCPE-CMCCME ; 6 - CP ERROR DETECTED ;
AU001905 1 018E SYNCERR: ; *** TEMPORARY BRAKE *** SYNC ;
AU001906 1 018E MXCME: MODC CMCCME-CMCATV ; C - COMMAND ERROR ;
AU001907 1 018F MXATV: MOVC CMCATV-MXLTOK R2 ; E - ATTEMPTED VIOLATION ;
AU001908 1 0190 MOV MXCST R6 ; GET CURRENT CST PNT ;
AU001909 1 0191 ADDC CSTVF1 R6 ; CALC CURRENT VSF PNT ;
AU001910 1 0192 SETS X6 CSTSUE ; INDICATE CHANNEL SETUP ERROR ;
AU001911 1 0193 MOD MXGST ; ;
AU001912 1 0194 MOV R4 GSTSBR ; SAVE LOC POINTER AS REFERENCE ;
AU001913 1 0195 MOD R2 ; CONTINUE COMPL. CODE GENERATION ;
AU001914 1 0196 ;
AU001915 1 0196 MXGO50: ;
AU001916 1 0196 MOVC MXLTOK R2 ; ON NORMAL RETURN GET OK-CODEU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DIF MXIOLTOB EQ 0 ; : ;
AU001928 1 019E JOZ R7 LOC+4 ; IF TEST SWITCH ON : ;
AU001929 1 019E MON OLTO ; THEN : ;
AU001930 1 019E (MXIOLTOC+MXI)<8+MXIOLTOA ; : ;
AU001931 1 019E OPTREG ; : ;
AU001932 1 019E ELSE ; : ;
AU001933 1 019E JOZ R7 LOC+7 ; IF TEST SWITCH ON : ;
AU001934 1 019F MON OLTO ; FORCE REGISTER DUMP : ;
AU001935 1 01A0 (MXIOLTOC+MXI)<8+MXIOLTOA ; : ;
AU00193U_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_D........................................................... ;
AU001947 1 01A6 IF MXIOLTO ; : ;
AU001948 1 01A6 MOV R7 MXR7TS ; SAVE R7 DURING OLTO TEST : ;
AU001949 1 01A7 MOV TSWITCH R7 ; GET OLTO TEST SWITCH : ;
AU001950 1 01A8 IF MXIOLTOB EQ 0 ; : ;U_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DLINE TEST OUTPUT; : ;
AU001963 1 01AF FI ; : ;
AU001964 1 01AF MOV MXR7TS R7 ; RE-ESTABLISH R7 CONTENT; : ;
AU001965 1 01B0 FI ; : ;
AU001966 1 01B0 ;................................................................: ;
AU001967 1 01B0 LDM 2#100 ; ALLOW CPU AND I/0 INT ;
AU001968 1 01B1 MOV MXLETT R5 ; GET REL LETTER PNT ;
AU001969 1 01B2 MOV R2 MXCMP.X5 ; PUT RETURN CODE INTOU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_D ;FF\f
;
1 01B8 ;=======================================================================;
AU001976 1 01B8 ; ;
AU001977 1 01B8 ; CASE SERVE RTC LETTER ;
AU001978 1 01B8 ; ;
AU001979 1 01B8 ; THIS PROCEDURE WILL BE USED TO ESTABLISH A REGULAR 100 MSEC ;
AU001980 1 01B8 ; SERVICE FROM THE CPU-INTERRUPT DRIVEN PART OF THE MXI SUBMODULE ;
1 01B8 ; OF CURRENTLY ACTIVE MQI/MQO'S. THIS IS DONE VIA A REGULAR SCHED-;
AU001981 1 01B8 ; ULING DONE BY THE RTC SUBMODULE EACH 100 MSEC WHEREUPON THE ;
AU001982 1 01B8 ; OTHER PART IS ENVOKEN BY A CPU INTERRUPT. ;
AU001983 1 01B8 ; ;
AU001984 1 01B8 ; WRITE: TIMER FIELD OF DEDICATED RTC LU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DDM 2#111 ; TO ALLOW MQI/MQO BEING DONE; ;
AU001993 1 01BB ;
AU001994 1 01BB MOVC 100/10 R0 ; SET UP DELAY OF 100 MSEC ;
AU001995 1 01BC MOV R0 LTMS4.X7 ; BEFORE NEXT WAKE-UP ;
AU001996 1 01BD MON SLET ; ACTIVATE RTC-MXI AGAIN ;
AU001997 1 01BE JMPI& S4 MXELMI ; (LETTER MECH ERROR); ;
AU001998 1 01BF JMP MXAWLT ; RETURN MAIN LINE TO SERVE; ;
AU001999 1 01C0 ; ;
AU002000 1 01U_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DAU002012 1 01C0 ; ;
1 01C0 ;-----------------------------------------------------------------------;
AU002013 1 01C0 MXLODP: ;
AU002014 1 01C0 MOVC CMILPN R2 ; FORCE CMI TO BE ;
AU002015 1 01C1 MOV R2 LTRCV. X7 ; RECEIVER; ;
AU002016 1 01C2 MOV BAS R2 ; GET OWN BASE ;
AU002017 1 01C3 MOV LTMS3. X7 R4 ; GET OFR DAT1,DAT2 FIELDS ;
AU002018 1 01C4 SRL R4 8 ; ISOLATE CHANNEL NMU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_D26 1 01CC ADDC CDNCT R7 ; POINT RESERVATION FLAGS ;
AU002027 1 01CD MXOD10: RESS X7 CDUSED ; DO UNTIL CDT-RECORD FREE ;
AU002028 1 01CE JMP MXOD10 ; WAIT FOR MUX; ;
AU002029 1 01CF LDM 2#101 ; OPEN CPU INTR'PT WINDOW ;
AU002030 1 01D0 CPU ; FORCE CPU-INTR'PT DRIVEN ACTIVE ;
AU002031 1 01D1 LDM 2#111 ; TO ALLOW MQI/MQO BEING DONE; ;
AU002032 1 01D2 MOV CSTNOB.X4 R3 ; GET NMB OU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DE-ESTAB DUMMY BIN COUNT ;
AU002041 1 01DD MOV MXCST R4 ; POINT REL CURRENT CST REC ;
AU002042 1 01DE MOD BAS ; ;
AU002043 1 01DF ADDC CSTFOB R4 ; ABS OUTPUT BIN QUEUE CONTROL ;
AU002044 1 01E0 MON LNIQ ; ENTER (EMPTY) BIN AS OUTPUT ;
AU002045 1 01E1 MON GBS ; GET ACTUAL MEM SECTION ;
AU002046 1 01E2 MOVC 15 R0 ; ;
AU002047 1 01E3 CLRS R3 R0 ; FORCE MUX PSW 2#011 ;
AU002048 U_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_D===;
AU002057 1 01EC ; ;
AU002058 1 01EC ; CASE SERVE CMI LETTER ;
AU002059 1 01EC ; ;
AU002060 1 01EC ; READ: MXNCC, MXCDI ;
AU002061 1 01EC ; WRITE: NCT.CDT(CDUSED), MXCST, MXCDT ;
AU002062 1 01EC ; ;
AU002063 1 01EC ; CALLED BY: MAIN LINE ;
AU002064 1 01EC ; CALL TO: MXSTUP, MXOPIC, MXCLIC, MXOPOC, MXCLOC, MXCPE(ON ERROR) ;
1 01EC ;-------------------------------------U_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DUB-COM'D TYPE ;
AU002070 1 01F0 IF (SBBTYP AN 1) EQ 0 ;
AU002071 1 01F0 XTR R3 8 ; ISOLATE SUB-COM'D TYPE ALONE ;
AU002072 1 01F1 ELSE ;
AU002073 1 01F1 SRL R3 8 FI ; ;
AU002074 1 01F1 MOV SBBLOG/2.X5 R2 ; GET LOGICAL CHANNEL NMB ;
AU002075 1 01F2 IF (SBBLOG AN 1) EQ 0 ;
AU002076 1 01F2 XTR R2 8 ; ISOLATE CHANNEL NMB; ;
AU002077 1 01F2 ELSE ;
AU002078 1 01F2 SRL R2 8 FI ; U_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DCDT WORD WITH RESERVE BIT ;
AU002091 1 01FF MXLC50: RESS X7 CDUSED ; DO UNTIL CDT RECORD RELEASED ;
AU002092 1 0200 JMP MXLC50 ; WAIT FOR CDT FREE; ;
AU002093 1 0201 LDM 2#101 ; OPEN CPU INTR'PT WINDOW ;
AU002094 1 0202 CPU ; FORCE ?P?-INTR'PT DRIVEN ACTIVE ;
AU002095 1 0203 LDM 2#111 ; TO ALLOW MQI/MQO BEING DONE; ;
AU002096 1 0204 IHS R3 MXCMAX ; IF TYPE OUT OF RANGE ;
AU0U_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DARAMETERS ;
AU002102 1 0208 ; ;
AU002103 1 0208 ; . CHANNEL MUST BE IN A CLOSED STATE (INPUT AND OUTPUT CLOSED); ;
AU002104 1U_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DN CST FOR IDP USE ;
AU002106 1 0208 ; . THE ASSOCIATED LTU IS DISABLED AND FILLED WITH A TRANSLATION ;
AU002107 1 0208 ; OF THE CHANNEL SETUP PARAMETERS. ;
AU002108 1 0208 ; . THE CDT WILL BE UPDATED EXCEPT FOR THE LINK AND TIMER FIELDS ;
AU002109 1 0208 ; . THE CHANNEL IS DECLARED SETUP. ;
AU002110 1 0208 ; ;
AU002111 1 0208 ; REGISTERS CALL ;
AU002112 1 0208 ; R5 SUBCOMMANU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DNDICATORS ;
AU002118 1 0208 ; WORK: MXMOD0, MXMOD1, MXR7SV ;
AU002119 1 0208 ; WRITE: (CS1, CS2, CS3, TTA).CST, CDT-RECORD, (BYTE 0 & 1).LTU ;
AU002120 1 0208 ; ;
AU002121 1 0208 ; CALLED BY: MXLCMI ;
AU002122 1 0208 ; CALL TO: MXGO50 (SUCCESFULL), MXATV, MXCME, MXCPE (ON ERRORS) ;
AU002123 1 0208 ; ;
1 0208 ;-----------------------------------------------------------------U_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_D ;
AU002134 1 0210 ADDC SBCSU1 R5 ; GET SOURCE PNT ;
AU002135 1 0211 MODC SBCSUC ; GET WORD CNT ;
AU002136 1 0212 MOVM X5 X4 ; INSERT SUBCOMMAND INTO CST ;
AU002137 1 0213 ADDC (CSTCS2-CSTCS1)-SBCSUC R4 ; POINT DIRECT INDIC IN CSTCS2 ;
AU002138 1 0214 RELS X4 CSTICO ; FORCE CHANNEL CLOSED ;
AU002139 1 0215 RELS X4 CSTOCO ; FOR INPUT/OUTPUT ;
AU002140 1 0216 RELS X4 CSTCSU ; FLAG CHANNEL BEING SET-UP; ;
AU002141 1 0217 ;
AU002142 1 0217 MOVL CSTCS1.X6 R12 ; GET JUST-INSTALLED CHAN STATUS ;
AU002143U_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DH R7 ; GET OLTO TEST SWITCH : ;
AU002148 1 021A IF MXIOLTOB EQ 0 ; : ;
AU002149 1 021A JOZ R7 LOC+4 ; IF TEST SWITCH ON : ;
AU002150 1 021B MON OLTO ; THEN : ;
AU002151 1 021C (MXIOLTOC+MXI)<8+MXIOLTOA ; : ;
AU002152 1 021D OPTREG ; : ;
AU002153 1 021E ELSE ; : ;
AU002154 1 021E JOZ R7 LOC+7 ; IF TEST SWITCH ON : ;
AU002155 1 021E MON OLTO ; FORCE REGISTER DUMP : ;
AU002156 1 021E (MXIOLTOC+MXI)<8+MXIOLTOA ; : ;
AU002157 1 021E OPTREG ; : ;
AU002158 1 021E MON OLTO ; THEN : ;
AU002159 1 021E (MXU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_D SYNCHRONEOUS CHANNEL ;
AU002167 1 0221 JMPI S4 MXATVI ; THEN FLAG VIOLATION ATTEMPT; ;
AU002168 1 0222 ;
AU002169 1 0222 IF CSTLAD NE 0 ;
AU002170 1 0222 SRL R1 CSTLAD ; ISOLATE LOGICAL CHAN NMB ;
AU002171 1 0223 ELSE ;
AU002172 1 0223 XTR R1 CSTLAX FI ; ;
AU002173 1 0223 MOV MXNAC R4 ; ;
AU002174 1 0224 IBZP R2 CSTSYN ; IF ASYNCHRONEOUS LINE ;
AU002175 1 0225 IHS R1 X4 ; AND LOG CHAN WITHIN SYNC ;
AU002176 1 0226 JMPI S4 MXATVI ; THEN VIOLATION ATTEMPT ;
AU002177 1 0227 IBNP R2 CSTSYN ; IF SYNCU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_D22E MOV R5 CSTTTA.X6 ; SAVE TABLE PNT IN CST ;
AU002186 1 022F ;
AU002187 1 022F MOV CSTCS1.X6 R1 ; GET PHYSICAL CHAN ADDRESS ;
AU002188 1 0230 IF CSTPAD NE 0 ;
AU002189 1 0230 SRL R1 CSTPAD ; RIGHT ADJUST PHYSICAL ADDRESS ;
AU002190 1 0230 ELSE ;
AU002191 1 0230 XTR R1 CSTPAX FI ; ISOLATE PHYSICAL ADDRESS ;
AU002192 1 0231 ILO R1 #10 ; IF PHYSICAL CHAN LESS #10 ;
AU002193 1 0233 JMPI S4 MXATVI ; THEN FLAG VIOLATION ATTEMPT; ;
AU002194 1 0234 ; *** HERE IT MIGHT BE CHECKED THAT NOT TWO CHANNELS AS U_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DEAD MODE 0 BYTE ;
AU002199 1 0238 IBN R4 LTASYS ; IF SYNC BIT SET ;
AU002200 1 0239 JMPI S4 MXATVI ; INDICATE VIOLATION ;
AU002201 1 023A SETS R4 LTADSS ; SET CHANNEL DISABLE BIT ;
AU002202 1 023B SETS R4 LTARSS ; SET CHANNEL RESET BIT ;
AU002203 1 023C CIO R4 R1 ; WRITE MODE 0 BYTE ;
AU002204 1 023D MOV R1 MXPHY ; SAVE LTU PHYSICAL ADDRESS ;
AU002205 1 023E MOVC MXASYW R0 ; GET ASYNC LTU RESET WAIT CNT ;
AU002206 1 023F MXST70: SOB R0 MXST70 ; WAIT FOR ASYNC LTU TO RESET ;
AU002207 1 0240 MOVC MXMU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_D 1 0249 MOVC MXSUCS R4 ; DO WHILE FIELDS TO SERVE ;
AU002220 1 024A MXST80: ;
AU002221 1 024A MOV MXCTL. X4 R2 ; GET CONTROL WORD ;
AU002222 1 024B XTR R2 4 ; GET CST WORD DESIG ;
AU002223 1 024C MOD R2 ; ;
AU002224 1 024D MOV CSTCS1.X6 R3 ; GET SELECTED CST WORD ;
AU002225 1 024E MOV MXMSK. X4 R2 ; GET FIELD MASK ;
AU002226 1 024F AND R2 R3 ; ISOLATE FIELD ;
AU002227 1 025U_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DR3 ; POINT REL FIELD DESCRIPTOR ;
AU002236 1 0259 ADD R4 R3 ; POINT BASE REL ;
AU002237 1 025A MOV MXCTL. X4 R2 ; GET CONTROL ;
AU002238 1 025B SRL R2 8 ; ISOLATE LTU MODE BYTE DESIG ;
AU002239 1 025C MOD R2 ; USE MODE BYTE DESIGNS DISPLACE ;
1 025D IOR X3 X0 ; INSERT CONVERTED FIELD INTO BYTE;
AU002240 1 025E SOZP MXLNK. X4 ; IF NOT LAST FIELD DESCRIPTOR ;
AU002241 1 025F MOV MXLNK. X4 R4 ; THEN POINT NEXT ENTRY ;
AU002242 1 0260 JMP MXST80 ; END DO WHILE FIELDS TO SERVE; ;
AU002243 1 0261 ; ;
AU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_D0268 MOV R2 CSTHME.X6 ; PUT MSG HALTED PRESET CNT IN CST;
1 0269 ;-----------------------------------------------------------------------;
AU002251 1 0269 ; INSTALL PARAMETERS IN CDT ;
AU002252 1 0269 ; AT CHANNEL SETUP, CDT IS PRESET ;
AU002253 1 0269 MOV R7 R0 ; GET PNT TO CDT (MXTYP) ;
AU002254 1 026A ADDC CDPCA-CDNCT R0 ; GET PNT TO CDT (MXTIM) ;
AU002255 1 026B MOV R0 RU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DCX R2 ; INPUT BUFFER PRESET VALUE ;
AU002266 1 0276 MOV R2 CDIMCX-CDNCT.X7 ; ;
AU002267 1 0277 ; ; TRANSFER MODE OF OPER FROM CST ;
AU002268 1 0277 MOV CSTCS2.X6 R0 ; GET MOP FROM CST ;
AU002269 1 0278 MOV R0 R3 ; ;
AU002270 1 0279 IF CSTMOP NE 0 ;
AU002271 1 0279 SRL R0 CSTMOP FI ; RIGHT-ADJUST CST MODE WORD ;
AU002272 1 027A XTR R0 CSTMOX ; ISOLATE CST MODE OF OPERATION ; U_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DAU002277 1 0280 MOD R0 ; USE TABLE LOOK-UP ;
AU002278 1 0281 MOV MXDMOP R0 ; TO GET CDT MODE; ;
AU002279 1 0282 IF CDMOP NE 0 ;
AU002280 1 0282 SLL R0 CDMOP FI ; THEN POSITION MODE FIELD; ;
AU002281 1 0282 IOR R0 X7 ; INSERT MOP INTO CDT(MXTYP) ;
AU002282 1 0283 MOVC MXLSBD R3 ; GET LOW SPEED BUF DISCON. TIME ;
AU002283 1 0284 IGE R1 MXMESP ; IF CHANNEL IS MED SPEED ;
1 0285 MOVC MXMSBD R3 ; THEN GET MED.SP. BUF DISCON TIME;
AU002284 1 0286 MOV R3 CDPBCT-CDNCT.X7 ; PNT IN CDT (MXPBCT) ;
AU002285 1U_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DE OUTPUT IN DRIED UP STATE ;
AU002294 1 0290 MOV R0 CDOEST-CDNCT.X7 ; FOR THIS CHANNEL ;
AU002295 1 0291 SVS R0 ; GET OWN PSW ;
AU002296 1 0292 MOVC 15 R1 ; ;
AU002297 1 0293 CLRS R0 R1 ; FORCE MUX PSW 2#011 ;
AU002298 1 0294 MOV BAS R1 ;
AU002299 1 0295 ADD R7 R1 ; SIMULATE EMPTY BIN BY USING ;
AU002300 1 0296 ADDC CDOSTA-CDNCT R1 ; INTO OWN CDT-RECORD; ;
AU002301 1 0297 MOVL R01 CDOMSA-CDNCT.X7 ; ;
AU002302 1 0298 ;
AU002303 1 0298 MOVC 2 R3 ; SET UP TO GET MUX IDLE BINS ;
AU002304 1 0299 MOV RU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DR5 CDIBUF-CDNCT.X7 ; FIRST BUFFER AS WELL; ;
AU002312 1 02A1 ;
AU002313 1 02A1 MOV MXPHY R2 ; GET CURRENT LTU CHANNEL ADDR ;
AU002314 1 02A2 MOV R2 CDPCA-CDNCT.X7 ; PUT PHYSICAL ADDRESS INTO CDT ;
AU002315 1 02A3 MOVC -1 R1 ; RESET THE LTU ENTIRELY ;
AU002316 1 02A4 MODC 2#1001<12 ; ;
AU002317 1 02A5 WIO R1 R2 ; LOOP MODE LATCH OF LTU CLEAR ;
AU002318 1 02A6 MOVC MXMOD0 R1 ;U_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DSETS X4 CSTCSU ; AND FLAG CHANNEL SET-UP; ;
AU002326 1 02AE JMP MXGO50 ; NORMAL RETURN TO CMI ;
AU002327 1 02AF ;FF\f
;
1 02AF ;=======================================================================;
AU002328 1 02AF ; OPEN INPUT CHANNEL ;
AU002329 1 02AF ; ;
AU002330 1 02AF ; . CHANNEL MUST HAVE BEEN SET UP PREVIOUSLY, NOT OPEN AND NOT IN ;
AU002331 1 02AF ; TEST MODE FOR TU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_D002338 1 02AF ; R5 SUBCOMMAND (TYPE, SEQ.NMB, ETC...) ;
AU002339 1 02AF ; R6 REL TOP OF CST ;
AU002340 1 02AF ; R7 NCT.CDT POINTER ;
AU002341 1 02AF ; ;
AU002342 1 02AF ; READ: MXRPAT, MXSPAC, MXIMCX, (PCA, IMSA, IBUF).CDT, LNK.BIN, ;
AU002343 1 02AF ; CS2.CST(CSTSYN, CSTCSU, CSTTST) ;
AU002344 1 02AF ; WRITE: STA.BIN, (IEST, ISTA, BCT, RPAT, SPAC, IMCX).CDT, ;
AU002345 1 02AF ; CS2.CST(CSTICO), NCT.CDT(CDOPEN) ;
AU002346 1 02AF ; ;
AU002347 1 02AF ; CALLED BY: MXLCMI ;
AU002348 1 02AF ; CALL TO: U_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_D54 1 02B2 IBZ & R2 CSTCSU ; OR NOT SET-UP ;
AU002355 1 02B3 JMPI S4 MXATVI ; THEN FLAG VIOLATION ATTEMPT ;
AU002356 1 02B4 ;
AU002357 1 02B4 MOV CDPCA-CDNCT.X7 R1 ; GET PHYSICAL ADDRESS OF LTU ;
AU002358 1 02B5 IBZ R2 CSTSYN ; IF CHANNEL NOT SYNC ;
AU002359 1 02B6 JMP MXOI70 ; THEN GO HANDLE ASYNC ;
AU002360 1 02B7 JMP S4 SYNCERR ; *** TEMPORARY BRAKE *** SYNC ;
AU002361 1 02B9 MXOI70: ;
AU002362 1 02B9 ADDC -CDNCT R7 ; POINT START OF CDT RECORD ;
AU002363 1 02BA SON CDIBUF.X7 ; IF POINT EARTHED ; U_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_D002369 1 02C0 MOVC 0 R3 ; FORCE 'CLEAR TO SEND' HIGH ;
AU002370 1 02C1 MODC 2#0010<12 ; ADDRESS LTU 'CLEAR TO SEND' ;
AU002371 1 02C2 WIO R3 R1 ; (ACTIVE ONLY ON INTERNAL LTU'S) ;
AU002372 1 02C3 SETS R2 CSTICO ; SET INPUT CHANNEL OPEN IN CST ;
AU002373 1 02C4 MOV R2 CSTCS2.X6 ; SAVE UPDATED CSTCS2 STATUS WORD ;
AU002374 1 02C5 ;
AU002375 1 02C5 SVS R0 ; SAVE CURRENT STATUS ;
AU002376 1 02C6 MOV BAS R1 ; GET OWN BASE ;
AU002377 1 02C7 MOVC 1<BINIO R2 ; FLAG INPUT BIN ;
AU002378 1 02C9 MOV CDIMSA.X7U_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_D002385 1 02D0 MODN R1 ;
AU002386 1 02D1 MOV R2 BINSTA.X4 ; INPUT BINS; ;
AU002387 1 02D2 LDS R0 ; RETURN CURRENT SECTION ;
AU002388 1 02D3 ;
AU002389 1 02D3 CLR CDIEST.X7 ; CLEAR INPUT ERROR STATUS ;
AU002390 1 02D4 CLR CDISTA.X7 ; CLEAR INPUT STATE ;
1 02D5 MOV CDPBCT.X7 R2 ; GET BUFFER DISCONNECT TIM PRESET;
AU002391 1 02D6 MOV R2 CDBCT. X7 ; PRESET BUFFER DISCONNECT TIMER ;
AU002392 1 02D7 MOV MXRPAT R2 ; GET PRESET/CURRENT START UP ;
AU002393 1 02D8 MOV R2 CDRPAT.X7 ; VALUE RELEASE PULSE STUCKU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DTS; ;
AU002396 1 02DB MOV MXIMCX R2 ; GET MAX/CURRETN CHAR COUNT ;
AU002397 1 02DC MOV R2 CDIMCX.X7 ; PRESET; ;
AU002398 1 02DD ADDC CDNCT R7 ; GET PNT TO CDT (MXTYP) ;
AU002399 1 02DE SETS X7 CDOPEN ; FLAG AT LEAST ONE CHANN5L O?5N ;
AU002400 1 02DF JMP MXGO50 ; NORMAL RETURN TO CMI ;
AU002401 1 02E0 ;
1 02E0 ;=======================================================================;
AU002402 1 02E0 ; CLOSE INPUT CHANNEL ;
AU002403 1 02E0 ; ;
AU002404 1 02E0 ; . INPUT PART OF CHANNEL MUST BE IN OPEN STATE (ELSE ETTEMPT VIO) ;
AU002405 1 02E0 ; . INTERNAL LTU'S WILL HAVE 'CLEAR TO LEND' FORCED LOW ;
AU002406 1 02E0 ; . THU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_D DRY-UP ;
AU002410 1 02E0 ; . IF CHANNEL CLOSED FOR OUTPUT THE CDT WILL BE DECLARED CLOSED ;
AU002411 1 02E0 ; ;
AU002412 1 02E0 ; REGISTERS CALL ;
AU002413 1 02E0 ; R5 SUBCOMMAND (TYPE, SEQ.NMB, ETC...) ;
AU002414 1 02E0 ; R6 REL TOP OF CST ;
AU002415 1 02E0 ; R7 NCT.CDT POINTER ;
AU002416 1 02E0 ; ;
AU002417 1 02E0 ; READ: MXCST, MXCDT, CS2.CST(CSTOCO), PCA.CDT ;
AU002418 1 02E0 ; WRITE: (FIB, LIB, NIB).CST, (IMSA, IBUF).CDT, CS2.CST(CSTICO), ;
AU002419 1 02E0 ; NCT.CDT(CDOPEN) ;
AU002420 1 02E0 ; ;
AU002421 1 02E0 ; CALLED BY: MXLCMI ;
AU002422 1 02E0 ; CALL TO: MXGO50 (SUCCESFULL), MXATV, MXCME, MXCPE (ON ERRORS) ;
AU002423 1 02E0 ; ;
1 02E0 ;-----------------------------------------------------------------------;
AU002424 1 02E0 MXCLIC:U_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_D ;
AU002430 1 02E4 MOV CDPCA-CDNCT.X7 R1 ; GET PHYSICAL ADDRESS OF LTU ;
AU002431 1 02E5 MOVC -1 R3 ; FORCE 'CLEAR TO SEND' LOW ;
AU002432 1 02E6 MODC 2#0010<12 ; ADDRESS LTU 'CLEAR TO SEND' ;
AU002433 1 02E7 WIO R3 R1 ; (ACTIVE ONLY ON INTERNAL LTU'S) ;
AU002434 1 02E8 ;
AU002435 1 02E8 MOV CDIBUF-CDNCT.X7 R5 ; GET CURRENT BUFFER ;
AU002436 1 02E9 IEQ R5 0 ; IF LINK ALLREADY ZERO ;
AU002437 1 02EA JMPI S4 MXCPEI ; (CP ERROR); ;
AU002438 1 02EB MOVC 1 R4 ; TRY BUFFER COUNT = 1 ;
AU002439 1 02EC MOU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DEE SETS R3 15 ; FORCE COM-CPU PSW TO BE 2#111 ;
AU002442 1 02EF MON GNBA ;(4,6 KEPT) GET NEXT BUFFER ADDRESS ;
AU002443 1 02F0U_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_D GET NEXT LINK ;
AU002446 1 02F3 JMP MXCI50 ; ON LINK ZERO: CONTINUE NORMALLY ;
AU002447 1 02F4 JMPI S4 MXCPEI ; (CP ERROR); ;
AU002448 1 02F5 ;
AU002449 1 02F5 MXCI50: ; ;
AU002450 1 02F5 MOV R4 R3 ; POSITION BUFFER COUNT ;
AU002451 1 02F6 XCH R6 R5 ; POSITION FIRST/LAST BUFFER PNT ;
AU002452 1 02F7 MOV MXCST R4 ; GET CURRENT REL CST PNT. ;
AU002453 1 02F8 MOD BAS ; ABSOLUTIZE ;
AU002454 1 02F9 ADDC CSTFIB R4 ; GET CURRENT ABS CSTFIB PNT ;
UE 1 02FA MON LNIQ ; LINK ONE OR TWO BUFFERS INTO QUE;
AU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DR7 ; FORCE MUX PSW TO BE 2#011 ;
AU002461 1 0300 MOV MXCDT R7 ; RE-ESTABLISH CDT POINTER; ;
AU002462 1 0301 ADDC CDNCT R7 ; POINT CDT INDICATORS ;
AU002463 1 0302 MOV R3 CDIMSA-CDNCT.X7 ; INSTALL INBUF SECTION IN CDT ;
AU002464 1 0303 MOV R5 CDIBUF-CDNCT.X7 ; FIRST BUFFER AS WELL; ;
AU002465 1 0304 MOV MXCST R6 ; RE-ESTABLISH CST POINTER ;
AU002466 1 0305 ADDC CSTCS2 R6 ; POINT CST FLAGS ;
1 0306 IBZ X6 CSTOCO ; IF OUTPUT CHANNEL CLOSED AS WELL;
AU002467 1 0307 RELS X7 CDOPEN ; THEN FLAG BOTH CLOSED; ;
AU002468 1 0308 JMP MXGO50 ; NORMAL RETURN TO CMI ;
AU002469 1 0309 ;FF\f
;
1 0309 ;====================================U_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DMUST HAVE BEEN SET UP PREVIOUSLY, NOT OPEN AND NOT IN ;
AU002473 1 0309 ; TEST MODE FOR THE OPEN OUTPUT SEQUENCE TO BE EXECUTED. ;
AU002474 1 0309 ; . THE ASSOCIATED LTU IS ENABLED ;
AU002475 1 0309 ; . THE FIRST AVAILABLE OUTPUT BINS IF ANY ARE CONNECTED TO THE CDT ;
AU002476 1 0309 ; ELSE THE CDT WILL BE SET IN A DRIED UP STATE WITH A DUMMY BIN. ;
AU002477 1 0309 ; . THE CHANNEL IS DECLARED OPEN TO THE MUX. ;
AU002478 1 0309 ; ;
AU002479 1 0309 ; REGISTERS CALL ;
AU002480 1 0309 ; R5 SUBCOMMAND (TYPE, SEQ.NMB, ETC...) ;
AU002481 1 0309 ; R6 REL TOP OF CST ;
AU002482 1 0309 ; R7 NCT.CDT POINTER ;
AU002483 1 0309 ; ;
AU0U_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DXCPE (ON ERRORS) ;
AU002492 1 0309 ; ;
-------- 1 0309 ;-----------------------------------------------------------------------;
AU002493 1 0309 MXOPOC: ; OPEN OUTPUT CHANNEL, ENTRY ;
AU002494 1 0309 MOV CSTCS2.X6 R2 ; GET CHANNEL STATUS INDICATORS ;
AU002495 1 030A SBNP R2 CSTTST ; IF LTU TEST MODE BIT HIGH ;
AU002496 1 030B SBN & R2 CSTOCO ; OR CHANNEL ALREADY OPEN ;
AU002497 1 030C IBZ & R2 CSTCSU ; OR NOT SET-UP ;
AU002498 1 030D JMPI S4 MXATVI ; THEN FLAG VIOLATION ATTEMPT; ;
AU002499 1 030E ;U_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DEAR CHANNEL DISABLE BIT ;
AU002508 1 0316 CIO R4 R1 ; CONTRI ;
AU002509 1 0317 SETS R2 CSTOCO ; SET OUTPUT OPEN IN CSTCS2 ;
AU002510 1 0318 MOV R2 CSTCS2.X6 ; PUT CSTCS2 BACK INTO CST ;
AU002511 1 0319 MOV CSTFOB.X6 R5 ; GET CURRENT CSTFOB CONTENTS ;
AU002512 1 031B JOZ R5 MXOO80 ; IF OUTPUT TO HANDLE ;
AU002513 1 031C MON GBS ;(4,6 KEPT) GET BIN SECTION ADDRESS ;
AU002514 1U_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DR3 ; SET UP TO GET ONE BIN ;
AU002518 1 0320 MON GNOB ;(NO REGS) GET AN EMPTY OUTPUT BIN ;
AU002519 1 0321 JMPI & S4 MXATVI ; (NO BINS AVAIL); ;
AU002520 1 0322 MOV R3 MXBSA ; SAVE DUMMY BIN PSW; ;
AU002521 1 0323 MOVC 1 R3 ; SET FOR LINKING IN ONE BIN ;
AU002522 1 0324 MOV MXCST R4 ; POINT REL CURRENT CST RECORD ;
AU002523 1 0325 MOD BAS ; ;
AU002524 1 0326 ADDC CSTFOB R4 ; POINT ABS QUEUE CONTROL ;
AU002525 1 0327 MON LNIQ ; LINK INTO EMPTY QUEUE ;
AU002526 1 0328 MOVC 1<MQOBNA R0 ; FLAG BIN NOT AVALABLE ;
AU002527 1 0329 MOV MXBSA R3 ; RE-ESTABLISH BIN PSW ;
AU002528 1 032A MXOO90: ; END LINKING BIN FOR OUTPUT; ;
AU002529 1 032A MOVC 15 R7 ; ;
AU002530 1 032B CLRS R3 R7 ; FORCE MUX PSW TO BE 2#011 ;
AU002531 1 032C MOV MXCDT R7 ; RE-ESTABLISH CDT POINTER ;
AU002532 1 032D MOV R0 CDOEST.X7 ; PRESET OUTPUT STATUS CORRECT; ;
AU002533 1 032E MOV R3 CDOMSA.X7 ; INSTALL SECTION IN CDT ;
AU002534 1 032F MOV R5 CDOBUF.X7 ; INSTALL BIN ADDRESS IN CDT ;
AU002535 1 0330 MOV CDOPBLC.X7 R2 ; GET BLK CNT PRESET ;
AU002536 1 0331 MOV R2 CDOBLC.X7 ; PUT BLK CNT PRESET INTO CDT ;
AU002537 1 0332 CLR CDOSTA.X7 ; CLEAR OUTPUT STATUS ;
AU002538 1 0333 ;
AU002539 1 0333 ADDC CDTYP R7 ; GET PNT TO CDT (MXTYP) ;
AU002540 1 0334 SETS X7 CDOPEN ; FLAG AT LEAST ONE CHANNEL OPEN ;
AU002541 1 0335 JMP MXGO50 ; NORMAL RETURN TO CMI ;
AU002542 1 0336 ;
1 0336 ;=======================================================================;
AU002543 1 0336 ; CLOSE OUTPUT CHANNEL ;
AU002544 1 0336 ; ;
AU002545 1 0336 ; THE CHANNELS OUTPUT PART IS SET CLOSED IN CDT ;
AU002546 1 0336 ; ;
AU002547 1 0336 ; . THE OUTPUT BUFFERS ARE LEFT UNCHANGED. ;
AU002548 1 0336 ; . IF CHANNEL CLOSED FOR INPUT THE CDT WILL BE DECLARED CLOSED ;
AU002549 1 0336 ; ;
AU002550 1 0336 ; REGISTERS CALL ;
AU002551 1 0336 ; R5 SUBCOMMAND (TYPE, SEQ.NMB, ETC...) ;
AU002552 1 0336 ; R6 REL TOP OF CST ;
AU002553 1 0336 ; R7 NCT.CDT POINTER ;
AU002554 1 0336 ; ;
AU002555 1 0336 ; READ: CS2.CST(CSTTST, CSTICO) ;
AU002556 1 0336 ; WRITE: (OEST, OMSA, OBUF).CDT, NCT.CDT(CDOPEN), CSI.CST(CSTOCO) ;
AU002557 1 0336 ; ;
AU002558 1 0336 ; CALLED BY: MXLCMI ;
AU002559 1 0336 ; CALL TO: MXGO50 (SUCCESFULL), MXATV, MXCME, MXCPE (ON ERRORS) ;
AU002560 1 0336 ; ;
1 0336 ;-----------------------------------------------------------------------;
AU002561 1 0336 MXCLOC: ; CLOSE OUTPUT CHANNEL, ENTRY ;
AU002562 1 0336 MOV CSTCS2.X6 R2 ; GET CHANNEL STATUS INDICATORS ;
AU002563 1 0337 IBN R2 CSTTST ; IF LTU TEST MODE BIT HIGH ;
AU002564 1 0338 JMPI S4 MXATVI ; THEN FLAG VIOLATION ATTEMPT; ;
AU002565 1 0339 MOVC 1<MQOBNA R0 ; FORCE CHANNEL DRIED UP ;
AU002566 1 033A MOV R0 CDOEST-CDNCT.X7 ; ;
AU002567 1 033B SVS R0 ; GET OWN PSW ;
AU002568 1 033C MOVC 15 R1 ; ;
AU002569 1 033D CLRS R0 R1 ; FORCE MUX PSW TO BE 2#011 ;
AU002570 1 033E MOV R7 R1 ; GET ADDRESS CURRENT CDT RECORD ;
AU002571 1 033F MOD BAS ; MAKE ABS ;
AU002572 1 0340 ADDC CDOSTA-CDNCT R1 ; EMPTY BIN SIMULATOR ;
AU002573 1 0341 MOVL R01 CDOMSA-CDNCT.X7 ; ;
AU002574 1 0342 ;
AU002575 1 0342 ADDC CSTCS2 R6 ; GET PNT TO CST (CSTCS2) ;
AU002576 1 0343 RELS X6 CSTOCO ; CLEAR OUTPUT OPEN BIT IN CST ;
AU002577 1U_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_D JMP MXGO50 ; NORMAL RETURN TO CMI ;
AU002580 1 0347 ;FF\f
;
1 0347 ;-----------------------------------------------------------------------;
AU002581 1 0347 ; PROCEDURE FOR SERVING LOCAL INTERRUPT ;
AU002582 1 0347 ; A CHECK IS MADE IF TIME OUT AT FIRST LTU ACCESS TO AVOID KILL ;
AU002583 1 0347 ; OF LETTER DRIVEN PART OF MXI SUBMODULE DUE MP COMMAND ERROR. ;
AU002584 1 0347 ; ;
1 0347 ;-----------------------------------------------------------------------;
AU002585 1 0347 MXHWERR1: ;
AU002586 1 0347 MOV LINTCAUS R3 ; AND CAUSE OF LOCAL INTERRUPT ;
AU002587 1 0348 MOV LINTRET R4 ; GET LOC IN ERROR ;
AU002588 1 0349 IEQP R4 MXST51 ; IF LOCATION FOR SIO LTU-ADDRESS ;
AU002589 1 034B IEQ R3 3 ; AND TIME OUT AT FIRST ACCESS ;
AU002590 1 034C JMPI S6 MXATVI ; THEN ATTEMPTED VIOLATION ;
AU002591 1 034D MON ERR ; CALL ON-LINE ERROR PROCESSING; ;
AU002592 1 034E JMPI LINTRET ; ;
1 034F ;=======================================================================;
AU002593 1 034F XNAME1= <:MX:>, XNAME2= <:I:> ; SUBMODULE ID ;
AU002594 1 034F XID0= MXCLPN ; ;
AU002595 1 034F XPRPC0= MXINICPU ; CPU INTERRUPT DRIVEN PROCESS ;
AU002596 1 034F XTIM0= 100 ; ;
AU002597 1 034F XMASK0=#E000 ; NO INTERRUPTS ALLOWED ;
AU002598 1 034F XERROR0=MXHWERR0 ;
AU002599 1 034F XID1= MXILPN ; ;
AU002600 1 034F XPRPC1= MXINILETT ; LETTER DRIVEN PROCESS ;
AU002601 1 034F XTIM1= 100 ; ;
AU002602 1 034F XMASK1= #E000 ; ;
AU002603 1 034F XERROR1=MXHWERR1 ;
AU002604 1 034F ; ;PRCGEN4 ;
AU002605 1 034F NOLIST ;
AU002614 1 034F LIST ; AU002614
1 034F ;=======================================================================;
AU002615 1 034F ;FFU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_D47 42C1 002A 4F57 4B52 43C6
1950L 0000 5343 2054 001E 0D00 FF00 0000 0002
1958L 006C 0084 0069 0066 0072 0084 0000 0000
1960L 0000 0000 0000 0000 0000 0000 0000 0000
1968L 0000 015D 0064 E000 0000 0347 0000 0000
1970L 0000 0064 0000 0000 0000 41C1 0000 4552
1978L 5347 4341 0065 4F57 4B52 43C6 0000 5443
1980L 2054 43C2 0000 4443 2054 0000 0001 0048
1988L 0084 0037 0082 0F00 00FF 0007 0006 0005
1990L 0004 0003 0002 0001 0000 003F 0112 0006
1998L 000E 0000 0000 0010 0020 0047 0191 0E00
19A0L 000E 0000 000C 0008 000A 0000 0032 0008
19A8L 0003 0000 0080 2000 FAFA 8C8C 0020 0020
19B0L 0080 0100 0200 0400 0800 1000 001E 0030
19B8L 003C 0060 0078 00C0 01E0 0300 0001 0002
19C0L 0003 0004 0005 0022 001F 001E 001D 001B
19C8L 001A 0019 0018 0017 0015 0015 018C 02AF
19D0U_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_D 1074
19E8L 63A6 10E7 01A4 006B 086C 55A6 0B5D 80BF
19F0L 47A6 0F5D 0814 00CD DEBB 568E 03E4 6DE9
19F8L 04AD 00BF 115F 264E 0D5D 4727 086A 156D
1A00L 258B 2A75 5418 208B 2D70 04A8 2C70 5518
1A08L 208B 2F70 03A8 2E70 9DCD 2B75 9DAD 6A18
1A10L D3BC 63BC 33EC 01CB 32BD 0F49 084F 73FA
1A18L 89BB 01A9 04C7 6FBE 75A6 6FA6 00D8 0248
1A20L 70A6 00FD 2D6E 61F1 AFD8 821D 42A6 3273
1A28L 0868 6CFB C824 2B94 001C 3074 048B 3174
1A30L 8119 1056 9046 6BD8 058B D7BC 3B1A 2EF2
1A38L 13D8 E3BC 5CFB 4027 01CD 4056 5050 70BD
1A40L 01AD 30BD DCBB E7BC 1677 146F F3F2 56A6
1A48L D30A 0017 166F 53D8 2BF0 08D8 8056 0048
1A50L 1170 494C 1074 63A6 2D6E 6BD8 E3BC 4062
1A58L E7BC 3372 3473 1677 146F F6F2 56A6 D314
1A60L 0017 56A6 D315 001B 166F 004A 1FF2 2BA3
1A68L 36EC 1DCC B6F0 0016 48FB 60BC C0FA 03D8
1A70L 2CA3 2568 0C8C 236E 168C E07E 2DA3 D0BC
1A78L 326B 01CD E3BC 3856 ADE9 E0BC 014B 306C
1A80L 46CC 0894 01AD 5EBB 46A6 014B 76A6 96DD
1A88L 336C C07C 09FD 0814 00CC 326A D1BC E2BC
1A90L C03F E1BC 03FD DCBB E1BC 1677 146F F6F2
1A98L 56A6 D31E 0017 56A6 D31F 001B 166F 316C
1AA0L 2D6E 811A 38CC 28B2 2EF2 4EE3 28F0 04D8
1AA8L 2494 ACE9 26F2 46E3 27F0 12D8 04CC 2BB2
1AB0L 45B1 2AF0 0BD8 1EA4 0013 1EA4 0018 08EC
1AB8L 87F0 04AC 47E3 29F2 49E3 04CC 1EAC 4550
1AC0L 62E3 316F 2077 1677 146F F6F2 56A6 8328
1AC8L 0017 56A6 8329 001F 166F 60F3 2C6E 04CE
1AD0L 2D76 D6BE D7BE B258 2F6E 61F1 30D8 6CFB
1AD8L C824 2B94 001F 3077 0814 3BCF 7BF1 07D8
1AE0L 8056 0048 1170 4F4C 1074 63A6 17D8 811A
1AE8L 2CF2 03FD 1DAF 2EF2 21F2 0DD8 7550 821D
1AF0L 3375 014B 306C 49CC 45A6 03FD 3394 D07E
1AF8L 03FD 41A6 03D8 2DB2 1ACF 73E3 2F6E E1ED
1B00L 60F3 2E6E 03CE 2F76 D6BE D7BE 3358 2D6E
1B08L 61F3 E858 75A6 0128 70A6 00FD 266D 473A
1B10L 0BD8 4713 6C48 4280 8448 4380 0894 00CD
1B18L 49A6 00FD 6DA6 FD58 6FA6 FF58 06FD 09FD
1B20L FE56 C8DF 274E FE56 CBDD 0A48 4780 0894
1B28L 00CD 49A6 00FD 086A 156D 258B 6675 9DCD
1B30L 6A75 68AD 6775 2EAD 6875 01CD 6975 6FA6
1B38L 69A6 6577 C118 8246 04D8 0148 70A6 00FD
1B40L 656F 0048 6C70 C21C 48E4 C07C 34D8 54E4
1B48L C07C 65D8 9CE4 C07C 36D8 04FD 1758 00DD
1B50L 60A4 20A4 E04A 6B6E 38CE 64E3 6694 4774
1B58L 72BD 004A 6C6F FDF2 01CF 7511 2477 1677
1B60L 146F F6F2 56A6 0364 0017 56A6 0365 0023
1B68L 166F 1677 146F F6F2 56A6 0369 0017 56A6
1B70L 036A 001B 166F D4BE 656D 4782 0894 00CD
1B78L 49A6 00FD 4358 D5BE 6FBE D7BE 0A48 C780
1B80L 49A6 00FD 4B58 544A C282 086A C61C C824
1B88L 6A94 001C 248B 6B74 321F 278B 6C77 01CF
1B90L 7551 0258 D5BE 6FBE D7BE 4BE4 001B 248A
1B98L 49CC 45A6 12FD 41A6 014B 77A6 14FD 014B
1BA0L 6B6C 0894 49CC 46A6 42A6 0F48 3088 6C6F
1BA8L D283 D385 D427 D727 0148 D180 5658 0868
1BB0L C51D 058B 5BFB 38EC 411A A824 676C 2CF5
1BB8L 695D 2CBB 6A94 001E 068B 6B76 B21F 078B
1BC0L 6C77 01CF 7551 0258 D5BE 6FBE D7BE B644
1BC8L 795D 73BD 0BFC BB1A 2FF0 2EF2 14FD 73F3
1BD0L 12FD 6CBB 3ACC 01CD 03E4 5CE9 02AC 4E11
1BD8L 4F11 4D11 BA61 1677 146F F3F2 56A6 0396
1BE0L 0017 166F 26B0 2BF2 14FD 9824 696C 2BB0
1BE8L 1CF5 14FD 2BB2 1CF7 14FD 26F2 02E4 6694
1BF0L 176D A085 BA19 18EC 10E4 9046 14FD 2BF0
1BF8L 01D8 A95D 4996 45F2 14FDU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_D1C40L 38B2 0256 00C8 70BD 6068 0F8D 154B 9740
1C48L 0F4B C883 C983 BC1C CC24 44EC 50E4 0019
1C50L D581 D481 0148 D080 D0BC 0F49 0188 0869
1C58L 718A 16C9 D1D0 024B 7177 76A6 11FD 0F4F
1C60L 3788 716F C583 C685 6E6A C282 0129 9056
1C68L 9A97 6F49 9AD6 7049 0156 9AD6 6B6C 3BCC
1C70L 4DE3 1959 BB1A 2CB0 2EF0 2DF0 14FD C219
1C78L 2BF0 02D8 FE56 D5DD 01AF C73B 12FD 4996
1C80L 064B 4388 C996 004B 2056 B997 2EA3 BB82
1C88L D0BC 0869 4056 004A C61B 3FA3 C71D 158B
1C90L E3BC 5CFB 4182 31BD 0182 E0BC C527 D027
1C98L U_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DB82 49E4 801D D3F2 42A6
1CE0L 0048 0BD8 014B 77A6 14FD 6D73 014B 6B6C
1CE8L 0894 49CC 46A6 0148 6D6B 0F4F 3788 6C6F
1CF0L D180 D283 D385 D61A D582 D727 01CF 73E3
1CF8L A059 BB1A 2CF2 14FD 0148 D080 D0BC 0F49
1D00L 0188 79BB 0894 16C9 D1D0 3BCE 6F11 6EF1
1DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_DU_RNAE_D