|
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: 79872 (0x13800)
Types: TextFile
Names: »EDOVOD«
└─⟦01dc7a003⟧ Bits:30005073 8" CR80 Floppy CR80FD_0011 ( EDO SYS 1 PJ DEC, 3, 80 )
└─⟦460440515⟧
└─ ⟦this⟧ »EDOVOD«
00000001 0 0000 LIST ;
00000002 0 0000 ;-----------------------------------------------------------------------;
00000003 0 0000 ; ;
00000004 0 0000 ; PROJECT: NICS-TARE/CP ;
00000005 0 0000 ; ;
00000006 0 0000 ; MODULE IDENTIFICATION: NIC/292 ;
00000007 0 0000 ; DISK IDENTIFICATION: CR/D/1227 ;
00000008 0 0000 ; ;
00000009 0 0000 ; CPS NAME: ERROR DETECTION AND CORRECTION (EDC) SUBMODULE ;
00000010 0 0000 ; EDC OUTPUT PROGRAM SECTION (EDO) ;
00000011 0 0000 ; CPS VERSION: 0100 ;
00000012 0 0000 ; ;
00000013 0 0000 ; MERGE FILES: SYSNOD,MNNNOD,GDSNOD,LETNOD,PCFNOD,CDTNOD,ECFNOD,EOCNOD;
00000014 0 0000 ; CSTNOD,GSTNOD,MQXNOD,BINNOD,MSBNOD ;
00000015 0 0000 ; EDCNOD,TSTNOD,XPDNOD ;
00000016 0 0000 ; MODULE FILES: EDOSOD,EDOMOD,EDOHOD,EDOVOD,EDONOD ;
00000017 0 0000 ; ;
00000018 0 0000 ; REFERENCES: NIC/200/PSP/0006 ;
00000019 0 0000 ; ;
00000020 0 0000 ; DATE: 791115 ;
00000021 0 0000 ; AUTHOR: HM ;
00000022 0 0000 ; ;
00000023 0 0000 ;-----------------------------------------------------------------------;
00000024 0 0000 BEGIN MODULE EDOSYS ;
00000025 0 0000 USE BASE ;
00000026 0 0000 LOC=0 ;
00000027 0 0000 XDATE:=#0604 ;
00000028 0 0000 ;-----------------------------------------------------------------------;
00000029 0 0000 ; ;
00000030 0 0000 NOLIST ;
00000031 0 0000 MESSAGE: CALL SYSNOD
00000140 0 0000 MESSAGE: CALL MNNNOD
00000268 0 0000 MESSAGE: CALL GDSNOD
00000327 0 0000 MESSAGE: CALL LETNOD
00000378 0 0000 MESSAGE: CALL PCFNOD
00000436 0 0000 MESSAGE: CALL CDTNOD
00000550 0 0000 MESSAGE: CALL ECFNOD
00000696 0 0000 MESSAGE: CALL EOCNOD
00000782 0 0000 MESSAGE: CALL CSTNOD
00001058 0 0000 MESSAGE: CALL GSTNOD
00001290 0 0000 MESSAGE: CALL MQXNOD
00001405 0 0000 MESSAGE: CALL BINNOD
00001443 0 0000 MESSAGE: CALL EDCNOD
00001565 0 0000 MESSAGE: CALL XPDNOD
00001611 0 0000 MESSAGE: CALL TSTNOD
00001707 0 0000 MESSAGE: CALL MSBNOD
00001798 0 0000 MESSAGE: CALL DBPNOD
00001801 0 0000 LIST ;
00001802 0 0000 ;-----------------------------------------------------------------------;
00001803 0 0000 ; ;
00001804 0 0000 ; RETURN LINKS (RL) ;
00001805 0 0000 ; ;
00001806 0 0000 ;-----------------------------------------------------------------------;
00001807 0 0000 LOC=EOBASE ;
00001808 0 00C3 RL6230: LOC=LOC+1 ;
00001809 0 00C4 RL6320: LOC=LOC+1 ;
00001810 0 00C5 RL6410: LOC=LOC+1 ;
00001811 0 00C6 RL6420: LOC=LOC+1 ;
00001812 0 00C7 RL6430: LOC=LOC+1 ;
00001813 0 00C8 RL6440: LOC=LOC+1 ;
00001814 0 00C9 RL6520: LOC=LOC+1 ;
00001815 0 00CA RL6820: LOC=LOC+1 ;
00001816 0 00CB RL7160: LOC=LOC+1 ;
00001817 0 00CC RL7200: LOC=LOC+1 ;
00001818 0 00CD RL7290: LOC=LOC+1 ;
00001819 0 00CE RL7300: LOC=LOC+1 ;
00001820 0 00CF RL7400: LOC=LOC+1 ;
00001821 0 00D0 RL8100: LOC=LOC+1 ;
00001822 0 00D1 RL8400: LOC=LOC+1 ;
00001823 0 00D2 RLMQIS: LOC=LOC+1 ;
00001824 0 00D3 RLMQOS: LOC=LOC+1 ;
00001825 0 00D4 ; ;
00001826 0 00D4 ;-----------------------------------------------------------------------;
00001827 0 00D4 ; ;
00001828 0 00D4 ; ASSIGNMENTS ;
00001829 0 00D4 ; ;
00001830 0 00D4 ;-----------------------------------------------------------------------;
00001831 0 00D4 ; BITS: ;
00001832 0 00D4 BIT7:= 7 ; ;
00001833 0 00D4 ;-----------------------------------------------------------------------;
00001834 0 00D4 ;FF\f
;
00001835 0 00D4 USE PROG ;
00001836 1 0000 ;-----------------------------------------------------------------------;
00001837 1 0000 ; ;
00001838 1 0000 ; ;
00001839 1 0000 ; EDC OUTPUT PROGRAM SECTION ;
00001840 1 0000 ; ;
00001841 1 0000 ; ;
00001842 1 0000 ;-----------------------------------------------------------------------;
00001843 1 0000 LOC=EOPROG ;
00001844 1 08F0 ;-----------------------------------------------------------------------;
00001845 1 08F0 ;
00001846 1 08F0 ; PROCEDURE ED6200. ;
00001847 1 08F0 ; READBUF(BUFP,OFFS,WORD) ;
00001848 1 08F0 ; ;
00001849 1 08F0 ; REGISTERS ENTRY EXIT ;
00001850 1 08F0 ; R0 OFFS OFFS ;
00001851 1 08F0 ; R1 - WORD ;
00001852 1 08F0 ; R3 - BMSA ;
00001853 1 08F0 ; R4 LINK DESTROYED ;
00001854 1 08F0 ; R5 BUFP (ABS) BUFP (ABS) ;
00001855 1 08F0 ; R7 - DESTROYED ;
00001856 1 08F0 ; ;
00001857 1 08F0 ; INPUTS: BUF ;
00001858 1 08F0 ; OUTPUTS: - ;
00001859 1 08F0 ; ;
00001860 1 08F0 ; CALL BY: ED7070,ED8400 ;
00001861 1 08F0 ; CALL TO: GBSM ;
00001862 1 08F0 ;-----------------------------------------------------------------------;
00001863 1 08F0 ED6200: ; BEGIN READBUF(BUFP,OFFS,WORD) ;
00001864 1 08F0 MOV XBASE R1 ; ;
00001865 1 08F1 MON GBSM ; GET_PAGE(BUFP,BMSA) ;
00001866 1 08F2 SVS R7 ; MASK:=PSW ;
00001867 1 08F3 LDS R3 ; PSW:=BMSA ;
00001868 1 08F4 MODN R1 ; ;
00001869 1 08F5 MOD R0 ; ;
00001870 1 08F6 MOV 0. X5 R1 ; WORD:=OFFS.BUFP ;
00001871 1 08F7 LDS R7 ; PSW:=MASK ;
00001872 1 08F8 JMP 0. X4 ; RETURN ;
00001873 1 08F9 ; END ;
00001874 1 08F9 ;---------------------------------------------------------------------- ;
00001875 1 08F9 ;
00001876 1 08F9 ; PROCEDURE ED6210. ;
00001877 1 08F9 ; PROCEDURE INDEX(IDENT.) ;
00001878 1 08F9 ; ;
00001879 1 08F9 ; REGISTERS: ENTRY EXIT ;
00001880 1 08F9 ; R0 IDENT. UNCH ;
00001881 1 08F9 ; R4 LINK UNCH ;
00001882 1 08F9 ; R7 - INDEX ;
00001883 1 08F9 ; ;
00001884 1 08F9 ; CALL BY: ? ;
00001885 1 08F9 ;---------------------------------------------------------------------- ;
00001886 1 08F9 ED6210: ; BEGIN INDEX. ;
00001887 1 08F9 MOV R0 R7 ; ;
00001888 1 08FA XTR R7 ECOADC ; X.OSTA:=(INDEX)MOD 32 ;
00001889 1 08FB MOD R7 ; ;
00001890 1 08FC MOD ECRPTR ; ;
00001891 1 08FD MOVC ECOSTA R7 ; INDEX:=OSTA+X.OSTA ;
00001892 1 08FE JMP 0. X4 ; RETURN ;
00001893 1 08FF ; END INDEX. ;
00001894 1 08FF ;---------------------------------------------------------------------- ;
00001895 1 08FF ;
00001896 1 08FF ; PROCEDURE ED6220. ;
00001897 1 08FF ; PROCEDURE UPDATE_ONTX. ;
00001898 1 08FF ; ;
00001899 1 08FF ; REGISTERS: ENTRY EXIT ;
00001900 1 08FF ; R0 BID UNCH ;
00001901 1 08FF ; R4 LINK UNCH ;
00001902 1 08FF ; R6 ECRP UNCH ;
00001903 1 08FF ; R7 - DEST ;
00001904 1 08FF ;---------------------------------------------------------------------- ;
00001905 1 08FF ED6220: ; BEGIN UPDATE_ONTX. ;
00001906 1 08FF MOV ECONTX.X6 R7 ; ;
00001907 1 0900 SUB R0 R7 ; DIF:=(ONTX-BID)MOD128 ;
00001908 1 0901 XTR R7 EOCBDX ; ;
00001909 1 0902 ILT R7 ECOSAZ ; IF DIF .LT. OSAZ I.E. ;
00001910 1 0904 ; (BID PREVIOUS TO ONTX) THEN ;
00001911 1 0904 MOV R0 ECONTX.X6 ; ONTX:=BID ;
00001912 1 0905 JMP 0. X4 ; RETURN LINK+0 ;
00001913 1 0906 ; END UPDATE_ONTX. ;
00001914 1 0906 ;-----------------------------------------------------------------------;
00001915 1 0906 ;
00001916 1 0906 ; PROCEDURE ED6230. ;
00001917 1 0906 ; RELEASE_IEB ;
00001918 1 0906 ; ;
00001919 1 0906 ; REGISTERS ENTRY EXIT ;
00001920 1 0906 ; R0,R1,R2,R3,R5,R7 - DESTROYED ;
00001921 1 0906 ; R4 LINK DESTROYED ;
00001922 1 0906 ; R6 ECRP (REL) ECRP (REL) ;
00001923 1 0906 ; ;
00001924 1 0906 ; INPUTS: ECCIQH ;
00001925 1 0906 ; OUTPUTS: ECCIQH ;
00001926 1 0906 ; ;
00001927 1 0906 ; CALL BY: ED7040,ED7050,ED7060,ED7070,ED7080 ;
00001928 1 0906 ; CALL TO: LNOQ,RNBN ;
00001929 1 0906 ; ;
00001930 1 0906 ; RETURNS: ;
00001931 1 0906 ; LINK - DONE ;
00001932 1 0906 ;-----------------------------------------------------------------------;
00001933 1 0906 ED6230: ; BEGIN RELEASE_IEB. ;
00001934 1 0906 MOV R4 RL6230 ; ;
00001935 1 0907 MOVC 255 R3 ; N:=255 ;
00001936 1 0908 MOD ECRPTA ; ;
00001937 1 0909 MOVC ECCIQH R4 ; QCB:=IQH ;
00001938 1 090A MON LNOQ ; DEQUEUE(N,QCB,FBUF,LBUF) ;
00001939 1 090B NOP ; ;
00001940 1 090C MON RNBN ; RELEASE(N,FBUF) ;
00001941 1 090D MOV ECRPTR R6 ; ;
00001942 1 090E JMPI RL6230 ; RETURN ;
00001943 1 090F ; END ;
00001944 1 090F ;-----------------------------------------------------------------------;
00001945 1 090F ;
00001946 1 090F ; PROCEDURE ED6240. ;
00001947 1 090F ; BOOLEAND OUT_OF_RANGE(BID). ;
00001948 1 090F ; ;
00001949 1 090F ; REGISTERS ENTRY EXIT ;
00001950 1 090F ; R0 BID BID ;
00001951 1 090F ; R4 LINK LINK ;
00001952 1 090F ; R6 ECRP (REL) ECRP (REL) ;
00001953 1 090F ; R7 - DESTROYED ;
00001954 1 090F ; ;
00001955 1 090F ; CALL BY: ED7060,ED7070,ED7080. ;
00001956 1 090F ; CALL TO: - ;
00001957 1 090F ; RETURNS: ;
00001958 1 090F ; LINK+0: TRUE ;
00001959 1 090F ; LINK+1: FALSE ;
00001960 1 090F ;-----------------------------------------------------------------------;
00001961 1 090F ED6240: ; BEGIN OUT_OF_RANGE. ;
00001962 1 090F MOV R0 R7 ; ;
00001963 1 0910 MODN ECOPSB.X6 ; ;
00001964 1 0911 ADDC -1 R7 ; N:=(BID-OPSB-1)MOD 128 ;
00001965 1 0912 XTR R7 EOCBDX ; ;
00001966 1 0913 IHS R7 ECOSAZ ; IF N >= ARRAY_SIZE THEN ;
00001967 1 0915 JMP 0. X4 ; TRUE ;
00001968 1 0916 ; ELSE ;
00001969 1 0916 JMP 1. X4 ; FALSE ;
00001970 1 0917 ; END OUT_OF_RANGE. ;
00001971 1 0917 ;-----------------------------------------------------------------------;
00001972 1 0917 ;
00001973 1 0917 ; PROCEDURE ED6320. ;
00001974 1 0917 ; GENERATE_OEB ;
00001975 1 0917 ; ;
00001976 1 0917 ; REGISTERS ENTRY EXIT ;
00001977 1 0917 ; R0,R1,R2,R3 - DESTROYED ;
00001978 1 0917 ; R4 LINK DESTROYED ;
00001979 1 0917 ; R5 - BUFP (ABS) ;
00001980 1 0917 ; R6,R7 - DESTROYED ;
00001981 1 0917 ; ;
00001982 1 0917 ; INPUTS: COEBCC,COBID,CSTOSC,CSTPTR ;
00001983 1 0917 ; OUTPUTS: COEBBT,EBCNT,EBTAB,BINSTA ;
00001984 1 0917 ; ;
00001985 1 0917 ; CALL BY: ED8610 ;
00001986 1 0917 ; CALL TO: GNOB,PUTBUF,ED1960 ;
00001987 1 0917 ; ;
00001988 1 0917 ; ENTRIES: ;
00001989 1 0917 ; ED6320: RR ;
00001990 1 0917 ; ED6322: SETB ;
00001991 1 0917 ; ;
00001992 1 0917 ; RETURNS: LINK+0 NO OUTPUT BINS ;
00001993 1 0917 ; LINK+1 COMPLETE ;
00001994 1 0917 ;-----------------------------------------------------------------------;
00001995 1 0917 ; BEGIN GENERATE_OEB ;
00001996 1 0917 ED6320: MODC BTRR-BTSETB ; ;
00001997 1 0918 ED6322: MOVC BTSETB R0 ; EB_TYPE:=FUNC(ENTRY) ;
00001998 1 0919 MOV R0 COEBBT ; ;
00001999 1 091A MOV R4 RL6320 ; ;
00002000 1 091B MOVC 1 R3 ; N:=1 ;
00002001 1 091C MON GNOB ; GET_BUFFER(N,FBUF) ;
00002002 1 091D JMP ED6325 ; NO BINS ;
00002003 1 091E MOV RL6320 R0 ; SET UP FOR NORMAL RETURN ;
00002004 1 091F ADDC 1 R0 ; ;
00002005 1 0920 MOV R0 RL6320 ; ;
00002006 1 0921 MOVC EBCNTX R0 ; ;
00002007 1 0922 MOVC BINCNM R1 ; ;
00002008 1 0923 MOV COEBCC R2 ; (WRITE EB_COUNT INTO BUFFER) ;
00002009 1 0924 MON PUTBUF ; PUT_BUFFER(BUFP,OFFS,MASK,WORD) ;
00002010 1 0925 MOV CSTPTR R7 ; ;
00002011 1 0926 MOV CSTCS2.X7 R0 ; ;
00002012 1 0927 MOVC CSTOSF R3 ; ;
00002013 1 0928 AND R3 R0 ; ;
00002014 1 0929 IF BINSEC-CSTOSC GT 0 THEN ;
00002015 1 0929 SLL R0 BINSEC-CSTOSC FI ;
00002016 1 092A IF BINSEC-CSTOSC LT 0 THEN ;
00002017 1 092A SRL R0 CSTOSC-BINSEC FI ;
00002018 1 092A MOV COEBCC R2 ; ;
00002019 1 092B ADD R0 R2 ; ;
00002020 1 092C MOVC BINSTA R0 ; ;
00002021 1 092D MOVC BINSEM+BINCNM R1 ; (WRITE SEC,CNT INTO BUFFER) ;
00002022 1 092F MON PUTBUF ; PUT_BUFFER(BUFP,OFFS,MASK,WORD) ;
00002023 1 0930 MOVC EBTABX R0 ; ;
00002024 1 0931 MOVC #FFFF R1 ; ;
00002025 1 0932 MOV COEBBT R2 ; ;
00002026 1 0933 MOV COBID R3 ; ;
00002027 1 0934 SWP R3 ; ;
00002028 1 0935 IOR R3 R2 ; (WRITE TYPE,BID INTO BUFFER) ;
00002029 1 0936 MON PUTBUF ; PUT_BUFFER(BUFP,OFFS,MASK,WORD) ;
00002030 1 0937 JMPI RL6320 ; RETURN ;
00002031 1 0938 ED6325: ; NO BINS ;
00002032 1 0938 MOV CSTPTR R4 ; SET FLAG TO MP TO INDICATE ;
00002033 1 0939 MOVC 1<CSTLAC R5 ; THAT WE'RE OUT OF BINS ;
00002034 1 093A IOR R5 CSTVF1.X4 ; ;
00002035 1 093C JMPI RL6320 ; ABNORMAL EXIT ;
00002036 1 093D ; END ;
00002037 1 093D ;-----------------------------------------------------------------------;
00002038 1 093D ;
00002039 1 093D ; PROCEDURE ED6400 ;
00002040 1 093D ; VALID(IEST,IBID) ;
00002041 1 093D ; ;
00002042 1 093D ; REGISTERS ENTRY EXIT ;
00002043 1 093D ; R0 - BID ;
00002044 1 093D ; R4 LINK DESTROYED ;
00002045 1 093D ; ;
00002046 1 093D ; INPUTS: CIEST,CIBID ;
00002047 1 093D ; OUTPUTS: - ;
00002048 1 093D ; ;
00002049 1 093D ; CALL BY: ED7040,ED7050,ED7060,ED7070,ED7080 ;
00002050 1 093D ; CALL TO: - ;
00002051 1 093D ; ;
00002052 1 093D ; RETURNS: ;
00002053 1 093D ; LINK+0 - NON-VALID ;
00002054 1 093D ; LINK+1 - VALID ;
00002055 1 093D ;-----------------------------------------------------------------------;
00002056 1 093D ED6400: ; BEGIN VALID(IEST,IBID) ;
00002057 1 093D MOV CIEST R0 ; ;
00002058 1 093E IBN R0 CDICFE ; IF TEST(IEST,CRC_ERROR) ;
00002059 1 093F JMP 0. X4 ; THEN RETURN(0) ;
00002060 1 0940 MOV CIBID R0 ; ;
00002061 1 0941 IBN R0 BIT7 ; IF TEST(BID,PARITY_ERROR) ;
00002062 1 0942 JMP 0. X4 ; THEN RETURN(0) ;
00002063 1 0943 JMP 1. X4 ; ELSE RETURN(1) ;
00002064 1 0944 ; END ;
00002065 1 0944 ;---------------------------------------------------------------------- ;
00002066 1 0944 ;FF\f
;
00002067 1 0944 ;-----------------------------------------------------------------------;
00002068 1 0944 ; PROCEDURE ED6410/ED6412. ;
00002069 1 0944 ; ACTIVATE(ACKTO-TYPE1/TYPE2) ;
00002070 1 0944 ; ;
00002071 1 0944 ; REGISTERS ENTRY EXIT ;
00002072 1 0944 ; R0,R1,R2,R3 - DESTROYED ;
00002073 1 0944 ; R4 LINK DESTROYED ;
00002074 1 0944 ; R5 - FQE (ABS) ;
00002075 1 0944 ; R6 ECRP (REL) ECRP (REL) ;
00002076 1 0944 ; R7 - DESTROYED ;
00002077 1 0944 ; ;
00002078 1 0944 ; INPUTS: CSTPTR,CSTLAD,GSTPTA,ECRPTR ;
00002079 1 0944 ; OUTPUTS: ECOFLG,ECOAFP ;
00002080 1 0944 ; ;
00002081 1 0944 ; CALL BY: ED7290,ED7410/ED7290. ;
00002082 1 0944 ; CALL TO: ED6420,RFTA ;
00002083 1 0944 ;-----------------------------------------------------------------------;
00002084 1 0944 ED6410: ; BEGIN ACTIVATE(ACTO-TYPE1) ;
00002085 1 0944 MODC 1<ECOPAT1-1<ECOPAT2 ; ;
00002086 1 0945 ED6412: ; BEGIN ACTIVATE(ACKTO-TYPE2) ;
00002087 1 0945 MOVC 1<ECOPAT2 R0 ; TYPE:=ACKTO-TYPETO-TYPE2) ;
00002088 1 0946 MOV R0 EDWRK0 ; ;
00002089 1 0947 MOV R4 RL6410 ; ;
00002090 1 0948 JMP S4 ED6420 ; DEACTIVATE(ACKTO) ;
00002091 1 0949 MOV EDWRK0 R0 ; ;
00002092 1 094A IOR R0 ECOFLG.X6 ; SET OFLG(OPAT1/OPAT2) ;
00002093 1 094C MOVC EDLLPN R2 ; LPN:=PID_EDL_PROCESS ;
00002094 1 094D MOV CSTPTR R4 ; ;
00002095 1 094E MOV CSTCS1.X4 R3 ; ;
00002096 1 094F SWP R3 ; ;
00002097 1 0950 XTR R3 CSTLAX ; DATA:=LCN ;
00002098 1 0951 SETS R3 EOCATF ; DATA:=DATA SET(ACKTO_DESIGNATOR);
00002099 1 0952 MOD GSTPTA ; ;
00002100 1 0953 MOVC GSTF5 R4 ; FQCB:=FIFO_QCB_ADDR (5SEC) ;
00002101 1 0955 MON RFTA ; RESERVE_FTMO(LPN,DATA,FQCB,FQE) ;
00002102 1 0956 NOP ; ;
00002103 1 0957 MOV ECRPTR R6 ; ;
00002104 1 0958 MOV R5 ECOAFP.X6 ; AFP.ECRP:=FQE ;
00002105 1 0959 JMPI RL6410 ; RETURN ;
00002106 1 095A ; END ;
00002107 1 095A ;-----------------------------------------------------------------------;
00002108 1 095A ;
00002109 1 095A ; PROCEDURE ED6420 ;
00002110 1 095A ; DEACTIVATE(ACKTO) ;
00002111 1 095A ; ;
00002112 1 095A ; REGISTERS ENTRY EXIT ;
00002113 1 095A ; R0,R1,R3,R5,R7 - DESTROYED ;
00002114 1 095A ; R2 - LPN ;
00002115 1 095A ; R4 LINK DESTROYED ;
00002116 1 095A ; R6 ECRP (REL) ECRP (REL) ;
00002117 1 095A ; ;
00002118 1 095A ; INPUTS: ECOFLG,ECOAFP ;
00002119 1 095A ; OUTPUTS: - ;
00002120 1 095A ; ;
00002121 1 095A ; CALL BY: ED7040,ED7060,ED7070,ED7080,ED6410 ;
00002122 1 095A ; ED3301,ED3360,ED7160,ED7290 ;
00002123 1 095A ; CALL TO: DFTA ;
00002124 1 095A ;-----------------------------------------------------------------------;
00002125 1 095A ED6420: ; BEGIN DEACTIVATE(ACKTO) ;
00002126 1 095A MOV R4 RL6420 ; ;
00002127 1 095B MOV ECRPTR R6 ; ;
00002128 1 095C MOV ECOFLG.X6 R0 ; ;
00002129 1 095D IBZP R0 ECOPAT1 ; IF OFLG(OPAT1) ;
00002130 1 095E IBZ R0 ECOPAT2 ; .OR. OFLG(OPAT2) THEN ;
00002131 1 095F JMP ED6422 ; BEGIN ;
00002132 1 0960 MOVC EDLLPN R2 ; LPN:=PID_EDL_PROCESS ;
00002133 1 0961 MOV ECOAFP.X6 R5 ; FQE:=AFP.ECRP ;
00002134 1 0962 MON DFTA ; DEACTIVATE_FTMO(LPN,FQE) ;
00002135 1 0963 INC ECOXAT.X6 ; -DEAC, INC OXAT.ECRP ;
00002136 1 0964 ED6422: ; END ;
00002137 1 0964 MOVC NT(1<ECOPAT1+% ; ;
00002138 1 0964 1<ECOPAT2+1<ECOATO) R0 ; ;
00002139 1 0966 AND R0 ECOFLG.X6 ; CLEAR OFLG(OPAT1,OPAT2,OATO) ;
00002140 1 0968 JMPI RL6420 ; RETURN ;
00002141 1 0969 ; END ;
00002142 1 0969 ;-----------------------------------------------------------------------;
00002143 1 0969 ;
00002144 1 0969 ; PROCEDURE ED6430 ;
00002145 1 0969 ; ACTIVATE(ACKLTO) ;
00002146 1 0969 ; ;
00002147 1 0969 ; REGISTERS ENTRY EXIT ;
00002148 1 0969 ; R0,R1,R2,R3 - DESTROYED ;
00002149 1 0969 ; R4 LINK DESTROYED ;
00002150 1 0969 ; R5 - FQE (ABS) ;
00002151 1 0969 ; R6 ECRP (REL) ECRP (REL) ;
00002152 1 0969 ; R7 - DESTROYED ;
00002153 1 0969 ; ;
00002154 1 0969 ; INPUTS: CSTPTR,CSTLAD,GSTPTA,ECRPTR ;
00002155 1 0969 ; OUTPUTS: ECOFLG,ECOLFP ;
00002156 1 0969 ; ;
00002157 1 0969 ; CALL BY: ED7120 ;
00002158 1 0969 ; CALL TO: ED6440,RFTA ;
00002159 1 0969 ;-----------------------------------------------------------------------;
00002160 1 0969 ED6430: ; BEGIN ACTIVATE(ACKLTO) ;
00002161 1 0969 MOV R4 RL6430 ; ;
00002162 1 096A JMP S4 ED6440 ; DEACTIVATE(ACKLTO) ;
00002163 1 096B MOVC EDLLPN R2 ; LPN:=PID_EDL_PROCESS ;
00002164 1 096C MOV CSTPTR R4 ; ;
00002165 1 096D MOV CSTCS1.X4 R3 ; ;
00002166 1 096E SWP R3 ; ;
00002167 1 096F XTR R3 CSTLAX ; DATA:=LCN ;
00002168 1 0970 SETS R3 EOCLTF ; DATA:=DATA SET(ACKLTO_DESIGNATOR;
00002169 1 0971 MOD GSTPTA ; ;
00002170 1 0972 MOVC GSTF5 R4 ; FQCB:=FIFO_QCB_ADDR (5SEC) ;
00002171 1 0974 MON RFTA ; RESERVE_FTMO(LPN,DATA,FQCB,FQE) ;
00002172 1 0975 NOP ; ;
00002173 1 0976 MOV ECRPTR R6 ; ;
00002174 1 0977 MOV R5 ECOLFP.X6 ; LFP.ECRP:=FQE ;
00002175 1 0978 MOVC 1<ECOPALT R0 ; ;
00002176 1 0979 IOR R0 ECOFLG.X6 ; SET(OFLG,OPTL) ;
00002177 1 097B JMPI RL6430 ; RETURN ;
00002178 1 097C ; END ;
00002179 1 097C ;-----------------------------------------------------------------------;
00002180 1 097C ;
00002181 1 097C ; PROCEDURE ED6440 ;
00002182 1 097C ; DEACTIVATE(ACKLTO) ;
00002183 1 097C ; ;
00002184 1 097C ; REGISTERS ENTRY EXIT ;
00002185 1 097C ; R0,R1,R3,R5,R7 - DESTROYED ;
00002186 1 097C ; R2 - LPN ;
00002187 1 097C ; R4 LINK DESTROYED ;
00002188 1 097C ; R6 ECRP (REL) ECRP (REL) ;
00002189 1 097C ; ;
00002190 1 097C ; INPUTS: ECOFLG,ECOLFP ;
00002191 1 097C ; OUTPUTS: - ;
00002192 1 097C ; ;
00002193 1 097C ; CALL BY: ED3301,ED3360,ED6430,ED7050 ;
00002194 1 097C ; CALL TO: DFTA ;
00002195 1 097C ;-----------------------------------------------------------------------;
00002196 1 097C ED6440: ; BEGIN DEACTIVATE(ACKLTO) ;
00002197 1 097C MOV R4 RL6440 ; ;
00002198 1 097D MOV ECOFLG.X6 R0 ; ;
00002199 1 097E IBZ R0 ECOPALT ; IF OFLG(OPALT) THEN ;
00002200 1 097F JMP ED6442 ; BEGIN ;
00002201 1 0980 MOVC EDLLPN R2 ; LPN:=PID_EDL_PROCESS ;
00002202 1 0981 MOV ECOLFP.X6 R5 ; FQE:=LFP.ECRP ;
00002203 1 0982 MON DFTA ; DEACTIVATE_FTMO(LPN,FQE) ;
00002204 1 0983 INC ECOXLT.X6 ; -DEACT. , OXLT:=OXLT+1 ;
00002205 1 0984 ED6442: ; END ;
00002206 1 0984 MOVC NT% ; ;
00002207 1 0984 1<ECOPALT+1<ECOALTO R0 ; ;
00002208 1 0985 AND R0 ECOFLG.X6 ; CLAER OFLG(OPALT,OALT) ;
00002209 1 0987 JMPI RL6440 ; RETURN ;
00002210 1 0988 ; END ;
00002211 1 0988 ;---------------------------------------------------------------------- ;
00002212 1 0988 ;FF\f
;
00002213 1 0988 ;---------------------------------------------------------------------- ;
00002214 1 0988 ; PROCEDURE ED6520. ;
00002215 1 0988 ; REMOVE(OSTA,OEBA,X0,X1) ;
00002216 1 0988 ; ;
00002217 1 0988 ; REGISTERS: ENTRY EXIT ;
00002218 1 0988 ; R0 X0 DEST ;
00002219 1 0988 ; R1 X1 DEST ;
00002220 1 0988 ; R0,R3,R5,R7 - DEST ;
00002221 1 0988 ; R4 LINK DEST ;
00002222 1 0988 ; R6 ECRP (REL) UNCH ;
00002223 1 0988 ; ;
00002224 1 0988 ; CALL TO: ED6210,RNBN ;
00002225 1 0988 ; CALL BY: ED1260,ED7040 ;
00002226 1 0988 ; RETURNS: ;
00002227 1 0988 ; LINK+0: DONE ;
00002228 1 0988 ;---------------------------------------------------------------------- ;
00002229 1 0988 ED6520: ; BEGIN REMOVE ;
00002230 1 0988 MOV R4 RL6520 ; ;
00002231 1 0989 SUB R0 R1 ; N:=(X1-X0)MOD OSAZ ;
00002232 1 098A ; ;
00002233 1 098A ; FOR J:=X0 UNTIL X0+N DO ;
00002234 1 098A ED6522: ; BEGIN ;
00002235 1 098A ADDC 1 R0 ; J:=J+1 ;
00002236 1 098B JMP S4 ED6210 ; STATUS:=OSTA(J) ;
00002237 1 098C MOV X7 R4 ; ;
00002238 1 098D MOVC 1<ECOARQ R3 ; OSTA(J):=OSTA(J) AND (OARQ) ;
00002239 1 098E AND R3 0. X7 ; ;
00002240 1 098F IBZ R4 ECOFUL ; IF STATUS(OFUL) THEN ;
00002241 1 0990 JMP ED6526 ; BEGIN ;
00002242 1 0991 IBN R4 ECOITX ; IF STATUS(-OITX) THEN ;
00002243 1 0992 JMP ED6524 ; BEGIN ;
00002244 1 0993 MOV R0 EDWRK0 ; ;
00002245 1 0994 MOV R1 EDWRK1 ; ;
00002246 1 0995 MOV ECOEBA-ECOSTA.X7 R5 ; BUFP:=OEBA(J) ;
00002247 1 0996 MOVC -1 R3 ; K:=00 ;
00002248 1 0997 MON RNBN ; RELEASE(BUFP,K) ;
00002249 1 0998 MOV EDWRK0 R0 ; ;
00002250 1 0999 MOV EDWRK1 R1 ; ;
00002251 1 099A MOV ECRPTR R6 ; ;
00002252 1 099B JMP ED6526 ; END ;
00002253 1 099C ED6524: ; ELSE ;
00002254 1 099C ; BEGIN ;
00002255 1 099C MOV ECOEBA-ECOSTA.X7 R3 ; ;
00002256 1 099D MOVC EOCTDC R2 ; TYPE:=DISCARD ;
00002257 1 099E IBN R4 ECOTQS ; OTQI:=FUNC(OTQS) ;
00002258 1 099F MODC ECOTQI1-ECOTQI0 ; 0.OTQI:=TYPE ;
00002259 1 09A0 MOVL R23 ECOTQI.X6 ; 1.OTQI:=EBP ;
00002260 1 09A1 ; END ;
00002261 1 09A1 ED6526: ; END ;
00002262 1 09A1 XTR R1 ECOADC ; ;
00002263 1 09A2 SOB R1 ED6522 ; END ;
00002264 1 09A3 JMPI RL6520 ; RETURN ;
00002265 1 09A4 ; END REMOVE. ;
00002266 1 09A4 ;---------------------------------------------------------------------- ;
00002267 1 09A4 ;
00002268 1 09A4 ; PROCEDURE ED6810. ;
00002269 1 09A4 ; BOOLEAN TX_OPEN. ;
00002270 1 09A4 ; ;
00002271 1 09A4 ; REGISTERS: ENTRY EXIT ;
00002272 1 09A4 ; R0 - DEST ;
00002273 1 09A4 ; R4 LINK UNCH ;
00002274 1 09A4 ; R5 OFLG (REL) UNCH ;
00002275 1 09A4 ; R6 ECRP (REL) UNCH ;
00002276 1 09A4 ; R7 - DEST ;
00002277 1 09A4 ; ;
00002278 1 09A4 ; RETURNS: ;
00002279 1 09A4 ; LINK+0: FALSE ;
00002280 1 09A4 ; LINK+1: TRUE ;
00002281 1 09A4 ;---------------------------------------------------------------------- ;
00002282 1 09A4 ED6810: ; BEGIN TX_OPEN. ;
00002283 1 09A4 MOV CSTPTR R7 ; ;
00002284 1 09A5 MOV CSTCDT.X7 R7 ; ;
00002285 1 09A6 SUB XBASE R7 ; ;
00002286 1 09A8 MOV ECOTEC.X6 R0 ; ;
00002287 1 09A9 ILT R0 2 ; IF OTEC >=2 ;
00002288 1 09AA ION CDONEB.X7 ; .OR. ONEB<>0 THEN ;
00002289 1 09AB JMP 0. X4 ; FALSE ;
00002290 1 09AC ; ELSE ;
00002291 1 09AC JMP 1. X4 ; TRUE ;
00002292 1 09AD ; END TX_OPEN. ;
00002293 1 09AD ;---------------------------------------------------------------------- ;
00002294 1 09AD ;
00002295 1 09AD ; PROCEDURE ED6820. ;
00002296 1 09AD ; PROCEDURE QUEUE(EBP,QID,EBP/OSTAX) ;
00002297 1 09AD ; ;
00002298 1 09AD ; REGISTERS ENTRY EXIT ;
00002299 1 09AD ; R0 - DEST ;
00002300 1 09AD ; R1 EBP DEST ;
00002301 1 09AD ; R2 QID DEST ;
00002302 1 09AD ; R3 EBP/OSTAX DEST ;
00002303 1 09AD ; R4 LINK DEST ;
00002304 1 09AD ; R5 - DEST ;
00002305 1 09AD ; R6 ECRP UNCH ;
00002306 1 09AD ; R7 - DEST ;
00002307 1 09AD ;---------------------------------------------------------------------- ;
00002308 1 09AD ED6820: ; BEGIN QUEUE. ;
00002309 1 09AD MOV R4 RL6820 ; ;
00002310 1 09AE MOV ECOFLG.X6 R5 ; IF OFLG(OTXO) THEN ;
00002311 1 09AF IBZ R5 ECOTXO ; SIM QUEUED ;
00002312 1 09B0 MON EDOTST ; EDC_OUTPUT_TEST ;
00002313 1 09B1 JMP ED6824 ; X0: SIM_QUEUED,GOTO SIM_MQO. ;
00002314 1 09B2 MOV ECOTEC.X6 R0 ; ;
00002315 1 09B3 IGE R0 2 ; IF OTEC .GE. 2 THEN ;
00002316 1 09B4 JMPI S4 EI1990 ; CP_ERROR. ;
00002317 1 09B5 ION ECOISW.X6 ; ITQI:=FUNC(OISW) ;
00002318 1 09B6 MODC ECOTQI1-ECOTQI0 ; 1.OTQI:=QID ;
00002319 1 09B7 MOVL R23 ECOTQI.X6 ; 2.OTQI:=N/X ;
00002320 1 09B8 INV ECOISW.X6 ; SHIFT OISW ;
00002321 1 09BA INC ECOTEC.X6 ; OTEC:=OTEC+1 ;
00002322 1 09BB MOV CSTPTR R6 ; ;
00002323 1 09BC MON RS0CDT ; RESERVE_CDT(CSTP) ;
00002324 1 09BD JMPI S4 EI19A0 ; ;
00002325 1 09BE ION CDONEB.X5 ; IF CDONEB <> 0 THEN ;
00002326 1 09BF JMPI S4 EI1990 ; CP_ERROR ;
00002327 1 09C0 MOV R1 CDONEB.X5 ; CDONEB:=EBP ;
00002328 1 09C1 MOV R5 R7 ; ;
00002329 1 09C2 IOZP CDOCEB.X5 ; IF OCEB = 0 I.E. ;
00002330 1 09C3 ADDC CDOEST R7 ; (LINE IDLE.) THEN ;
00002331 1 09C4 SETS X7 CDOEDS ; SETS CDOEST(EDS) ;
00002332 1 09C5 MOVC 0 R3 ; EST:=0 ;
00002333 1 09C6 MOV CSTCS7.X6 R0 ; ;
00002334 1 09C7 IBNP R0 CSTEMM ; IF EDC_MONITORING_MODE THEN ;
00002335 1 09C8 MON EDCTMO ; EDC_MONITORING_OUTPUT ;
00002336 1 09C9 JMPI S4 EI1900 ; ;
00002337 1 09CA MON RL1CDT ; RELEASE_CDT(CDTP) ;
00002338 1 09CB NOP ; ;
00002339 1 09CC MOV ECRPTR R6 ; ;
00002340 1 09CD JMPI RL6820 ; RETURN ;
00002341 1 09CE ; ;
00002342 1 09CE ED6824: ; SIM_MQO. ;
00002343 1 09CE MOV R3 R1 ; ;
00002344 1 09CF MOD R2 ; ;
00002345 1 09D0 JMPI S4 ED0500 ; MQO_SERVICE(EBP,QID,N/X) ;
00002346 1 09D1 MOV ECRPTR R6 ; ;
00002347 1 09D2 JMPI RL6820 ; RETURN ;
00002348 1 09D3 ; END QUEUE. ;
00002349 1 09D3 ;-----------------------------------------------------------------------;
00002350 1 09D3 ;FF\f
;
00002351 1 09D3 ;---------------------------------------------------------------------- ;
00002352 1 09D3 ; ED7040/ED7050/ED7060/ED7070/ED7080. ;
00002353 1 09D3 ; ;
00002354 1 09D3 ; MQI SERVICE PROCEDURES. ;
00002355 1 09D3 ; ;
00002356 1 09D3 ; REGISTERS: ENTRY EXIT ;
00002357 1 09D3 ; R1,R2,R3,R5,R7 - DEST ;
00002358 1 09D3 ; R4 LINK DEST ;
00002359 1 09D3 ; R6 ECRP (REL) DEST ;
00002360 1 09D3 ; ;
00002361 1 09D3 ; ENTRY: ;
00002362 1 09D3 ; ED7040: ACK_RX. ;
00002363 1 09D3 ; ED7050: ACKL_RX. ;
00002364 1 09D3 ; ED7060: NAK_RX. ;
00002365 1 09D3 ; ED7070: NAK2_RX. ;
00002366 1 09D3 ; ED7080: NAKF_RX. ;
00002367 1 09D3 ; RETURNS: ;
00002368 1 09D3 ; LINK+0: DONE ;
00002369 1 09D3 ; ;
00002370 1 09D3 ; CALL TO: ED6200,ED6210,ED6220,ED6230,ED6400,ED6420, ;
00002371 1 09D3 ; ED6430,ED6520,ED7200. ;
00002372 1 09D3 ; CALL BY: MAIN_INT. ;
00002373 1 09D3 ; ;
00002374 1 09D3 ;---------------------------------------------------------------------- ;
00002375 1 09D3 ED7040: ; BEGIN ACK_RX. ;
00002376 1 09D3 ;---------------------------------- ;
00002377 1 09D3 MOV R4 RLMQIS ; ;
00002378 1 09D4 MOD R6 ; ;
00002379 1 09D5 MOVC ECOFLG R5 ; ;
00002380 1 09D6 IBN X5 ECOATO ; IF OFLG(OATO) THEN ;
00002381 1 09D7 JMP ED7099 ; GOTO RETURN (IGNORE_EB) ;
00002382 1 09D8 JMP S4 ED6400 ; IF NOT VALID(CRC,BID) THEN ;
00002383 1 09D9 JMP ED7088 ; REPORT(CRC_ERROR) ;
00002384 1 09DA JMP S4 ED6210 ; STATUS:=OSTA(CIBID) ;
00002385 1 09DB IEQ R0 ECOPSB.X6 ; IF CIBID<>OPSB ;
00002386 1 09DD JMP ED7044 ; .AND. OFLG(-OTXD) THEN ;
00002387 1 09DE IBZ X7 ECOTXD ; REPORT(UNEXP_ACK) ;
00002388 1 09DF JMP ED7086 ; ELSE ;
00002389 1 09E0 IEQ R0 ECOFSB.X6 ; CASE OF CIBID ;
00002390 1 09E2 JMP ED7042 ; BEGIN ;
00002391 1 09E3 INE R0 ECOSSB.X6 ; 0. UNEXPECTED_ACK ;
00002392 1 09E5 JMP ED7086 ; REPORT(UNEXP_ACK) ;
00002393 1 09E6 ; ;
00002394 1 09E6 ; 1. CIBID:=OSSB ;
00002395 1 09E6 MOV R0 ECOFSB.X6 ; OFSB:=OSSB ;
00002396 1 09E7 MOV ECOS2S.X6 R1 ; ;
00002397 1 09E8 MOV R1 ECOS1S.X6 ; OS1S:=OS2S ;
00002398 1 09E9 CLR ECOS2S.X6 ; OS2S:=0 ;
00002399 1 09EA DEC ECOCSC.X6 ; OCSC:=OCSC-1 ;
00002400 1 09EB ; ;
00002401 1 09EB ED7042: ; 2. CIBID:=OFSB ;
00002402 1 09EB MOVL ECOS1S.X6 R01 ; ;
00002403 1 09EC MOV R1 ECOS1S.X6 ; OS1S:=OS2S ;
00002404 1 09ED CLR ECOS2S.X6 ; OS2S:=0 ;
00002405 1 09EE DEC ECOCSC.X6 ; OCSC:=OCSC-1 ;
00002406 1 09EF MOD CSTPTR ; CSTLAS:=OS1S ;
00002407 1 09F0 MOV R0 CSTLAS ; ;
00002408 1 09F1 MOV ECOPSB.X6 R0 ; X0:=OPSB ;
00002409 1 09F2 MOVL ECOFSB.X6 R12 ; X1:=OFSB ;
00002410 1 09F3 MOVL R12 ECOPSB.X6 ; OPSB:=OFSB ;
00002411 1 09F4 ; OFSB:=OSSB ;
00002412 1 09F4 JMP S4 ED6520 ; REMOVE(OSTA,OEBA,X0,X1) ;
00002413 1 09F5 MOVC NT% ; ;
00002414 1 09F5 (1<ECORAQ+1<ECOEAF) R0 ; ;
00002415 1 09F7 AND R0 ECOFLG.X6 ; CLEAR OFLG(ORAQ,OEAF) ;
00002416 1 09F9 MOD R6 ; ;
00002417 1 09FA MOVC ECOFLG R5 ; ;
00002418 1 09FB IBN X5 ECOPAT1 ; ;
00002419 1 09FC JMP S4 ED6420 ; DEACTIVATE(ACKTO) ;
00002420 1 09FD JMP S4 ED7200 ; INSERT_EB(OEBA) ;
00002421 1 09FE JMP ED7099 ; GOTO RETURN ;
00002422 1 09FF ; END 1/2. ;
00002423 1 09FF ED7044: ; 3. CIBID:=OPSB ;
00002424 1 09FF IBZ X5 ECORAQ ; IF OFLG(-ORAQ) THEN ;
00002425 1 0A00 JMP ED7086 ; REPORT(UNEXP_ACK) ;
00002426 1 0A01 IBZ X5 ECOSBM ; IF OFLG(OSBM) THEN ;
00002427 1 0A02 JMP ED7046 ; BEGIN ;
00002428 1 0A03 RELS X5 ECOALTO ; CLEAR OFLG(OALTO) ;
00002429 1 0A04 MOD CSTPTR ; ;
00002430 1 0A05 MOVC CSTVF4 R7 ; ;
00002431 1 0A06 RELS X7 EECSRA ; CLEAR VF4(EECSRA) ;
00002432 1 0A07 ED7046: ; END ;
00002433 1 0A07 MOVC NT% ; ;
00002434 1 0A07 (1<ECORAQ+1<ECOSBM) R0 ; ;
00002435 1 0A09 AND R0 ECOFLG.X6 ; CLEAR OFLG(ORAQ,OSBM) ;
00002436 1 0A0B MOVC 1<ECOPCQ R0 ; ;
00002437 1 0A0D IOR R0 ECOFLG.X6 ; SETS OFLG(OPCQ) ;
00002438 1 0A0F IBN X5 ECOPAT1 ; ;
00002439 1 0A10 JMP S4 ED6420 ; DEACTIVATE(ACKTO) ;
00002440 1 0A11 JMP ED7099 ; GOTO RETURN ;
00002441 1 0A12 ; END 3. ;
00002442 1 0A12 ;---------------------------------------------------------------------- ;
00002443 1 0A12 ; ;
00002444 1 0A12 ED7050: ; BEGIN ACKL_RX. ;
00002445 1 0A12 ;---------------------------------- ;
00002446 1 0A12 MOV R4 RLMQIS ; ;
00002447 1 0A13 MOV ECOFLG.X6 R0 ; ;
00002448 1 0A14 IBN R0 ECOALTO ; IF OFLG(OALTO) THEN ;
00002449 1 0A15 JMP ED7099 ; GOTO RETURN (IGNORE EB) ;
00002450 1 0A16 MOD R6 ; ;
00002451 1 0A17 MOVC ECOQCW R5 ; ;
00002452 1 0A18 IBZ X5 ECOLTX ; IF OQCW(-OLTX) I.E. UNEXP. ;
00002453 1 0A19 JMP ED7087 ; .OR. ;
00002454 1 0A1A JMP S4 ED6400 ; CRC_ERROR ;
00002455 1 0A1B JMP ED7089 ; .OR. ;
00002456 1 0A1C INE R0 ECOCLB.X6 ; CIBID<>OCLB THEN ;
00002457 1 0A1E JMP ED7087 ; REPORT(ERROR) ;
00002458 1 0A1F ; ELSE ;
00002459 1 0A1F ; BEGIN ;
00002460 1 0A1F RELS X5 ECOLTX ; CLEAR OQCW(OLTX) ;
00002461 1 0A20 JMP S4 ED6440 ; DEACTIVATE(ACKLTO) ;
00002462 1 0A21 MOV ECOLER.X6 R5 ; ;
00002463 1 0A22 MOVC -1 R3 ; ;
00002464 1 0A23 MON RNBN ; RELEASE LCB ;
00002465 1 0A24 ; END ;
00002466 1 0A24 JMP ED7099 ; GOTO RELEASE_IEB ;
00002467 1 0A25 ;---------------------------------------------------------------------- ;
00002468 1 0A25 ; ;
00002469 1 0A25 ED7060: ; BEGIN NAK_RX. ;
00002470 1 0A25 ;---------------------------------- ;
00002471 1 0A25 MOV R4 RLMQIS ; ;
00002472 1 0A26 MOD R6 ; ;
00002473 1 0A27 MOVC ECOFLG R5 ; ;
00002474 1 0A28 IBZ X5 ECOATO ; IF OFLG(OATO) ;
00002475 1 0A29 IBN X5 ECOSBM ; .OR. OFLG(OSBM) THEN ;
00002476 1 0A2A JMP ED7099 ; GOTO RETURN ;
00002477 1 0A2B JMP S4 ED6400 ; IF NOT VALID(IEST,BID) ;
00002478 1 0A2C JMP ED7090 ; .OR. ;
00002479 1 0A2D JMP S4 ED6240 ; OUT_OF_RANGE(BID) THEN ;
00002480 1 0A2F JMP ED7096 ; GOTO REPORT ;
00002481 1 0A30 JMP S4 ED6220 ; UPDATE_ONTX ;
00002482 1 0A32 JMP S4 ED6210 ; STATUS:=OSTA(CIBID) ;
00002483 1 0A34 IBZ X7 ECOTXD ; IF STATUS(-OTXD)THEN ;
00002484 1 0A35 JMP ED7096 ; REPORT ;
00002485 1 0A36 IBN X7 ECOITX ; IF STATUS(OITX) THEN ;
00002486 1 0A37 JMP ED7099 ; IGNORE BLOCK ;
00002487 1 0A38 MOD ECFPTR ; ;
00002488 1 0A39 MOV ECGRCL R4 ; ;
00002489 1 0A3A SLL R4 ECONCT ; ;
00002490 1 0A3B IHS X7 R4 ; IF NAK COUNT LIMIT EXCEEDED THEN;
00002491 1 0A3C JMP ED7093 ; GOTO REPORT ;
00002492 1 0A3D SETS X7 ECONKD ; SETS OSTA(CIBID,ONKD) ;
00002493 1 0A3E RELS X5 ECORAQ ; CLEAR OFLG(ORAQ) ;
00002494 1 0A3F IBN X5 ECOPAT1 ; ;
00002495 1 0A40 JMP S4 ED6420 ; DEACTIVATE(ACKTO) ;
00002496 1 0A41 JMPI S4 EI1600 ; SCHEDULE(D_TX) ;
00002497 1 0A42 JMP ED7099 ; GOTO RETURN ;
00002498 1 0A43 ;---------------------------------------------------------------------- ;
00002499 1 0A43 ; ;
00002500 1 0A43 ED7070: ; BEGIN NAK2_RX. ;
00002501 1 0A43 ;---------------------------------- ;
00002502 1 0A43 MOV R4 RLMQIS ; ;
00002503 1 0A44 MOD R6 ; ;
00002504 1 0A45 MOVC ECOFLG R5 ; ;
00002505 1 0A46 IBZ X5 ECOATO ; IF OFLG(OATO) ;
00002506 1 0A47 IBN X5 ECOSBM ; .OR. OFLG(OSBM) THEN ;
00002507 1 0A48 JMP ED7099 ; GOTO RETURN ;
00002508 1 0A49 MOV CIBUF R5 ; BUFP:=CIBUF ;
00002509 1 0A4A MOVC EBBD2X R0 ; OFFS:=BD2X ;
00002510 1 0A4B JMP S4 ED6200 ; READBUF(BUFP,OFFS,BID) ;
00002511 1 0A4D XTR R1 EOCBDX ; ;
00002512 1 0A4E MOV R1 CIBID2 ; CIBID2:=BID ;
00002513 1 0A4F MOV CIBID2 R0 ; ;
00002514 1 0A50 IBN R0 BIT7 ; IF BID2 PARITY_ERROR ;
00002515 1 0A51 JMP ED7091 ; .OR. ;
00002516 1 0A52 JMP S4 ED6240 ; OUT_OF_RANGE(BID2) ;
00002517 1 0A54 JMP ED7097 ; .OR. ;
00002518 1 0A55 JMP S4 ED6400 ; NOT VALID(IEST,BID1) ;
00002519 1 0A57 JMP ED7091 ; .OR. ;
00002520 1 0A58 JMP S4 ED6240 ; OUT_OF_RANGE(BID1) ;
00002521 1 0A5A JMP ED7097 ; .OR. ;
00002522 1 0A5B MOV CIBID2 R1 ; NBID1,BID2 NOT IN CORRECT ;
00002523 1 0A5C SUB R0 R1 ; ORDER I.E. ;
00002524 1 0A5D XTR R1 EOCBDX ; (BID2-BID1)MOD128<OSAZ ) ;
00002525 1 0A5E IHS R1 ECOSAZ ; THEN ;
00002526 1 0A60 JMP ED7097 ; GOTO REPORT ;
00002527 1 0A61 JMP S4 ED6220 ; UPDATE_ONTX ;
00002528 1 0A63 ; ;
00002529 1 0A63 ADDC 1 R1 ; FOR N:=BID1 UNTIL BID2 DO ;
00002530 1 0A64 ED7072: ; BEGIN ;
00002531 1 0A64 JMP S4 ED6210 ; STATUS:=OSTA(N) ;
00002532 1 0A66 MOD ECFPTR ; ;
00002533 1 0A67 MOV ECGRCL R4 ; ;
00002534 1 0A68 SLL R4 ECONCT ; ;
00002535 1 0A69 IHS X7 R4 ; IF COUNT_LIMIT_EXCEEDED ;
00002536 1 0A6A JMP ED7094 ; .OR. ;
00002537 1 0A6B IBZ X7 ECOTXD ; EB NOT AVAILABLE THEN ;
00002538 1 0A6C JMP ED7097 ; GOTO REPORT ;
00002539 1 0A6D ; ELSE ;
00002540 1 0A6D SETS X7 ECONKD ; SETS STATUS(ONKD) ;
00002541 1 0A6E ADDC 1 R0 ; ;
00002542 1 0A6F SOB R1 ED7072 ; END ;
00002543 1 0A70 MOD R6 ; ;
00002544 1 0A71 MOVC ECOFLG R5 ; ;
00002545 1 0A72 RELS X5 ECORAQ ; CLEAR OFLG(ORAQ) ;
00002546 1 0A73 IBN X5 ECOPAT1 ; ;
00002547 1 0A74 JMP S4 ED6420 ; DEACTIVATE(ACKTO) ;
00002548 1 0A76 JMPI S4 EI1600 ; SCHEDULE(D_TX) ;
00002549 1 0A77 JMP ED7099 ; GOTO RETURN ;
00002550 1 0A78 ;---------------------------------------------------------------------- ;
00002551 1 0A78 ; ;
00002552 1 0A78 ED7080: ; BEGIN NAKF_RX. ;
00002553 1 0A78 ;---------------------------------- ;
00002554 1 0A78 MOV R4 RLMQIS ; ;
00002555 1 0A79 MOD R6 ; ;
00002556 1 0A7A MOVC ECOFLG R5 ; ;
00002557 1 0A7B IBZ X5 ECOATO ; IF OFLG(OATO) ;
00002558 1 0A7C IBN X5 ECOSBM ; .OR. OFLG(OSBM) THEN ;
00002559 1 0A7D JMP ED7099 ; GOTO RETURN ;
00002560 1 0A7E JMP S4 ED6400 ; IF NOT VALID(IEST,BID) THEN ;
00002561 1 0A80 JMP ED7092 ; GOTO REPORT ;
00002562 1 0A81 JMP S4 ED6240 ; IF NOT OUT_OF_RANGE(BID) THEN ;
00002563 1 0A83 JMP ED7082 ; BEGIN ;
00002564 1 0A84 JMP S4 ED6210 ; STATUS:=OSTA(CIBID) ;
00002565 1 0A86 IBZ X7 ECOTXD ; IF STATUS(-OTXD) THEN ;
00002566 1 0A87 JMP ED7098 ; GOTO REPORT ;
00002567 1 0A88 ; ELSE ;
00002568 1 0A88 ADDC 1 R0 ; N:=CIBID+1 ;
00002569 1 0A89 JMP ED7083 ; END ;
00002570 1 0A8A ED7082: ; ELSE ;
00002571 1 0A8A ; BEGIN ;
00002572 1 0A8A INE R0 ECOPSB.X6 ; IF CIBID <> OPSB THEN ;
00002573 1 0A8C JMP ED7098 ; GOTO REPORT ;
00002574 1 0A8D ; ELSE ;
00002575 1 0A8D ; BEGIN ;
00002576 1 0A8D ADDC 1 R0 ; N:=CIBID+1 ;
00002577 1 0A8E JMP S4 ED6210 ; STATUS:=OSTA(N) ;
00002578 1 0A90 IBZ X7 ECOTXD ; IF STATUS(-OTXD) THEN ;
00002579 1 0A91 JMP ED7098 ; GOTO REPORT ;
00002580 1 0A92 ; END ;
00002581 1 0A92 ED7083: ; END ;
00002582 1 0A92 JMP S4 ED6220 ; UPDATE_ONTX ;
00002583 1 0A94 ; ;
00002584 1 0A94 ; REPEAT ;
00002585 1 0A94 ED7084: ; BEGIN ;
00002586 1 0A94 JMP S4 ED6210 ; STATUS:=OSTA(N) ;
00002587 1 0A96 IBZ X7 ECOITX ; ;
00002588 1 0A97 IBN X7 ECOTXD ; ;
00002589 1 0A98 IBN X7 ECOARQ ; ;
00002590 1 0A99 JMP ED7085 ; ;
00002591 1 0A9A MOD ECFPTR ; ;
00002592 1 0A9B MOV ECGRCL R4 ; ;
00002593 1 0A9C SLL R4 ECONCT ; ;
00002594 1 0A9D IHS X7 R4 ; IF NAK LIMIT EXCEEDED THEN ;
00002595 1 0A9E JMP ED7095 ; GOTO REPORT ;
00002596 1 0A9F SETS X7 ECONKD ; SETS STATUS(ONKD) ;
00002597 1 0AA0 ADDC 1 R0 ; N:=N+1 ;
00002598 1 0AA1 JMP ED7084 ; UNTIL ((-OTXD.AND.-OITX) ;
00002599 1 0AA2 ; .OR.ORAQ) ;
00002600 1 0AA2 ED7085: ; ;
00002601 1 0AA2 RELS X5 ECORAQ ; CLEAR OFLG(ORAQ) ;
00002602 1 0AA3 IBN X5 ECOPAT1 ; ;
00002603 1 0AA4 JMP S4 ED6420 ; DEACTIVATE(ACKTO) ;
00002604 1 0AA6 JMPI S4 EI1600 ; SCHEDULE(D_TX) ;
00002605 1 0AA7 JMP ED7099 ; GOTO RETURN ;
00002606 1 0AA8 ;---------------------------------------------------------------------- ;
00002607 1 0AA8 ; ;
00002608 1 0AA8 ; REPORT. ;
00002609 1 0AA8 ;---------------------------------- ;
00002610 1 0AA8 ; UNEXPECTED BLOCKS. ;
00002611 1 0AA8 ED7086: MODC EEC014-EEC015 ; ACK ;
00002612 1 0AA9 ED7087: MODC EEC015-EEC004 ; ACKL ;
00002613 1 0AAA ; EB_CRC_ERROR. ;
00002614 1 0AAA ED7088: MODC EEC004-EEC005 ; ACK ;
00002615 1 0AAB ED7089: MODC EEC005-EEC006 ; ACKL ;
00002616 1 0AAC ED7090: MODC EEC006-EEC007 ; NAK ;
00002617 1 0AAD ED7091: MODC EEC007-EEC008 ; NAK2 ;
00002618 1 0AAE ED7092: MODC EEC008-EEC106 ; NAKF ;
00002619 1 0AAF ; RE_TX COUNT EXCESS. ;
00002620 1 0AAF ED7093: MODC EEC106-EEC107 ; NAK ;
00002621 1 0AB0 ED7094: MODC EEC107-EEC108 ; NAK2 ;
00002622 1 0AB1 ED7095: MODC EEC108-EEC116 ; NAKF ;
00002623 1 0AB2 ; BLOCK NOT AVAILABLE. ;
00002624 1 0AB2 ED7096: MODC EEC116-EEC117 ; NAK ;
00002625 1 0AB3 ED7097: MODC EEC117-EEC118 ; NAK2 ;
00002626 1 0AB4 ED7098: MODC EEC118 ; NAKF ;
00002627 1 0AB5 MOVC 0 R0 ; ;
00002628 1 0AB6 JMPI S4 EI1800 ; REPORT(ERROR_CODE) ;
00002629 1 0AB7 NOP ; ;
00002630 1 0AB8 ED7099: ; RETURN. ;
00002631 1 0AB8 JMP S4 ED6230 ; RELEASE_IEB ;
00002632 1 0ABA JMPI RLMQIS ; RETURN LINK+0 ;
00002633 1 0ABB ; END ACK/ACKL/NAK/NAK2/NAKF_RX. ;
00002634 1 0ABB ;---------------------------------------------------------------------- ;
00002635 1 0ABB ;FF\f
;
00002636 1 0ABB ;---------------------------------------------------------------------- ;
00002637 1 0ABB ; ED7110/ED7120/ED7130/ED7140/ED7150/ED7160/ED7170/ED7190. ;
00002638 1 0ABB ; ;
00002639 1 0ABB ; MQO_SERVICE_PROCEDURES. ;
00002640 1 0ABB ; ;
00002641 1 0ABB ; REGISTERS: ENTRY EXIT ;
00002642 1 0ABB ; R0 TQI DEST ;
00002643 1 0ABB ; R1 EBP/OSTAX DEST ;
00002644 1 0ABB ; R3 EBR(MQO) DEST ;
00002645 1 0ABB ; R4 LINK DEST ;
00002646 1 0ABB ; R2,R5,R6,R7 - DEST ;
00002647 1 0ABB ; ENTRY: ;
00002648 1 0ABB ; ED7110: D_TX_DONE. ;
00002649 1 0ABB ; ED7120: LCB_TX_DONE ;
00002650 1 0ABB ; ED7130: ACK_TX_DONE. ;
00002651 1 0ABB ; ED7140: NAK_TX_DONE. ;
00002652 1 0ABB ; ED7150: ACKL_TX_DONE. ;
00002653 1 0ABB ; ED7160: RR_TX_DONE. ;
00002654 1 0ABB ; ED7170: SETB_TX_DONE. ;
00002655 1 0ABB ; ED7190: RELEASE_EB. ;
00002656 1 0ABB ; ;
00002657 1 0ABB ; RETURNS: ;
00002658 1 0ABB ; LINK+0: DONE. ;
00002659 1 0ABB ; ;
00002660 1 0ABB ; CALL TO: ED6410,ED6430 ;
00002661 1 0ABB ; CALL BY: MAIN_INT.,ED6820 ;
00002662 1 0ABB ;---------------------------------------------------------------------- ;
00002663 1 0ABB ED7110: ; BEGIN D_TX_DONE. ;
00002664 1 0ABB ;---------------------------------- ;
00002665 1 0ABB ; ;
00002666 1 0ABB RELS X1 ECOITX ; CLEAR OSTA(X)(OITX) ;
00002667 1 0ABC SETS X1 ECOTXD ; SETS OSTA(X)(OTXD) ;
00002668 1 0ABD JMP 0. X4 ; RETURN LINK+0 ;
00002669 1 0ABE ; END D_TX_DONE. ;
00002670 1 0ABE ;---------------------------------------------------------------------- ;
00002671 1 0ABE ED7120: ; BEGIN LCB_TX_DONE. ;
00002672 1 0ABE ;---------------------------------- ;
00002673 1 0ABE MOV R4 RLMQOS ; ;
00002674 1 0ABF MOVC NT(1<ECOLIT) R4 ; CLEAR OQCW(OLIT) ;
00002675 1 0AC0 AND R4 ECOQCW.X6 ; ;
00002676 1 0AC2 INC ECOLCT.X6 ; OLCT:=OLCT+1 ;
00002677 1 0AC3 JMP S4 ED6430 ; ACTIVATE(ACKLTO) ;
00002678 1 0AC5 JMPI RLMQOS ; RETURN LINK+0 ;
00002679 1 0AC6 ; END LCB_TX_DONE. ;
00002680 1 0AC6 ;---------------------------------------------------------------------- ;
00002681 1 0AC6 ED7130: ; BEGIN ACK_TX_DONE. ;
00002682 1 0AC6 ;---------------------------------- ;
00002683 1 0AC6 ; ;
00002684 1 0AC6 ED7140: ; BEGIN NAK_TX_DONE. ;
00002685 1 0AC6 ;---------------------------------- ;
00002686 1 0AC6 ; ;
00002687 1 0AC6 ED7150: ; BEGIN ACKL_TX_DONE. ;
00002688 1 0AC6 ;---------------------------------- ;
00002689 1 0AC6 ; ;
00002690 1 0AC6 JMP ED7190 ; GOTO RELEASE_BUFFER. ;
00002691 1 0AC7 ; ;
00002692 1 0AC7 ED7160: ; BEGIN RR_TX_DONE. ;
00002693 1 0AC7 ;---------------------------------- ;
00002694 1 0AC7 MOV R4 RL7160 ; ;
00002695 1 0AC8 MOVC NT(1<ECORRP) R0 ; ;
00002696 1 0ACA AND R0 ECOFLG.X6 ; CLEAR OFLG(ORRP) ;
00002697 1 0ACC INC ECORCT.X6 ; ORCT:=ORCT+1 ;
00002698 1 0ACD JMP S4 ED7190 ; RELEASE_EB ;
00002699 1 0ACE JMP S4 ED6410 ; ACTIVATE(ACKTO-TYP1) ;
00002700 1 0AD0 JMPI RL7160 ; RETURN ;
00002701 1 0AD1 ; ;
00002702 1 0AD1 ED7170: ; BEGIN SETB_TX_DONE. ;
00002703 1 0AD1 ;---------------------------------- ;
00002704 1 0AD1 ; ;
00002705 1 0AD1 ED7190: ; RELEASE_EB: ;
00002706 1 0AD1 MOV R4 RLMQOS ; ;
00002707 1 0AD2 INE R1 R3 ; IF EBR(MQO)<>EBP THEN ;
00002708 1 0AD3 JMPI S4 EI1900 ;E ERROR0(TQI-MISMATCH) ;
00002709 1 0AD4 MOVC -1 R3 ; ;
00002710 1 0AD5 MOV R1 R5 ; BUFP:=EBP ;
00002711 1 0AD6 MON RNBN ; RELEASE BINS ;
00002712 1 0AD7 JMPI RLMQOS ; RETURN LINK+0 ;
00002713 1 0AD8 ; END ACK/NAK/ACKL/RR/SETB_TX_DONE. ;
00002714 1 0AD8 ;---------------------------------------------------------------------- ;
00002715 1 0AD8 ;FF\f
;
00002716 1 0AD8 ;---------------------------------------------------------------------- ;
00002717 1 0AD8 ; PROCEDURE ED7200. ;
00002718 1 0AD8 ; INSERT_EB(OEBA,OLER). ;
00002719 1 0AD8 ; ;
00002720 1 0AD8 ; REGISTERS: ENTRY EXIT ;
00002721 1 0AD8 ; R0,R1,R2,R3,R5,R7 - DEST ;
00002722 1 0AD8 ; R4 LINK DEST ;
00002723 1 0AD8 ; R6 ECRP (REL) UNCH ;
00002724 1 0AD8 ; ;
00002725 1 0AD8 ; CALL TO: ED6210,ED8400 ;
00002726 1 0AD8 ; CALL BY: ED3600,ED7040 ;
00002727 1 0AD8 ; ENTRIES: ;
00002728 1 0AD8 ; ED7200 ;
00002729 1 0AD8 ; RETURNS: ;
00002730 1 0AD8 ; LINK+0: DONE ;
00002731 1 0AD8 ;---------------------------------------------------------------------- ;
00002732 1 0AD8 ED7200: ;BEGIN INSERT_EB. ;
00002733 1 0AD8 MOV R4 RL7200 ; ;
00002734 1 0AD9 ED7210: ; ;
00002735 1 0AD9 MOV ECOFLG.X6 R0 ;WHILE OFLG(-OEMP) I.E. ;
00002736 1 0ADA IBN R0 ECOEMP ; (OBQ NOT EMPTY) DO ;
00002737 1 0ADB JMP ED7240 ; ;
00002738 1 0ADC IBN R0 ECOEAF ; IF OFLG(-OEAF) THEN ;
00002739 1 0ADD JMP ED7220 ; BEGIN ;
00002740 1 0ADE JMPI S4 EI8400 ; COMPOSE_OEB ;
00002741 1 0ADF MOV ECRPTR R6 ; ;
00002742 1 0AE0 MOV COEBBT R0 ; ;
00002743 1 0AE1 IEQ R0 BTLCB ; IF LCB COMPOSED THEN ;
00002744 1 0AE3 JMP ED7224 ; GOTO INSERT_LCB ;
00002745 1 0AE4 IEQ R0 0 ; IF NO EB COMPOSED THEN ;
00002746 1 0AE5 JMP ED7230 ; GOTO UPDATE_OFLG ;
00002747 1 0AE6 ED7214: ; ELSE ;
00002748 1 0AE6 MOV ECONIX.X6 R0 ; BEGIN ;
00002749 1 0AE7 JMP S4 ED6210 ; X:=INDEX(ONIX) ;
00002750 1 0AE9 IBN X7 ECOFUL ; IF OSTA(X)(OFUL)) THEN ;
00002751 1 0AEA JMPI S4 EI1990 ; CP_ERROR ;
00002752 1 0AEB MOV COSMSK R1 ; ;
00002753 1 0AEC MOV R1 0. X7 ; OSTA(X):=COSMSK ;
00002754 1 0AED MOV COEBPT R2 ; ;
00002755 1 0AEE MOV R2 ECOEBA-ECOSTA.X7 ; OEBA(X):=EBP ;
00002756 1 0AEF MOVC 1<ECODTP R0 ; ;
00002757 1 0AF0 IOR R0 ECOQCW.X6 ; SETS OQCW(ODTP) ;
00002758 1 0AF2 INC ECONIX.X6 ; ONIX:=ONIX+1 ;
00002759 1 0AF3 MOV ECONIX.X6 R0 ; ;
00002760 1 0AF4 JMP S4 ED6210 ; X:=INDEX(ONIX) ;
00002761 1 0AF6 IBN R1 ECOESM ; IF EOS/EOM_EB THEN ;
00002762 1 0AF7 INC ECOCSC.X6 ; OCSC:=OCSC+1 ;
00002763 1 0AF8 MOV ECOCSC.X6 R0 ; ;
00002764 1 0AF9 IGEP R0 2 ; IF OCSC .GE. 2 THEN ;
00002765 1 0AFA ; BEGIN ;
00002766 1 0AFA SETS X7 ECOARQ ; SETS OSTA(X)(OARQ) ;
00002767 1 0AFB JMP ED7232 ; GOTO UPDATE_OFLG ;
00002768 1 0AFC ; END ;
00002769 1 0AFC JMP ED7210 ; END ;
00002770 1 0AFD ; END ;
00002771 1 0AFD ED7220: ; ELSE ;
00002772 1 0AFD MOV ECOQCW.X6 R0 ; BEGIN ;
00002773 1 0AFE IBZ R0 ECOLRX ; IF LCB_NOT_PENDING THEN ;
00002774 1 0AFF JMP ED7240 ; GOTO RETURN ;
00002775 1 0B00 JMPI S4 EI8400 ; COMPOSE_OEB ;
00002776 1 0B01 MOV ECRPTR R6 ; ;
00002777 1 0B02 MOV COEBBT R0 ; ;
00002778 1 0B03 INE R0 BTLCB ; IF EBBT <> BTLCB THEN ;
00002779 1 0B05 JMPI S4 EI1990 ; CP_ERROR ;
00002780 1 0B06 ; ;
00002781 1 0B06 ED7224: ; INSERT_LCB: ;
00002782 1 0B06 MOD R6 ; ;
00002783 1 0B07 MOVC ECOQCW R5 ; ;
00002784 1 0B08 IBN X5 ECOLTX ; IF LCB_IN_PROCRESS THEN ;
00002785 1 0B09 JMPI S4 EI1990 ; CP_ERROR(ODP-FAILLURE) ;
00002786 1 0B0A RELS X5 ECOLRX ; ;
00002787 1 0B0B SETS X5 ECOLTX ; PUT OCQW(OLTX,-OLRX,OLCP) ;
00002788 1 0B0C SETS X5 ECOLCP ; ;
00002789 1 0B0D CLR ECOLCT.X6 ; OLCT:=0 ;
00002790 1 0B0E MOV COEBPT R0 ; ;
00002791 1 0B0F MOV R0 ECOLER.X6 ; OLER:=EBP ;
00002792 1 0B10 MOV COBID R0 ; ;
00002793 1 0B11 MOV R0 ECOCLB.X6 ; OCLB:=COBOD ;
00002794 1 0B12 JMP ED7210 ; END ;
00002795 1 0B13 ; ;
00002796 1 0B13 ED7230: MODC 1<ECOEMP-1<ECOEAF ; UPDATE_OFLG: ;
00002797 1 0B14 ED7232: MODC 1<ECOEAF ; ;
00002798 1 0B15 ED7234: MODC 1<ECOOEP+1<ECOEBP ; ;
00002799 1 0B16 MOVC 1<ECOPCQ R0 ; ;
00002800 1 0B18 IOR R0 ECOFLG.X6 ; UPDATE(OEMP/OEAF/OEBP/OOEP/OPCQ);
00002801 1 0B1A JMP ED7210 ;END_DO_WHILE. ;
00002802 1 0B1B ED7240: ; ;
00002803 1 0B1B JMPI RL7200 ; RETURN ;
00002804 1 0B1C ;END INSERT_EB. ;
00002805 1 0B1C ;---------------------------------------------------------------------- ;
00002806 1 0B1C ;FF\f
;
00002807 1 0B1C ;---------------------------------------------------------------------- ;
00002808 1 0B1C ; PROCEDURE ED7290. ;
00002809 1 0B1C ; ;
00002810 1 0B1C ; PROCESS_REQUEST. ;
00002811 1 0B1C ; ;
00002812 1 0B1C ; REGISTERS: ENTRY EXIT ;
00002813 1 0B1C ; R0,R1,R2,R3,R5,R7 - DEST ;
00002814 1 0B1C ; R4 LINK DEST ;
00002815 1 0B1C ; R6 ECRP (REL) UNCH ;
00002816 1 0B1C ; ;
00002817 1 0B1C ; CALL BY: MAIN_INT. ;
00002818 1 0B1C ; CALL TO: ED6410,ED6412,ED6420,ED7410,ED7420,ED7430 ;
00002819 1 0B1C ; ED7440,ED7450,ED7460,ED7470,ED7490 ;
00002820 1 0B1C ; RETURNS: ;
00002821 1 0B1C ; LINK+0: DONE ;
00002822 1 0B1C ;---------------------------------------------------------------------- ;
00002823 1 0B1C ; ;
00002824 1 0B1C ; CASE_JUMP_TABLES: ;
00002825 1 0B1C ;---------------------------------------------------------------------- ;
00002826 1 0B1C ED7250:; CASE(SBM,ATO,RRP,RAQ) ; (SBM,ATO,RRP,RAQ) ;
00002827 1 0B1C ED7300,ED7310,ED7380,ED7380 ; 0000,0001,0010,0011 ;
00002828 1 0B20 ED7320,ED7330,ED7340,ED7390 ; 0100,0101,0110,0111 ;
00002829 1 0B24 ED7380,ED7310,ED7380,ED7380 ; 1000,1001,1010,1011 ;
00002830 1 0B28 ED7320,ED7350,ED7340,ED7390 ; 1100,1101,1110,1111 ;
00002831 1 0B2C ;---------------------------------------------------------------------- ;
00002832 1 0B2C ED7260:; CASE0(EBP,PAT2,PAT1) ; (EBP,PAT2,PAT1) ;
00002833 1 0B2C ED6412,ED7390,ED7390,ED7380 ; 000,001,010,011 ;
00002834 1 0B30 ED7304,ED7304,ED7302,ED7380 ; 100,101,110,111 ;
00002835 1 0B34 ;---------------------------------------------------------------------- ;
00002836 1 0B34 ED7270:; CASE1(EBP,PAT2,PAT1) ; (EBP,PAT2,PAT1) ;
00002837 1 0B34 ED6410,ED7390,ED7380,ED7380 ; 000,001,010,011 ;
00002838 1 0B38 ED6410,ED7314,ED7380,ED7380 ; 100,101,110,111 ;
00002839 1 0B3C ;---------------------------------------------------------------------- ;
00002840 1 0B3C ED7280:; CASE(ALP,LCP,NKP,ACP,DTP) ; (ALP,LCP,NKP,ACP,DTP) ;
00002841 1 0B3C ED7490 ; 00000 ;
00002842 1 0B3D ED7410 ; 00001 ;
00002843 1 0B3E ED7420,ED7420 ; 0001X ;
00002844 1 0B40 ED7430,ED7430,ED7430,ED7430 ; 001XX ;
00002845 1 0B44 ED7440,ED7440,ED7440,ED7440 ; 01XXX ;
00002846 1 0B48 ED7440,ED7440,ED7440,ED7440 ; 01XXX ;
00002847 1 0B4C ED7450,ED7450,ED7450,ED7450 ; 1XXXX ;
00002848 1 0B50 ED7450,ED7450,ED7450,ED7450 ; 1XXXX ;
00002849 1 0B54 ED7450,ED7450,ED7450,ED7450 ; 1XXXX ;
00002850 1 0B58 ED7450,ED7450,ED7450,ED7450 ; 1XXXX ;
00002851 1 0B5C ;---------------------------------------------------------------------- ;
00002852 1 0B5C ; ;
00002853 1 0B5C ED7290: ; BEGIN PROCESS_REQUEST. ;
00002854 1 0B5C MOV R4 RL7290 ; ;
00002855 1 0B5D ED7292: ; REPEAT ;
00002856 1 0B5D MOD R6 ; ;
00002857 1 0B5E MOVC ECOFLG R5 ; ;
00002858 1 0B5F IBN X5 ECOSCQ ; IF OFLG(OSCQ) THEN ;
00002859 1 0B60 JMP ED7314 ; GOTO INPUT CONTROL BLOCK TX ;
00002860 1 0B61 MOV X5 R0 ; ;
00002861 1 0B62 XTR R0 ECOSBM+1 ; ;
00002862 1 0B63 SRL R0 ECORAQ ; ;
00002863 1 0B64 MOD R0 ; ;
00002864 1 0B65 JMPI S4 ED7250 ; CASE_ACTION(SBM,ATO,RRP,RAQ) ;
00002865 1 0B67 JMP ED7292 ; UNTIL EXIT ;
00002866 1 0B68 ; END ;
00002867 1 0B68 ;---------------------------------------------------------------------- ;
00002868 1 0B68 ED7300: ; 1.(SBM,ATO,RRP,RAQ):=0000 ;
00002869 1 0B68 MOV ECOFLG.X6 R0 ; REPEAT ;
00002870 1 0B69 XTR R0 ECOEBP+1 ; ;
00002871 1 0B6A SRL R0 ECOPAT1 ; ;
00002872 1 0B6B MOD R0 ; ;
00002873 1 0B6C JMPI S4 ED7260 ; CASE0(EBP,PAT2,PAT1) ;
00002874 1 0B6E JMP ED7300 ; UNTIL EXIT ;
00002875 1 0B6F ; ;
00002876 1 0B6F ED7302: ; DEACTIVATE(ACKTO-TYP2) ;
00002877 1 0B6F MOV R4 RL7300 ; ;
00002878 1 0B70 MOV ECOFLG.X6 R0 ; ;
00002879 1 0B71 IBN R0 ECOOEP ; IF OUTBOUND_EB PENDING THEN ;
00002880 1 0B72 JMP S4 ED6420 ; DEACTIVATE(ACKTO) ;
00002881 1 0B74 JMP ED7306 ; GOTO TX_PENDING EB. ;
00002882 1 0B75 ; ;
00002883 1 0B75 ED7304: ; PROCESS(EBP) ;
00002884 1 0B75 MOV R4 RL7300 ; ;
00002885 1 0B76 ED7306: ; REPEAT ;
00002886 1 0B76 MOD R6 ; ;
00002887 1 0B77 MOVC ECOFLG R5 ; ;
00002888 1 0B78 JMP S4 ED6810 ; IF TX_NOT_POSSIBLE THEN ;
00002889 1 0B7A JMP ED7390 ; EXIT ;
00002890 1 0B7B ADDC ECOQCW-ECOFLG R5 ; ELSE ;
00002891 1 0B7C MOV X5 R0 ; ;
00002892 1 0B7D XTR R0 ECOALP+1 ; ;
00002893 1 0B7E SRL R0 ECODTP ; ;
00002894 1 0B7F MOD R0 ; ;
00002895 1 0B80 JMPI S4 ED7280 ; CASE(ALP,LCP,NKP,ACP,DTP) ;
00002896 1 0B82 JMP ED7306 ; X0: GOTO REPEAT ;
00002897 1 0B83 JMPI RL7300 ; X1: IDLE,RETURN ;
00002898 1 0B84 JMP ED7390 ; X2: BUSY,GOTO EXIT ;
00002899 1 0B85 ; UNTIL EXIT/IDLE. ;
00002900 1 0B85 ; END PROCESS(EBP) ;
00002901 1 0B85 ;---------------------------------------------------------------------- ;
00002902 1 0B85 ED7310: ; 2.(SBM,ATO,RRP,RAQ):=0001 ;
00002903 1 0B85 MOV ECOFLG.X6 R0 ; REPEAT ;
00002904 1 0B86 XTR R0 ECOEBP+1 ; ;
00002905 1 0B87 SRL R0 ECOPAT1 ; ;
00002906 1 0B88 MOD R0 ; ;
00002907 1 0B89 JMPI S4 ED7270 ; CASE1(EBP,PAT2,PAT1) ;
00002908 1 0B8B JMP ED7310 ; UNTIL EXIT ;
00002909 1 0B8C ; ;
00002910 1 0B8C ED7314: ; REPEAT ;
00002911 1 0B8C MOD R6 ; ;
00002912 1 0B8D MOVC ECOFLG R5 ; ;
00002913 1 0B8E JMP S4 ED6810 ; IF TX_NOT_POSSIBLE THEN ;
00002914 1 0B90 JMP ED7390 ; EXIT ;
00002915 1 0B91 ADDC ECOQCW-ECOFLG R5 ; ELSE ;
00002916 1 0B92 MOV X5 R0 ; ;
00002917 1 0B93 MOVC NT(1<ECOLCP+1<ECODTP)%; ;
00002918 1 0B93 R1 ; ;
00002919 1 0B94 AND R1 R0 ; ;
00002920 1 0B95 XTR R0 ECOALP+1 ; ;
00002921 1 0B96 SRL R0 ECODTP ; ;
00002922 1 0B97 IEQ R0 0 ; IF NO NAK/ACK/ACKL THEN ;
00002923 1 0B98 JMP ED7390 ; GOTO EXIT ;
00002924 1 0B99 MOD R0 ; ;
00002925 1 0B9A JMPI S4 ED7280 ; CASE(ALP, 0 ,NKP,ACP, 0 ) ;
00002926 1 0B9C JMP ED7314 ; WHILE INPUT CONTROL BLOCKS/ ;
00002927 1 0B9D ; IS PENDING. ;
00002928 1 0B9D ;---------------------------------------------------------------------- ;
00002929 1 0B9D ED7320: ; 3.(SBM,ATO,RRP,RAQ):=0100/1100 ;
00002930 1 0B9D SETS X5 ECORAQ ; SETS OFLG(ORAQ) ;
00002931 1 0B9E CLR ECORCT.X6 ; ORCT:=0 ;
00002932 1 0B9F JMP 0. X4 ; RETURN ;
00002933 1 0BA0 ;---------------------------------------------------------------------- ;
00002934 1 0BA0 ED7330: ; 4.(SBM,ATO,RRP,RAQ):=0101 ;
00002935 1 0BA0 MOV ECORCT.X6 R0 ; ;
00002936 1 0BA1 MOD ECFPTR ; ;
00002937 1 0BA2 MOV ECGRCL R1 ; ;
00002938 1 0BA3 IGE R0 R1 ; IF RR RE_TX EXCEEDED THEN ;
00002939 1 0BA4 JMP ED7385 ; GOTO REPORT(URE) ;
00002940 1 0BA5 RELS X5 ECORAQ ; CLEAR OFLG(ORAQ) ;
00002941 1 0BA6 SETS X5 ECORRP ; SETS OFLG(ORRP) ;
00002942 1 0BA7 JMP 0. X4 ; RETURN ;
00002943 1 0BA8 ;---------------------------------------------------------------------- ;
00002944 1 0BA8 ED7340: ; 5.(SBM,ATO,RRP,RAQ):=0110/1110 ;
00002945 1 0BA8 MOV R4 RL7300 ; ;
00002946 1 0BA9 JMP S4 ED6810 ; IF TX_NOT_POSSIBLE THEN ;
00002947 1 0BAB JMP ED7390 ; GOTO EXIT ;
00002948 1 0BAC SETS X5 ECORAQ ; SETS OFLG(ORAQ) ;
00002949 1 0BAD JMP S4 ED7470 ; RR_TX ;
00002950 1 0BAE JMPI RL7300 ; RETURN ;
00002951 1 0BAF ;---------------------------------------------------------------------- ;
00002952 1 0BAF ED7350: ; 6.(SBM,ATO,RRP,RAQ):=1101 ;
00002953 1 0BAF MOV R4 RL7300 ; ;
00002954 1 0BB0 MOV ECORCT.X6 R0 ; ;
00002955 1 0BB1 MOD ECFPTR ; ;
00002956 1 0BB2 MOV ECGRCL R1 ; ;
00002957 1 0BB3 IGE R0 R1 ; IF RR_RE_TX EXCEEDED THEN ;
00002958 1 0BB4 JMP ED7386 ; GOTO REPORT(URE) ;
00002959 1 0BB5 JMP S4 ED6810 ; IF TX_NOT_POSSIBLE THEN ;
00002960 1 0BB7 JMP ED7390 ; GOTO EXIT ;
00002961 1 0BB8 SETS X5 ECORRP ; ;
00002962 1 0BB9 RELS X5 ECORAQ ; PUT OFLG(ORRP,-ORAQ) ;
00002963 1 0BBA JMP S4 ED7460 ; SETB_TX ;
00002964 1 0BBB JMPI RL7300 ; RETURN ;
00002965 1 0BBC ;---------------------------------------------------------------------- ;
00002966 1 0BBC ED7380: ; 7.(SBM,ATO,RRP,RAQ):=ELSE ;
00002967 1 0BBC JMPI EI1990 ; CP_ERROR ;
00002968 1 0BBD JMP ED7390 ; ;
00002969 1 0BBE ED7385: ; REPORT. ;
00002970 1 0BBE MODC EEC10A-EEC10B ; ;
00002971 1 0BBF ED7386: MOVC EEC10B R0 ; ;
00002972 1 0BC0 JMPI S4 EI1800 ; ;
00002973 1 0BC1 NOP ; ;
00002974 1 0BC2 ED7390: ; EXIT. ;
00002975 1 0BC2 JMPI RL7290 ; RETURN LINK+0 ;
00002976 1 0BC3 ; END PROCESS_REQUEST. ;
00002977 1 0BC3 ;---------------------------------------------------------------------- ;
00002978 1 0BC3 ;FF\f
;
00002979 1 0BC3 ;---------------------------------------------------------------------- ;
00002980 1 0BC3 ; PROCEDURE ED7400. ;
00002981 1 0BC3 ; PROCEDURE TRANSMIT. ;
00002982 1 0BC3 ; ;
00002983 1 0BC3 ; REGISTERS: ENTRY EXIT ;
00002984 1 0BC3 ; R0,R1,R2,R3 - DEST ;
00002985 1 0BC3 ; R4 LINK DEST ;
00002986 1 0BC3 ; R5 OQCW.ECR DEST ;
00002987 1 0BC3 ; R6 ECRP (REL) UNCH ;
00002988 1 0BC3 ; R7 - DEST ;
00002989 1 0BC3 ; ;
00002990 1 0BC3 ; CALL BY: ED7290 ;
00002991 1 0BC3 ; CALL TO: ED6200,ED6210,ED6410,ED6820 ;
00002992 1 0BC3 ; ENTRIES: ;
00002993 1 0BC3 ; ED7410: DATA_TX ;
00002994 1 0BC3 ; ED7420: ACK_TX ;
00002995 1 0BC3 ; ED7430: NAK_TX ;
00002996 1 0BC3 ; ED7440: LCB_TX ;
00002997 1 0BC3 ; ED7450: ACKL_TX ;
00002998 1 0BC3 ; ED7460: SETB_TX ;
00002999 1 0BC3 ; ED7470: RR_TX ;
00003000 1 0BC3 ; ED7490: TX_QUEUE'S_EMPTY ;
00003001 1 0BC3 ; RETURNS: ;
00003002 1 0BC3 ; LINK+0: DONE ;
00003003 1 0BC3 ; LINK+1: IDLE ;
00003004 1 0BC3 ; LINK+2: BUSY/ERROR ;
00003005 1 0BC3 ;---------------------------------------------------------------------- ;
00003006 1 0BC3 ; DATA_TX_JUMP_TABLE: CASE_OSTA(ARQ,NKD,ITX,TXD,FUL) ;
00003007 1 0BC3 ;-----------------------------------------------------------------------;
00003008 1 0BC3 ED7400: ; ;
00003009 1 0BC3 ED7414,ED7418,ED741E,ED7412,ED741E,ED7412,ED741E,ED7412; 00000-00111 ;
00003010 1 0BCB ED741E,ED741E,ED741E,ED741A,ED741E,ED741E,ED741E,ED741C; 01000-01111 ;
00003011 1 0BD3 ED7416,ED7418,ED741E,ED7416,ED741E,ED7416,ED741E,ED7416; 10000-10111 ;
00003012 1 0BDB ED741E,ED741E,ED741E,ED741A,ED741E,ED741E,ED741E,ED741C; 11000-11111 ;
00003013 1 0BE3 ;---------------------------------------------------------------------- ;
00003014 1 0BE3 ED7410: ; BEGIN DATA_TX. ;
00003015 1 0BE3 ;---------------------------------- ;
00003016 1 0BE3 MOV R4 RL7400 ; ;
00003017 1 0BE4 ED7411: ; INSPECT_NEXT. ;
00003018 1 0BE4 MOV ECONTX.X6 R0 ; ;
00003019 1 0BE5 JMP S4 ED6210 ; STATUS:=OSTA(ONTX) ;
00003020 1 0BE7 MOV X7 R0 ; ;
00003021 1 0BE8 XTR R0 ECOARQ+1 ; ;
00003022 1 0BE9 SRL R0 ECOFUL ; ;
00003023 1 0BEA MOD R0 ; CASE_OSTA(ARQ,NKD,ITX,TXD,FUL) ;
00003024 1 0BEB JMPI ED7400 ; ;
00003025 1 0BED ED7412: ; 1. (00011/00101/00111) ;
00003026 1 0BED INC ECONTX.X6 ; ONTX:=ONTX+1 ;
00003027 1 0BEE JMP ED7411 ; GOTO INSPECT_NEXT. ;
00003028 1 0BEF ; ;
00003029 1 0BEF ED7414: ; 2. (00000) ;
00003030 1 0BEF RELS X5 ECODTP ; CLEAR OQCW(ODTP) ;
00003031 1 0BF0 JMPI RL7400 ; RETURN LINK+0 ;
00003032 1 0BF1 ; ;
00003033 1 0BF1 ED7416: ; 3. (10000/10011/10101/10111) ;
00003034 1 0BF1 RELS X5 ECODTP ; CLEAR OQCW(ODTP) ;
00003035 1 0BF2 JMP S4 ED6410 ; ACTIVATE(ACKTO-TYPE1) ;
00003036 1 0BF4 JMPI RL7400 ; RETURN LINK+0 ;
00003037 1 0BF5 ; ;
00003038 1 0BF5 ED7418: ; 4. (00001/10001) ;
00003039 1 0BF5 IBZ X7 ECOESM ; IF EOS/EOM-EB THEN ;
00003040 1 0BF6 JMP ED7419 ; BEGIN ;
00003041 1 0BF7 MOV ECONTX.X6 R0 ; ;
00003042 1 0BF8 XTR R0 EOCBDX ; BID:=(ONTX)MOD128 ;
00003043 1 0BF9 MOV R0 ECOSSB.X6 ; OSSB:=BID ;
00003044 1 0BFA MOV ECOPSB.X6 R1 ; IF OPSB=OFSB I.E. ;
00003045 1 0BFB IEQ R1 ECOFSB.X6 ; (FIRST EOS TO TX) THEN ;
00003046 1 0BFD MOV R0 ECOFSB.X6 ; OFSB:=BID ;
00003047 1 0BFE ED7419: ; END ;
00003048 1 0BFE ; ;
00003049 1 0BFE MOV ECOEBA-ECOSTA.X7 R5 ; BUFP:=EBP ;
00003050 1 0BFF MOV R7 R2 ; ;
00003051 1 0C00 MOVC EBCNTX R0 ; OFFS:=EBCNTX ;
00003052 1 0C01 JMP S4 ED6200 ; READBUF(BUFP,OFFS,WORD) ;
00003053 1 0C03 MOVC EDWRK7 R7 ; ;
00003054 1 0C04 MOV R1 X7 ; ;
00003055 1 0C05 SRL R1 1 ; ;
00003056 1 0C06 MODC 2#111<7 ; COUNT:=FUNC(WORD) ;
00003057 1 0C07 PUT R1 X7 ; ;
00003058 1 0C08 MOV X7 R0 ; ;
00003059 1 0C09 XTR R0 10 ; ;
00003060 1 0C0A NEG R0 ; ;
00003061 1 0C0B MOV CSTPTR R7 ; ;
00003062 1 0C0C ADD R0 CSTNOC.X7 ; CSTNOC:=CSTNOC-COUNT ;
00003063 1 0C0E MOV R2 R7 ; ;
00003064 1 0C0F ED741A: ; 5. (01011/11011) ;
00003065 1 0C0F ION ECOISW.X6 ; ;
00003066 1 0C10 MODC 1<ECOTQS ; ;
00003067 1 0C11 MOVC 1<ECOITX R0 ; ;
00003068 1 0C12 MODC 1<ECOTQS+1<ECOITX+% ; ;
00003069 1 0C12 1<ECONKD ; PUT_OSTA(OTQS,OITX,-ONKD) ;
00003070 1 0C13 PUT R0 X7 ; ;
00003071 1 0C14 MOD X7 ; ;
00003072 1 0C15 MOVC 1<ECONCT X7 ; ONCT:=ONCT+1 ;
00003073 1 0C17 MOV ECOEBA-ECOSTA.X7 R1 ; EBP:=OEBA(ONTX) ;
00003074 1 0C18 MOVC EOCTDT R2 ; QID:=D ;
00003075 1 0C19 MOV R7 R3 ; X:=INDEX(OSTA(ONTX)) ;
00003076 1 0C1A JMP S4 ED6820 ; QUEUE(EBP,QID,X) ;
00003077 1 0C1C INC ECONTX.X6 ; ONTX:=ONTX+1 ;
00003078 1 0C1D JMPI RL7400 ; RETURN LINK+0 ;
00003079 1 0C1E ; ;
00003080 1 0C1E ED741C: ; 6. (01111/1111) ;
00003081 1 0C1E MOV RL7400 R4 ; BUSY_LINE ;
00003082 1 0C1F JMP 2. X4 ; RETURN LINK+2 ;
00003083 1 0C20 ; ;
00003084 1 0C20 ED741E: ; 7. ( ELSE ) ;
00003085 1 0C20 JMPI S4 EI1990 ; CP_ERROR(INVALID OSTA) ;
00003086 1 0C21 MOV RL7400 R4 ; ;
00003087 1 0C22 JMP 2. X4 ; RETURN LINK+2 ;
00003088 1 0C23 ; END DATA_TX. ;
00003089 1 0C23 ;-----------------------------------------------------------------------;
00003090 1 0C23 ED7420: ; BEGIN ACK_TX. ;
00003091 1 0C23 ;---------------------------------- ;
00003092 1 0C23 IOZP ECCAQH+QCCQE.X6 ; IF ACK_QUEUE EMPTY THEN ;
00003093 1 0C24 RELS X5 ECOAKP ; CLEAR(OQCW.OACP) ;
00003094 1 0C25 JMP 0. X4 ; RETURN LINK+0 ;
00003095 1 0C26 MOV R4 RL7400 ; ELSE ;
00003096 1 0C27 MOD ECRPTA ; BEGIN ;
00003097 1 0C28 MOVC ECCAQH R4 ; Q:=CAQH ;
00003098 1 0C29 MOVC 1 R3 ; N:=1 ;
00003099 1 0C2A MON LNOQ ; DEQUEUE(Q,N,FBUF,LBUF) ;
00003100 1 0C2B NOP ; ;
00003101 1 0C2C MOV ECRPTR R6 ; ;
00003102 1 0C2D MOV R5 R3 ; ;
00003103 1 0C2E MOV R5 R1 ; EBP:=FBUF ;
00003104 1 0C2F MOVC EOCTAC R2 ; QID:=ACK ;
00003105 1 0C30 JMP S4 ED6820 ; QUEUE(EBP,QID,EBP) ;
00003106 1 0C32 JMPI RL7400 ; RETURN LINK+0 ;
00003107 1 0C33 ; END ;
00003108 1 0C33 ; END ACK_TX. ;
00003109 1 0C33 ;-----------------------------------------------------------------------;
00003110 1 0C33 ED7430: ; BEGIN NAK_TX. ;
00003111 1 0C33 ;---------------------------------- ;
00003112 1 0C33 IOZP ECCNQH+QCCQE.X6 ; IF NAK_QUEUE EMPTY THEN ;
00003113 1 0C34 RELS X5 ECONKP ; CLEAR(OQCW.ONKP) ;
00003114 1 0C35 JMP 0. X4 ; RETURN LINK+0 ;
00003115 1 0C36 MOV R4 RL7400 ; ELSE ;
00003116 1 0C37 MOD ECRPTA ; BEGIN ;
00003117 1 0C38 MOVC ECCNQH R4 ; Q:=CNQH ;
00003118 1 0C39 MOVC 1 R3 ; N:=1 ;
00003119 1 0C3A MON LNOQ ; DEQUEUE(Q,N,FBUF,LBUF) ;
00003120 1 0C3B NOP ; ;
00003121 1 0C3C MOV ECRPTR R6 ; ;
00003122 1 0C3D MOV R5 R3 ; ;
00003123 1 0C3E MOV R5 R1 ; EBP:=FBUF ;
00003124 1 0C3F MOVC EOCTNK R2 ; QID:=NAK ;
00003125 1 0C40 JMP S4 ED6820 ; QUEUE(EBP,QID,EBP) ;
00003126 1 0C42 JMPI RL7400 ; RETURN LINK+0 ;
00003127 1 0C43 ; END ;
00003128 1 0C43 ; END NAK_TX ;
00003129 1 0C43 ;-----------------------------------------------------------------------;
00003130 1 0C43 ED7440: ; BEGIN LCB_TX. ;
00003131 1 0C43 ;---------------------------------- ;
00003132 1 0C43 IBZ X5 ECOLTX ; IF LCB_NOT_AVAILABLE THEN ;
00003133 1 0C44 JMPI S4 EI1990 ; GOTO CP_ERROR. ;
00003134 1 0C45 MOV R4 RL7400 ; ELSE ;
00003135 1 0C46 ; BEGIN ;
00003136 1 0C46 RELS X5 ECOLCP ; CLEAR(OQCW.OLCP) ;
00003137 1 0C47 SETS X5 ECOLIT ; SETS OQCW(OLIT) ;
00003138 1 0C48 MOV ECOLER.X6 R1 ; EBP:=OLER ;
00003139 1 0C49 MOVC EOCTLC R2 ; QID:=LCB ;
00003140 1 0C4A MOVC 0 R3 ; ;
00003141 1 0C4B JMP S4 ED6820 ; QUEUE(EBP,QID,0) ;
00003142 1 0C4D JMPI RL7400 ; RETURN LINK+0 ;
00003143 1 0C4E ; END ;
00003144 1 0C4E ; END LCB_TX. ;
00003145 1 0C4E ;-----------------------------------------------------------------------;
00003146 1 0C4E ED7450: ; BEGIN ACKL_TX. ;
00003147 1 0C4E ;---------------------------------- ;
00003148 1 0C4E IOZP ECCALQH+QCCQE.X6 ; IF ACKL_QUEUE EMPTY THEN ;
00003149 1 0C4F RELS X5 ECOALP ; CLEAR(OQCW,OALP) ;
00003150 1 0C50 JMP 0. X4 ; RETURN LINK+0 ;
00003151 1 0C51 MOV R4 RL7400 ; ELSE ;
00003152 1 0C52 MOD ECRPTA ; BEGIN ;
00003153 1 0C53 MOVC ECCALQH R4 ; Q:=CALQH ;
00003154 1 0C54 MOVC 1 R3 ; N:=1 ;
00003155 1 0C55 MON LNOQ ; DEQUEUE(Q,N,FBUF,LBUF) ;
00003156 1 0C56 NOP ; ;
00003157 1 0C57 MOV ECRPTR R6 ; ;
00003158 1 0C58 MOV R5 R3 ; ;
00003159 1 0C59 MOV R5 R1 ; EBP:=FBUF ;
00003160 1 0C5A MOVC EOCTAL R2 ; QID:=ACKL ;
00003161 1 0C5B JMP S4 ED6820 ; QUEUE(EBP,QID,EBP) ;
00003162 1 0C5D JMPI RL7400 ; RETURN LINK+0 ;
00003163 1 0C5E ; END ;
00003164 1 0C5E ; END ACKL_TX. ;
00003165 1 0C5E ;---------------------------------------------------------------------- ;
00003166 1 0C5E ED7460: ; BEGIN SETB_TX. ;
00003167 1 0C5E ;---------------------------------- ;
00003168 1 0C5E MOV R4 RL7400 ; ;
00003169 1 0C5F MOVC COEBCC R7 ; ;
00003170 1 0C60 MOVC 4 X7 ; COEBCC:=4 ;
00003171 1 0C61 MOV ECOPSB.X6 R0 ; ;
00003172 1 0C62 MOV R0 COBID ; COBID:=OPSB ;
00003173 1 0C63 JMP S4 ED6322 ; GENERATE_SETB(COBID,BUFP) ;
00003174 1 0C65 JMPI RL7400 ; NO BINS - DON'T TRANSMIT ;
00003175 1 0C66 MOV ECRPTR R6 ; ;
00003176 1 0C67 MOV R5 R3 ; ;
00003177 1 0C68 MOV R5 R1 ; EBP:=BUFP ;
00003178 1 0C69 MOVC EOCTSB R2 ; QID:=SETB ;
00003179 1 0C6A JMP S4 ED6820 ; QUEUE(EBP,QID,EBP) ;
00003180 1 0C6C JMPI RL7400 ; RETURN LINK+0 ;
00003181 1 0C6D ; END SETB_TX ;
00003182 1 0C6D ;---------------------------------------------------------------------- ;
00003183 1 0C6D ED7470: ; BEGIN RR_TX. ;
00003184 1 0C6D ;---------------------------------- ;
00003185 1 0C6D MOV R4 RL7400 ; ;
00003186 1 0C6E MOVC COEBCC R7 ; ;
00003187 1 0C6F MOVC 4 X7 ; COEBCC:=4 ;
00003188 1 0C70 MOD ECOCSC.X6 ; ;
00003189 1 0C71 MOV ECOPSB.X6 R0 ; COBID:='LAST EOS/EOM-BID' ;
00003190 1 0C72 MOV R0 COBID ; ;
00003191 1 0C73 JMP S4 ED6320 ; GENERATE_RR(0,BUFP) ;
00003192 1 0C75 JMPI RL7400 ; NO BINS - DON'T TRANSMIT ;
00003193 1 0C76 MOV ECRPTR R6 ; ;
00003194 1 0C77 MOV R5 R3 ; ;
00003195 1 0C78 MOV R5 R1 ; EBP:=BUFP ;
00003196 1 0C79 MOVC EOCTRR R2 ; QID:=RR ;
00003197 1 0C7A JMP S4 ED6820 ; QUEUE(EBP,QID,EBP) ;
00003198 1 0C7C JMPI RL7400 ; RETURN LINK+0 ;
00003199 1 0C7D ; END RR_TX. ;
00003200 1 0C7D ;---------------------------------------------------------------------- ;
00003201 1 0C7D ED7490: ; BEGIN TX_QUEUE'S_EMPTY. ;
00003202 1 0C7D ;---------------------------------- ;
00003203 1 0C7D MOVC NT% ; ;
00003204 1 0C7D (1<ECOOEP+1<ECOEBP) R0 ; ;
00003205 1 0C7E AND R0 ECOFLG.X6 ; CLEAR OFLG(OEBP) ;
00003206 1 0C80 JMP 1. X4 ; RETURN LINK+1 ;
00003207 1 0C81 ; END EMPTY_TX_QUEUES. ;
00003208 1 0C81 ;----------------------------------------------------------------------";
00003209 1 0C81 ;FF\f
;
00003210 1 0C81 ;-----------------------------------------------------------------------;
00003211 1 0C81 ; PROCEDURE ED8100 ;
00003212 1 0C81 ; WRITE_OEB ;
00003213 1 0C81 ; ;
00003214 1 0C81 ; REGISTERS ENTRY EXIT ;
00003215 1 0C81 ; R0 - EB_COUNT ;
00003216 1 0C81 ; R1 - EB_TYPE/BID ;
00003217 1 0C81 ; R2,R3 - DESTROYED ;
00003218 1 0C81 ; R4 LINK DESTROYED ;
00003219 1 0C81 ; R5 - EB_ADDR (ABS) ;
00003220 1 0C81 ; R6 ECRP (REL) ECRP (REL) ;
00003221 1 0C81 ; R7 - DESTROYED ;
00003222 1 0C81 ; ;
00003223 1 0C81 ; INPUTS: COEBCC,COEBBT,COEBPT,COEBPW ;
00003224 1 0C81 ; OUTPUTS: EB (COUNT,TYPE,BID) ;
00003225 1 0C81 ; ;
00003226 1 0C81 ; CALL BY: ED8400 ;
00003227 1 0C81 ; CALL TO: ED6200 ;
00003228 1 0C81 ;-----------------------------------------------------------------------;
00003229 1 0C81 ED8100: ; BEGIN WRITE_OEB ;
00003230 1 0C81 MOV R4 RL8100 ; ;
00003231 1 0C82 MOVC COEBCC R7 ; ;
00003232 1 0C83 MOV X7 R1 ; ;
00003233 1 0C84 XTR R1 7 ; COUNT:=CHA_COUNT EXTRACT 7 ;
00003234 1 0C85 SLL X7 1 ; ;
00003235 1 0C86 MODC #00FF ; CHA_COUNT:= ;
00003236 1 0C87 PUT R1 X7 ; 2*CHA_COUNT AND #00FF+COUNT ;
00003237 1 0C88 MOV COEBPT R5 ; BUFP:=EB_ADDR ;
00003238 1 0C89 MOV COEBBT R2 ; TYPE:=EB_TYPE ;
00003239 1 0C8A INEP R2 BTLCB ; IF TYPE<>LCB_TYPE THEN ;
00003240 1 0C8C MOV ECONIX.X6 R1 ; BID:=ONIX ;
00003241 1 0C8D JMP ED8102 ; ELSE ;
00003242 1 0C8E ; BEGIN ;
00003243 1 0C8E MOVC EBBIDX R0 ; OFFS:=EBBIDX ;
00003244 1 0C8F JMP S4 ED6200 ; READBUF(BUFP,OFFS,WORD) ;
00003245 1 0C91 SWP R1 ; ;
00003246 1 0C92 XTR R1 EOCBDX ; BID:=WORD ;
00003247 1 0C93 MOV R1 COBID ; COBID:=BID ;
00003248 1 0C94 ; END ;
00003249 1 0C94 ED8102: ; ;
00003250 1 0C94 XTR R1 EOCBDX ; BID:=(BID)MOD128 ;
00003251 1 0C95 SWP R1 ; ;
00003252 1 0C96 IOR R2 R1 ; ;
00003253 1 0C97 MOV COEBCC R0 ; ;
00003254 1 0C98 MOV COEBPW R3 ; ;
00003255 1 0C99 SUB XBASE R5 ; ;
00003256 1 0C9B SVS R7 ; MASK:=PSW ;
00003257 1 0C9C LDS R3 ; PSW:=EB_MASK ;
00003258 1 0C9D MOV R0 EBCNTX.X5 ; EB_COUNT:=COUNT ;
00003259 1 0C9E MOV R1 EBTABX.X5 ; EB_TYPE/BID:=TYPE/BID ;
00003260 1 0C9F LDS R7 ; PSW:=MASK ;
00003261 1 0CA0 JMPI RL8100 ; ;
00003262 1 0CA1 ; END ;
00003263 1 0CA1 ;
00003264 1 0CA1 ;-----------------------------------------------------------------------;
00003265 1 0CA1 ; PROCEDURE ED8400 ;
00003266 1 0CA1 ; COMPOSE_OEB ;
00003267 1 0CA1 ; ;
00003268 1 0CA1 ; REGISTERS ENTRY EXIT ;
00003269 1 0CA1 ; R0,R1,R2,R3 - DESTROYED ;
00003270 1 0CA1 ; R4 LINK DESTROYED ;
00003271 1 0CA1 ; R5,R6,R7 - DESTROYED ;
00003272 1 0CA1 ; ;
00003273 1 0CA1 ; INPUTS: CSTPTA,CSTPTR,CSTOBQ ;
00003274 1 0CA1 ; OUTPUTS: COEBBC,COEBCC,COEBBT,COSMSK ;
00003275 1 0CA1 ; ;
00003276 1 0CA1 ; CALL BY: ED8500 ;
00003277 1 0CA1 ; CALL TO: ED6200,ED8100,ED1900,GBSM,GNBA ;
00003278 1 0CA1 ; ;
00003279 1 0CA1 ; RETURNS: ;
00003280 1 0CA1 ; LINK - DONE ;
00003281 1 0CA1 ;-----------------------------------------------------------------------;
00003282 1 0CA1 ; JUMP TABLE FOR EB TYPES: ;
00003283 1 0CA1 ;-----------------------------------------------------------------------;
00003284 1 0CA1 ED8350: ; ;
00003285 1 0CA1 ED8410, ED8440, ED8430, ED8450 ; ;
00003286 1 0CA5 ED8460, ED8470, ED8470, ED8420 ; ;
00003287 1 0CA9 ;-----------------------------------------------------------------------;
00003288 1 0CA9 ED8400: ; BEGIN COMPOSE_OEB ;
00003289 1 0CA9 MOV R4 RL8400 ; ;
00003290 1 0CAA MOVC 0 R0 ; ;
00003291 1 0CAB MOV R0 COEBBT ; EB_TYPE:=UNDEF ;
00003292 1 0CAC MOV R0 COEBBC ; BUF_COUNT:=0 ;
00003293 1 0CAD MOV R0 COEBCC ; CHA_COUNT:=0 ;
00003294 1 0CAE MOV R0 COSMSK ; CUR_MASK:= 0 ;
00003295 1 0CAF MOV CSTPTR R7 ; ;
00003296 1 0CB0 MOV CSTOBQ+QCCQE.X7 R3 ; ;
00003297 1 0CB2 IEQ R3 0 ; IF NOB.OBQ=0 ;
00003298 1 0CB3 JMPI RL8400 ; THEN RETURN ;
00003299 1 0CB4 MOV CSTOBQ+QCFQE.X7 R5 ; BUFP:=FQE.OBQ ;
00003300 1 0CB6 MOV R5 COEBPT ; EB_POINTER:=BUFP ;
00003301 1 0CB7 MOVC BINSTA R0 ; OFFS:=BINSTA ;
00003302 1 0CB8 MOVC 2#11<BINETC R1 ; MASK:=BINETC_MASK ;
00003303 1 0CB9 MOVC 0 R2 ; WORD:=0 ;
00003304 1 0CBA MON PUTBUF ; PUT_BUFFER(BUFP,OFFS,MASK,WORD) ;
00003305 1 0CBB MOV R3 COEBPW ; EB_PSW:=BMSA ;
00003306 1 0CBC MOVC EBCNTX R0 ; OFFS:=EBCNTX ;
00003307 1 0CBD JMP S4 ED6200 ; READBUF(BUFP,OFFS,WORD) ;
00003308 1 0CBF MOV R1 EDWRK1 ; ;
00003309 1 0CC0 ED8402: ; REPEAT ;
00003310 1 0CC0 MOV R5 EDWRK5 ; CURR-LAST-BUF:=BUFP ;
00003311 1 0CC1 MOVC BINSTA R0 ; OFFS:=BINSTA ;
00003312 1 0CC2 JMP S4 ED6200 ; READBUF(BUFP,OFFS,WORD) ;
00003313 1 0CC4 MOV R1 R2 ; ;
00003314 1 0CC5 MOV R1 R0 ; CAUSE:=WORD ;
00003315 1 0CC6 XTR R1 BINCNX ; ;
00003316 1 0CC7 MOVC COEBCC R4 ; ;
00003317 1 0CC8 ADD R1 X4 ; CHA_COUNT:=CHA_COUNT+COUNT ;
00003318 1 0CC9 MOVC COEBBC R4 ; ;
00003319 1 0CCA INC 0. X4 ; BUF_COUNT:=BUF_COUNT+1 ;
00003320 1 0CCB SRL R0 BINTCS ; ;
00003321 1 0CCC XTR R0 BINTCX ; CAUSE:=BUF_TCS RIGHT_ADJUST ;
00003322 1 0CCD MOD R0 ; ;
00003323 1 0CCE JMPI S4 ED8350 ; CASE CAUSE OF ;
00003324 1 0CD0 ; NO_EOB: ;
00003325 1 0CD0 ED8410: ; BEGIN ;
00003326 1 0CD0 MON GNBA ; GET_NEXT(BUFP,MASK) ;
00003327 1 0CD1 JMPI RL8400 &; NO_NEXT, RETURN ;
00003328 1 0CD2 JMP ED8402 ; GOTO REPEAT ;
00003329 1 0CD3 ; END ;
00003330 1 0CD3 ; EOB: ;
00003331 1 0CD3 ED8420: ; BEGIN ;
00003332 1 0CD3 MOVC BTD R0 ; TYPE:=D_TYPE ;
00003333 1 0CD4 MOVC 1<ECOFUL R1 ; TERM:=EOB ;
00003334 1 0CD5 JMP ED8480 ; GOTO EXIT_REPEAT ;
00003335 1 0CD6 ; END ;
00003336 1 0CD6 ; EOS: ;
00003337 1 0CD6 ED8430: ; BEGIN ;
00003338 1 0CD6 MOVC BTEOS R0 ; TYPE:=EOS_TYPE ;
00003339 1 0CD7 MODC 1<ECOFUL ; ;
00003340 1 0CD8 MOVC 1<ECOEOS+1<ECOESM R1 ; TERM:=EOS ;
00003341 1 0CD9 JMP ED8480 ; GOTO EXIT_REPEAT ;
00003342 1 0CDA ; END ;
00003343 1 0CDA ; EOM: ;
00003344 1 0CDA ED8440: ; BEGIN ;
00003345 1 0CDA MOVC BTEOM R0 ; TYPE:=EOM_TYPE ;
00003346 1 0CDB MOVC 1<ECOFUL+% ; TERM:=EOM ;
00003347 1 0CDB 1<ECOEOM+1<ECOESM R1 ; ;
00003348 1 0CDD JMP ED8480 ; GOTO EXIT_REPEAT ;
00003349 1 0CDE ; END ;
00003350 1 0CDE ; EOS+EOM: ;
00003351 1 0CDE ED8450: ; BEGIN ;
00003352 1 0CDE MOVC BTEOM R0 ; TYPE:=EOM_TYPE ;
00003353 1 0CDF MOVC 1<ECOEOS+1<ECOFUL+% ; TERM:=EOS+EOM ;
00003354 1 0CDF 1<ECOEOM+1<ECOESM R1 ; ;
00003355 1 0CE1 JMP ED8480 ; GOTO EXIT_REPEAT ;
00003356 1 0CE2 ; END ;
00003357 1 0CE2 ; LCB: ;
00003358 1 0CE2 ED8460: ; BEGIN ;
00003359 1 0CE2 MOVC BTLCB R0 ; TYPE:=LCB_TYPE ;
00003360 1 0CE3 MOVC 1<EOCLCB R1 ; TERM:=LCB ;
00003361 1 0CE5 JMP ED8480 ; GOTO EXIT_REPEAT ;
00003362 1 0CE6 ; END ;
00003363 1 0CE6 ; UNDEFINED: ;
00003364 1 0CE6 ED8470: ; BEGIN ;
00003365 1 0CE6 JMPI S4 EI1990 &;E ERROR9(CPF) ;
00003366 1 0CE7 JMP ED8480 ; GOTO EXIT_REPEAT ;
00003367 1 0CE8 ; END ;
00003368 1 0CE8 ; END CASE ;
00003369 1 0CE8 ED8480: ; EXIT_REPEAT: ;
00003370 1 0CE8 MOV ECRPTR R6 ; ;
00003371 1 0CE9 MOV R0 COEBBT ; BLOCK_TYPE:=TYPE ;
00003372 1 0CEA MOV R1 COSMSK ; TERM_MASK:=TERM ;
00003373 1 0CEB IBZ R1 ECOESM ; IF EOS/EOM BLOCK THEN ;
00003374 1 0CEC JMP ED8484 ; BEGIN ;
00003375 1 0CED MOV EDWRK1 R1 ; ;
00003376 1 0CEE MOV R1 R0 ; ;
00003377 1 0CEF XTR R1 MSSEQX ; SEQN:=FRAME_FIELD_SEQ_NO ;
00003378 1 0CF0 SWP R0 ; ;
00003379 1 0CF1 XTR R0 CSTBLX ; ;
00003380 1 0CF2 MOV R0 ECOCCB.X6 ; OCCB.ECRP:=BUF_BLK_SIZE ;
00003381 1 0CF3 MOV COEBBC R3 ; ;
00003382 1 0CF4 IEQ R3 1 ; IF BUF_COUNT<>1 THEN ;
00003383 1 0CF5 JMP ED8482 ; BEGIN ;
00003384 1 0CF6 MOV EDWRK5 R5 ; BUFP:=LAST-BUF ;
00003385 1 0CF7 MOVC BINOSQ R0 ; OFFS:=BINOSQ ;
00003386 1 0CF8 JMP S4 ED6200 ; READBUF(BUFP,OFFS,WORD) ;
00003387 1 0CFA XTR R1 MSSEQX ; SEQN:=WORD EXTR MSSEQX ;
00003388 1 0CFB ; END ;
00003389 1 0CFB ED8482: ; ;
00003390 1 0CFB MOD ECOCSC.X6 ; ;
00003391 1 0CFC MOV R1 ECOS1S.X6 ; (OS1S+(OCSC)).ECRP:=SEQN ;
00003392 1 0CFD ; END ;
00003393 1 0CFD ED8484: ; TERMINATE_EB: ;
00003394 1 0CFD JMP S4 ED8100 ; WRITE_OEB(COUNT,TYPE,BID) ;
00003395 1 0CFE MOV COEBBC R3 ; N:=BUF_COUNT ;
00003396 1 0CFF MOD CSTPTA ; ;
00003397 1 0D00 MOVC CSTOBQ R4 ; QCB:=OBQ ;
00003398 1 0D01 MON LNOQ ; DEQUEUE(QCB,N,FBUF,LBUF) ;
00003399 1 0D02 JMPI S4 EI1990 &;E ERROR9(CPF) ;
00003400 1 0D03 JMPI RL8400 ; RETURN ;
00003401 1 0D04 ; END ;
00003402 1 0D04 ;---------------------------------------------------------------------- ;
00003403 1 0D04 ;
00003404 1 0D04 ; EXTERNAL NAMES ;
00003405 1 0D04 ; ;
00003406 1 0D04 ;-----------------------------------------------------------------------;
00003407 1 0D04 BEGIN ;
00003408 0 00D4 EXTERNAL ED6420,ED6440,ED6520 ;
00003409 0 00D4 EXTERNAL ED7040,ED7050,ED7060,ED7070,ED7080 ;
00003410 0 00D4 EXTERNAL ED7110,ED7120,ED7130,ED7140,ED7150,ED7160,ED7170,ED7190;
00003411 0 00D4 EXTERNAL ED7200,ED7290 ;
00003412 0 00D4 EXTERNAL ED8400 ;
00003413 0 00D4 NAMES ;
; 00003413 0 00D4 LEVEL 2 NAMES:
USE PROG
ED7110:= #0ABB
ED7200:= #0AD8
ED7120:= #0ABE
ED7040:= #09D3
ED6420:= #095A
ED7050:= #0A12
ED7130:= #0AC6
ED6440:= #097C
ED6520:= #0988
ED7060:= #0A25
ED7070:= #0A43
ED7080:= #0A78
ED7140:= #0AC6
ED7150:= #0AC6
ED7160:= #0AC7
ED7170:= #0AD1
ED7190:= #0AD1
ED7290:= #0B5C
ED8400:= #0CA9
USE #0
00003414 0 00D4 END ;
00003415 1 0D04 ;-----------------------------------------------------------------------;
00003416 1 0D04 ; ;
00003417 1 0D04 ; END OF EDC OUTPUT PROGRAM SECTION ;
00003418 1 0D04 ; ;
00003419 1 0D04 ;-----------------------------------------------------------------------;
00003420 1 0D04 END ;
Z064C0 T68D4
P
64C0L 0869 5FA6 D7BC E3BC 31BD 70BD 4019 E7BC
64C8L 00BF 0FBB 75EC 77BD 4394 A04F 00BF A51F
64D0L 078B 77EC 20E4 F042 A580 00BF C374 FF4B
64D8L 4D94 044C 63A6 80F0 5CA6 436E C3E7 0FBB
64E0L A155 01AF 77EC 20E4 F044 00BF 01BF 01A4
64E8L 4B48 6F70 C474 014B 58A6 1AD8 C468 01C8
64F0L C470 0248 3F49 6E6A 68A6 416F FA18 384B
64F8L 308C 85A0 6E6A 028A 0148 0756 3F49 68A6
6500L 0348 0129 6F6A 6C6B 63BC 328D 68A6 C4E7
6508L 416C 014D 35E4 5C8D C4E7 6168 02F2 00BF
6510L 6568 07F2 00BF 01BF 10A4 2048 5470 C574
6518L 11DD 5468 20E4 0E8D E44A 416C 391B 63BC
6520L 38EC 3EA3 4A94 0256 4B4C 6CA6 80F0 436E
6528L AA85 C5E7 C674 436E A018 04B0 05F0 04D8
6530L E44A AA1D 6DA6 B016 FB56 CF48 20E4 0E8C
6538L C6E7 C774 11DD E44A 416C 391B 63BC 38EC
6540L 3FA3 4A94 0256 4B4C 6CA6 80F0 436E AB85
6548L 0848 20E4 0E8D C7E7 C874 A018 03F0 04D8
6550L E44A AB1D 6DA6 B116 0D28 20E4 0E8C C8E7
6558L C974 018B 01C8 935D 7CFB 204B 3F8C 41F0
6560L 10D8 43F2 09D8 5470 5571 E01D 012B 5CA6
6568L 5468 5569 436E 05D8 E01B 004A 40F2 02E4
6570L B4D2 15EC 19C1 C9E7 416F EF1F 0814 00CF
6578L B318 8242 D83A 00BF 01BF CA74 A01D 5EF0
6580L A1A6 1CD8 B318 8240 13FD B83A 02E4 B4D2
6588L 38E4 9EBC B316 416E 8EA6 14FD 583A 13FD
6590L 5881 5FBB 4A39 12CF 7FE3 004B BF18 01B2
6598L 9FA6 0AFD 91A6 80F0 436E CAE7 39BB 72BD
65A0L 36FD 436E CAE7 D274 76BD 204D 5AF3 E0D8
65A8L 9C5D D0D8 E25D 21E4 0EF8 21D8 72F1 C8D8
65B0L 22E4 0EF8 08D8 23E4 0EFA C2D8 A280 A919
65B8L A881 A927 A713 A860 A881 A927 A713 4194
65C0L 6B70 A118 A261 A1D1 6D5D FE56 FE48 20E4
65C8L 0E8C 76BD 204D 54F3 A35D DADD B9D8 58F1
65D0L A7D8 5BF1 04D8 5211 4194 384F 7111 F656
65D8L FF48 20E4 0E8C 1056 0048 20E4 0E8D 54F3
65E0L B75D A6D8 D274 A018 02F2 A2D8 76BD 324D
65E8L 51F1 8FD8 DE5D 8FD8 26E4 0EFA 8AD8 5111
65F0L A55D AE1D 012B 5CA6 93D8 D274 76BD 204D
65F8L 5AF1 5BF3 8DD8 EF5D 7FD8 FE56 E0DD 82D8
6600L FE56 CDDD FE56 C5DD 72F1 7CD8 73F3 80D8
6608L 4294 086C CDA0 F4F5 72D8 74E3 5811 54F3
6610L E75D 03FD 75D8 D274 76BD 204D 5AF1 5BF3
6618L 6FD8 626D 0448 FE56 A3DD 17EC 6671 6668
6620L 07F2 5BD8 FE56 BBDD 5ED8 FE56 E6DD 55D8
6628L FE56 B5DD 58D8 6669 018B 17EC 20E4 9044
6630L 52D8 FE56 9CDD 01C9 FE56 93DD 4294 086C
6638L CDA0 F4F5 45D8 72F1 46D8 74E3 01C8 0CC1
6640L 76BD 204D 5811 54B3 FE56 E4DD 03FD 40D8
6648L D274 76BD 204D 5AF1 5BF3 3AD8 FE56 BDDD
6650L 2DD8 FE56 8CDD 06D8 FE56 73DD 72F1 2CD8
6658L 01C8 08D8 21E4 0EFA 27D8 01C8 FE56 69DD
6660L 72F1 22D8 FE56 6BDD FE56 63DD 73F1 72F3
6668L 75F3 08D8 4294 086C CDA0 F4F5 12D8 74E3
6670L 01C8 0E58 5811 54B3 FE56 B4DD 03FD 10D8
6678L 00E4 04E4 00E4 01A4 00E4 00E4 C1A4 01A4
6680L 01A4 04A4 01A4 00E4 CCE4 0048 09FD 80F0
6688L FE56 4CDD D2E7 1311 12E3 00BF D374 812C
6690L 32E4 4E8C AD16 FE56 A4DD D3E7 0AD8 CB74
6698L FD56 FF48 20E4 0E8C AC16 03DD FE56 74DD
66A0L CBE7 D374 13FA 0AFD 012B 1DBB 5CA6 D3E7
66A8L CC74 A018 01F2 3FD8 00F2 1FD8 2AFD 436E
66B0L 6F68 49E4 807C 22D8 807C 2DD8 A418 FE56
66B8L 10DD 71F3 13FD 7269 9FBB 706A E082 0448
66C0L 32E4 0E8D A416 A418 FE56 03DD 16F2 A716
66C8L A718 8200 75E3 18D8 2458 B218 00F0 1BD8
66D0L 2AFD 436E 6F68 49E4 807E 13FD 76BD 324D
66D8L 51F3 13FD 5011 51E3 55E3 AD27 7068 AE80
66E0L 6C68 A680 3A58 01E4 01E4 C0E4 1056 0048
66E8L 20E4 0E8D 4258 CCE7 0B68 0B85 0BBC 0BBC
66F0L 0B9D 0BA0 0BA8 0BC2 0BBC 0B85 0BBC 0BBC
66F8L 0B9D 0BAF 0BA8 0BC2 0945 0BC2 0BC2 0BBC
6700L 0B75 0B75 0B6F 0BBC 0944 0BC2 0BBC 0BBC
6708L 0944 0B8C 0BBC 0BBC 0C7D 0BE3 0C23 0C23
6710L 0C33 0C33 0C33 0C33 0C43 0C43 0C43 0C43
6718L 0C43 0C43 0C43 0C43 0C4E 0C4E 0C4E 0C4E
6720L 0C4E 0C4E 0C4E 0C4E 0C4E 0C4E 0C4E 0C4E
6728L 0C4E 0C4E 0C4E 0C4E CD74 76BD 204D 5DF3
6730L 2BD8 58FB 0CEC 8824 70BD 0B56 1CFD 0B58
6738L A018 07EC 8424 70BD 0B56 2CFD 0758 CE74
6740L A018 07B2 FD56 E6DD 01D8 CE74 76BD 204D
6748L FE56 2ADD 47D8 12CD 58FB 07EC 8224 70BD
6750L 0B56 3CFD 0D58 CEE7 3DD8 A018 07EC 8424
6758L 70BD 0B56 34FD 0758 76BD 204D FE56 14DD
6760L 31D8 12CD 58FB 2529 108C 07EC 8224 807C
6768L 29D8 70BD 0B56 3CFD 1158 58E3 AC27 00BF
6770L AC18 4294 0869 01F4 19D8 5811 59E3 00BF
6778L CE74 FD56 F9DD 16D8 58E3 BFDD CEE7 CE74
6780L AC18 4294 0869 01F4 0AD8 FD56 EDDD 0AD8
6788L 59E3 5811 A3DD CEE7 13FC 04D8 01A4 C948
6790L 09FD 80F0 CDE7 0BEF 0BF5 0C20 0BED 0C20
6798L 0BED 0C20 0BED 0C20 0C20 0C20 0C0F 0C20
67A0L 0C20 0C20 0C1E 0BF1 0BF5 0C20 0BF1 0C20
67A8L 0BF1 0C20 0BF1 0C20 0C20 0C20 0C0F 0C20
67B0L 0C20 0C20 0C1E CF74 A518 FD56 12DD 78FB
67B8L 06EC 8124 70BD 0B56 C3FC A516 0B58 5211
67C0L CFE7 5211 FD56 50DD CFE7 76F1 07D8 A518
67C8L 07EC A380 A119 22E4 1EF8 A280 E01D 7ABB
67D0L 0248 FC56 EDDD 5B4F 9FBB 9124 38E5 9FE9
67D8L 78FB 0AEC F0BC 416F 41E4 C008 2FBB B83A
67E0L 01E4 0848 19E4 8FE9 C054 2056 7050 E019
67E8L 014A 7BBB FD56 91DD A516 CFE7 CF6C 02BF
67F0L 13FD CF6C 02BF 8939 5311 00BF CF74 4D94
67F8L 074C 014B 63A6 80F0 436E 5BBB 59BB 034A
6800L FD56 7BDD CFE7 8C39 5411 00BF CF74 4D94
6808L 0A4C 014B 63A6 80F0 436E 5BBB 59BB 044A
6810L FD56 6BDD CFE7 51F1 13FD CF74 5511 57E3
6818L AE19 024A 004B FD56 60DD CFE7 8F39 5611
6820L 00BF CF74 4D94 0D4C 014B 63A6 80F0 436E
6828L 5BBB 59BB 054A FD56 50DD CFE7 CF74 6E4F
6830L 7450 A118 6C70 FC56 B3DD CFE7 436E 5BBB
6838L 59BB 074A FD56 41DD CFE7 CF74 6E4F 7450
6840L A754 A118 6C70 FC56 A2DD CFE7 436E 5BBB
6848L 59BB 064A FD56 31DD CFE7 C128 20E4 0E8C
6850L 01BF D074 6E4F 79FB 17EC F1E0 FFE4 9FE9
6858L 706D 6F6A 49E4 A03E A419 06D8 0348 FC56
6860L 5FDD 61BC 17EC 6C71 17EC 61BC 218D 6E68
6868L 716B 0814 00CD D7BC E3BC 4280 4381 E7BC
6870L D0E7 0CD0 0CDA 0CD6 0CDE 0CE2 0CE6 0CE6
6878L 0CD3 D174 0048 6F70 6D70 6E70 7270 416F
6880L 53E4 C01B B07C D1E7 51E4 C01D 7075 0148
6888L C049 004A 68A6 7173 0248 FC56 31DD 5571
6890L 5975 0148 FC56 2CDD 1ABB 18BB 16EC 6E4C
6898L 0009 6D4C 0016 8B24 03EC 70BD 0C56 A1FD
68A0L 5EA6 D1E7 1358 4148 0249 12D8 4348 02E4
68A8L C049 0ED8 4248 0156 4249 0AD8 4248 0156
68B0L C249 06D8 4948 4056 0049 02D8 13FD 00D8
68B8L 436E 6F70 7271 16F0 10D8 5569 18BB 18EC
68C0L 60BC 04EC AF80 6D6B B17C 05D8 596D 1348
68C8L FB56 F6DD 18EC A754 A881 7D5D 6D6B 4B94
68D0L 514C 63A6 13FD D1E7
S0
MEMORY MAP:
AREA 1 64C0
36 DIMENSION WARNINGS
2 INSTRUCTIONS EXPANDED
92 MODIFIES INSERTED
3 SKIPS PAIR CHANGED
1044 WORDS OUTPUT
1044 WORDS ASSEMBLED
ASSEMBLY OK?
48
68C8L FB56 F6DD 18EC A754 A881 7D5D 6D6B 4B94