|
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: 20352 (0x4f80)
Types: TextFile
Names: »EDCVOD«
└─⟦76721a325⟧ Bits:30005072 8" CR80 Floppy CR80FD_0010 ( EDC SYS 1 PJ DEC 3,80 )
└─⟦a51746dbe⟧
└─ ⟦this⟧ »EDCVOD«
00000001 0 0000 LIST ;
00000002 0 0000 ;-----------------------------------------------------------------------;
00000003 0 0000 ; PROJECT: NICS-TARE/CP. ;
00000004 0 0000 ; ;
00000005 0 0000 ; MODULE IDENTIFICATION:NIC/293 ;
00000006 0 0000 ; DISK IDENTIFICATION: CR/D/0960 ;
00000007 0 0000 ; ;
00000008 0 0000 ; CPS NAME: ERROR DETECTION AND CORRECTION (EDC) SUBMODULE ;
00000009 0 0000 ; EDC COMMEN PROGRAM SECTION (EDC) ;
00000010 0 0000 ; CPS VERSION: 0100 ;
00000011 0 0000 ; ;
00000012 0 0000 ; MERGE FILES: PRCGEN1,PRCGEN2,PRCGEN3,PRCGEN4,PRCGEN5,PRCGEN6, ;
00000013 0 0000 ; PRCGEN7,SYSNOD,EDMNOD,EDINOD,EDONOD ;
00000014 0 0000 ; CDTNOD,CSTNOD,ECFNOD ;
00000015 0 0000 ; ;
00000016 0 0000 ; MODULE FILES: EDCSOD,EDCMOD,EDCHOD,EDCNOD,EDCVOD ;
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 BEGIN MODULE SYSEDC ;
00000024 0 0000 USE BASE ;
00000025 0 0000 LOC=0 ;
00000026 0 0000 XDATE:=#0604 ;
00000027 0 0000 PMASK=#C413 ;
00000028 0 0000 CMASK=#8413 ;
00000029 0 0000 NOLIST ;
00000030 0 0000 MESSAGE: CALL SYSNOD
00000139 0 0000 MESSAGE: CALL EDMNOD
00000177 0 0000 MESSAGE: CALL EDINOD
00000191 0 0000 MESSAGE: CALL EDONOD
00000213 0 0000 MESSAGE: CALL CDTNOD
00000327 0 0000 MESSAGE: CALL CSTNOD
00000603 0 0000 MESSAGE: CALL ECFNOD
00000749 0 0000 LIST ;
00000750 0 0000 ;-----------------------------------------------------------------------;
00000751 0 0000 ; ;
00000752 0 0000 ; EDM/EDI/EDO BASE AND PROGRAM MEMORY ALLOCATION: ;
00000753 0 0000 ; ;
00000754 0 0000 ;-----------------------------------------------------------------------;
00000755 0 0000 EDMBASELENGTH:=#20 ; ;
00000756 0 0000 EDIBASELENGTH:=#30 ; ;
00000757 0 0000 EDOBASELENGTH:=#20 ; ;
00000758 0 0000 EDMPROGLENGTH:=#520 ; ;
00000759 0 0000 EDIPROGLENGTH:=#380 ; ;
00000760 0 0000 EDOPROGLENGTH:=#420 ; ;
00000761 0 0000 ;-----------------------------------------------------------------------;
00000762 0 0000 ; ;
00000763 0 0000 ; CALL PRCGEN - INTERRUPT DRIVEN PROCESS ;
00000764 0 0000 ; ;
00000765 0 0000 ;-----------------------------------------------------------------------;
00000766 0 0000 ;-----------------------------------------------------------------------;
00000767 0 0000 ; PRCGEN1 - GENERATE PROCESS DESCRIPTOR FOR 1ST PROCESS (PD0) 790317 ;
00000768 0 0000 ;-----------------------------------------------------------------------;
00000769 0 0000 NOLIST ;
00000795 0 0016 LIST ;
00000796 0 0016 ;-----------------------------------------------------------------------;
00000797 0 0016 ;-----------------------------------------------------------------------;
00000798 0 0016 ; PRCGEN2 - SET PROCESS 1 MODULE TRANSFER SIZE (PD0) 780422 ;
00000799 0 0016 ;-----------------------------------------------------------------------;
00000800 0 0016 NOLIST ;
00000804 0 0016 LIST ;
00000805 0 0016 ;-----------------------------------------------------------------------;
00000806 0 0016 ; ;
00000807 0 0016 ; EDC LOCAL DATA ;
00000808 0 0016 ; ;
00000809 0 0016 ;-----------------------------------------------------------------------;
00000810 0 0016 ; LOCAL COMMEN DATA: ;
00000811 0 0016 ; ;
00000812 0 0016 LOOPCT: LOC=LOC+1 ; GENERAL PURPOSE LOOP COUNTER ;
00000813 0 0017 CSCTYP: LOC=LOC+1 ; CURRENT SC_TYPE ;
00000814 0 0018 CSCPLA: LOC=LOC+1 ; CURRENT SC_PAD,LAD ;
00000815 0 0019 ECIITL: LOC=LOC+1 ; EDC_IDP LETTER ADDRESS (ABS) ;
00000816 0 001A ; ;
00000817 0 001A LOC=#40 ; *** FIXED LOCATION *** ;
00000818 0 0040 WCHLOC: LOC=LOC+1 ; RESERVED FOR WCH-MP ;
00000819 0 0041 ; ;
00000820 0 0041 CSTPTR: LOC=LOC+1 ; CST ENTRY ADDRESS (REL) ;
00000821 0 0042 ECFPTR: LOC=LOC+1 ; ECF START ADDRESS (REL) ;
00000822 0 0043 ECRPTR: LOC=LOC+1 ; ECR ENTRY ADDRESS (REL) ;
00000823 0 0044 PCFPTR: LOC=LOC+1 ; PCF START ADDRESS (REL) ;
00000824 0 0045 CDTPTR: LOC=LOC+1 ; CDT ENTRY ADDRESS (REL) ;
00000825 0 0046 MQEPTR: LOC=LOC+1 ; MQE START ADDRESS (REL) ;
00000826 0 0047 MQIPTR: LOC=LOC+1 ; MQI START ADDRESS (REL) ;
00000827 0 0048 MQOPTR: LOC=LOC+1 ; MQO START ADDRESS (REL) ;
00000828 0 0049 LETPTR: LOC=LOC+1 ; LETTER POINTER (REL) ;
00000829 0 004A ; ;
00000830 0 004A GSTPTA: LOC=LOC+1 ; GST START ADDRESS (ABS) ;
00000831 0 004B CSTPTA: LOC=LOC+1 ; CST ENTRY ADDRESS (ABS) ;
00000832 0 004C ECFPTA: LOC=LOC+1 ; ECF START ADDRESS (ABS) ;
00000833 0 004D ECRPTA: LOC=LOC+1 ; ECR ENTRY ADDRESS (ABS) ;
00000834 0 004E PCFPTA: LOC=LOC+1 ; PCF START ADDRESS (ABS) ;
00000835 0 004F CDTPTA: LOC=LOC+1 ; CDT ENTRY ADDRESS (ABS) ;
00000836 0 0050 MQEPTA: LOC=LOC+1 ; MQE START ADDRESS (ABS) ;
00000837 0 0051 MQIPTA: LOC=LOC+1 ; MQI START ADDRESS (ABS) ;
00000838 0 0052 MQOPTA: LOC=LOC+1 ; MQO START ADDRESS (ABS) ;
00000839 0 0053 LETPTA: LOC=LOC+1 ; LETTER POINTER (ABS) ;
00000840 0 0054 ; ;
00000841 0 0054 EDWORK: LOC=LOC+8 ; SCRATCH_PAD WORK ;
00000842 0 005C ; ;
00000843 0 005C ; ;
00000844 0 005C NMQEPT: LOC=LOC+1 ; NEXT MQE ENTRY ADDRESS (REL) ;
00000845 0 005D CEFLG: LOC=LOC+1 ; CURRENT MQE FLAG ;
00000846 0 005E CEEST: LOC=LOC+1 ; CURRENT MQE EEST ;
00000847 0 005F ; ;
00000848 0 005F ; LOCAL INPUT DATA: ;
00000849 0 005F NMQIPT: LOC=LOC+1 ; NEXT MQI ENTRY ADDRESS (REL) ;
00000850 0 0060 ; (CIFLG,CIEST,CIBUF,CITAB ;
00000851 0 0060 ; ARE MOVM LOCATIONS) ;
00000852 0 0060 CIFLG: LOC=LOC+1 ; CURRENT MQI FLAG ;
00000853 0 0061 CIEST: LOC=LOC+1 ; CURRENT MQI IEST ;
00000854 0 0062 CIBUF: LOC=LOC+1 ; CURRENT MQI IBUF ;
00000855 0 0063 CITAB: LOC=LOC+1 ; CURRENT MQI TYPE/BID ;
00000856 0 0064 CITYPE: LOC=LOC+1 ; CURRENT EB TYPE ;
00000857 0 0065 CIBID1: LOC=LOC+1 ; CURRENT EB BID1 ;
00000858 0 0066 CIBID2: LOC=LOC+1 ; CURRENT EB BID2 ;
00000859 0 0067 ; ;
00000860 0 0067 CIBID:= CIBID1 ; ;
00000861 0 0067 ; ;
00000862 0 0067 ; LOCAL OUTPUT DATA: ;
00000863 0 0067 ; ;
00000864 0 0067 NMQOPT: LOC=LOC+1 ; NEXT MQO ENTRY ADDRESS (REL) ;
00000865 0 0068 ; (COFLG,COEST,COBUF,NEXT ;
00000866 0 0068 ; ARE MOVM LOCATIONS) ;
00000867 0 0068 COFLG: LOC=LOC+1 ; CURRENT MQO FLAG ;
00000868 0 0069 COEST: LOC=LOC+1 ; CURRENT MQO OEST ;
00000869 0 006A COBUF: LOC=LOC+1 ; CURRENT MQO OBUF ;
00000870 0 006B COEBRF: LOC=LOC+1 ; CURRENT MQO EB REFERENCE. ;
00000871 0 006C COBID: LOC=LOC+1 ; CURRENT OUTPUT EB BID ;
00000872 0 006D ; ;
00000873 0 006D COEBBC: LOC=LOC+1 ; CURRENT EB BUFFER COUNT ;
00000874 0 006E COEBCC: LOC=LOC+1 ; CURRENT EB CHARACTER COUNT ;
00000875 0 006F COEBBT: LOC=LOC+1 ; CURRENT EB BLOCK TYPE ;
00000876 0 0070 COEBPT: LOC=LOC+1 ; CURRENT EB POINTER ;
00000877 0 0071 COEBPW: LOC=LOC+1 ; CURRENT EB MASK (PSW) ;
00000878 0 0072 ; ;
00000879 0 0072 COSMSK: LOC=LOC+1 ; CURRENT EB TERMINATION MASK ;
00000880 0 0073 ; ;
00000881 0 0073 EDWRK0:=EDWORK+0 ; ;
00000882 0 0073 EDWRK1:=EDWORK+1 ; ;
00000883 0 0073 EDWRK2:=EDWORK+2 ; ;
00000884 0 0073 EDWRK3:=EDWORK+3 ; ;
00000885 0 0073 EDWRK4:=EDWORK+4 ; ;
00000886 0 0073 EDWRK5:=EDWORK+5 ; ;
00000887 0 0073 EDWRK6:=EDWORK+6 ; ;
00000888 0 0073 EDWRK7:=EDWORK+7 ; ;
00000889 0 0073 ;-----------------------------------------------------------------------;
00000890 0 0073 ; ;
00000891 0 0073 ; EDC_MAIN_SECTION RETURN_LINKS/WORK. ;
00000892 0 0073 ; ;
00000893 0 0073 ;-----------------------------------------------------------------------;
00000894 0 0073 EMBASE: LOC=LOC+EDMBASELENGTH ;
00000895 0 0093 ;-----------------------------------------------------------------------;
00000896 0 0093 ; ;
00000897 0 0093 ; EDC_INPUT_SECTION RETURN_LINKS/WORK. ;
00000898 0 0093 ; ;
00000899 0 0093 ;-----------------------------------------------------------------------;
00000900 0 0093 EIBASE: LOC=LOC+EDIBASELENGTH ;
00000901 0 00C3 ;-----------------------------------------------------------------------;
00000902 0 00C3 ; ;
00000903 0 00C3 ; EDC_OUTPUT_SECTION RETURN_LINKS/WORK. ;
00000904 0 00C3 ; ;
00000905 0 00C3 ;-----------------------------------------------------------------------;
00000906 0 00C3 EOBASE: LOC=LOC+EDOBASELENGTH ;
00000907 0 00E3 ;-----------------------------------------------------------------------;
00000908 0 00E3 ; PRCGEN3 - SET PROCESS 1 EXECUTE AREA SIZE (PD0) 780422 ;
00000909 0 00E3 ;-----------------------------------------------------------------------;
00000910 0 00E3 NOLIST ;
00000913 0 00E3 LIST ;
00000914 0 00E3 EDCBASELENGTH:=LOC ;
00000915 0 00E3 ;-----------------------------------------------------------------------;
00000916 0 00E3 ; ;
00000917 0 00E3 ; CALL PRCGEN - LETTER DRIVEN PROCESS ;
00000918 0 00E3 ; ;
00000919 0 00E3 ;-----------------------------------------------------------------------;
00000920 0 00E3 ;-----------------------------------------------------------------------;
00000921 0 00E3 ; PRCGEN5 - GENERATE PROCESS DESCRIPTOR FOR 2ND PROCESS (PD1) 780512 ;
00000922 0 00E3 ;-----------------------------------------------------------------------;
00000923 0 00E3 NOLIST ;
00000932 0 0016 LIST ;
00000933 0 0016 0,REPEAT (((XCSIZE+LOC-XHPBSZ+15)AN #FFF0)-(XCSIZE+LOC-XHPBSZ)) ;
00000934 0 0026 ;-----------------------------------------------------------------------;
00000935 0 0026 ; PRCGEN6 - SET PROCESS 2 MODULE TRANFER SIZE (PD1) 780422 ;
00000936 0 0026 ;-----------------------------------------------------------------------;
00000937 0 0026 NOLIST ;
00000941 0 0026 LIST ;
00000942 0 0026 LOC=EDCBASELENGTH ;
00000943 0 00E3 ;-----------------------------------------------------------------------;
00000944 0 00E3 ; PRCGEN7 - SET PROCESS 2 EXECUTE AREA SIZE (PD1) 780422 ;
00000945 0 00E3 ;-----------------------------------------------------------------------;
00000946 0 00E3 NOLIST ;
00000949 0 00E3 LIST ;
00000950 0 00E3 ;-----------------------------------------------------------------------;
00000951 0 00E3 ; ;
00000952 0 00E3 ; ;
00000953 0 00E3 ; EDC COMMEN PROGRAM SECTION ;
00000954 0 00E3 ; ;
00000955 0 00E3 ; ;
00000956 0 00E3 ;-----------------------------------------------------------------------;
00000957 0 00E3 USE PROG ;
00000958 1 0000 LOC=0 ;
00000959 1 0000 ECPROG: ;
00000960 1 0000 ;-----------------------------------------------------------------------;
00000961 1 0000 ; ;
00000962 1 0000 ; COMMEN PROGRAM JUMP TABLES ;
00000963 1 0000 ; ;
00000964 1 0000 ;-----------------------------------------------------------------------;
00000965 1 0000 ;
00000966 1 0000 ;-----------------------------------------------------------------------;
00000967 1 0000 ; INDIRECT PROCEDURE JUMP TABLE ;
00000968 1 0000 ;-----------------------------------------------------------------------;
00000969 1 0000 EI1200: ED1200 ;
00000970 1 0001 EI1251: ED1251 ;
00000971 1 0002 EI1475: ED1475 ;
00000972 1 0003 EI1600: ED1600 ;
00000973 1 0004 EI1601: ED1601 ;
00000974 1 0005 EI1602: ED1602 ;
00000975 1 0006 EI1603: ED1603 ;
00000976 1 0007 EI1604: ED1604 ;
00000977 1 0008 EI4530: ED4530 ;
00000978 1 0009 EI1800: ED1800 ;
00000979 1 000A EI1900: ED1900 ;
00000980 1 000B EI1910: ED1910 ;
00000981 1 000C EI1920: ED1920 ;
00000982 1 000D EI1930: ED1930 ;
00000983 1 000E EI1940: ED1940 ;
00000984 1 000F EI1950: ED1950 ;
00000985 1 0010 EI1960: ED1960 ;
00000986 1 0011 EI1970: ED1970 ;
00000987 1 0012 EI1980: ED1980 ;
00000988 1 0013 EI1990: ED1990 ;
00000989 1 0014 EI19A0: ED19A0 ;
00000990 1 0015 EI19B0: ED19B0 ;
00000991 1 0016 EI19C0: ED19C0 ;
00000992 1 0017 EI19D0: ED19D0 ;
00000993 1 0018 EI19E0: ED19E0 ;
00000994 1 0019 EI19F0: ED19F0 ;
00000995 1 001A EI19F1: ED19F1 ;
00000996 1 001B EI3410: ED3410 ;
00000997 1 001C EI3420: ED3420 ;
00000998 1 001D EI3430: ED3430 ;
00000999 1 001E EI3500: ED3500 ;
00001000 1 001F EI3600: ED3600 ;
00001001 1 0020 EI4300: ED4300 ;
00001002 1 0021 EI4410: ED4410 ;
00001003 1 0022 EI4580: ED4580 ;
00001004 1 0023 EI5600: ED5600 ;
00001005 1 0024 EI5700: ED5700 ;
00001006 1 0025 EI6420: ED6420 ;
00001007 1 0026 EI6440: ED6440 ;
00001008 1 0027 EI6520: ED6520 ;
00001009 1 0028 EI7200: ED7200 ;
00001010 1 0029 EI7290: ED7290 ;
00001011 1 002A EI8400: ED8400 ;
00001012 1 002B ;-----------------------------------------------------------------------;
00001013 1 002B ; MQI JUMP TABLE. ;
00001014 1 002B ;-----------------------------------------------------------------------;
00001015 1 002B ED0300: ; ;
00001016 1 002B ED5100, ED5200, ED5200, ED7040 ; ;
00001017 1 002F ED7050, ED7060, ED7070, ED7080 ; ;
00001018 1 0033 ED5500, ED5400, ED5300 ; ;
00001019 1 0036 ;-----------------------------------------------------------------------;
00001020 1 0036 ; MQO JUMP TABLE. ;
00001021 1 0036 ;-----------------------------------------------------------------------;
00001022 1 0036 ED0500: ; ;
00001023 1 0036 ED7190,ED7110,ED7120,ED7130 ; ;
00001024 1 003A ED7140,ED7150,ED7160,ED7170 ; ;
00001025 1 003E ;-----------------------------------------------------------------------;
00001026 1 003E ; EDC JUMP TABLE SPARES. ;
00001027 1 003E ;-----------------------------------------------------------------------;
00001028 1 003E ECJMPI: 0,REPEAT 15 ;
00001029 1 004E ;-----------------------------------------------------------------------;
00001030 1 004E ; ;
00001031 1 004E ; EDM/EDI/EDO PROGRAM LOCATION ADJUSTMENT. ;
00001032 1 004E ; ;
00001033 1 004E ;-----------------------------------------------------------------------;
00001034 1 004E 0,REPEAT (((LOC+15) AN #FFF0)-LOC) ;
00001035 1 0050 EDCSYS:=SYSEDC ;
00001036 1 0050 ;-----------------------------------------------------------------------;
00001037 1 0050 ; ;
00001038 1 0050 ; EDC MAIN PROGRAM SECTION. ;
00001039 1 0050 ; ;
00001040 1 0050 ;-----------------------------------------------------------------------;
00001041 1 0050 EMPROG: LOC=LOC+EDMPROGLENGTH ;
00001042 1 0570 EDMSYS:=EDCSYS+XCSIZE+(EMPROG-ECPROG) ;
00001043 1 0570 ;-----------------------------------------------------------------------;
00001044 1 0570 ; ;
00001045 1 0570 ; EDC INPUT PROGRAM SECTION ;
00001046 1 0570 ; ;
00001047 1 0570 ;-----------------------------------------------------------------------;
00001048 1 0570 EIPROG: LOC=LOC+EDIPROGLENGTH ;
00001049 1 08F0 EDISYS:=EDMSYS+(EIPROG-EMPROG) ;
00001050 1 08F0 ;-----------------------------------------------------------------------;
00001051 1 08F0 ; ;
00001052 1 08F0 ; EDC OUTPUT PROGRAM SECTION ;
00001053 1 08F0 ; ;
00001054 1 08F0 ;-----------------------------------------------------------------------;
00001055 1 08F0 EOPROG: LOC=LOC+EDOPROGLENGTH ;
00001056 1 0D10 EDOSYS:=EDISYS+(EOPROG-EIPROG) ;
00001057 1 0D10 ;-----------------------------------------------------------------------;
00001058 1 0D10 ; ;
00001059 1 0D10 ; SET PRCGEN PARAMETERS ;
00001060 1 0D10 ; ;
00001061 1 0D10 ;-----------------------------------------------------------------------;
00001062 1 0D10 XNAME1= <:ED:> ; EDC SUBMODULE NAME ;
00001063 1 0D10 XNAME2= <:C:> ; ;
00001064 1 0D10 ; ;
00001065 1 0D10 XPID0= EDILPN ; EDC LOGICAL ID (INT) ;
00001066 1 0D10 XPID1= EDLLPN ; EDC LOGICAL ID (LET) ;
00001067 1 0D10 ; ;
00001068 1 0D10 XPRPC0= ED2000 ; EDC PROGRAM START (INT) ;
00001069 1 0D10 XPRPC1= ED3000 ; EDC PROGRAM START (LET) ;
00001070 1 0D10 ; ;
00001071 1 0D10 XMASK0= #E000 ; EDC PSW (INT) ;
00001072 1 0D10 XMASK1= #E000 ; EDC PSW (LET) ;
00001073 1 0D10 ; ;
00001074 1 0D10 XLISP0= ED2990 ; EDC LOC INT SERVICE PTR (INT) ;
00001075 1 0D10 XLISP1= ED3990 ; EDC LOC INT SERVICE PTR (LET) ;
00001076 1 0D10 ;-----------------------------------------------------------------------;
00001077 1 0D10 ; ;
00001078 1 0D10 ; CALL PRCGEN ;
00001079 1 0D10 ; ;
00001080 1 0D10 ;-----------------------------------------------------------------------;
00001081 1 0D10 ;-----------------------------------------------------------------------;
00001082 1 0D10 ; PRCGEN4 - TERMINATE PROCESS DESCRIPTORS (PD0,PD1,PD2) 780512 ;
00001083 1 0D10 ;-----------------------------------------------------------------------;
00001084 1 0D10 NOLIST ;
00001093 1 0D10 LIST ;
00001094 1 0D10 ;-----------------------------------------------------------------------;
00001095 1 0D10 ; ;
00001096 1 0D10 ; EXTERNAL NAMES. ;
00001097 1 0D10 ; ;
00001098 1 0D10 ;-----------------------------------------------------------------------;
00001099 1 0D10 BEGIN ;
00001100 0 00E3 ;
00001101 0 00E3 EXTERNAL EDCSYS,EDMSYS,EDISYS,EDOSYS ;
00001102 0 00E3 EXTERNAL EMBASE,EIBASE,EOBASE,EMPROG,EIPROG,EOPROG ;
00001103 0 00E3 EXTERNAL EDMBASELENGTH,EDIBASELENGTH,EDOBASELENGTH ;
00001104 0 00E3 EXTERNAL EDMPROGLENGTH,EDIPROGLENGTH,EDOPROGLENGTH ;
00001105 0 00E3 EXTERNAL GSTPTR,CSTPTR,MQIPTR,MQOPTR,ECFPTR,ECRPTR,PCFPTR,CDTPTR;
00001106 0 00E3 EXTERNAL GSTPTA,CSTPTA,ECFPTA,ECRPTA,PCFPTA,CDTPTA ;
00001107 0 00E3 EXTERNAL LETPTA ;
00001108 0 00E3 EXTERNAL LETPTR ;
00001109 0 00E3 EXTERNAL LOOPCT,ECIITL ;
00001110 0 00E3 EXTERNAL EDWORK ;
00001111 0 00E3 EXTERNAL EDWRK0,EDWRK1,EDWRK2,EDWRK3,EDWRK4,EDWRK5,EDWRK6,EDWRK7;
00001112 0 00E3 EXTERNAL NMQIPT,CIFLG ,CIEST ,CIBUF ,CITAB ,CITYPE,CIBID1,CIBID2;
00001113 0 00E3 EXTERNAL CIBID ,COBID ;
00001114 0 00E3 EXTERNAL MQEPTA,MQEPTR,NMQEPT,CEFLG,CEEST ;
00001115 0 00E3 EXTERNAL NMQOPT,COFLG ,COEST ,COBUF ;
00001116 0 00E3 EXTERNAL COEBBC,COEBCC,COEBBT,COEBPT,COEBPW,COEBRF,COSMSK ;
00001117 0 00E3 EXTERNAL MQIPTA,MQOPTA,CSCPLA,CSCTYP ;
00001118 0 00E3 EXTERNAL ED0300,ED0500 ;
00001119 0 00E3 EXTERNAL EI1251,EI1475 ;
00001120 0 00E3 EXTERNAL EI1200,EI19F1,EI3500,EI3600 ;
00001121 0 00E3 EXTERNAL EI1600,EI1601,EI1602,EI1603,EI1604 ;
00001122 0 00E3 EXTERNAL EI1800,EI1900 ;
00001123 0 00E3 EXTERNAL EI1910,EI1920,EI1930,EI1940,EI1950,EI1960,EI1970,EI1980;
00001124 0 00E3 EXTERNAL EI1990,EI19A0,EI19B0,EI19C0,EI19D0,EI19E0,EI19F0 ;
00001125 0 00E3 EXTERNAL EI3410,EI3420,EI3430 ;
00001126 0 00E3 EXTERNAL EI4530 ;
00001127 0 00E3 EXTERNAL EI4300,EI4410,EI6420,EI4580,EI5600,EI5700,EI6440 ;
00001128 0 00E3 EXTERNAL EI6520,EI7200,EI7290,EI8400 ;
00001129 0 00E3 ;
00001130 0 00E3 NAMES ;
00001131 0 00E3 END ;
00001132 1 0D10 ;-----------------------------------------------------------------------;
00001133 1 0D10 NOLIST ;
00001134 1 0D10 MESSAGE: EDCSYS= #5B80 PROG 1
00001135 1 0D10 MESSAGE: EDMSYS= #5C20 PROG 1
00001136 1 0D10 MESSAGE: EDISYS= #6140 PROG 1
00001137 1 0D10 MESSAGE: EDOSYS= #64C0 PROG 1
00001138 1 0D10 MESSAGE: EMBASE= #0073 BASE 1
00001139 1 0D10 MESSAGE: EIBASE= #0093 BASE 1
00001140 1 0D10 MESSAGE: EOBASE= #00C3 BASE 1
00001141 1 0D10 MESSAGE: ECPROG= #0000 PROG 1
00001142 1 0D10 MESSAGE: EMPROG= #0050 PROG 1
00001143 1 0D10 MESSAGE: EIPROG= #0570 PROG 1
00001144 1 0D10 MESSAGE: EOPROG= #08F0 PROG 1
00001145 1 0D10 MESSAGE: ECJMPI= #003E PROG 1
00001146 1 0D10 LIST ;
00001147 1 0D10 ;-----------------------------------------------------------------------;
00001148 1 0D10 ; ;
00001149 1 0D10 ; END OF EDC COMMEN PROGRAM SECTION ;
00001150 1 0D10 ; ;
00001151 1 0D10 ;-----------------------------------------------------------------------;
00001152 1 0D10 END ;
Z05B80 T5C20
P
5B80L 4445 0043 0604 0000 0000 0000 0000 0000
5B88L 0000 0002 0D60 0050 001A 0017 00E3 00D8
5B90L 0000 0000 0000 0000 0000 0000 0000 0000
5B98L 0000 0000 0000 02D3 0000 E000 0000 0340
5BA0L 0000 0000 0000 0000 0000 0000 002A 0027
5BA8L 00E3 00E4 0000 0000 0000 0000 0000 0000
5BB0L 0000 0000 0000 0000 0000 0342 0000 E000
5BB8L 0000 053F 0000 0000 0000 0000 0000 0000
5BC0L 0000 0000 0000 0000 0000 0000 0000 0000
5BC8L 0000 0000 0000 0000 0000 0000 0000 0000
5BD0L 00BD 013B 0213 0292 0293 0294 0295 0296
5BD8L 064B 02B0 02BE 02BF 02C0 02C1 02C2 02C3
5BE0L 02C4 02C5 02C6 02C7 02C8 02C9 02CA 02CB
5BE8L 02CC 02CD 02CE 04A9 04AA 04AB 04B5 04E6
5BF0L 05AC 05D1 068E 08AC 08B7 095A 097C 0988
5BF8L 0AD8 0B5C 0CA9 07DE 07FA 07FA 09D3 0A12
5C00L 0A25 0A43 0A78 088A 083D 0817 0AD1 0ABB
5C08L 0ABE 0AC6 0AC6 0AC6 0AC7 0AD1 0000 0000
5C10L 0000 0000 0000 0000 0000 0000 0000 0000
5C18L 0000 0000 0000 0000 0000 0000 0000 0000
S4
MEMORY MAP:
AREA 0 5B80
AREA 1 5BD0
11 DIMENSION WARNINGS
160 WORDS OUTPUT
160 WORDS ASSEMBLED
ASSEMBLY OK?
L 0ABE 0AC6 0AC6 0AC6 0AC7 0AD1 0000