1 /56 CCL FOR OS/8 V3D 2 / 3 / 4 / 5 / 6 / 7 / 8 / 9 / 10 / 11 /COPYRIGHT (C) 1974,1975,1976,1977 BY DIGITAL EQUIPMENT CORPORATION 12 / 13 / 14 / 15 / 16 / 17 / 18 / 19 / 20 / 21 / 22 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 23 /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 24 /CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 25 /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 26 / 27 /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 28 /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 29 /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 30 /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 31 / 32 /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 33 /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 34 /DIGITAL. 35 / 36 / 37 / 38 / 39 / 40 / 41 / 42 / 43 / 44 / 45 MOFILE=7600 46 MIFILE=7617 47 MPARAM=7643 48 49 XR2=15 50 XR=16 51 TXR=17 52 AMFLAG=17 53 T=20 54 TT=21 55 DEF=22 56 NAME1=23 57 NAME2=24 58 NAME3=25 59 NAME4=26 60 NMBASE=27 61 DEV1=30 62 DEV2=31 63 DELIM=32 64 DEFALT=33 /POINTS TO DEFAULT EXTENSION LIST 65 LXR=34 66 CLXR=35 67 PTR=36 68 DATWD=7666 69 BATERR=7000 /JMP HERE TO ABORT BATCH 70 BATOUT=7400 /JMS HERE TO PRINT ON BATCH LOG 71 BATSPL=7200 /JMS HERE TO PERFORM SPOOLING WITH DEFAULT EXT IN AC 72 OS78BIT=7771 73 74 BEGLN=1000 75 76 /CCL STARTING ADDRESS: 12000 77 /STARTING ADDRESS: 12001 78 /CHAIN STARTING ADDRESS:12002 79 80 / JOB STATUS WORD = 2003 81 82 /************************************************** 83 / 84 / SAVING CCL 85 / 86 / .LOAD CCL 87 / .SAVE SYS CCL;12001=2103 88 / .R CCL 89 / 90 /************************************************** 91 92 CCLSW=435 93 DEASADR=427 94 PRQMRK=1357 95 GETCCL=1362 96 OV=1375 97 MSOVL2=55 98 99 CCLBLK=67 /BLOCK ON SYS: USED BY CCL 100 CCLTAB="G /MUST BE UPDATED IF TABLES CHANGE 101 CCLNUM="1 102 CCLVER="F /CCL VERSION # 103 104 /*** NOTE: VERSION E OF CCL WAS FOR IN-HOUSE USE ONLY. 105 /USE OF SEMICOLONS WITH CCL VERSION I OR LATER 106 /REQUIRES BATCH VERSION 7 OR LATER. 107 /USE OF BASIC COMMAND REQUIRES V3D BASIC OR LATER 108 109 HNDLR=4400 110 BFR=5000 111 112 /MEMORY ALLOCATION: 113 114 /0 4400-4777 INPUT HANDLER FOR CD 115 / ALSO, SEMICOLON BUFFER 116 /0 5000-5177 PRE-EXTENSION @ BUFFER 117 /0 5200-5577 @ BUFFER 118 /0 1000-1777 /COMMAND LINE [EACH @ FILE RESTRICTED TO 1 BLOCK] 119 /0 2000-2777 /LINE BUFFER EXTENSION 120 / CHANGES SINCE FIELD RELEASE VERSION: 121 122 /1. RECURSIVE 'U' BUG FIXED 123 /2. INTERNAL STRUCTURE OF CCL KEYWORD TABLE CHANGED 124 /3. BUG RE REWRITING BLOCK CONTAINING PTR TO CORRECT FORTRAN FIXED 125 /4. .SV PARTS OF FILENAMES REMOVED FROM TABLE TO SAVE SPACE 126 /5. COMPARE PASSES ALTMODE 127 /6. TTY BECAME DEFAULT FOR COMPAR, DIRECT, AND MAP 128 /7. BUG RE PASSING DEFAULT * FIXED 129 /8. .LS FORM OF .CREF COMMAND REMOVED 130 /9. BUG CONCERNING PROCESSOR SWITCHES FIXED 131 /10. CCL SWITCH ALLOWED AFTER =N OPTION 132 /11. BUG RE 'BAD SWITCH OPTION' MESSAGE FIXED 133 /12. EXTRA SPACES NOW ALLOWED BEFORE CCL ARGUMENT 134 /13. 'DOES NOT EXIST' MESSAGE NOW SPELLED CORRECTLY 135 /14. 'BAD CCL SWITCH' MESSAGE ADDED 136 /15. CCL EDIT # CHANGED TO CCL VERSION # 137 /16. .EX CHAINS TO BCOMP NOT BASIC FOR .BA FILES 138 /17. MUNG PTR: NOW WORKS 139 /18. FIXED BUG RE MUNG 140 /19. FIXED BUG RE CD FOR FILE > 2047 BLKS 141 /20. FIXED BUG RE MAKE PTR: 142 143 /VERSION B FIXES: 144 145 /21. ALLOWED 'EDIT' TO COPY FILE EXTENSION 146 /22. FIXED BUG RE .CCL ON WRITE-LOCKED DEVICE 147 /23. FIXED DATE PROBLEM 148 /24. ALLOWED FF AND VT IN AN INDIRECT FILE TO BE IGNORED 149 150 /VERSION C FIXES: 151 152 /25. FIXED BUG RE SPACES AND SLASHES IN MUNG TEXT ARGUMENT 153 /26. ALLOWED EDIT COMMAND TO USE SAME OUT DEVICE 154 / AS IN DEVICE (IF NONE SPECIFIED) 155 /27. ADDED MORE SYNTAX CHECKING TO ZERO COMMAND 156 157 /VERSION D CHANGES: 158 159 /28. ALLOWED EDIT A 814 013400 0000 COMBN, 0 815 013401 4302 JMS USUAL 816 013402 0216 0216 817 013403 7214 YABSLDR 818 013404 5600 JMP I COMBN 819 820 013405 0000 COMRL, 0 821 013406 4302 JMS USUAL 822 013407 2214 2214 823 013410 7222 LOADE, YLOAD /MAY BECOME YLOADER 824 013411 5605 JMP I COMRL 825 826 013412 0000 COMPA, 0 827 013413 4302 JMS USUAL 828 013414 2001 2001 829 013415 7200 YPAL8 830 013416 5612 JMP I COMPA 831 832 013417 0000 COMFT, 0 833 013420 4302 JMS USUAL 834 013421 0624 0624 835 013422 7164 FORTE, YF4 /COULD BE CHANGED TO YFORT BY .R CCL 836 013423 5617 JMP I COMFT 837 838 013424 0000 COMBA, 0 839 013425 4302 JMS USUAL 840 013426 0201 0201 841 013427 7175 YBCOMP 842 013430 5624 JMP I COMBA 843 844 013431 0000 COMRA, 0 845 013432 4302 JMS USUAL 846 013433 2201 2201 847 013434 7255 YRALF 848 013435 5631 JMP I COMRA 849 013436 0000 COMSB, 0 850 013437 4302 JMS USUAL 851 013440 2302 2302 852 013441 7260 YSABR 853 013442 5636 JMP I COMSB 854 855 013443 0000 COMRB, 0 856 013444 4302 JMS USUAL 857 013445 2202 2202 858 013446 7302 YLINK 859 013447 5643 JMP I COMRB 860 861 013450 0000 COMMA, 0 862 013451 4302 JMS USUAL 863 013452 1501 1501 864 013453 7277 YMACREL 865 013454 5650 JMP I COMMA 866 867 013455 0000 COMBI, 0 868 013456 4302 JMS USUAL 869 013457 0211 0211 870 013460 7252 YBATCH 871 013461 5655 JMP I COMBI 872 873 013462 0000 COMLD, 0 874 013463 4302 JMS USUAL 875 013464 1404 1404 876 013465 7263 YFRTS 877 013466 5662 JMP I COMLD 878 013467 0000 DEFILE, 0 /PTR TO FILENAME TO CHAIN TO 879 880 /COMLS, 0 881 / TAD I (EXTLS 882 / DCA SETEXT 883 / TAD (YCREF 884 / DCA DEFILE 885 / ISZ I (DONB /CREF FOO.LS MAKES NO BINARY 886 / JMP I COMLS 887 888 013470 0000 RDMON, 0 889 013471 6211 CDF 10 890 013472 6202 CIF 0 891 013473 7200 CLA 892 013474 4777 JMS I (7607 893 013475 0400 0400 /READ 2 RECORD 894 013476 2000 2000 /LOCATION 2000 FIELD 0 895 013477 0007 7 /BLOCK 7,10 896 013500 5776 JMP I (IOERR 897 013501 5670 JMP I RDMON 898 899 013502 0000 USUAL, 0 900 013503 1702 TAD I USUAL 901 013504 3335 DCA SETEXT 902 013505 2302 ISZ USUAL 903 013506 1702 TAD I USUAL 904 013507 3267 DCA DEFILE 905 013510 2302 ISZ USUAL 906 013511 5702 JMP I USUAL 907 013512 0000 UNKN, 0 908 013513 1335 TAD SETEXT 909 013514 7440 SZA 910 013515 1020 TAD T /NEG OF SWITCH REQUEST 911 013516 7640 SZA CLA 912 013517 5775 JMP I (CCERA /CAN'T HAVE 2ND DEFAULT EXTENSION 913 013520 1020 TAD T 914 013521 7041 CIA 915 013522 3335 DCA SETEXT /SET DEFAULT EXTENSION 916 013523 1033 TAD DEFALT /SEE IF IT'S IN COMMAND'S SEARCH LIST 917 013524 3022 DCA DEF 918 013525 1335 TAD SETEXT 919 013526 4774 JMS I (EXTLUK 920 013527 7650 SNA CLA /DID WE FIND IT? 921 013530 5773 JMP I (CDER4 /NO 922 013531 2022 ISZ DEF /YES 923 / TAD I (JMSUB /ALLOW RECURSIVE CALL 924 / DCA HOLD 925 013532 1422 TAD I DEF 926 013533 4772 JMS I (JMSUB /CALL ITS SUBR 927 / TAD HOLD 928 /V1A RECURSIVE CALL NO LONGER THREATENS 929 / DCA I (JMSUB 930 013534 5712 JMP I UNKN 931 932 013535 0000 SETEXT, 0 /EXT WHICH HAS BEEN SET BY A CCL SWITCH 933 934 013536 1371 SEMERR, TAD (SEMSG-1 935 013537 3312 DCA UNKN 936 013540 1712 TAD I UNKN 937 013541 3343 DCA .+2 938 013542 4770 JMS I (PRMESG 939 013543 6666 SEMSG1 940 013544 4767 WRITFT, JMS I (LOOK 941 013545 7271 YCCL 942 013546 5776 JMP I (IOERR /CCL.SV NOT FOUND 943 013547 1766 TAD I (BLK 944 013550 1365 TAD (4 /*3400 IS 4TH BLOCK OF CCL NOT COUNTING CCB 945 013551 3357 DCA FBLK 946 013552 6211 CDF 10 947 013553 6202 CIF 0 948 013554 4777 JMS I (7607 949 013555 4210 4210 /WRITE 1 RECORD FROM FIELD 1 950 013556 3400 3400 /LOCS 3400-3777 951 013557 0000 FBLK, 0 952 013560 5776 JMP I (IOERR 953 013561 6203 CIF CDF 0 954 013562 5764 JMP I (7605 955 013564 7605 PAGE 013565 0004 013566 2515 013567 2516 013570 5000 013571 4152 013572 4531 013573 5745 013574 4475 013575 5720 013576 4522 013577 7607 956 013600 0000 CD, 0 957 013601 4777 JMS I (200 958 013602 0013 13 /RESET ALL HANDLERS 959 013603 4776 JMS I (CDINIT 960 013604 1337 BEGGRP, TAD OUTSW 961 013605 7650 SNA CLA 962 013606 1775 TAD I (BEGDIF /DIFF BETWEEN INPUT & OUTPUT AREAS 963 013607 1374 TAD (MOFILE-1 964 013610 3035 DCA CLXR 965 013611 4773 JMS I (GETSPC 966 013612 4772 JMS I (ASSIGN 967 013613 1337 TAD OUTSW 968 013614 7650 SNA CLA 969 013615 1771 TAD I (LIMDIF /DIFF BETWWEN END OF OUTPUT & INPUT AREAS 970 013616 1770 TAD I (OUTLIM /END OF OUTPUT AREA 971 013617 1035 TAD CLXR 972 013620 7700 SMA CLA 973 013621 5767 JMP I (CDER1 974 013622 4766 JMS I (CCLSWT 975 013623 1337 TAD OUTSW 976 013624 7650 SNA CLA 977 013625 5240 LKUPSW, JMP INFILE /ZEROED IF IN "SPECIAL DECODE" MODE 978 013626 1765 TAD I (DVICE 979 013627 4331 JMS PCLXR 980 013630 1023 TAD NAME1 981 013631 4331 JMS PCLXR 982 013632 1024 TAD NAME2 983 013633 4331 JMS PCLXR 984 013634 1025 TAD NAME3 985 013635 4331 JMS PCLXR 986 013636 1026 TAD NAME4 987 013637 5243 JMP LSTPUT 988 013640 4764 INFILE, JMS I (LOOKUP 989 013641 4331 JMS PCLXR /STORE LENGTH AND DEV NUMBER 990 013642 1763 TAD I (LNAME /GET BLOCK 991 013643 4331 LSTPUT, JMS PCLXR 992 013644 1337 TAD OUTSW 993 013645 7650 SNA CLA 994 013646 1762 TAD I (FLAG 995 013647 7106 CLL RTL 996 013650 7710 SPA CLA /FEATURE ENABLED? 997 013651 1225 TAD LKUPSW 998 013652 7650 SNA CLA 999 013653 5272 JMP DLOOK /IN SPECIAL MODE OR ON OUTPUT SIDE 1000 013654 1335 TAD DONB 1001 013655 7640 SZA CLA 1002 013656 5262 JMP NBS 1003 013657 1361 TAD (7600 /V1A NOW TAKES ARG IN AC 1004 013660 4760 JMS I (NMOVE /MOVE NAME TO OUTPUT FILE NAMES 1005 013661 5272 JMP DLOOK 1006 013662 3335 NBS, DCA DONB /ZERO 1ST OUTPUT FILE 1007 013663 1374 TAD (7577 1008 013664 3015 DCA XR2 1009 013665 3415 DCA I XR2 1010 013666 3415 DCA I XR2 1011 013667 3415 DCA I XR2 1012 013670 3415 DCA I XR2 1013 013671 3415 DCA I XR2 1014 013672 7240 DLOOK, STA 1015 013673 3757 DCA I (DVFLAG 1016 013674 1032 TAD DELIM 1017 013675 7450 SNA 1018 013676 5600 JMP I CD 1019 013677 1356 TAD (-"[ 1020 013700 7450 SNA 1021 013701 5755 JMP I (OLENGT 1022 013702 1354 TAD ("[-", 1023 013703 7450 SNA 1024 013704 5753 JMP I (FILLP /**** JUMPING INTO ROUTINE (IS THIS A BUG?) 1025 013705 1352 TAD (",-"< 1026 013706 7450 SNA 1027 013707 5324 JMP BKAROW 1028 013710 1351 TAD ("<-"= 1029 013711 7640 SZA CLA 1030 013712 5750 JMP I (CDER2 /BAD CHAR 1031 / THIS STUFF WOULD ALLOW = AS WELL AS < AND _ 1032 /*** HAVE TO FIX 'BKA' ROUTINE 1033 / JMS I (GLXR 1034 / JMS I (DECODE 1035 / STL 1036 / STA /LINK=0 MEANS LETTER 1037 / TAD LXR /NOW LINK=1 MEANS LETTER 1038 / DCA LXR 1039 / SZL 1040 / JMP BKAROW 1041 013713 3747 DCA I (NUMFUJ 1042 013714 4746 JMS I (NUMBER 1043 013715 3745 DCA I (MPARAM+3 1044 013716 7330 CLA CLL CML RAR 1045 013717 0744 AND I (MPARAM-1 /PRESERVE ALTMODE 1046 013720 1743 TAD I (HIORD 1047 013721 3744 DCA I (MPARAM-1 1048 013722 4766 JMS I (CCLSWT 1049 013723 5272 JMP DLOOK 1050 013724 2337 BKAROW, ISZ OUTSW 1051 013725 5750 JMP I (CDER2 /TWO BACK-ARROWS 1052 013726 1034 TAD LXR /GET PTR TO ARROW 1053 013727 3742 DCA I (ARLOC /SAVE IT ('EDIT' MIGHT NEED IT) 1054 013730 5204 JMP BEGGRP 1055 1056 013731 0000 PCLXR, 0 1057 013732 2035 ISZ CLXR 1058 013733 3435 DCA I CLXR 1059 013734 5731 JMP I PCLXR 1060 013735 0000 DONB, 0 /ENTRY PT USED AS FLAG 1061 013736 5735 JMP I DONB 1062 1063 013737 7777 OUTSW, -1 /-1 MEANS ON OUTPUT SIDE, 0 ON INPUT SIDE 1064 1065 013740 2305 P6, SETDEV 1066 013741 7367 TVDEV 1067 013742 5741 PAGE 013743 4057 013744 7642 013745 7646 013746 4000 013747 4055 013750 5160 013751 7777 013752 7760 013753 7322 013754 0057 013755 4715 013756 7445 013757 7343 013760 7441 013761 7600 013762 2553 013763 4443 013764 4400 013765 4474 013766 4271 013767 5202 013770 7437 013771 7436 013772 4060 013773 7315 013774 7577 013775 7435 013776 7400 013777 0200 1068 014000 0000 NUMBER, 0 1069 014001 7640 SZA CLA 1070 014002 1377 TAD (NUM&177+1200-SKP 1071 014003 1376 TAD (SKP 1072 014004 3241 DCA NUMADD/SET NUMADD TO EITHER "SKP" OR "TAD NUM" 1073 014005 3257 DCA HIORD 1074 014006 3254 NUMLP, DCA NUM 1075 014007 4775 JMS I (GCH 1076 014010 2256 ISZ NUMKNT 1077 014011 7410 SKP 1078 014012 5246 JMP EONUM2 1079 014013 7040 CMA 1080 014014 1255 TAD NUMFUJ 1081 014015 1374 TAD ("8 /TEST INPUT CHARACTER FOR RANGE 1082 014016 7140 CLL CMA /0-7 IF NUMFUJ=0 1083 014017 1373 TAD (10 /0-9 IF NUMFUJ=2 1084 014020 1255 TAD NUMFUJ 1085 014021 7420 SNL 1086 014022 5245 JMP EONUM 1087 014023 3020 DCA T 1088 014024 7346 CLA CLL CMA RTL 1089 014025 3032 DCA DELIM 1090 014026 1254 TAD NUM 1091 014027 7104 ROTLP, CLL RAL 1092 014030 3314 DCA NUMX 1093 014031 1257 TAD HIORD 1094 014032 7004 RAL 1095 014033 7510 NUMSKP, SPA /MODIFIED BY # 1096 014034 5772 JMP I (CDER5 1097 014035 3257 DCA HIORD 1098 014036 1314 TAD NUMX 1099 014037 2032 ISZ DELIM 1100 014040 5227 JMP ROTLP 1101 014041 1254 NUMADD, TAD NUM /SKP IF OCTAL 1102 014042 1254 TAD NUM 1103 014043 1020 TAD T 1104 014044 5206 JMP NUMLP 1105 014045 1371 EONUM, TAD ("0 1106 014046 3032 EONUM2, DCA DELIM 1107 014047 1256 TAD NUMKNT 1108 014050 7710 SPA CLA 1109 014051 5772 JMP I (CDER5 /FEWER THAN CORRECT NUMBER OF DIGITS 1110 014052 1254 TAD NUM 1111 014053 5600 JMP I NUMBER 1112 1113 014054 0000 NUM, 0 1114 014055 0000 NUMFUJ, 0 1115 014056 0000 NUMKNT, 0 /SET TO -N-1 TO FORCE N DIGITS 1116 014057 0000 HIORD, 0 1117 014060 0000 ASSIGN, 0 1118 014061 1035 TAD CLXR 1119 014062 0770 AND I (DVFLAG 1120 014063 1767 TAD I (OUTLIM 1121 014064 7740 SMA SZA CLA /CHECK FOR OUTPUT OR FIRST INPUT 1122 014065 5275 JMP ASNORM /IF DEVICE WAS SPECIFIC, 1123 /OR IF WE ARE ON THE INPUT SIDE, 1124 /PROCEED NORMALLY 1125 014066 1023 TAD NAME1 1126 014067 7650 SNA CLA 1127 014070 5322 JMP ASGNST 1128 014071 1325 TAD DFLTNM+1 1129 014072 3031 DCA DEV2 1130 014073 1324 TAD DFLTNM 1131 014074 3030 DCA DEV1 1132 014075 1030 ASNORM, TAD DEV1 1133 014076 3315 DCA AS+1 1134 014077 1031 TAD DEV2 1135 014100 3316 DCA AS+2 1136 014101 1766 TAD I (OUTSW 1137 014102 7650 SNA CLA /DON'T LOAD HANDLER 1138 /IF WE ARE ON OUTPUT SIDE OF "_" 1139 014103 1023 TAD NAME1 1140 014104 7650 SPKLG1, SNA CLA /OR THERE IS NO FILE NAME TO LOOK UP 1141 014105 1326 TAD GETHND /GETHND=11 NORMALLY, 1142 /0 IF IN "SPECIAL DECODE" MODE 1143 014106 7001 IAC 1144 014107 3314 DCA AS 1145 014110 1365 TAD (HNDLR+1 /ALLOW TWO PAGE HANDLERS 1146 014111 3317 DCA ASADR 1147 014112 6212 CIF 10 1148 014113 4764 JMS I (200 1149 NUMX, 1150 014114 0000 AS, 0 1151 014115 0000 0 1152 014116 0000 0 1153 014117 4401 ASADR, HNDLR+1 1154 014120 5763 JMP I (CDER0 1155 014121 1316 TAD AS+2 1156 014122 3762 ASGNST, DCA I (DVICE 1157 014123 5660 JMP I ASSIGN 1158 014124 0423 DFLTNM, DEVICE DSK 014125 1300 1159 014126 0011 GETHND, 11 /1+11=12 (1=FETCH, 12=INQUIRE) 1160 1161 014127 0000 LOVE, 0 1162 014130 1023 TAD NAME1 1163 014131 1361 TAD (-1417 1164 014132 7640 SZA CLA 1165 014133 5727 JMP I LOVE 1166 014134 1024 TAD NAME2 1167 014135 1360 TAD (-2605 1168 014136 7640 SZA CLA 1169 014137 5727 JMP I LOVE 1170 014140 1025 TAD NAME3 1171 014141 1026 TAD NAME4 1172 014142 7640 SZA CLA 1173 014143 5727 JMP I LOVE 1174 014144 4757 JMS I (PRINT 1175 014145 6436 LOVMES 1176 014146 5727 JMP I LOVE 1177 1178 014147 0425 FILDMY, FILENAME DUMMY.SV 014150 1515 014151 3100 014152 2326 1179 1180 014153 6666 SEMSG, SEMSG1 1181 014154 6675 SEMSG2 1182 014155 6703 SEMSG3 1183 014156 6712 SEMSG4 1184 014157 5124 PAGE 014160 5173 014161 6361 014162 4474 014163 5227 014164 0200 014165 4401 014166 3737 014167 7437 014170 7343 014171 0260 014172 5204 014173 0010 014174 0270 014175 4660 014176 7410 014177 1644 1185 /GETS A NAME FROM FIELD ZERO BUFFER VIA LXR 1186 /RETURNS WITH DELIMETER IN AC 1187 /GIVES ERROR MESSAGE IF NAME IS BAD 1188 1189 TN, /DON'T CALL CCLSWT FROM GNAME UNLESS THIS IS MOVED 1190 014200 0000 GNAME, 0 1191 014201 3023 DCA NAME1 1192 014202 3024 DCA NAME2 1193 014203 3025 DCA NAME3 1194 014204 3026 DCA NAME4 1195 014205 1377 TAD (NAME1 1196 014206 3027 DCA NMBASE 1197 014207 7240 CLA CMA 1198 014210 3351 DCA PERDSW 1199 014211 3352 DCA NAMECT 1200 014212 4776 JMS I (GCH 1201 014213 1375 TAD (-"# 1202 014214 7450 SNA 1203 014215 5345 JMP NUMCON 1204 014216 1374 TAD ("# 1205 014217 7410 SKP 1206 014220 4776 GTNMLP, JMS I (GCH 1207 014221 3032 DCA DELIM 1208 014222 1032 TAD DELIM 1209 014223 1373 TAD (-"? 1210 014224 7440 SZA 1211 014225 1372 TAD ("?-"* 1212 014226 7450 SNA 1213 014227 5771 STARSW, JMP I (CDER6 /"JMP STARNM" 1214 /IF "SPECIAL DECODE" MODE 1215 014230 1370 TAD ("*-". 1216 014231 7650 SNA CLA 1217 014232 5261 JMP PERIOD 1218 014233 1032 TAD DELIM 1219 014234 4767 JMS I (DECODE 1220 014235 5346 JMP LV 1221 014236 7200 STARNM, CLA /THIS CODE HANDLES *'S AND ?'S CORRECTLY 1222 014237 1032 TAD DELIM 1223 014240 0366 AND (77 1224 014241 3032 DCA DELIM 1225 014242 1352 TAD NAMECT 1226 014243 1365 TAD (-6 1227 014244 7700 SMA CLA 1228 014245 5220 JMP GTNMLP 1229 014246 1352 TAD NAMECT 1230 014247 7110 CLL RAR 1231 014250 1027 TAD NMBASE 1232 014251 3021 DCA TT 1233 014252 1032 TAD DELIM 1234 014253 7420 SNL 1235 014254 4764 JMS I (ROTL 1236 014255 1421 TAD I TT 1237 014256 3421 DCA I TT 1238 014257 2352 ISZ NAMECT 1239 014260 5220 JMP GTNMLP 1240 014261 1023 PERIOD, TAD NAME1 1241 014262 7640 SZA CLA 1242 014263 2351 ISZ PERDSW 1243 014264 5763 JMP I (CDER7 /NULL NAME OR DOUBLE EXTENSION 1244 014265 2027 ISZ NMBASE 1245 014266 1362 TAD (4 1246 014267 3352 DCA NAMECT 1247 014270 5220 JMP GTNMLP 1248 014271 0000 CCLSWT, 0 1249 014272 1032 TAD DELIM 1250 014273 1361 TAD (-"- 1251 014274 7640 SZA CLA 1252 014275 5671 JMP I CCLSWT 1253 014276 1760 TAD I (OUTSW 1254 014277 7640 SZA CLA 1255 014300 5757 JMP I (CDER4 /CCL EXT ON OUTPUT FILE 1256 014301 1356 TAD (SWTCHS 1257 014302 3022 DCA DEF 1258 014303 4332 JMS GETL 1259 014304 5755 JMP I (CDER44 /NON-ALPHANUMERIC CCL SWITCH 1260 014305 4764 JMS I (ROTL 1261 014306 3200 DCA TN 1262 014307 4332 JMS GETL 1263 014310 5314 JMP XLK2 /ONE CHAR CCL SWITCH 1264 014311 1200 TAD TN 1265 014312 3200 DCA TN 1266 014313 4332 JMS GETL 1267 014314 7610 XLK2, SKP CLA /2 CHAR CCL SWITCH 1268 014315 5755 JMP I (CDER44 /3 CHAR CCL-SWITCH 1269 014316 1200 TAD TN 1270 014317 4754 JMS I (EXTLUK 1271 014320 7200 CLA 1272 014321 2022 ISZ DEF 1273 014322 1422 TAD I DEF 1274 014323 3332 DCA GETL /GET PTR TO ARGUMENT PAIR 1275 014324 1732 TAD I GETL /GET SUBROUTINE 1276 014325 3351 DCA PERDSW 1277 014326 2332 ISZ GETL 1278 014327 1732 TAD I GETL /GET ARGUMENT 1279 014330 4751 JMS I PERDSW /CALL SUBR, ARG IN AC 1280 014331 5272 JMP CCLSWT+1 1281 014332 0000 GETL, 0 1282 014333 4776 JMS I (GCH 1283 014334 3032 DCA DELIM 1284 014335 1032 TAD DELIM 1285 014336 4767 JMS I (DECODE 1286 014337 5732 JMP I GETL /NON-ALPHANUM IN CCL SWITCH 1287 014340 7200 CLA 1288 014341 1032 TAD DELIM 1289 014342 0366 AND (77 1290 014343 2332 ISZ GETL 1291 014344 5732 JMP I GETL 1292 1293 014345 4753 NUMCON, JMS I (NUMC 1294 014346 7200 LV, CLA 1295 014347 1032 TAD DELIM 1296 014350 5600 JMP I GNAME 1297 1298 014351 0000 PERDSW, 0 1299 014352 0000 NAMECT, 0 1300 014353 6312 PAGE 014354 4475 014355 5750 014356 5256 014357 5745 014360 3737 014361 7523 014362 0004 014363 5753 014364 7300 014365 7772 014366 0077 014367 4630 014370 7774 014371 5755 014372 0025 014373 7501 014374 0243 014375 7535 014376 4660 014377 0023 1301 014400 0000 LOOKUP, 0 1302 014401 3243 DCA LNAME 1303 014402 1023 TAD NAME1 1304 014403 7650 SNA CLA 1305 014404 5261 JMP LKUPST 1306 014405 1777 TAD I (PERDSW 1307 014406 1026 TAD NAME4 1308 014407 7650 SNA CLA 1309 014410 7201 CLA IAC /FORCE NAMERM NON-0 IF . AND NO EXT 1310 014411 1026 TAD NAME4 1311 014412 3273 DCA NAMERM /REMEMBER TYPED EXTENSION 1312 014413 1033 TAD DEFALT 1313 014414 3022 DCA DEF 1314 014415 1776 TAD I (SETEXT 1315 014416 7450 SNA /HAS AN EXTENSION BEEN SET? 1316 014417 1273 TAD NAMERM /NO 1317 014420 7450 SNA /DOES FILE HAVE EXTENSION? 1318 014421 5225 JMP EXT2 /NO EXTENSION TYPED OR SET, DO SUCCESSIVE LOOK-UPS 1319 014422 4275 JMS EXTLUK /LOOK FOR EXTENSION 1320 014423 7650 SNA CLA /DID WE FIND IT? 1321 014424 5236 JMP EXT3 /NO, FORCE NULL EXTENSION TO MATCH 1322 014425 1422 EXT2, TAD I DEF 1323 014426 7001 IAC 1324 014427 7650 SNA CLA 1325 014430 5270 JMP NEXTEXT /IGNORE -1'S 1326 014431 1273 TAD NAMERM 1327 014432 7640 SZA CLA 1328 014433 5236 JMP EXT3 1329 014434 1422 TAD I DEF 1330 014435 3026 DCA NAME4 /SET NEW EXTENSION 1331 014436 1375 EXT3, TAD (NAME1 1332 014437 3243 DCA LNAME 1333 014440 1774 TAD I (AS+2 1334 014441 4773 JMS I (200 1335 014442 0002 2 1336 014443 0000 LNAME, 0 /NAME1 1337 014444 0000 LENGTH, 0 1338 014445 5263 JMP LFAILD 1339 014446 2022 ISZ DEF /POINT TO FOLLOW-UP SUBROUTINE 1340 014447 1422 TAD I DEF 1341 014450 4331 JMS JMSUB /CALL IT 1342 014451 1244 TAD LENGTH 1343 014452 7100 CLL 1344 014453 1372 TAD (400 1345 014454 7420 SNL 1346 014455 7600 CLACON, 7600 /CLA 1347 014456 7106 CLL RTL 1348 014457 7006 RTL 1349 014460 0371 AND (7760 1350 014461 1274 LKUPST, TAD DVICE 1351 014462 5600 JMP I LOOKUP 1352 014463 1273 LFAILD, TAD NAMERM 1353 014464 7650 SNA CLA /WAS THERE AN EXPLICIT EXTENSION? 1354 014465 1422 TAD I DEF /NO - WAS THERE A DEFAULT EXTENSION? 1355 014466 7650 SNA CLA 1356 014467 5770 JMP I (CDER3 /NO DEFALT EXTENSION OR YES EXPLICIT EXTENSION 1357 014470 2022 NEXTEXT,ISZ DEF /NO EXPLICIT EXT AND YES DEFAULT EXT 1358 014471 2022 ISZ DEF /POINT TO NEXT POSSIBLE DEFAULT EXTENSION 1359 014472 5225 JMP EXT2 /AND TRY FOR IT 1360 1361 014473 0000 NAMERM, 0 1362 014474 0000 DVICE, 0 1363 1364 014475 0000 EXTLUK, 0 1365 014476 7041 CIA 1366 014477 3020 DCA T 1367 014500 1422 XLUK, TAD I DEF 1368 014501 7450 SNA /AT NULL? 1369 014502 5675 JMP I EXTLUK /YES 1370 014503 1020 TAD T /NO 1371 014504 7650 SNA CLA /MATCH? 1372 014505 5311 JMP MAT /YES 1373 014506 2022 ISZ DEF /NO 1374 014507 2022 ISZ DEF /POINT TO NEXT ENTRY 1375 014510 5300 JMP XLUK /TRY AGAIN 1376 014511 1422 MAT, TAD I DEF /RETURN WITH IT IN AC 1377 014512 5675 JMP I EXTLUK 1378 1379 TS, 1380 014513 0000 ZERSUB, 0 1381 014514 1767 TAD I (7601 1382 014515 7650 SNA CLA /WAS FILENAME SPECIFIED ON ZERO CMD? 1383 014516 1655 TAD I CLACON /OR WAS NO OUT DEVICE SPECIFIED? 1384 014517 7650 SNA CLA 1385 014520 5766 JMP I (CDER2 /YES... ERROR 1386 014521 5713 JMP I ZERSUB /NO, OKAY. 1387 014522 4765 IOERR, JMS I (PRMESG 1388 014523 6616 SYSER 1389 1390 014524 0000 EXSUB, 0 1391 014525 1353 TAD BASPTR /PUSH PTR BACK TO BEGIN OF ENTRIES 1392 014526 4764 JMS I (REMEM /REMEMBER THIS IN DEPENDENT WORD 1393 014527 0002 2 1394 014530 5724 JMP I EXSUB 1395 1396 014531 0000 JMSUB, 0 1397 014532 7450 SNA 1398 014533 5731 JMP I JMSUB 1399 014534 3313 DCA TS 1400 014535 4713 JMS I TS 1401 014536 5731 JMP I JMSUB 1402 014537 0000 SPOOLIT,0 1403 014540 4763 JMS I (BATCH /IS BATCH RUNNING? 1404 014541 5737 JMP I SPOOLIT /NO 1405 014542 3347 DCA CB /YES 1406 014543 1433 TAD I DEFALT 1407 014544 1362 TAD (-5200 1408 014545 7650 SNA CLA 1409 014546 1433 TAD I DEFALT /LEAVE 5200 IN AC IF SPECIAL MODE 1410 014547 7402 CB, HLT /CIF TO FIELD OF BATCH 1411 014550 4761 JMS I (BATSPL /ALLOW BATCH TO SPOOL STUFF 1412 014551 5737 JMP I SPOOLIT 1413 1414 014552 1036 GOO, TAD PTR 1415 014553 3353 BASPTR, DCA BASPTR 1416 014554 5760 JMP I (GO 1417 014560 2401 PAGE 014561 7200 014562 2600 014563 2135 014564 7000 014565 5000 014566 5160 014567 7601 014570 5216 014571 7760 014572 0400 014573 0200 014574 4116 014575 0023 014576 3535 014577 4351 1418 014600 0000 SLSHCH, 0 1419 014601 3032 DCA DELIM 1420 014602 1377 TAD (MPARAM-1 1421 014603 3020 DCA T 1422 014604 1032 TAD DELIM 1423 014605 4230 JMS DECODE 1424 014606 5244 JMP CDER8 1425 014607 7430 SZL 1426 014610 1376 TAD (32 1427 014611 7160 CMA STL /THE FOLLOWING TURNS 1428 /ON THE CORRECT OPTION BIT 1429 014612 3021 DCA TT 1430 014613 7430 SLSHLP, SZL 1431 014614 2020 ISZ T 1432 014615 7010 RAR 1433 014616 7420 SNL 1434 014617 2021 ISZ TT 1435 014620 5213 JMP SLSHLP 1436 014621 3021 DCA TT 1437 014622 1021 TAD TT 1438 014623 7040 CMA 1439 014624 0420 AND I T 1440 014625 1021 TAD TT 1441 014626 3420 DCA I T 1442 014627 5600 JMP I SLSHCH 1443 1444 /THIS ROUTINE DETERMINES IF THE CHARACTER IN THE AC IS A LETTER OR DIGIT 1445 /IF LETTER, RETURNS TO RET+1 WITH LETTER-"A IN AC AND LINK=0 1446 /IF DIGIT, RETURNS TO RET+1 WITH DIGIT-"0 IN AC AND LINK=1 1447 /IF NEITHER, RETURNS TO RET WITH CHAR-"A IN AC. 1448 014630 0000 DECODE, 0 1449 014631 1375 TAD (-"9-1 /MIGHT BE CALLED WITH ANY DF 1450 014632 7100 CLL 1451 014633 1374 TAD ("9+1-"0 1452 014634 7430 SZL 1453 014635 5242 JMP DCDYES 1454 014636 1373 TAD ("0-"Z-1 1455 014637 7120 CLL CML 1456 014640 1376 TAD ("Z-"A+1 1457 014641 7420 SNL 1458 014642 2230 DCDYES, ISZ DECODE 1459 014643 5630 JMP I DECODE 1460 1461 014644 7200 CDER8, CLA 1462 014645 4772 JMS I (PRMESG 1463 014646 7012 BADOPT 1464 014647 0000 ZEROCD, 0 1465 014650 1371 TAD (-42 /AC MAY BE NON-0 1466 014651 3020 DCA T 1467 014652 1370 TAD (MOFILE-1 1468 014653 3016 DCA XR 1469 014654 3416 DCA I XR /ZERO THE COMMAND DECODER OUTPUT AREA 1470 014655 2020 ISZ T 1471 014656 5254 JMP .-2 1472 014657 5647 JMP I ZEROCD 1473 1474 014660 0000 GCH, 0 1475 014661 4307 JMS GLXR 1476 014662 1367 TAD (-240 1477 014663 7450 SNA 1478 014664 5261 JMP GCH+1 1479 014665 1366 TAD (240-"/ 1480 014666 7450 SNA 1481 014667 5275 JMP SLASH 1482 014670 1365 TAD ("/-"( 1483 014671 7450 SNA 1484 014672 5300 JMP OPENP 1485 014673 1364 TAD ("( 1486 014674 5660 JMP I GCH 1487 014675 4307 SLASH, JMS GLXR 1488 014676 4200 JMS SLSHCH 1489 /*** CAN'T PUT /A:VAL HERE BECAUSE GCH AINT RECURSIVE 1490 014677 5261 JMP GCH+1 1491 014700 4307 OPENP, JMS GLXR 1492 014701 1363 TAD (-") 1493 014702 7450 SNA 1494 014703 5261 JMP GCH+1 1495 014704 1362 TAD (") 1496 014705 4200 JMS SLSHCH 1497 014706 5300 JMP OPENP 1498 1499 014707 0000 GLXR, 0 1500 014710 6201 CDF 0 1501 014711 2034 ISZ LXR 1502 014712 1434 TAD I LXR 1503 014713 6211 CDF 10 1504 014714 5707 JMP I GLXR 1505 014715 1761 OLENGT, TAD I (OUTSW 1506 014716 0023 AND NAME1 /[N] IS ONLY LEGAL 1507 /ON THE OUTPUT SIDE OF THE "_" 1508 014717 7650 SNA CLA /AND ONLY AFTER A FILE NAME 1509 014720 5760 JMP I (CDER2 1510 014721 1357 TAD (-4 1511 014722 1035 TAD CLXR 1512 014723 3027 DCA NMBASE 1513 014724 7326 CLA CLL CML RTL 1514 014725 3756 DCA I (NUMFUJ /SET "NUMBER" TO ACCEPT 1515 /DIGITS 8 AND 9 1516 014726 7240 STA /ALLOW DECIMAL 1517 014727 4755 JMS I (NUMBER 1518 014730 7106 CLL RTL 1519 014731 7006 RTL 1520 014732 0354 AND (7760 1521 014733 1427 TAD I NMBASE 1522 014734 3427 DCA I NMBASE 1523 014735 6201 CDF 0 1524 014736 1032 TAD DELIM 1525 014737 1353 TAD (-"] /IS THERE A CLOSING BRACKET? 1526 014740 7450 SNA /IF NOT, 1527 /"DLOOK" ROUTINE WILL DETECT IT 1528 014741 4260 JMS GCH 1529 014742 3032 DCA DELIM 1530 014743 5752 JMP I (DLOOK 1531 014744 0000 BASUB, 0 1532 014745 1351 TAD (200 /SET /Q SWITCH 1533 014746 3750 DCA I (MPARAM+1 1534 014747 5744 JMP I BASUB 1535 014750 7644 PAGE 014751 0200 014752 3672 014753 7443 014754 7760 014755 4000 014756 4055 014757 7774 014760 5160 014761 3737 014762 0251 014763 7527 014764 0250 014765 0007 014766 7761 014767 7540 014770 7577 014771 7736 014772 5000 014773 7725 014774 0012 014775 7506 014776 0032 014777 7642 1536 015000 0000 PRMESG, 0 1537 015001 7200 CLA 1538 015002 1600 TAD I PRMESG 1539 015003 3205 DCA .+2 1540 015004 4324 JMS PRINT 1541 015005 7402 HLT 1542 015006 4777 LEAVE, JMS I (TWAIT 1543 /V3D TCF 1544 015007 6203 CIF CDF 0 1545 015010 1213 TAD FATALFLG 1546 015011 7650 SNA CLA 1547 015012 5776 JMP I (7605 1548 015013 0000 FATALFLG,0 /CIF CDF BATCH FIELD IF WANT TO ABORT 1549 015014 5775 JMP I (BATERR 1550 1551 015015 0000 PRWD, 0 1552 015016 3020 DCA T 1553 015017 1020 TAD T 1554 015020 7012 TTY212, RTR 1555 015021 7012 RTR 1556 015022 7012 RTR 1557 015023 4227 JMS PCHAR 1558 015024 1020 TAD T 1559 015025 4227 JMS PCHAR 1560 015026 5615 JMP I PRWD 1561 1562 015027 0000 PCHAR, 0 1563 015030 0374 AND (77 1564 015031 7450 SNA 1565 015032 5627 JMP I PCHAR /IGNORE NULLS 1566 015033 1373 TAD (240 1567 015034 0374 AND (77 1568 015035 1373 TAD (240 /CAN'T USE 'TTY240' 1569 015036 4257 JMS TYPE 1570 015037 5627 JMP I PCHAR 1571 1572 015040 0000 PRNAME, 0 1573 015041 1023 TAD NAME1 1574 015042 4215 JMS PRWD 1575 015043 1024 TAD NAME2 1576 015044 4215 JMS PRWD 1577 015045 1025 TAD NAME3 1578 015046 4215 JMS PRWD 1579 015047 1026 TAD NAME4 1580 015050 7650 SNA CLA 1581 015051 5640 JMP I PRNAME 1582 015052 1372 TAD (256 1583 015053 4227 JMS PCHAR 1584 015054 1026 TAD NAME4 1585 015055 4215 JMS PRWD 1586 015056 5640 JMP I PRNAME 1587 015057 0000 TYPE, 0 1588 015060 3351 DCA TE2 1589 015061 4771 JMS I (BATCH 1590 015062 5277 JMP TTYOUT 1591 015063 3264 DCA CIFB 1592 015064 7402 CIFB, HLT /REPLACED BY CIF BATCH FIELD 1593 015065 1351 TAD TE2 1594 015066 4770 JMS I (BATOUT 1595 015067 1351 TAD TE2 1596 015070 1367 TAD (-"# 1597 015071 7640 TTY240, SZA CLA 1598 015072 5657 JMP I TYPE 1599 015073 1264 TAD CIFB 1600 015074 7001 IAC /CONVERT CIF TO CIF CDF 1601 015075 3213 DCA FATALFLG 1602 015076 5657 JMP I TYPE 1603 1604 015077 1351 TTYOUT, TAD TE2 1605 015100 1367 TAD (-"# /DON'T TYPE #'S 1606 015101 7650 SNA CLA 1607 015102 5657 JMP I TYPE 1608 015103 1320 TAD T7600 1609 015104 6034 KRS 1610 015105 1366 TAD (-7603 1611 015106 7450 SNA 1612 015107 5206 JMP LEAVE 1613 015110 1365 TAD (203-217 1614 015111 7650 SNA CLA 1615 015112 5657 JMP I TYPE 1616 015113 1351 TAD TE2 1617 015114 5317 TJUMP, JMP .+3 1618 015115 6041 TSF 1619 015116 5315 JMP .-1 1620 015117 6046 TLS 1621 015120 7600 T7600, 7600 1622 015121 1375 TAD (7000 1623 015122 3314 DCA TJUMP 1624 015123 5657 JMP I TYPE 1625 015124 0000 PRINT, 0 1626 015125 3352 DCA CRLF /AC NON-0 MEANS DON'T CRLF 1627 015126 1724 TAD I PRINT 1628 015127 2324 ISZ PRINT 1629 015130 3350 DCA TE 1630 015131 6201 PRINTP, CDF 0 1631 015132 1750 TAD I TE 1632 015133 6211 CDF 10 1633 015134 4215 JMS PRWD 1634 015135 6201 CDF 0 1635 015136 1750 TAD I TE 1636 015137 6211 CDF 10 1637 015140 2350 ISZ TE 1638 015141 0374 AND (77 1639 015142 7640 SZA CLA 1640 015143 5331 JMP PRINTP 1641 015144 1352 TAD CRLF 1642 015145 7650 SNA CLA 1643 015146 4352 JMS CRLF 1644 015147 5724 JMP I PRINT 1645 015150 0000 TE, 0 1646 015151 0000 TE2, 0 1647 015152 0000 CRLF, 0 1648 015153 1364 TAD (215 1649 015154 4257 JMS TYPE 1650 015155 1220 TAD TTY212 1651 015156 4257 JMS TYPE 1652 015157 5752 JMP I CRLF 1653 1654 015160 4200 CDER2, JMS PRMESG 1655 015161 6630 BADSYN 1656 1657 015162 7441 P1, NMOVE 1658 015163 7605 7605 1659 015164 0215 PAGE 015165 7764 015166 0175 015167 7535 015170 7400 015171 2135 015172 0256 015173 0240 015174 0077 015175 7000 015176 7605 015177 2115 1660 015200 4777 CCERB, JMS I (PRMESG 1661 015201 7053 BADSW 1662 015202 4777 CDER1, JMS I (PRMESG 1663 015203 6640 TOOMAN 1664 015204 4777 CDER5, JMS I (PRMESG 1665 015205 6764 BADNUM 1666 015206 1776 CCER1, TAD I (NAMPTR 1667 015207 3213 DCA NMX 1668 015210 1375 TAD (-4 1669 015211 4774 JMS I (MOVE 1670 015212 6211 CDF 10 1671 015213 0000 NMX, 0 1672 015214 6211 CDF 10 1673 015215 0023 NAME1 1674 015216 1373 CDER3, TAD (4300 1675 015217 4772 JMS I (PRWD /# 1676 015220 4771 JMS I (PRNAME 1677 015221 4777 JMS I (PRMESG 1678 015222 6650 NF 1679 1680 015223 1770 CCER2, TAD I (DVNM1 1681 015224 3030 DCA DEV1 1682 015225 1767 TAD I (DVNM2 1683 015226 3031 DCA DEV2 1684 015227 1030 CDER0, TAD DEV1 1685 015230 7650 SNA CLA 1686 015231 5766 JMP I (CDER2 /B DOES NOT EXIST 1687 015232 1373 TAD (4300 /# 1688 015233 4772 JMS I (PRWD 1689 015234 1030 TAD DEV1 1690 015235 4772 JMS I (PRWD 1691 015236 1031 TAD DEV2 1692 015237 4772 JMS I (PRWD 1693 015240 4777 JMS I (PRMESG 1694 015241 6656 DNE 1695 015242 0000 KILRT, 0 1696 015243 4765 JMS I (PRINT 1697 015244 6443 KILMES 1698 015245 5642 JMP I KILRT 1699 1700 015246 0000 RENRT, 0 1701 015247 4765 JMS I (PRINT 1702 015250 6453 RENMES 1703 015251 5646 JMP I RENRT 1704 1705 015252 0000 MOVRT, 0 1706 015253 4765 JMS I (PRINT 1707 015254 6463 MOVMES 1708 015255 5652 JMP I MOVRT 1709 1710 015256 1423 SWTCHS, 1423; P1 /LS 015257 5162 1711 015260 1602 1602; P2 /NB 015261 5304 1712 015262 1520 1520; P3 /MP 015263 5306 1713 015264 1400 1400; P4 /L 015265 2317 1714 015266 2400 2400; P5 /T 015267 2321 1715 015270 2300 2300; P6 /S 015271 3740 1716 015272 2000 2000; P7 /P 015273 5310 1717 015274 0400 0400; P8 /D 015275 7506 1718 015276 1600 1600; P9 /N 015277 5312 1719 015300 0000 0000; P10 /UNKNOWN 015301 5314 1720 015302 0000 ZBLOCK 2 /PATCH ROOM FOR USER 015303 0000 1721 1722 015304 3735 P2, DONB 1723 015305 0000 0 1724 1725 015306 7441 P3, NMOVE 1726 015307 7612 7612 1727 1728 015310 2305 P7, SETDEV 1729 015311 7373 PTPDEV 1730 1731 015312 2305 P9, SETDEV 1732 015313 7377 NULDEV 1733 1734 015314 3512 P10, UNKN 1735 015315 0000 0 1736 015316 0000 SCAN, 0 1737 015317 1364 TAD (BEGLN 1738 015320 3020 DCA T 1739 015321 6201 CDF 0 1740 015322 4343 JMS BLSCAN /IGNORE INITIAL SPACES 1741 015323 5327 JMP CHK 1742 015324 7200 NOBLUP, CLA 1743 015325 2020 ISZ T 1744 015326 1420 TAD I T 1745 015327 7450 CHK, SNA 1746 015330 5335 JMP ENDOFB 1747 015331 4763 JMS I (DECODE 1748 015332 7610 SKP CLA 1749 015333 5324 JMP NOBLUP 1750 015334 4343 JMS BLSCAN 1751 015335 3032 ENDOFB, DCA DELIM 1752 015336 7240 STA 1753 015337 1020 TAD T 1754 015340 6211 CDF 10 1755 015341 3762 DCA I (LBEGIN 1756 015342 5716 JMP I SCAN 1757 1758 015343 0000 BLSCAN, 0 1759 015344 1420 TAD I T 1760 015345 1361 TAD (-240 1761 015346 7440 SZA 1762 015347 5352 JMP BL2 1763 015350 2020 ISZ T 1764 015351 5344 JMP BLSCAN+1 1765 015352 1360 BL2, TAD (240 1766 015353 5743 JMP I BLSCAN /LEAVE CHAR IN AC 1767 015360 0240 PAGE 015361 7540 015362 7440 015363 4630 015364 1000 015365 5124 015366 5160 015367 6514 015370 6513 015371 5040 015372 5015 015373 4300 015374 6400 015375 7774 015376 2544 015377 5000 1768 ALTMODE=233 1769 1770 015400 0000 SETPA, 0 1771 015401 4777 JMS I (SETX 1772 015402 0320 "P;"A /KEEP HERE TO MAKE EASY TO PATCH 015403 0301 1773 015404 5600 JMP I SETPA 1774 1775 015405 0000 MAKSUB, 0 1776 015406 1032 TAD DELIM 1777 015407 7650 SNA CLA 1778 015410 5357 JMP CMDERR /DON'T ALLOW MAKE 1779 015411 4231 JMS SETLXR 1780 015412 4776 JMS I (GETSPC 1781 015413 4775 JMS I (LOVE 1782 015414 4243 JMS TECPUT 1783 015415 0305 "E;"W;0 015416 0327 015417 0000 1784 015420 4252 JMS TECMOV 1785 015421 4200 JMS SETPA 1786 015422 4243 JMS TECPUT 1787 015423 0233 ALTMODE;0 015424 0000 1788 015425 4774 JMS I (CHKSUP 1789 015426 4773 JMS I (REMEM 1790 015427 0000 0 1791 015430 5605 JMP I MAKSUB 1792 1793 015431 0000 SETLXR, 0 1794 015432 1772 TAD I (LBEGIN 1795 015433 3034 DCA LXR 1796 015434 1371 TAD (MOFILE-1 1797 015435 3770 DCA I (TYR 1798 015436 1367 TAD (-5 /ZERO OPTION TABLE TOO 1799 015437 4766 JMS I (ZEROCD 1800 015440 1034 TAD LXR 1801 015441 3356 DCA SAVLXR 1802 015442 5631 JMP I SETLXR 1803 1804 /PUT FOLLOWING CHARS INTO TECO BUFFER VIA TXR 1805 1806 015443 0000 TECPUT, 0 1807 / TAD NAME1 1808 / SNA CLA 1809 / JMP I (CDER2 1810 015444 1643 TAD I TECPUT 1811 015445 2243 ISZ TECPUT 1812 015446 7450 SNA 1813 015447 5643 JMP I TECPUT 1814 015450 4765 JMS I (TPUT 1815 015451 5244 JMP TECPUT+1 1816 /MOVE CHARS FROM FIELD 0 LINE BUFFER 1817 /FROM SAVLXR+1 TO LXR-1 INCLUSIVE 1818 /INTO TECO LINE BUFFER AT 17600 1819 1820 015452 0000 TECMOV, 0 1821 015453 1356 TAD SAVLXR 1822 015454 3015 DCA XR2 1823 015455 1356 TAD SAVLXR 1824 015456 7040 CMA 1825 015457 1034 TAD LXR 1826 015460 7650 SNA CLA 1827 015461 5764 JMP I (CDER2 /NO FILE SPEC 1828 015462 6201 TECL, CDF 0 1829 015463 1415 TAD I XR2 1830 015464 6211 CDF 10 1831 015465 4765 JMS I (TPUT 1832 015466 1015 TAD XR2 1833 015467 7040 CMA 1834 015470 1034 TAD LXR 1835 015471 7650 SNA CLA 1836 015472 5652 JMP I TECMOV 1837 015473 5262 JMP TECL 1838 015474 0000 TECSUB, 0 1839 015475 4231 JMS SETLXR 1840 015476 4776 JMS I (GETSPC 1841 015477 1032 TAD DELIM 1842 015500 7450 SNA 1843 015501 5341 JMP TECNORM 1844 015502 1363 TAD (-"< /ALLOW "_" AS WELL AS "<" 1845 015503 7450 SNA 1846 015504 5310 JMP EXTEN 1847 015505 1362 TAD ("<-"_ 1848 015506 7640 SZA CLA 1849 015507 5764 JMP I (CDER2 1850 015510 6201 EXTEN, CDF 0 1851 015511 3434 DCA I LXR /CHANGE < TO 0 1852 015512 6211 CDF 10 1853 015513 4243 JMS TECPUT 1854 015514 0305 "E;"W;0 015515 0327 015516 0000 1855 015517 4252 JMS TECMOV 1856 015520 4200 JMS SETPA 1857 015521 1034 TAD LXR 1858 015522 3356 DCA SAVLXR 1859 015523 4774 JMS I (CHKSUP 1860 015524 4776 JMS I (GETSPC 1861 015525 4243 JMS TECPUT 1862 015526 0233 ALTMODE;"E;"R;0 015527 0305 015530 0322 015531 0000 1863 015532 4252 JMS TECMOV 1864 015533 4200 JMS SETPA 1865 015534 4243 JMS TECPUT 1866 015535 0233 ALTMODE;"Y;0 015536 0331 015537 0000 1867 015540 5353 JMP TECLV 1868 015541 4243 TECNORM,JMS TECPUT 1869 015542 0305 "E;"B;0 015543 0302 015544 0000 1870 015545 4252 JMS TECMOV 1871 015546 4200 JMS SETPA 1872 015547 4243 JMS TECPUT 1873 015550 0233 ALTMODE;"Y;0 015551 0331 015552 0000 1874 015553 4773 TECLV, JMS I (REMEM 1875 015554 0000 0 1876 015555 5674 JMP I TECSUB 1877 015556 0000 SAVLXR, 0 1878 1879 015557 4761 CMDERR, JMS I (PRMESG /NOT A LEGAL KEYWORD 1880 015560 6400 ERRCMD 1881 015561 5000 PAGE 015562 7735 015563 7504 015564 5160 015565 5600 015566 4647 015567 7773 015570 5662 015571 7577 015572 7440 015573 7000 015574 7214 015575 4127 015576 7315 015577 5663 1882 015600 0000 TPUT, 0 1883 015601 0377 AND (177 /TECO LIKES 7-BIT 1884 015602 2262 ISZ TYR 1885 015603 3662 DCA I TYR 1886 015604 1262 TAD TYR 1887 015605 1376 TAD (-7646 /CHECK FOR OVERFLOW OF CD AREA 1888 015606 7640 SZA CLA 1889 015607 5600 JMP I TPUT 1890 015610 4775 CDER9, JMS I (PRMESG 1891 015611 7024 TOOLNG 1892 1893 015612 0000 MNGSUB, 0 1894 015613 4774 JMS I (SETLXR 1895 015614 4773 JMS I (GETSPC 1896 015615 4772 JMS I (TECPUT 1897 015616 0305 "E;"R;0 015617 0322 015620 0000 1898 015621 4771 JMS I (TECMOV 1899 015622 4263 JMS SETX 1900 015623 0324 "T;"E 015624 0305 1901 015625 4772 EXTOK, JMS I (TECPUT 1902 015626 0233 ALTMODE;"Y;"H;"X;"Y;"H;"K;"I;0 015627 0331 015630 0310 015631 0330 015632 0331 015633 0310 015634 0313 015635 0311 015636 0000 1903 015637 1032 TAD DELIM 1904 015640 7450 SNA 1905 015641 5254 JMP IFIN 1906 015642 1370 TAD (-", 1907 015643 7640 SZA CLA 1908 015644 5767 JMP I (CDER2 1909 015645 7330 G, STL CLA RAR /PREVENT 'GCH' FROM HANDLING SPACE AND / 1910 015646 4766 JMS I (GCH 1911 015647 0377 AND (177 /GET RID OF HIGH ORDER BIT 1912 015650 7450 SNA 1913 015651 5254 JMP IFIN 1914 015652 4200 JMS TPUT 1915 015653 5245 JMP G 1916 015654 4772 IFIN, JMS I (TECPUT 1917 015655 0233 ALTMODE;"M;"Y;0 /MACRO GETS CALLED WITH POINTER PAST CHARS 015656 0315 015657 0331 015660 0000 1918 015661 5612 JMP I MNGSUB 1919 015662 0000 TYR, 0 1920 /SET DEFAULT EXTENSION 1921 1922 015663 0000 SETX, 0 1923 015664 1663 TAD I SETX 1924 015665 3304 DCA C1 1925 015666 2263 ISZ SETX 1926 015667 1663 TAD I SETX 1927 015670 3305 DCA C2 /FALL THRU 2ND EXT 1928 015671 1026 TAD NAME4 1929 015672 7650 SNA CLA 1930 015673 1023 TAD NAME1 1931 015674 7650 SNA CLA 1932 015675 5663 JMP I SETX 1933 015676 1662 TAD I TYR /GET LAST CHAR (NO EXT) 1934 015677 1365 TAD (-56 /WAS IT A DOT? 1935 015700 7650 SNA CLA 1936 015701 5663 JMP I SETX /YES 1937 015702 4772 JMS I (TECPUT /NO, USE DEFAULT EXTENSION 1938 015703 0256 ". 1939 015704 0000 C1, 0 1940 015705 0000 C2, 0 1941 015706 0000 0 1942 015707 1304 TAD C1 1943 015710 0364 AND (77 1944 015711 4763 JMS I (ROTL 1945 015712 3304 DCA C1 1946 015713 1305 TAD C2 1947 015714 0364 AND (77 1948 015715 1304 TAD C1 1949 015716 3026 DCA NAME4 1950 015717 5663 JMP I SETX 1951 1952 015720 4775 CCERA, JMS I (PRMESG 1953 015721 7122 CONTRA 1954 015722 0000 CRSUB, 0 1955 015723 1762 TAD I (7617 1956 015724 7650 SNA CLA /BETTER BE NO INPUT 1957 015725 1761 TAD I (7600 /ANYTHING THERE? 1958 015726 7650 SNA CLA 1959 015727 5767 JMP I (CDER2 /NO OUTPUT OR YES INPUT 1960 015730 4332 JMS EDSUB /REMOVE BACK-ARROW AND REMEMBER CREATE LINE 1961 015731 5722 JMP I CRSUB 1962 1963 015732 0000 EDSUB, 0 1964 015733 6201 CDF 0 1965 015734 3741 DCA I ARLOC /REPLACE ARROW BY NULL 1966 015735 6211 CDF 10 1967 015736 4760 JMS I (REMEM /REMEMBER NEW COMMAND LINE 1968 015737 0001 1 1969 015740 5732 JMP I EDSUB 1970 1971 015741 5741 ARLOC, . /LOCATION OF BACK-ARROW IN COMMAND LINE 1972 /'.' IS HARMLESS PTR IN CASE NO ARROW 1973 1974 015742 6211 CCER3, CDF 10 1975 015743 4775 JMS I (PRMESG 1976 015744 6167 BADMON 1977 1978 015745 7200 CDER4, CLA 1979 015746 4775 JMS I (PRMESG 1980 015747 7053 BADSW 1981 015750 7200 CDER44, CLA 1982 015751 4775 JMS I (PRMESG 1983 015752 7070 BADSW2 1984 015753 4775 CDER7, JMS I (PRMESG 1985 015754 7002 BADX 1986 015755 4775 CDER6, JMS I (PRMESG 1987 015756 6772 BADSTR 1988 015760 7000 PAGE 015761 7600 015762 7617 015763 7300 015764 0077 015765 7722 015766 4660 015767 5160 015770 7524 015771 5452 015772 5443 015773 7315 015774 5431 015775 5000 015776 0132 015777 0177 1989 016000 0000 INSARR, 0 1990 016001 1377 TAD (BEGLN 1991 016002 3016 DCA XR 1992 016003 6201 CDF 0 1993 016004 1416 TAD I XR 1994 016005 7640 SZA CLA 1995 016006 5204 JMP .-2 1996 016007 7240 STA 1997 016010 1016 TAD XR 1998 016011 3016 DCA XR 1999 016012 1376 TAD ("< 2000 016013 3416 DCA I XR 2001 016014 3416 DCA I XR 2002 016015 6211 CDF 10 2003 016016 7240 STA 2004 016017 1016 TAD XR 2005 016020 3775 DCA I (ARLOC /REMEMBER WHERE WE INSERTED A "_" 2006 016021 5600 JMP I INSARR 2007 2008 016022 0000 BKA, 0 2009 016023 1774 TAD I (LBEGIN 2010 016024 3035 DCA CLXR 2011 016025 6201 GG, CDF 0 2012 016026 2035 ISZ CLXR 2013 016027 1435 TAD I CLXR 2014 016030 6211 CDF 10 2015 016031 7450 SNA 2016 016032 5246 JMP NOBKAR 2017 016033 1373 TAD (-"< 2018 016034 7450 SNA 2019 016035 5622 JMP I BKA 2020 016036 1372 TAD ("<-"_ 2021 016037 7640 SZA CLA 2022 016040 5225 JMP GG 2023 016041 1376 TAD ("< 2024 016042 6201 CDF 0 2025 016043 3435 DCA I CLXR 2026 016044 6211 CDF 10 2027 016045 5622 JMP I BKA 2028 016046 2222 NOBKAR, ISZ BKA 2029 016047 5622 JMP I BKA 2030 016050 0000 AT, 0 2031 016051 6203 CIF CDF 0 2032 016052 4771 JMS I (SEMI 2033 016053 1370 ATMORE, TAD (BEGLN-1 2034 016054 3034 DCA LXR 2035 016055 4767 ATLOOP, JMS I (GLXR 2036 016056 7450 SNA 2037 016057 5650 JMP I AT 2038 016060 1366 TAD (-300 2039 016061 7640 SZA CLA 2040 016062 5255 JMP ATLOOP 2041 016063 1034 TAD LXR 2042 016064 3765 DCA I (SAVL 2043 016065 4764 JMS I (FUDG 2044 016066 4763 JMS I (GETSPC 2045 016067 4762 JMS I (ASSIGN 2046 016070 3761 DCA I (SETEXT 2047 016071 1360 TAD (EXTCM 2048 016072 3033 DCA DEFALT 2049 016073 4757 JMS I (LOOKUP 2050 016074 7640 SZA CLA /V3C 2051 016075 1756 TAD I (ASADR 2052 016076 7450 SNA 2053 016077 5755 JMP I (ATERR /IF NO FILESPEC AFTER @, ERROR 2054 016100 3020 DCA T 2055 016101 1754 TAD I (LNAME /GET BLOCK NUMBER 2056 016102 3307 DCA BLN 2057 016103 6202 CIF 0 2058 016104 4420 JMS I T 2059 016105 0200 200 /READ 2 PAGES 2060 016106 5200 NWB, BFR+200 /INTO BUFFER 2061 COUNT, 2062 016107 0000 BLN, 0 /FROM THIS BLOCK 2063 016110 5755 JMP I (ATERR / I/O ERROR 2064 016111 1353 TAD (-200 2065 016112 3307 DCA COUNT 2066 016113 1352 TAD (BFR-1 2067 016114 3016 DCA XR 2068 016115 1306 TAD NWB 2069 016116 3020 DCA T 2070 016117 6201 CDF 0 2071 016120 1420 ALP, TAD I T 2072 016121 4751 JMS I (P 2073 016122 7112 CLL RTR 2074 016123 7012 RTR 2075 016124 3222 DCA BKA 2076 016125 2020 ISZ T 2077 016126 1420 TAD I T 2078 016127 4751 JMS I (P 2079 016130 7106 CLL RTL 2080 016131 7006 RTL 2081 016132 7004 RAL 2082 016133 1222 TAD BKA 2083 016134 4751 JMS I (P 2084 016135 7200 CLA 2085 016136 2020 ISZ T 2086 016137 2307 ISZ COUNT 2087 016140 5320 JMP ALP 2088 016141 5750 JMP I (ATOVER 2089 2090 /ATFIN, TAD LXR 2091 / TAD (-BEGLN 2092 / SZA CLA 2093 / JMP I AT /LEAVE 2094 / JMP I (LEAVE /LEAVE BECAUSE LINE NOW EMPTY 2095 016150 6307 PAGE 016151 6200 016152 4777 016153 7600 016154 4443 016155 7346 016156 4117 016157 4400 016160 3312 016161 3535 016162 4060 016163 7315 016164 7263 016165 6266 016166 7500 016167 4707 016170 0777 016171 7405 016172 7735 016173 7504 016174 7440 016175 5741 016176 0274 016177 1000 2096 016200 0000 P, 0 2097 016201 0377 AND (177 2098 016202 7450 SNA 2099 016203 5222 JMP CTZ /END AT 0 OR ^Z 2100 016204 1376 TAD (-32 2101 016205 7450 SNA 2102 016206 5222 JMP CTZ 2103 016207 1375 TAD (32-16 /IGNORE CR,LF,FF,VT 2104 016210 7100 CLL 2105 016211 1374 TAD (16-12 2106 016212 7430 SZL 2107 016213 5216 JMP POGO 2108 016214 1373 TAD (212 /FORCE 8-BIT 2109 016215 3416 DCA I XR 2110 016216 7200 POGO, CLA 2111 016217 1420 TAD I T 2112 016220 0372 AND (7400 2113 016221 5600 JMP I P 2114 016222 6211 CTZ, CDF 10 2115 016223 1034 TAD LXR 2116 016224 3256 DCA ATEND 2117 016225 7240 STA 2118 016226 1034 TAD LXR 2119 016227 3034 DCA LXR /INCASE @ GOES TO EOL 2120 016230 4771 JMS I (GLXR /SEARCH FOR EOL 2121 016231 7640 SZA CLA 2122 016232 5230 JMP .-2 2123 016233 1034 TAD LXR 2124 016234 7040 CMA 2125 016235 1256 TAD ATEND 2126 016236 3311 DCA ENDLEN 2127 016237 1016 TAD XR 2128 016240 7040 CMA 2129 016241 1370 TAD (BFR /GET LENGTH OF INSERTED STUFF 2130 016242 3337 DCA NEWLEN 2131 016243 6201 CDF 0 2132 016244 1656 TAD I ATEND /GET NEXT CHAR AFTER FILESPEC 2133 016245 6211 CDF 10 /V3C 2134 016246 1367 TAD (-"' 2135 016247 7640 SZA CLA /IS IT AN APOSTROPHE? 2136 016250 5253 JMP .+3 /NO 2137 016251 2311 ISZ ENDLEN /YES 2138 016252 2256 ISZ ATEND /MAKE IT GO AWAY 2139 016253 1311 TAD ENDLEN 2140 016254 4766 JMS I (MOVE /MOVE REST OF LINE UP 2141 016255 6201 CDF 0 2142 016256 0000 ATEND, 0 /FIRST CHAR POSITION AFTER @ SPEC 2143 016257 6201 CDF 0 2144 016260 2000 BEGLN+1000 2145 016261 1337 TAD NEWLEN /IF 0, 'MOVE' WILL IGNORE IT 2146 016262 4766 JMS I (MOVE /MOVE IN NEW STUFF 2147 016263 6201 CDF 0 2148 016264 5000 BFR 2149 016265 6201 CDF 0 2150 016266 0000 SAVL, 0 /POINTS TO @ 2151 016267 1337 TAD NEWLEN 2152 016270 7041 CIA 2153 016271 1266 TAD SAVL 2154 016272 3305 DCA NEWEND 2155 016273 7100 CLL 2156 016274 1305 TAD NEWEND 2157 016275 1365 TAD (-BEGLN-1000 2158 016276 7630 SZL CLA 2159 016277 5307 JMP ATOVER 2160 016300 1311 TAD ENDLEN 2161 016301 4766 JMS I (MOVE /MOVE BACK END 2162 016302 6201 CDF 0 2163 016303 2000 BEGLN+1000 2164 016304 6201 CDF 0 2165 016305 0000 NEWEND, 0 /FIRST POSITION AFTER NEW STUFF 2166 016306 5764 JMP I (ATMORE /LOOK FOR MORE 2167 016307 4770 ATOVER, JMS I (PRMESG 2168 016310 6750 OVFLOW 2169 GETMP, 2170 016311 0000 ENDLEN, 0 /- NO. OF CHARS AT END INCLUDING 0 2171 2172 016312 0000 NUMC, 0 2173 016313 1363 TAD (SKP 2174 016314 3762 DCA I (NUMSKP 2175 016315 1361 TAD (-11 2176 016316 3760 DCA I (NUMKNT 2177 016317 4757 JMS I (NUMBER 2178 016320 3024 DCA NAME2 2179 016321 1756 TAD I (HIORD 2180 016322 3023 DCA NAME1 2181 016323 7240 STA 2182 016324 1034 TAD LXR 2183 016325 3034 DCA LXR 2184 016326 1361 TAD (-11 2185 016327 3760 DCA I (NUMKNT 2186 016330 4757 JMS I (NUMBER 2187 016331 3026 DCA NAME4 2188 016332 1756 TAD I (HIORD 2189 016333 3025 DCA NAME3 2190 016334 1355 TAD (SPA 2191 016335 3762 DCA I (NUMSKP 2192 016336 5712 JMP I NUMC 2193 NEWLEN, /- NO. OF CHARS BEING INSERTED 2194 016337 0000 GETYR, 0 2195 016340 0354 AND (7 2196 016341 3311 DCA GETMP 2197 016342 6201 CDF 0 2198 016343 1753 TAD I (7777 2199 016344 6211 CDF 10 2200 016345 7112 CLL RTR 2201 016346 7012 RTR 2202 016347 0352 AND (30 2203 016350 1311 TAD GETMP 2204 016351 5737 JMP I GETYR 2205 016352 0030 PAGE 016353 7777 016354 0007 016355 7510 016356 4057 016357 4000 016360 4056 016361 7767 016362 4033 016363 7410 016364 6053 016365 6000 016366 6400 016367 7531 016370 5000 016371 4707 016372 7400 016373 0212 016374 0004 016375 0014 016376 7746 016377 0177 2206 / TAD (-# OF LOCS TO MOVE 2207 / JMS MOVE 2208 / FROM CDF 2209 / FROM LOC 2210 / TO CDF 2211 / TO LOC 2212 2213 016400 0000 MOVE, 0 2214 016401 3020 DCA T 2215 016402 1600 TAD I MOVE /GET FROM CDF 2216 016403 3223 DCA FRCDF 2217 016404 2200 ISZ MOVE 2218 016405 7240 STA 2219 016406 1600 TAD I MOVE /GET FROM LOC-1 2220 016407 3016 DCA XR 2221 016410 2200 ISZ MOVE 2222 016411 1600 TAD I MOVE /GET TO CDF 2223 016412 3225 DCA TOCDF 2224 016413 2200 ISZ MOVE 2225 016414 7240 STA 2226 016415 1600 TAD I MOVE /GET TO LOC-1 2227 016416 3015 DCA XR2 2228 016417 2200 ISZ MOVE /POINT TO RETURN 2229 016420 1020 TAD T 2230 016421 7650 SNA CLA 2231 016422 5600 JMP I MOVE /V1A IGNORE 0 MOVE 2232 016423 7402 FRCDF, HLT 2233 016424 1416 TAD I XR 2234 TMP1, 2235 016425 7402 TOCDF, HLT 2236 016426 3415 DCA I XR2 2237 016427 2020 ISZ T 2238 016430 5223 JMP FRCDF 2239 016431 6211 CDF 10 2240 016432 5600 JMP I MOVE 2241 016433 0000 DETCOR, 0 2242 016434 6202 CIF 0 2243 016435 5777 JMP I (CORE 2244 016436 5633 JMP I DETCOR 2245 2246 016437 4776 BADCOR, JMS I (PRINT 2247 016440 6505 NOCORE 2248 016441 6203 GOEQ, CIF CDF 0 2249 016442 5775 JMP I (COREQ 2250 2251 016443 4776 ABSCOR, JMS I (PRINT 2252 016444 6474 CORMES 2253 016445 5633 JMP I DETCOR 2254 2255 016446 4776 WRSCOR, JMS I (PRINT 2256 016447 6517 BATCOR 2257 016450 5241 JMP GOEQ 2258 2259 016451 4776 SCRM, JMS I (PRINT 2260 016452 6472 SCRMES 2261 016453 5633 JMP I DETCOR 2262 016454 0000 SQSUB, 0 2263 016455 1664 TAD I K7600 2264 016456 7640 SZA CLA 2265 016457 5654 JMP I SQSUB 2266 016460 1774 TAD I (7617 2267 016461 3664 DCA I K7600 2268 016462 4773 JMS I (BATCH /IS BATCH RUNNING? 2269 016463 5654 JMP I SQSUB /NO 2270 016464 7600 K7600, 7600 /YES (CLEAR AC) 2271 016465 1664 TAD I K7600 2272 016466 1372 TAD (7647-1 /POINT INTO DEVICE HANDLER RESIDENCY TABLE 2273 016467 3225 DCA TMP1 2274 016470 1625 TAD I TMP1 /GET HANDLER STARTING ADDRESS 2275 016471 1371 TAD (-7607 2276 016472 7640 SZA CLA /IS SQUISHED DEVICE SYS:? 2277 016473 5654 JMP I SQSUB /NO 2278 016474 4776 JMS I (PRINT 2279 016475 6602 SQWARN /YES, WARN USER 2280 016476 5654 JMP I SQSUB 2281 016477 0000 SETOUT, 0 2282 016500 1770 TAD I (FLAG 2283 016501 7012 RTR 2284 016502 7630 SZL CLA 2285 016503 1367 TAD (5 2286 016504 1264 TAD K7600 2287 016505 3333 DCA OLOC 2288 016506 1733 TAD I OLOC 2289 016507 7640 SZA CLA 2290 016510 5677 JMP I SETOUT /HE'S SPECIFIED SOMETHING 2291 016511 4766 JMS I (200 2292 016512 0012 12 /INQUIRE 2293 016513 0000 DVNM1, 0 2294 016514 0000 DVNM2, 0 2295 016515 0000 0 2296 016516 5765 JMP I (CCER2 /NO SUCH DEVICE 2297 016517 1314 TAD DVNM2 2298 016520 3733 DCA I OLOC 2299 016521 1333 TAD OLOC 2300 016522 0367 AND (5 2301 016523 7650 SNA CLA /USING 2ND OUT DEV? 2302 016524 5677 JMP I SETOUT /NO 2303 016525 2333 ISZ OLOC /YES 2304 016526 1364 TAD (-4 2305 016527 4200 JMS MOVE 2306 016530 6211 CDF 10 2307 016531 0023 NAME1 2308 016532 6211 CDF 10 2309 016533 7600 OLOC, 7600 /INITIALLY 7600 OR 7605 2310 016534 5677 JMP I SETOUT 2311 016535 1363 ENGOA, TAD (-5 2312 016536 4762 JMS I (ZEROCD 2313 016537 6201 CDF 0 2314 016540 1761 TAD I (BLKNO 2315 016541 6211 CDF 10 2316 016542 3760 DCA I (7620 2317 016543 7201 CLA IAC 2318 016544 3774 DCA I (7617 /'CCBTCH' IS ON SYS: 2319 016545 1357 TAD (20 / /T OPTION 2320 016546 3756 DCA I (7644 2321 016547 1357 TAD (20 / ALSO /H (HUSH) OPTION 2322 016550 3755 DCA I (7643 2323 016551 1354 TAD (YBATCH 2324 016552 5753 JMP I (ZOW /CHAIN TO BATCH 2325 016553 2507 PAGE 016554 7252 016555 7643 016556 7644 016557 0020 016560 7620 016561 7422 016562 4647 016563 7773 016564 7774 016565 5223 016566 0200 016567 0005 016570 2553 016571 0171 016572 7646 016573 2135 016574 7617 016575 6254 016576 5124 016577 6003 2326 016600 0000 DATE, 0 2327 016601 1777 TAD I (DATWD 2328 016602 7450 SNA 2329 016603 5330 JMP NODATE 2330 016604 3334 DCA DATEM 2331 016605 1334 TAD DATEM 2332 016606 7106 CLL RTL 2333 016607 7006 RTL 2334 016610 7004 RAL 2335 016611 0376 AND (17 2336 016612 3350 DCA TM1 2337 016613 1350 TAD TM1 2338 016614 1375 TAD (MONLST-1 2339 016615 3333 DCA TM2 2340 016616 6201 CDF 0 2341 016617 1733 TAD I TM2 2342 016620 6211 CDF 10 2343 016621 3311 DCA MONP 2344 016622 1334 TAD DATEM 2345 016623 4774 JMS I (GETYR /V3D DATE/78 ALGORITHM 2346 016624 3333 DCA TM2 2347 016625 1333 TAD TM2 2348 016626 1373 TAD (106 /70. 2349 016627 6203 CIF CDF 0 2350 016630 4772 JMS I (OTODY 2351 016631 3336 DCA YEAR 2352 016632 1334 TAD DATEM 2353 016633 7112 CLL RTR 2354 016634 7010 RAR 2355 016635 0371 AND (37 2356 016636 3334 DCA DATEM 2357 016637 1334 TAD DATEM 2358 016640 6203 CIF CDF 0 2359 016641 4772 JMS I (OTODY 2360 016642 3335 DCA DAY 2361 016643 6201 CDF 0 2362 016644 7326 STL CLA RTL /2 2363 016645 1333 TAD TM2 2364 016646 7112 CLL RTR 2365 016647 7520 SNL SMA 2366 016650 5253 JMP LEAP 2367 016651 2770 ISZ I (JAN 2368 016652 2767 ISZ I (FEB 2369 016653 0371 LEAP, AND (37 2370 016654 1333 TAD TM2 2371 016655 1366 TAD (3 2372 016656 1334 TAD DATEM 2373 016657 3334 DCA DATEM 2374 016660 1350 TAD TM1 2375 016661 1365 TAD (JAN-1 2376 016662 3350 DCA TM1 2377 016663 1750 TAD I TM1 2378 016664 6211 CDF 10 2379 016665 1334 TAD DATEM 2380 016666 7100 DIV7, CLL 2381 016667 1364 TAD (-7 2382 016670 7430 SZL 2383 016671 5266 JMP DIV7 2384 016672 1363 TAD (7 2385 016673 1362 TAD (WEEKLST 2386 016674 3333 DCA TM2 2387 016675 6201 CDF 0 2388 016676 1733 TAD I TM2 2389 016677 6211 CDF 10 2390 016700 3303 DCA WKP 2391 016701 7240 STA /DON'T CRLF 2392 016702 4761 JMS I (PRINT 2393 016703 0000 WKP, 0 2394 016704 7240 STA 2395 016705 4761 JMS I (PRINT 2396 016706 6502 DAYDAY 2397 016707 7240 STA 2398 016710 4761 JMS I (PRINT 2399 016711 0000 MONP, 0 2400 016712 7330 STL CLA RAR 2401 016713 4760 JMS I (PRWD /SPACE 2402 016714 1335 TAD DAY 2403 016715 4760 JMS I (PRWD 2404 016716 7240 STA 2405 016717 4761 JMS I (PRINT 2406 016720 6132 COM19 2407 016721 1336 TAD YEAR 2408 016722 4760 JMS I (PRWD 2409 016723 4757 JMS I (CRLF 2410 016724 4756 JMS I (LOOK /LOOKUP SYS:DATE.SV 2411 016725 7266 YDATE 2412 016726 5600 JMP I DATE /DO NOTHING IF IT'S NOT THERE 2413 016727 5755 JMP I (CHAIN /CHAIN TO IT, IF IT'S THERE 2414 016730 4754 NODATE, JMS I (PRMESG 2415 016731 7100 NONE 2416 016732 0000 DT, 0 2417 016733 0000 TM2, 0 2418 016734 0000 DATEM, 0 2419 016735 0000 DAY, 0 2420 016736 0000 YEAR, 0 2421 016737 0000 SETDSK, 0 2422 016740 1346 TAD DSKDEV 2423 016741 7440 SZA 2424 016742 5737 JMP I SETDSK 2425 016743 4753 JMS I (200 2426 016744 0012 12 /INQUIRE 2427 016745 5723 5723 /PACKED ENCODING FOR 'DSK:' 2428 016746 0000 DSKDEV, 0 /SET TO DEVICE NUMBER 2429 016747 0000 0 2430 016750 7402 TM1, HLT /NO 'DSK' ! 2431 016751 1346 TAD DSKDEV 2432 016752 5737 JMP I SETDSK 2433 016753 0200 PAGE 016754 5000 016755 2513 016756 2516 016757 5152 016760 5015 016761 5124 016762 6135 016763 0007 016764 7771 016765 6546 016766 0003 016767 6550 016770 6547 016771 0037 016772 6340 016773 0106 016774 6337 016775 6037 016776 0017 016777 7666 2434 /CCL REMEMBERS UP TO 8 COMMAND LINES (EACH UP TO 55 DECIMAL 2435 /SIXBIT CHARACTERS LONG) IN BLOCK 65 ON THE SYSTEM DEVICE. 2436 /THIS BLOCK WHEN READ INTO 04000-04377 HAS THE FOLLOWING FORMAT: 2437 2438 /4000-4037 REM-LINE 0 2439 /4040-4177 REM-LINE 1 2440 /4100-4137 REM-LINE 2 2441 /4140-4177 REM-LINE 3 2442 /4200-4237 REM-LINE 4 2443 /4240-4277 REM-LINE 5 2444 /4300-4337 REM-LINE 6 2445 /4340-4377 REM-LINE 7 2446 2447 /EACH REM-LINE HAS THE FOLLOWING FORMAT: 2448 2449 /WORD 0: IN-USE FLAG, MUST BE '1234' TO INDICATE LINE WAS REMEMBERED HERE 2450 /WORD 1: DATE LINE WAS REMEMBERED 2451 /WORD 2: COMMAND DEPENDENT INFORMATION 2452 /WORD 3: RESERVED FOR FUTURE EXPANSION 2453 /WORDS 4-37 COMMAND LINE NOT INCLUDING KEYWORD OR FOLLOWING SPACES 2454 / PACKED IN 6-BIT AND TERMINATED BY A 6-BIT 0. 2455 2456 /ROUTINES: 2457 2458 / TAD (DEP 2459 / JMS REMEM 2460 / N 2461 2462 /REMEMBERS CURRENT LINE IN REM-LINE N. AC IS LINE DEPENDENT INFORMATION. 2463 /IF LINE IS TOO BIG, THIS PRINTS A WARNING MESSAGE AND RETURNS AS IF OK. 2464 2465 / JMS RECALL 2466 / N 2467 2468 /RECALLS REM-LINE N INTO BUFFER 2469 /IF NOTHING THERE, PRINTS A BAD SYNTAX MESSAGE AND RETURNS TO OS/8. 2470 /UPON RETURN, LINE-DEPENDENT INFO IS IN AC. 2471 /IF DATES DON'T MATCH, IT'S NOT THERE UNLESS DATE = -1 2472 2473 /0 USED BY TECO, MAKE COMMANDS 2474 /1 USED BY EDIT, CREATE COMMANDS 2475 /2 USED BY COMPILE, EXECUTE COMMANDS & PAL. 2476 / DEPENDENT WORD IS PTR TO FIRST ENTRY IN MAIN TABLE 2477 2478 /3 USED BY 'UA' COMMAND 2479 /4 USED BY UB 2480 /5 USED BY UC 2481 2482 / JMS FOREVER 2483 2484 /CAUSES NEXT CALL TO REMEM TO INSERT -1 AS DATE 2485 REMSPACE=4000 2486 REMBLOCK=65 2487 2488 017000 0000 REMEM, 0 2489 017001 3251 DCA DEP 2490 017002 1777 TAD I (REMD 2491 017003 7700 SMA CLA 2492 017004 5600 JMP I REMEM /DON'T REMEMBER IF JUST RECALLED 2493 017005 4776 JMS I (RDREM 2494 017006 5775 JMP I (MEMBIG 2495 017007 1600 TAD I REMEM 2496 017010 2200 ISZ REMEM 2497 017011 7106 CLL RTL 2498 017012 7006 RTL 2499 017013 7004 RAL /MULTIPLY BY 40 2500 017014 1374 TAD (REMSPACE 2501 017015 3252 DCA LPTR 2502 017016 1373 TAD (1234 2503 017017 6201 CDF 0 2504 017020 3652 DCA I LPTR 2505 017021 6211 CDF 10 2506 017022 2252 ISZ LPTR 2507 017023 1772 FORVR, TAD I (DATWD /REPLACED BY CMA IF WANT NO DATE 2508 017024 4254 JMS LPUT /STORE DATE 2509 017025 1251 TAD DEP 2510 017026 4254 JMS LPUT /STORE DEPENDENT INFO 2511 017027 4254 JMS LPUT /RESERVED 2512 017030 4771 JMS I (SCAN /GO PAST KEYWORD AND BLANKS 2513 017031 1770 TAD I (LBEGIN 2514 017032 3016 DCA XR 2515 017033 4767 RELUP, JMS I (GETF 2516 017034 5245 JMP LZER 2517 017035 4766 JMS I (ROTL 2518 017036 3253 DCA TML 2519 017037 4767 JMS I (GETF 2520 017040 5244 JMP RZER 2521 017041 1253 TAD TML 2522 017042 4254 JMS LPUT 2523 017043 5233 JMP RELUP 2524 017044 1253 RZER, TAD TML 2525 017045 4254 LZER, JMS LPUT 2526 017046 4765 JMS I (WRREM 2527 017047 5775 JMP I (MEMBIG 2528 017050 5600 REMGO, JMP I REMEM 2529 017051 0000 DEP, 0 2530 017052 0000 LPTR, 0 /PTS TO REM-LINE 2531 017053 0000 TML, 0 /TEMP 2532 2533 /PUT INTO REM-LINE 2534 2535 017054 0000 LPUT, 0 2536 017055 3253 DCA TML 2537 017056 1252 TAD LPTR 2538 017057 0364 AND (37 2539 017060 7650 SNA CLA 2540 017061 5775 JMP I (MEMBIG 2541 017062 1253 TAD TML 2542 017063 6201 CDF 0 2543 017064 3652 DCA I LPTR 2544 017065 6211 CDF 10 2545 017066 2252 ISZ LPTR 2546 017067 5654 JMP I LPUT 2547 2548 017070 0000 FOREVER,0 2549 017071 1314 TAD LCMA 2550 017072 3223 DCA FORVR 2551 017073 5670 JMP I FOREVER /NON-ZERO MEANS SET DATE TO -1 2552 017074 0000 RECALL, 0 2553 017075 4776 JMS I (RDREM 2554 017076 5763 JMP I (REMERR 2555 017077 1674 TAD I RECALL 2556 017100 2274 ISZ RECALL 2557 017101 4766 JMS I (ROTL 2558 017102 7010 RAR 2559 017103 1374 TAD (REMSPACE 2560 017104 3252 DCA LPTR 2561 017105 4350 JMS LGET 2562 017106 1362 TAD (-1234 2563 017107 7640 SZA CLA 2564 017110 5761 JMP I (REMER2 2565 017111 4350 JMS LGET 2566 017112 7450 SNA 2567 017113 5761 JMP I (REMER2 2568 017114 7040 LCMA, CMA 2569 017115 7450 SNA 2570 017116 5323 JMP FOREV 2571 017117 7001 IAC 2572 017120 1772 TAD I (DATWD /SAME DAY? 2573 017121 7640 SZA CLA 2574 017122 5761 JMP I (REMER2 2575 017123 4350 FOREV, JMS LGET 2576 017124 3251 DCA DEP 2577 017125 4350 JMS LGET /IGNORE RESERVED WORD 2578 017126 7200 CLA 2579 017127 1360 TAD (BEGLN-1 2580 017130 3016 DCA XR 2581 017131 1360 TAD (BEGLN-1 2582 017132 3770 DCA I (LBEGIN 2583 017133 4350 RECLUP, JMS LGET 2584 017134 3253 DCA TML 2585 017135 1253 TAD TML 2586 017136 4766 JMS I (ROTL 2587 017137 7004 RAL 2588 017140 4757 JMS I (PUTF 2589 017141 5346 JMP RECLV 2590 017142 1253 TAD TML 2591 017143 4757 JMS I (PUTF 2592 017144 5346 JMP RECLV 2593 017145 5333 JMP RECLUP 2594 2595 017146 1251 RECLV, TAD DEP 2596 017147 5674 JMP I RECALL 2597 017150 0000 LGET, 0 2598 017151 6201 CDF 0 2599 017152 1652 TAD I LPTR 2600 017153 6211 CDF 10 2601 017154 2252 ISZ LPTR 2602 017155 5750 JMP I LGET 2603 017157 7200 PAGE 017160 0777 017161 7233 017162 6544 017163 7231 017164 0037 017165 7252 017166 7300 017167 7305 017170 7440 017171 5316 017172 7666 017173 1234 017174 4000 017175 7235 017176 7241 017177 2423 2604 017200 0000 PUTF, 0 2605 017201 0377 AND (77 2606 017202 7450 SNA 2607 017203 5210 JMP PUTZ 2608 017204 2200 ISZ PUTF 2609 017205 1376 TAD (240 2610 017206 0377 AND (77 2611 017207 1376 TAD (240 2612 017210 6201 PUTZ, CDF 0 2613 017211 3416 DCA I XR 2614 017212 6211 CDF 10 2615 017213 5600 JMP I PUTF 2616 2617 017214 0000 CHKSUP, 0 2618 017215 4263 JMS FUDG 2619 017216 4775 JMS I (ASSIGN 2620 017217 1023 TAD NAME1 2621 017220 7650 SNA CLA 2622 017221 5614 JMP I CHKSUP /CAN'T SUP IF NO FILENAME 2623 017222 1774 TAD I (DVICE 2624 017223 4773 JMS I (LOOK /LOOK UP FILE 2625 017224 0023 NAME1 2626 017225 5614 JMP I CHKSUP /NOT FOUND (GOOD) 2627 017226 4772 JMS I (PRINT 2628 017227 6563 SUP 2629 017230 5614 JMP I CHKSUP 2630 2631 017231 4771 REMERR, JMS I (PRMESG 2632 017232 7035 REMBAD 2633 017233 4771 REMER2, JMS I (PRMESG 2634 017234 7103 BADREM 2635 017235 7200 MEMBIG, CLA 2636 017236 4772 JMS I (PRINT 2637 017237 6572 MEMWARN 2638 017240 5770 JMP I (REMGO 2639 2640 017241 0000 RDREM, 0 2641 017242 6202 CIF 0 2642 017243 4767 JMS I (7607 2643 017244 0200 200 /READ 2 PAGES INTO FIELD 0 2644 017245 4000 4000 /LOCATION 4000 2645 017246 0065 REMBLOCK 2646 017247 7610 SKP CLA 2647 017250 2241 ISZ RDREM 2648 017251 5641 JMP I RDREM 2649 2650 017252 0000 WRREM, 0 2651 017253 6202 CIF 0 2652 017254 4767 JMS I (7607 2653 017255 4200 4200 /WRITE 2 PAGES FROM FIELD 0 2654 017256 4000 4000 /LOCATION 4000 2655 017257 0065 REMBLOCK 2656 017260 7610 SKP CLA 2657 017261 2252 ISZ WRREM 2658 017262 5652 JMP I WRREM 2659 2660 017263 0000 FUDG, 0 2661 017264 3766 DCA I (OUTSW /LOAD HANDLER 2662 017265 1765 TAD I (OUTLIM 2663 017266 7041 CIA 2664 017267 3035 DCA CLXR 2665 017270 5663 JMP I FUDG 2666 017271 0000 K8, 0 2667 017272 1364 TAD (1716 2668 017273 4763 JMS I (PRWD 2669 017274 1362 TAD (1431 2670 017275 4763 JMS I (PRWD 2671 017276 6203 CIF CDF 0 2672 017277 5671 JMP I K8 2673 2674 017300 0000 ROTL, 0 2675 017301 7106 CLL RTL 2676 017302 7006 RTL 2677 017303 7006 RTL 2678 017304 5700 JMP I ROTL 2679 2680 /GET FROM INPUT LINE VIA XR 2681 2682 017305 0000 GETF, 0 2683 017306 6201 CDF 0 2684 017307 1416 TAD I XR 2685 017310 6211 CDF 10 2686 017311 7440 SZA 2687 017312 2305 ISZ GETF 2688 017313 0377 AND (77 2689 017314 5705 JMP I GETF 2690 /THIS GETS A DEV:NAME.EXT SPECIFICATION (USING LXR) 2691 /PUTTING RESULT IN DEV1,DEV2, NAME1-4. 2692 /IT GIVES A FATAL ERRORR MESSAGE IF BAD. 2693 017315 0000 GETSPC, 0 2694 017316 7240 STA 2695 017317 3343 DCA DVFLAG 2696 017320 3030 DCA DEV1 2697 017321 3031 FILLP1, DCA DEV2 2698 017322 4761 FILLP, JMS I (GNAME 2699 017323 1360 TAD (-": /AC CONTAINED DELIM 2700 017324 7650 SNA CLA 2701 017325 5330 JMP DEVNAM 2702 017326 3757 DCA I (NUMC 2703 017327 5715 JMP I GETSPC 2704 017330 7201 DEVNAM, CLA IAC 2705 017331 1756 TAD I (PERDSW 2706 017332 1757 TAD I (NUMC 2707 017333 7640 SZA CLA 2708 017334 5344 JMP CDERA /. OR # IN DEVICE NAME 2709 017335 1023 TAD NAME1 2710 017336 3030 DCA DEV1 2711 017337 2343 ISZ DVFLAG 2712 017340 5344 JMP CDERA /CATCHES A:B: 2713 017341 1024 TAD NAME2 2714 017342 5321 JMP FILLP1 2715 2716 017343 0000 DVFLAG, 0 2717 017344 4771 CDERA, JMS I (PRMESG 2718 017345 7114 BADEV 2719 2720 017346 6211 ATERR, CDF 10 2721 017347 7200 CLA 2722 017350 4771 JMS I (PRMESG 2723 017351 6721 ATIO 2724 017356 4351 PAGE 017357 6312 017360 7506 017361 4200 017362 1431 017363 5015 017364 1716 017365 7437 017366 3737 017367 7607 017370 7050 017371 5000 017372 5124 017373 2516 017374 4474 017375 4060 017376 0240 017377 0077 2725 017400 0000 CDINIT, 0 2726 017401 1433 TAD I DEFALT 2727 017402 1377 TAD (-5200 2728 017403 7640 SZA CLA /IS THIS A REQUEST FOR A 2729 /"SPECIAL DECODE"? 2730 017404 5220 JMP CDCONT /NO 2731 017405 1227 TAD ALTLIM 2732 017406 3237 DCA OUTLIM /YES, SET UP THE PROPER LOCATIONS 2733 017407 1230 TAD ALTDF1 2734 017410 3236 DCA LIMDIF /TO GET 1 OUTPUT AND 5 INPUT FILES 2735 017411 1231 TAD ALTDF2 2736 017412 3235 DCA BEGDIF /ALL OF WHICH ARE 2737 /5-WORD ENTRIES 2738 017413 3632 DCA I PLKUPS 2739 017414 1347 TAD STARJM 2740 017415 3633 DCA I PSTARS /AND ALLOW * 2741 /AS A FILE OR EXTENSION NAME 2742 017416 1323 TAD CCLA /STOPS FETCHES IN SPECIAL MODE 2743 017417 3634 DCA I PSPKG1 /NO HANDLER FETCHES NECESSARY EITHER 2744 /SINCE NO LOOKUPS 2745 017420 4776 CDCONT, JMS I (BKA 2746 017421 7240 STA 2747 017422 3775 DCA I (OUTSW 2748 017423 4774 JMS I (ZEROCD 2749 017424 1240 TAD LBEGIN 2750 017425 3034 DCA LXR 2751 017426 5600 JMP I CDINIT 2752 /CONSTANTS NECESSARY TO SUPPORT "SPECIAL DECODE" MODE 2753 017427 0174 ALTLIM, 1-MOFILE-5 2754 017430 7747 ALTDF1, MOFILE+5-MPARAM+5 2755 017431 0005 ALTDF2, 5 2756 017432 3625 PLKUPS, LKUPSW 2757 017433 4227 PSTARS, STARSW 2758 017434 4104 PSPKG1, SPKLG1 2759 2760 017435 0017 BEGDIF, MIFILE-MOFILE 2761 017436 7756 LIMDIF, MIFILE-MPARAM+2 2762 017437 0162 OUTLIM, 1-MIFILE 2763 017440 0000 LBEGIN, 0 /PTS TO 1 CHAR BEFORE COMMAND KEYWORD ARGUMENT 2764 017441 0000 NMOVE, 0 2765 017442 3304 DCA PT1 /V1A ARG IN AC 2766 017443 1773 TAD I (FLAG 2767 017444 7006 RTL 2768 017445 7700 SMA CLA /FEATURE ENABLED? 2769 017446 5772 JMP I (CCERB /NO 2770 017447 1775 TAD I (OUTSW 2771 017450 7640 SZA CLA 2772 017451 5772 JMP I (CCERB /ON OUTPUT SIDE 2773 017452 1723 TAD I CCLA /V3C 2774 017453 7650 SNA CLA /DON'T CHANGE OUT DEV IF SPECIFIED 2775 017454 1773 TAD I (FLAG /LOOK AT 'COPY EXT' BIT 2776 017455 0371 AND (200 2777 017456 7650 SNA CLA 2778 017457 5263 JMP NMXXX /IT WASN'T SET 2779 017460 1770 TAD I (7617 /GET FIRST INPUT DEVICE 2780 017461 0367 AND (17 /ISOLATE DEVICE BITS 2781 017462 3723 DCA I CCLA /FORCE THIS TO BE FIRST OUTPUT DEVICE 2782 017463 1704 NMXXX, TAD I PT1 2783 017464 7450 SNA 2784 017465 4766 JMS I (SETDSK /CHANGE TO 'IAC' TO ALWAYS USE SYS: 2785 017466 3704 DCA I PT1 /SET DEVICE TO SYS IF NONE 2786 017467 2304 ISZ PT1 2787 017470 1704 TAD I PT1 /WAS THERE A SPECIFICATION THERE? 2788 017471 7640 SZA CLA 2789 017472 5641 JMP I NMOVE /YES, DO NOTHING 2790 017473 1773 TAD I (FLAG 2791 017474 0371 AND (200 /GET 'COPY EXTENSION' BIT 2792 017475 7740 L7740, SMA SZA CLA /'SMA' IS UNNECESSARY 2793 017476 7240 STA /COPY 4 WORDS IF BIT 4 WAS ON 2794 017477 1365 TAD (-3 /OTHERWISE ONLY COPY 3 WORDS 2795 017500 4764 JMS I (MOVE 2796 017501 6211 CDF 10 2797 017502 0023 NAME1 2798 017503 6211 CDF 10 2799 TEM, 2800 017504 0000 PT1, 0 2801 017505 5641 JMP I NMOVE 2802 2803 017506 2305 P8, SETDEV 2804 017507 7375 DMPDEV 2805 017510 0000 VERTN, 0 2806 017511 4763 JMS I (RDMON /READ MONITOR 2807 017512 6201 CDF 0 2808 017513 1762 TAD I (2031 /GET PATCH LEVEL 2809 017514 7450 SNA 2810 017515 1361 TAD ("! 2811 017516 0360 AND (77 2812 017517 3304 DCA TEM 2813 017520 1757 TAD I (2000 /GET VERSION # 2814 017521 6211 CDF 10 2815 017522 7510 SPA 2816 017523 7600 CCLA, 7600 /"0" MEANS OLD 2817 017524 1356 TAD (60 2818 017525 4755 JMS I (ROTL 2819 017526 1304 TAD TEM 2820 017527 5754 JMP I (PTCH 2821 /ALLOW DEASSIGN FOO ? 2822 2823 017530 0000 DEASSIGN,0 2824 017531 1275 TAD L7740 2825 017532 3016 DCA XR 2826 017533 1353 TAD (-17 2827 017534 3020 DCA T 2828 017535 3416 DCA I XR 2829 017536 2020 ISZ T 2830 017537 5335 JMP .-2 2831 017540 6201 CDF 0 2832 017541 1752 TAD I (7746 2833 017542 0351 AND (6777 2834 017543 1350 TAD (1000 2835 017544 3752 DCA I (7746 2836 017545 6211 CDF 10 2837 017546 5730 JMP I DEASSIGN 2838 STARJM, RELOC STARNM /DUMP LITERALS AT LAST POSSIBLE MOMENT 2839 014236* 5236 JMP STARNM 2840 RELOC 2841 017550 1000 PAGE 017551 6777 017552 7746 017553 7761 017554 2327 017555 7300 017556 0060 017557 2000 017560 0077 017561 0241 017562 2031 017563 3470 017564 6400 017565 7775 017566 6737 017567 0017 017570 7617 017571 0200 017572 5200 017573 2553 017574 4647 017575 3737 017576 6022 017577 2600 2842 ZBLOCK 7600-. 2843 /CCL.SV (THE IMPORTANT PART) MUST BE A SINGLE CORE-LOAD 2844 /CONTIGUOUS LOAD, BECAUSE OF THE WAY THE MONITOR LOADS IT. 2845 /FORTUNATELY, FIELD 0 STUFF OCCURS AFTER FIELD 1 STUFF IN THE 2846 /OS/8 CORE-IMAGE FORMAT. 2847 /FOR VERSION OF THE MONITOR BEFORE LEVEL A, 2848 /THE TOTAL LENGTH OF CCL.SV MUST BE LESS THAN14 BLOCKS 2849 /OR IT READS OVER 7600. 2850 /BUT NOW CCL COMES IN AND READS THE REMAINDER OF ITSELF 2851 /INTO FIELD 0. 400-777 IS IGNORED BY SKIPPING A BLOCK, 2852 /THEN THER REST OF CCL (7 PAGES) IS READ IN. 2853 2854 FIELD 0 2855 2856 *400 2857 2858 /IT LOADS OVER THE SAVE, DATE OVERLAY 2859 /AND STARTS AT LOCATION 600 2860 2861 /KEYWORD TABLE IN 400- 2862 2863 /CONSISTS OF COMMANDS 2 CHARS PER LOCATION 2864 /IN 5-BIT ASCII (ONLY LETTERS ARE LEGAL) 2865 /SEPARATED FROM EACH OTHER BY 6-BIT 00'S. 2866 /EACH ENTRY STARTS ON A WORD BOUNDARY, BUT IF YOU 2867 /NEED THE ROOM, THEY NEED NOT WITH A SIMPLE FIX 2868 /BIT 40 ON MEANS THAT THE CHARACTER ISN'T REQUIRED 2869 /BUT IF THE USER DOES TYPE A LETTER, IT MUST MATCH. 2870 000400 0307 VNO, CCLTAB 2871 KEYWRD, 2872 000401 0530 0530 /EX ECUT 2873 000402 4543 4543 2874 000403 6564 6564 2875 000404 0002 0002 /BA CKSP OR TER MIN 2876 000405 0143 0143 2877 000406 5363 5363 2878 000407 6000 6000 2879 000410 0201 0201 /BAS IC 2880 000411 2351 2351 2881 000412 4300 4300 2882 000413 0425 0425 /DU PLICATE 2883 000414 6054 6054 2884 000415 5143 5143 2885 000416 4164 4164 2886 000417 4500 4500 2887 000420 0217 0217 /BO OT 2888 000421 5764 5764 2889 000422 0003 0003 /CCL 2890 000423 0314 0314 2891 000424 0003 0003 /COMPA R 2892 000425 1715 1715 2893 000426 2001 2001 2894 000427 6200 6200 2895 000430 0317 0317 /COM PIL 2896 000431 1560 1560 2897 000432 5154 5154 2898 000433 0003 0003 /COP Y 2899 000434 1720 1720 2900 000435 7100 7100 2901 000436 1505 1505 /MEM ORY 2902 000437 1557 1557 2903 000440 6271 6271 2904 000441 0003 0003 /CREA TE 2905 000442 2205 2205 2906 000443 0164 0164 2907 000444 4500 4500 2908 000445 0322 0322 /CREF 2909 000446 0506 0506 2910 000447 0004 0004 /DA TE 2911 000450 0164 0164 2912 000451 4500 4500 2913 000452 0405 0405 /DEL ETE 2914 000453 1445 1445 2915 000454 6445 6445 2916 000455 0004 0004 /DE A 2917 000456 0541 0541 2918 000457 0004 0004 /DIR ECT 2919 000460 1122 1122 2920 000461 4543 4543 2921 000462 6400 6400 2922 000463 0504 0504 /ED IT 2923 000464 5164 5164 2924 000465 0005 0005 /EO F 2925 000466 1746 1746 2926 000467 0010 0010 /HE LP 2927 000470 0554 0554 2928 000471 6000 6000 2929 000472 1411 1411 /LIN K 2930 000473 1653 1653 2931 000474 0015 0015 /MAC R 2932 000475 0103 0103 2933 000476 6200 6200 2934 000477 1411 1411 /LI ST 2935 000500 6364 6364 2936 000501 0014 0014 /LO AD 2937 000502 1741 1741 2938 000503 4400 4400 2939 000504 1501 1501 /MAK E 2940 000505 1345 1345 2941 000506 0015 0015 /MAP 2942 000507 0120 0120 2943 000510 0015 0015 /MUNG 2944 000511 2516 2516 2945 000512 0700 0700 2946 000513 2001 2001 /PAL 2947 000514 1400 1400 2948 000515 2022 2022 /PRI NT 2949 000516 1156 1156 2950 000517 6400 6400 2951 000520 2025 2025 /PU NCH 2952 000521 5643 5643 2953 000522 5000 5000 2954 000523 2205 2205 /REN AME 2955 000524 1641 1641 2956 000525 5545 5545 2957 000526 0022 0022 /RES 2958 000527 0523 0523 2959 000530 0022 0022 /REW IND 2960 000531 0527 0527 2961 000532 5156 5156 2962 000533 4400 4400 2963 000534 2305 2305 /SET 2964 000535 2400 2400 2965 000536 2313 2313 /SK IP 2966 000537 5160 5160 2967 000540 0023 0023 /SQ UISH 2968 000541 2165 2165 2969 000542 5163 5163 2970 000543 5000 5000 2971 000544 2325 2325 /SU BMIT 2972 000545 4255 4255 2973 000546 5164 5164 2974 000547 0024 0024 /TE CO 2975 000550 0543 0543 2976 000551 5700 5700 2977 000552 2431 2431 /TY PE 2978 000553 6045 6045 2979 000554 0025 0025 /UN LOAD 2980 000555 1654 1654 2981 000556 5741 5741 2982 000557 4400 4400 2983 000560 2501 2501 /UA 2984 000561 0025 0025 /UB 2985 000562 0200 0200 2986 000563 2503 2503 /UC 2987 000564 0026 0026 /VE R 2988 000565 0562 0562 2989 000566 0032 0032 /ZERO 2990 000567 0522 0522 2991 000570 1700 1700 2992 000571 4000 4000 /@ 2993 000572 0000 ZBLOCK 600-. 000573 0000 000574 0000 000575 0000 000576 0000 000577 0000 2994 IFDEF XYZMCR < 2995 2996 THIS IS THE TECO MACRO WHICH WAS USED TO CREATE THE ABOVE TABLE: 2997 2998 2999 HKGYJ2SR0,.KHXAHKMA 3000 TYPE COMMANDS, SPACE SEPARATES MANDATORY PART FROM 3001 OPTIONAL PART, CR TERMINATES COMMANDS, ^Z TERMINATES ALL. 3002 ** NO EDITING ** 3003 HKHXYHXN0UO0UB0UN 3004 !CHLP!^TULQL-32"EOBLANK'QL-13"EOCR'QL-26"EOEND' 3005 !CHLP0!QL&63+QBUT QT/8UXQX+48IQT-(8*QX)+48I 3006 QL"NZJ.UZGNQLIQZJXNK%N' 3007 %O&1"NOCHLP' QN-3"LZUH'I 3008 OCHLP 3009 !BLANK! 32UBZJ.UZGNQLIQZJXNK%NOCHLP 3010 !CR!  3011 QHJ /GNZJXN0UN0UB0ULOCHLP0 3012 !END!I00 3013  3014 3015 3016 > 3017 *600 3018 3019 JSBITS=7746 3020 SYSTEM=22 3021 PRMES=330 3022 ERRET=33 /THESE ARE LOCATIONS FROM OS/8 MONITOR 3023 3024 /RUNS IN FIELD 0 ONLY. 3025 3026 000600 0000 ENTRY, 0 /INITIALLY 0 MEANS 'EX' COMMAND 3027 000601 5205 LINPTR, JMP ENTREE /OS/8 JUMPS HERE (ACTUALLY TO 600) 3028 TEMM, 3029 000602 2227 TEKLDG, ISZ CCLNHR /TECO 'EG' JUMPS HERE 3030 000603 3777 DCA I (BEGLN /ZERO COMMAND LINE 3031 000604 5214 JMP TEGO /FIRST WE DISABLE CALLS TO MONITOR 3032 000605 1376 ENTREE, TAD (7605 3033 000606 3033 DCA ERRET 3034 000607 1022 TAD SYSTEM 3035 000610 3236 DCA MYSYS 3036 000611 4256 JMS FINDIT 3037 000612 7710 SPA CLA /WAS IT A LEGAL COMMAND? 3038 000613 5775 JMP I (PRQMRK /NO 3039 000614 1374 TEGO, TAD (6003 /YES 3040 000615 3773 DCA I (JSBITS 3041 000616 6212 CIF 10 3042 000617 4636 JMS I MYSYS /CALL USR AND LOCK IN CORE 3043 000620 0010 10 3044 000621 7201 CLA IAC 3045 000622 6212 CIF 10 3046 000623 4772 JMS I (200 3047 000624 0002 2 3048 000625 0642 CCLBLC, CCLSV 3049 000626 0000 CCLEN, 0 3050 000627 5246 CCLNHR, JMP NOCCL /ISZ'ED IF KBM NOT IN MEMORY 3051 000630 7201 CLA IAC 3052 000631 1225 TAD CCLBLC 3053 000632 3236 DCA CCLRDB 3054 000633 4771 JMS I (7607 3055 000634 2711 CCLCCW, 2711 /READ 27 PAGES OF CCL.SV 3056 000635 2000 CCLSTR, 2000 3057 MYSYS, 3058 000636 7700 CCLRDB, 7700 /INITIALLY POINTS TO USR 3059 000637 5246 JMP NOCCL 3060 000640 6213 CIF CDF 10 3061 000641 5635 JMP I CCLSTR 3062 000642 0303 CCLSV, FILENAME CCL.SV 000643 1400 000644 0000 000645 2326 3063 3064 000646 7610 NOCCL, CLA SKP 3065 000647 5776 JMP I (7605 /GO BACK TO MON IF CCL NOT FOUND ON TECO EG COMMAND 3066 000650 4770 JMS I (PRMES /PRINT ERROR MESSAGE OTHERWISE 3067 000651 1617 TEXT /NO CCL!/ 000652 4003 000653 0314 000654 4100 3068 000655 0000 0 3069 /FINDS IF INPUT LINE STARTS WITH A COMMAND 3070 /LEAVES ENTRY # IN AC, -1 IF NOT FOUND 3071 /ENTRIES START AT ENTRY 0. 3072 /CALLABLE FROM ANY FIELD 3073 3074 000656 0000 FINDIT, 0 3075 000657 1367 MORE, TAD (BEGLN-1 3076 000660 3201 DCA LINPTR 3077 000661 2201 ISZ LINPTR 3078 000662 1601 TAD I LINPTR 3079 000663 1366 TAD (-240 3080 000664 7650 SNA CLA 3081 000665 5261 JMP .-4 3082 000666 4331 JMS GETKAR 3083 000667 5323 JMP ENDOFT /NO MATCH 3084 000670 5301 JMP INTO 3085 000671 1601 FNLUP, TAD I LINPTR 3086 000672 1365 TAD (-301 3087 000673 7120 STL 3088 000674 1373 TAD (-32 3089 000675 7620 SNL CLA 3090 000676 5314 JMP NOLET /NOT A LETTER 3091 000677 4331 JMS GETKAR 3092 000700 5321 JMP MATCH 3093 000701 7041 INTO, CIA 3094 000702 1601 TAD I LINPTR 3095 000703 0364 AND (37 /5-BIT ASCII 3096 000704 2201 ISZ LINPTR 3097 000705 7650 SNA CLA /DO THEY MATCH? 3098 000706 5271 JMP FNLUP /YES 3099 000707 4331 NOMT, JMS GETKAR 3100 000710 7410 SKP 3101 000711 5307 JMP .-2 /SCAN TO NEXT ENTRY 3102 000712 2200 ISZ ENTRY 3103 000713 5257 JMP MORE 3104 3105 000714 4331 NOLET, JMS GETKAR 3106 000715 5321 JMP MATCH 3107 000716 7200 CLA 3108 000717 2330 ISZ SIGNIF 3109 000720 5307 JMP NOMT 3110 000721 1200 MATCH, TAD ENTRY 3111 000722 7410 SKP 3112 000723 7240 ENDOFT, STA 3113 000724 6201 RETCIF, CDF 0 /RETURN TO CALLING FIELD (MAY BE OVERLAID) 3114 000725 5656 JMP I FINDIT 3115 000726 0401 KPTR, KEYWRD 3116 000727 7777 HALF, -1 /0 MEANS LEFT HALF 3117 000730 0000 SIGNIF, 0 /1 MEANS 40 BIT ON WHICH MEANS CHAR IS SIGNIF ONLY IF PRESENT 3118 3119 /GETKAR GETS NEXT 5-BIT CHAR, LEAVES IT IN AC 3120 /SETS SIGNIF TO -1 IF 40 BIT WAS PRESENT 3121 /TAKES RETURN 1 IF CHAR IS 0 3122 /TAKES RETURN 2 OTHERWISE 3123 3124 000731 0000 GETKAR, 0 3125 000732 2327 ISZ HALF 3126 000733 5341 JMP RTHALF 3127 000734 1726 TAD I KPTR 3128 000735 7012 RTR 3129 000736 7012 RTR 3130 000737 7012 RTR 3131 000740 5345 JMP INSIDE 3132 000741 7240 RTHALF, STA 3133 000742 3327 DCA HALF 3134 000743 1726 TAD I KPTR 3135 000744 2326 ISZ KPTR 3136 000745 0363 INSIDE, AND (77 3137 000746 3202 DCA TEMM 3138 000747 1202 TAD TEMM 3139 000750 0351 AND X40 3140 000751 7640 X40, SZA CLA 3141 000752 7240 STA 3142 000753 3330 DCA SIGNIF 3143 000754 1202 TAD TEMM 3144 000755 7440 SZA 3145 000756 2331 ISZ GETKAR 3146 000757 0364 AND (37 3147 000760 5731 JMP I GETKAR 3148 000763 0077 PAGE 000764 0037 000765 7477 000766 7540 000767 0777 000770 0330 000771 7607 000772 0200 000773 7746 000774 6003 000775 1357 000776 7605 000777 1000 3149 *REST 3150 006000 6022 CORLOC, CORX 3151 006001 1400 CORV, 1400 3152 006002 0001 CORSIZ, 1 3153 3154 006003 6201 CORE, CDF 0 3155 006004 1202 TAD CORSIZ 3156 006005 7106 CLL RTL 3157 006006 7004 RAL 3158 006007 0220 AND COR70 3159 006010 1233 TAD COREX 3160 006011 3212 DCA .+1 3161 006012 6201 COR1, CDF 3162 006013 1600 TAD I CORLOC 3163 006014 7000 COR2, NOP 3164 006015 3212 DCA COR1 3165 006016 1214 TAD COR2 3166 006017 3600 DCA I CORLOC 3167 006020 0070 COR70, 70 3168 006021 1600 TAD I CORLOC 3169 006022 7400 CORX, 7400 3170 006023 1222 TAD CORX 3171 006024 1201 TAD CORV 3172 006025 7640 SZA CLA 3173 006026 5233 JMP COREX 3174 006027 1212 TAD COR1 3175 006030 3600 DCA I CORLOC 3176 006031 2202 ISZ CORSIZ 3177 006032 5203 JMP CORE 3178 006033 6201 COREX, CDF 0 3179 006034 1202 TAD CORSIZ 3180 006035 7106 CLL RTL 3181 006036 1377 TAD (-10 3182 006037 5776 JMP I (DETC2 /GO TO NEXT PAGE 3183 006040 6054 MONLST, MON1 3184 006041 6060 MON2 3185 006042 6065 MON3 3186 006043 6070 MON4 3187 006044 6073 MON5 3188 006045 6075 MON6 3189 006046 6100 MON7 3190 006047 6103 MON8 3191 006050 6107 MON9 3192 006051 6114 MON10 3193 006052 6120 MON11 3194 006053 6125 MON12 3195 006054 1201 MON1, TEXT /JANUARY/ 006055 1625 006056 0122 006057 3100 3196 006060 0605 MON2, TEXT /FEBRUARY/ 006061 0222 006062 2501 006063 2231 006064 0000 3197 006065 1501 MON3, TEXT /MARCH/ 006066 2203 006067 1000 3198 006070 0120 MON4, TEXT /APRIL/ 006071 2211 006072 1400 3199 006073 1501 MON5, TEXT /MAY/ 006074 3100 3200 006075 1225 MON6, TEXT /JUNE/ 006076 1605 006077 0000 3201 006100 1225 MON7, TEXT /JULY/ 006101 1431 006102 0000 3202 006103 0125 MON8, TEXT /AUGUST/ 006104 0725 006105 2324 006106 0000 3203 006107 2305 MON9, TEXT /SEPTEMBER/ 006110 2024 006111 0515 006112 0205 006113 2200 3204 006114 1703 MON10, TEXT /OCTOBER/ 006115 2417 006116 0205 006117 2200 3205 006120 1617 MON11, TEXT /NOVEMBER/ 006121 2605 006122 1502 006123 0522 006124 0000 3206 006125 0405 MON12, TEXT /DECEMBER/ 006126 0305 006127 1502 006130 0522 006131 0000 3207 006132 5440 COM19, TEXT /, 19/ 006133 6171 006134 0000 3208 3209 006135 6144 WEEKLST,DAY1 3210 006136 6147 DAY2 3211 006137 6151 DAY3 3212 006140 6153 DAY4 3213 006141 6156 DAY5 3214 006142 6162 DAY6 3215 006143 6165 DAY7 3216 3217 006144 2301 DAY1, TEXT /SATUR/ 006145 2425 006146 2200 3218 006147 2325 DAY2, TEXT /SUN/ 006150 1600 3219 006151 1517 DAY3, TEXT /MON/ 006152 1600 3220 006153 2425 DAY4, TEXT /TUES/ 006154 0523 006155 0000 3221 006156 2705 DAY5, TEXT /WEDNES/ 006157 0416 006160 0523 006161 0000 3222 006162 2410 DAY6, TEXT /THURS/ 006163 2522 006164 2300 3223 006165 0622 DAY7, TEXT /FRI/ 006166 1100 3224 006167 4302 BADMON, TEXT /#BAD MONITOR/ 006170 0104 006171 4015 006172 1716 006173 1124 006174 1722 006175 0000 3225 006176 6202 PAGE 006177 7770 3226 006200 0000 HISIZ, 0 /HIGHEST MEMORY BANK 3227 006201 0000 NEWCOR, 0 /PROPOSED NEW MEMORY BANK 3228 3229 006202 7450 DETC2, SNA 3230 006203 4301 JMS KEIGHT 3231 006204 1377 TAD (-30 3232 006205 7450 SNA 3233 006206 4334 JMS K32 3234 006207 1376 TAD (40 3235 006210 4306 JMS OTOD 3236 006211 3775 DCA I (CORMES 3237 006212 6211 CDF 10 3238 006213 1774 TAD I (LBEGIN 3239 006214 3305 DCA XRL 3240 006215 6201 CDF 0 3241 006216 7240 STA 3242 006217 1773 TAD I (CORSIZ 3243 006220 3200 DCA HISIZ 3244 006221 2305 ISZ XRL 3245 006222 1705 TAD I XRL /GET NEXT CHAR 3246 006223 7450 SNA 3247 006224 5254 JMP COREQ /NOT SETTING CORE SIZE 3248 006225 1372 TAD (-260 3249 006226 3201 DCA NEWCOR 3250 006227 1201 TAD NEWCOR 3251 006230 0371 AND (7770 3252 006231 7640 SZA CLA 3253 006232 5277 JMP DETER /TRIED TO SET CORE SIZE GT 7 3254 006233 1201 TAD NEWCOR 3255 006234 7041 CIA 3256 006235 1200 TAD HISIZ 3257 006236 7710 SPA CLA 3258 006237 5273 JMP BADKOR /TRIED TO SET SOFTWARE CORE SIZE GT REAL CORE SIZE 3259 006240 1770 TAD I (7777 3260 006241 7006 RTL /BATCH BIT TO LINK 3261 006242 7630 SZL CLA 3262 006243 5275 JMP WRSKOR /CAN'T CHANGE CORE SIZE UNDER BATCH 3263 006244 1201 TAD NEWCOR 3264 006245 7106 CLL RTL 3265 006246 7004 RAL 3266 006247 3201 DCA NEWCOR 3267 006250 1770 TAD I (7777 3268 006251 0367 AND (7707 3269 006252 1201 TAD NEWCOR 3270 006253 3770 DCA I (7777 3271 006254 1770 COREQ, TAD I (7777 3272 006255 0366 AND (70 3273 006256 7450 SNA 3274 006257 5267 JMP ABSKOR 3275 006260 1365 TAD (10 3276 006261 7110 CLL RAR 3277 006262 4306 JMS OTOD 3278 006263 3764 DCA I (SCRMES 3279 006264 1764 TAD I (SCRMES 3280 006265 7041 CIA 3281 006266 1775 TAD I (CORMES 3282 006267 6213 ABSKOR, CIF CDF 10 3283 006270 7650 SNA CLA 3284 006271 5763 JMP I (ABSCOR /DON'T PRINT SOFT IF = REAL 3285 006272 5762 JMP I (SCRM 3286 3287 006273 6213 BADKOR, CIF CDF 10 3288 006274 5761 JMP I (BADCOR 3289 006275 6213 WRSKOR, CIF CDF 10 3290 006276 5760 JMP I (WRSCOR 3291 3292 006277 6213 DETER, CIF CDF 10 3293 006300 5757 JMP I (CMDERR 3294 3295 006301 0000 KEIGHT, 0 3296 006302 6213 CIF CDF 10 3297 006303 4756 JMS I (K8 3298 006304 5701 JMP I KEIGHT 3299 3300 006305 0000 XRL, 0 3301 006306 0000 OTOD, 0 3302 006307 3333 DCA TTX 3303 006310 3332 DCA TX 3304 006311 1333 TAD TTX 3305 006312 1355 TAD (-12 3306 006313 2332 ISZ TX 3307 006314 7500 SMA 3308 006315 5312 JMP .-3 3309 006316 1354 TAD (72 3310 006317 3334 DCA CORETM 3311 006320 7240 STA 3312 006321 1332 TAD TX 3313 006322 7450 SNA 3314 006323 1353 TAD (40-60 3315 006324 1352 TAD (60 3316 006325 7106 CLL RTL 3317 006326 7006 RTL 3318 006327 7006 RTL 3319 006330 1334 TAD CORETM 3320 006331 5706 JMP I OTOD 3321 3322 006332 0000 TX, 0 3323 006333 0000 TTX, 0 3324 CORETM, 3325 006334 0000 K32, 0 3326 006335 1351 TAD (4100 3327 006336 3750 DCA I (CORMES+5 3328 006337 5734 JMP I K32 3329 006340 0000 OTODY, 0 3330 006341 4306 JMS OTOD 3331 006342 6213 CIF CDF 10 3332 006343 5740 JMP I OTODY 3333 006350 6501 PAGE 006351 4100 006352 0060 006353 7760 006354 0072 006355 7766 006356 7271 006357 5557 006360 6446 006361 6437 006362 6451 006363 6443 006364 6472 006365 0010 006366 0070 006367 7707 006370 7777 006371 7770 006372 7520 006373 6002 006374 7440 006375 6474 006376 0040 006377 7750 3334 006400 4305 ERRCMD, TEXT /#ERROR IN COMMAND/ 006401 2222 006402 1722 006403 4011 006404 1640 006405 0317 006406 1515 006407 0116 006410 0400 3335 006411 4303 BADVMS, TEXT /#CCL 3X OVERLAY AND MONITOR INCOMPATIBLE/ 006412 0314 006413 4063 006414 3040 006415 1726 006416 0522 006417 1401 006420 3140 006421 0116 006422 0440 006423 1517 006424 1611 006425 2417 006426 2240 006427 1116 006430 0317 006431 1520 006432 0124 006433 1102 006434 1405 006435 0000 3336 AAAA=. 3337 *BADVMS+3 3338 006414 0740 CCLTAB&77^100+40 3339 *AAAA 3340 006436 1617 LOVMES, TEXT /NOT WAR?/ 006437 2440 006440 2701 006441 2277 006442 0000 3341 006443 0611 KILMES, TEXT /FILES DELETED:/ 006444 1405 006445 2340 006446 0405 006447 1405 006450 2405 006451 0472 006452 0000 3342 006453 0611 RENMES, TEXT /FILES RENAMED:/ 006454 1405 006455 2340 006456 2205 006457 1601 006460 1505 006461 0472 006462 0000 3343 006463 0611 MOVMES, TEXT /FILES COPIED:/ 006464 1405 006465 2340 006466 0317 006467 2011 006470 0504 006471 7200 3344 006472 6060 SCRMES, TEXT \00K/\ 006473 1357 006474 0000 3345 *.-1 3346 006474 6060 CORMES, TEXT /00K MEMORY/ 006475 1340 006476 1505 006477 1517 006500 2231 006501 0000 3347 006502 0401 DAYDAY, TEXT /DAY / 006503 3140 006504 0000 3348 006505 4340 NOCORE, TEXT /# NOT ENOUGH MEMORY/ 006506 1617 006507 2440 006510 0516 006511 1725 006512 0710 006513 4015 006514 0515 006515 1722 006516 3100 3349 006517 4303 BATCOR, TEXT /#CANNOT CHANGE MEMORY LIMIT WHILE RUNNING BATCH/ 006520 0116 006521 1617 006522 2440 006523 0310 006524 0116 006525 0705 006526 4015 006527 0515 006530 1722 006531 3140 006532 1411 006533 1511 006534 2440 006535 2710 006536 1114 006537 0540 006540 2225 006541 1616 006542 1116 006543 0740 006544 0201 006545 2403 006546 1000 3350 006547 0000 JAN, 0 3351 006550 0003 FEB, 3 3352 006551 0004 4;0;2;5;0;3;6;1;4;6 006552 0000 006553 0002 006554 0005 006555 0000 006556 0003 006557 0006 006560 0001 006561 0004 006562 0006 3353 006563 4523 SUP, TEXT /%SUPERSEDING/ 006564 2520 006565 0522 006566 2305 006567 0411 006570 1607 006571 0000 3354 006572 4503 MEMWARN,TEXT /%CAN'T REMEMBER/ 006573 0116 006574 4724 006575 4022 006576 0515 006577 0515 006600 0205 006601 2200 3355 006602 4502 SQWARN, TEXT /%BATCH SQUISHING SYS:!/ 006603 0124 006604 0310 006605 4023 006606 2125 006607 1123 006610 1011 006611 1607 006612 4023 006613 3123 006614 7241 006615 0000 3356 006616 4311 SYSER, TEXT \#I/O ERROR ON SYS:\ 006617 5717 006620 4005 006621 2222 006622 1722 006623 4017 006624 1640 006625 2331 006626 2372 006627 0000 3357 006630 4311 BADSYN, TEXT /#ILLEGAL SYNTAX/ 006631 1414 006632 0507 006633 0114 006634 4023 006635 3116 006636 2401 006637 3000 3358 006640 4324 TOOMAN, TEXT /#TOO MANY FILES/ 006641 1717 006642 4015 006643 0116 006644 3140 006645 0611 006646 1405 006647 2300 3359 006650 4016 NF, TEXT / NOT FOUND/ 006651 1724 006652 4006 006653 1725 006654 1604 006655 0000 3360 006656 4004 DNE, TEXT / DOES NOT EXIST/ 006657 1705 006660 2340 006661 1617 006662 2440 006663 0530 006664 1123 006665 2400 3361 006666 7740 SEMSG1, TEXT /? ENTER ERROR/ 006667 0516 006670 2405 006671 2240 006672 0522 006673 2217 006674 2200 3362 006675 7711 SEMSG2, TEXT \?I/O ERROR\ 006676 5717 006677 4005 006700 2222 006701 1722 006702 0000 3363 006703 7704 SEMSG3, TEXT /?DEVICE FULL/ 006704 0526 006705 1103 006706 0540 006707 0625 006710 1414 006711 0000 3364 006712 7703 SEMSG4, TEXT /?CLOSE ERROR/ 006713 1417 006714 2305 006715 4005 006716 2222 006717 1722 006720 0000 3365 006721 4302 ATIO, TEXT /#BAD FILENAME OR ERROR READING INDIRECT FILE/ 006722 0104 006723 4006 006724 1114 006725 0516 006726 0115 006727 0540 006730 1722 006731 4005 006732 2222 006733 1722 006734 4022 006735 0501 006736 0411 006737 1607 006740 4011 006741 1604 006742 1122 006743 0503 006744 2440 006745 0611 006746 1405 006747 0000 3366 006750 4303 OVFLOW, TEXT /#COMMAND LINE OVERFLOW/ 006751 1715 006752 1501 006753 1604 006754 4014 006755 1116 006756 0540 006757 1726 006760 0522 006761 0614 006762 1727 006763 0000 3367 006764 4302 BADNUM, TEXT /#BAD NUMBER/ 006765 0104 006766 4016 006767 2515 006770 0205 006771 2200 3368 006772 4311 BADSTR, TEXT /#ILLEGAL * OR ?/ 006773 1414 006774 0507 006775 0114 006776 4052 006777 4017 007000 2240 007001 7700 3369 007002 4302 BADX, TEXT /#BAD EXTENSION/ 007003 0104 007004 4005 007005 3024 007006 0516 007007 2311 007010 1716 007011 0000 3370 007012 4302 BADOPT, TEXT /#BAD SWITCH OPTION/ 007013 0104 007014 4023 007015 2711 007016 2403 007017 1040 007020 1720 007021 2411 007022 1716 007023 0000 3371 007024 4303 TOOLNG, TEXT /#COMMAND TOO LONG/ 007025 1715 007026 1501 007027 1604 007030 4024 007031 1717 007032 4014 007033 1716 007034 0700 3372 007035 4311 REMBAD, TEXT \#I/O ERROR TRYING TO RECALL\ 007036 5717 007037 4005 007040 2222 007041 1722 007042 4024 007043 2231 007044 1116 007045 0740 007046 2417 007047 4022 007050 0503 007051 0114 007052 1400 3373 007053 4323 BADSW, TEXT /#SWITCH NOT ALLOWED HERE/ 007054 2711 007055 2403 007056 1040 007057 1617 007060 2440 007061 0114 007062 1417 007063 2705 007064 0440 007065 1005 007066 2205 007067 0000 3374 007070 4302 BADSW2, TEXT /#BAD CCL SWITCH/ 007071 0104 007072 4003 007073 0314 007074 4023 007075 2711 007076 2403 007077 1000 3375 007100 1617 NONE, TEXT /NONE/ 007101 1605 007102 0000 3376 007103 4302 BADREM, TEXT /#BAD RECOLLECTION/ 007104 0104 007105 4022 007106 0503 007107 1714 007110 1405 007111 0324 007112 1117 007113 1600 3377 007114 4302 BADEV, TEXT /#BAD DEVICE/ 007115 0104 007116 4004 007117 0526 007120 1103 007121 0500 3378 007122 4303 CONTRA, TEXT /#CONTRADICTORY SWITCHES/ 007123 1716 007124 2422 007125 0104 007126 1103 007127 2417 007130 2231 007131 4023 007132 2711 007133 2403 007134 1005 007135 2300 3379 007136 1723 VMES, TEXT \OS/8 - KBM V3A - CCL V1A\ 007137 5770 007140 4055 007141 4013 007142 0215 007143 4026 007144 6301 007145 4055 007146 4003 007147 0314 007150 4026 007151 6101 007152 0000 3380 LOC78=VMES+1 3381 VLOC=VMES+6 3382 *.-2 3383 CV=CCLVER&77 3384 007151 6106 CCLNUM&77^100+CV 3385 *.+1 3386 007153 0504 YEDIT, FILENAME EDIT.SV 007154 1124 007155 0000 007156 2326 3387 *.-1 3388 007156 0217 YBOOT, FILENAME BOOT.SV 007157 1724 007160 0000 007161 2326 3389 *.-1 3390 007161 0617 YFORT, FILENAME FORT.SV 007162 2224 007163 0000 007164 2326 3391 *.-1 3392 007164 0664 YF4, FILENAME F4.SV 007165 0000 007166 0000 007167 2326 3393 *.-1 3394 007167 0211 YBITMAP,FILENAME BITMAP.SV 007170 2415 007171 0120 007172 2326 3395 *.-1 3396 007172 2322 YSRCCOM,FILENAME SRCCOM.SV 007173 0303 007174 1715 007175 2326 3397 *.-1 3398 007175 0203 YBCOMP, FILENAME BCOMP.SV 007176 1715 007177 2000 007200 2326 3399 *.-1 3400 007200 2001 YPAL8, FILENAME PAL8.SV 007201 1470 007202 0000 007203 2326 3401 *.-1 3402 007203 0617 YFOTP, FILENAME FOTP.SV 007204 2420 007205 0000 007206 2326 3403 *.-1 3404 /YCREF, FILENAME CREF.SV 3405 / *.-1 3406 007206 0411 YDIRECT,FILENAME DIRECT.SV 007207 2205 007210 0324 007211 2326 3407 *.-1 3408 007211 2011 YPIP, FILENAME PIP.SV 007212 2000 007213 0000 007214 2326 3409 *.-1 3410 007214 0102 YABSLDR,FILENAME ABSLDR.SV 007215 2314 007216 0422 007217 2326 3411 *.-1 3412 007217 1417 YLOADER,FILENAME LOADER.SV 007220 0104 007221 0522 007222 2326 3413 *.-1 3414 007222 1417 YLOAD, FILENAME LOAD.SV 007223 0104 007224 0000 007225 2326 3415 *.-1 3416 007225 2405 YTECO, FILENAME TECO.SV 007226 0317 007227 0000 007230 2326 3417 *.-1 3418 007230 1420 YLPTSPL,FILENAME LPTSPL.SV 007231 2423 007232 2014 007233 2326 3419 *.-1 3420 007233 0301 YCAMP, FILENAME CAMP.SV 007234 1520 007235 0000 007236 2326 3421 *.-1 3422 007236 2305 YSET, FILENAME SET.SV 007237 2400 007240 0000 007241 2326 3423 *.-1 3424 007241 0201 YBASIC, FILENAME BASIC.SV 007242 2311 007243 0300 007244 2326 3425 *.-1 3426 007244 2230 YRXCOP, FILENAME RXCOPY.SV 007245 0317 007246 2031 007247 2326 3427 *.-1 3428 007247 2205 YRESORC,FILENAME RESORC.SV 007250 2317 007251 2203 007252 2326 3429 *.-1 3430 007252 0201 YBATCH, FILENAME BATCH.SV 007253 2403 007254 1000 007255 2326 3431 *.-1 3432 007255 2201 YRALF, FILENAME RALF.SV 007256 1406 007257 0000 007260 2326 3433 *.-1 3434 007260 2301 YSABR, FILENAME SABR.SV 007261 0222 007262 0000 007263 2326 3435 *.-1 3436 007263 0622 YFRTS, FILENAME FRTS.SV 007264 2423 007265 0000 007266 2326 3437 *.-1 3438 007266 0401 YDATE, FILENAME DATE.SV 007267 2405 007270 0000 007271 2326 3439 *.-1 3440 007271 0303 YCCL, FILENAME CCL.SV 007272 1400 007273 0000 007274 2326 3441 *.-1 3442 007274 1005 YHELP, FILENAME HELP.SV 007275 1420 007276 0000 007277 2326 3443 *.-1 3444 007277 1501 YMACREL,FILENAME MACREL.SV 007300 0322 007301 0514 007302 2326 3445 *.-1 3446 007302 1411 YLINK, FILENAME LINK.SV 007303 1613 007304 0000 007305 2326 3447 *.-1 3448 007305 0244 BATHED, "$;"J;"O;"B;215;212;".;0 007306 0312 007307 0317 007310 0302 007311 0215 007312 0212 007313 0256 007314 0000 3449 007315 0256 BATAIL, ".;"R;240;"F;"O;"T;"P;215;212 007316 0322 007317 0240 007320 0306 007321 0317 007322 0324 007323 0320 007324 0215 007325 0212 3450 007326 0252 "*;"S;"Y;"S;":;"C;"C;"B;"T;"C;"H;".;"T;"M;"/;"D;"$;215;212 007327 0323 007330 0331 007331 0323 007332 0272 007333 0303 007334 0303 007335 0302 007336 0324 007337 0303 007340 0310 007341 0256 007342 0324 007343 0315 007344 0257 007345 0304 007346 0244 007347 0215 007350 0212 3451 007351 0244 "$;"E;"N;"D;215;212;32;0 007352 0305 007353 0316 007354 0304 007355 0215 007356 0212 007357 0032 007360 0000 3452 007361 0303 TEMNAM, FILENAME CCBTCH.TM 007362 0224 007363 0310 007364 2415 3453 007365 1420 LPTDEV, DEVICE LPT 007366 2400 3454 007367 2426 TVDEV, DEVICE TV 007370 0000 3455 007371 2424 TTYDEV, DEVICE TTY 007372 3100 3456 007373 2024 PTPDEV, DEVICE PTP 007374 2000 3457 007375 0425 DMPDEV, DEVICE DUMP 007376 1520 3458 007377 1625 NULDEV, DEVICE NULL 007400 1414 3459 BATBUF=4400 /LOCATION OF ONE BLOCK BATCH TEMP BUFFER 3460 USR=200 3461 GLINE=1200 /LOCATION FROM KBM 3462 CTRLCK=1241 /LOC FROM KBM, PTS TO PLACE TO BRANCH ON ^C 3463 007401 4377 BATPTR, BATBUF-1 3464 007402 0000 LCHAR, 0 3465 3466 007403 6213 SEMGO, CIF CDF 10 3467 007404 5605 JMP I SEMI 3468 3469 007405 0000 SEMI, 0 3470 007406 1377 TAD (BEGLN-1 3471 007407 3016 DCA XR 3472 007410 1416 SEMLUP, TAD I XR 3473 007411 7450 SNA 3474 007412 5203 JMP SEMGO /NO SEMICOLONS 3475 007413 1376 TAD (-"; 3476 007414 7640 SZA CLA 3477 007415 5210 JMP SEMLUP 3478 007416 6212 CIF 10 3479 007417 7201 CLA IAC /SYS 3480 007420 4775 JMS I (USR 3481 007421 0003 3 /ENTER 3482 007422 7361 BLKNO, TEMNAM 3483 007423 0000 BLKLEN, 0 /NEG OF LENGTH 3484 007424 5352 JMP SEMER1 /ENTER ERROR 3485 007425 1222 TAD BLKNO 3486 007426 3305 DCA BATBLK 3487 007427 1377 TAD (BEGLN-1 3488 007430 3016 DCA XR 3489 007431 1374 TAD (7600 3490 007432 3773 DCA I (CTRLCK /FORCE ^C TO GLINE TO GO TO 7600 3491 007433 4334 JMS BATLST 3492 007434 7305 BATHED 3493 007435 1416 S2, TAD I XR 3494 007436 7450 SNA 3495 007437 5250 JMP LINEND 3496 007440 3202 DCA LCHAR /SAVE CHAR 3497 007441 1202 TAD LCHAR 3498 007442 1376 TAD (-"; 3499 007443 7650 SNA CLA 3500 007444 5260 JMP GOTSEM 3501 007445 1202 TAD LCHAR 3502 007446 4271 S3, JMS BATPUT 3503 007447 5235 JMP S2 3504 007450 1202 LINEND, TAD LCHAR 3505 007451 1376 TAD (-"; /LOOK AT LAST CHAR 3506 007452 7640 SZA CLA /WAS IT SEMICOLON? 3507 007453 5317 JMP BATEND /NO, END OF TEMP BATCH STREAM 3508 007454 4772 JMS I (GLINE /YES, READ NEW LINE FROM KEYBOARD 3509 /**** WHAT IF WE'RE RUNNING UNDER BATCH **** 3510 007455 1377 TAD (BEGLN-1 3511 007456 3016 DCA XR 3512 007457 5235 JMP S2 3513 3514 007460 4263 GOTSEM, JMS KRLF 3515 007461 1371 TAD (". 3516 007462 5246 JMP S3 3517 3518 007463 0000 KRLF, 0 3519 007464 1370 TAD (215 3520 007465 4271 JMS BATPUT 3521 007466 1367 TAD (212 3522 007467 4271 JMS BATPUT 3523 007470 5663 JMP I KRLF 3524 3525 007471 0000 BATPUT, 0 3526 007472 2201 ISZ BATPTR 3527 007473 3601 DCA I BATPTR 3528 007474 1201 TAD BATPTR 3529 007475 1366 TAD (-BATBUF-377 3530 007476 7650 SNA CLA 3531 007477 4301 JMS BATWRIT /WRITE OUT BUFFER IF FULL 3532 007500 5671 JMP I BATPUT 3533 007501 0000 BATWRIT,0 3534 007502 4765 JMS I (7607 3535 007503 4200 4200 /WRITE 1 BLOCK 3536 007504 4400 BATBUF 3537 007505 0000 BATBLK, 0 3538 007506 5351 JMP SEMER2 / I/O ERROR 3539 007507 2305 ISZ BATBLK /POINT TO NEXT BLOCK 3540 007510 2330 ISZ BATLEN /BUMP LENGTH 3541 007511 2223 ISZ BLKLEN 3542 007512 7410 SKP 3543 007513 5350 JMP SEMER3 /DEVICE FULL 3544 007514 1364 TAD (BATBUF-1 3545 007515 3201 DCA BATPTR 3546 007516 5701 JMP I BATWRIT 3547 3548 007517 4263 BATEND, JMS KRLF 3549 007520 4334 JMS BATLST 3550 007521 7315 BATAIL 3551 007522 4301 JMS BATWRIT 3552 007523 6212 CIF 10 3553 007524 7201 CLA IAC /SYS 3554 007525 4775 JMS I (USR 3555 007526 0004 4 /CLOSE 3556 007527 7361 TEMNAM 3557 007530 0000 BATLEN, 0 /LENGTH OF TEMPORARY FILE 3558 007531 5347 JMP SEMER4 /CLOSE ERROR 3559 007532 6213 CIF CDF 10 3560 007533 5763 JMP I (ENGOA 3561 007534 0000 BATLST, 0 3562 007535 1734 TAD I BATLST 3563 007536 3346 DCA BTPT 3564 007537 2334 ISZ BATLST 3565 007540 1746 BTLP, TAD I BTPT 3566 007541 7450 SNA 3567 007542 5734 JMP I BATLST 3568 007543 4271 JMS BATPUT 3569 007544 2346 ISZ BTPT 3570 007545 5340 JMP BTLP 3571 3572 007546 0000 BTPT, 0 3573 3574 007547 7001 SEMER4, IAC /CLOSE ERROR 3575 007550 7001 SEMER3, IAC /DEVICE FULL 3576 007551 7001 SEMER2, IAC / I/O ERROR 3577 007552 7001 SEMER1, IAC /ENTER ERROR 3578 007553 6213 CIF CDF 10 3579 007554 5762 JMP I (SEMERR 3580 007562 3536 PAGE 007563 6535 007564 4377 007565 7607 007566 3001 007567 0212 007570 0215 007571 0256 007572 1200 007573 1241 007574 7600 007575 0200 007576 7505 007577 0777 3581 FIELD 1 3582 *2001 3583 $ AAAA 6436 ABSCOR 6443 ABSKOR 6267 ALP 6120 ALTDF1 7430 ALTDF2 7431 ALTLIM 7427 ALTMOD 0233 AMFLAG 0017 ARLOC 5741 AS 4114 ASADR 4117 ASGNST 4122 ASNORM 4075 ASSIGN 4060 AT 6050 ATEND 6256 ATERR 7346 ATIO 6721 ATLOOP 6055 ATMORE 6053 ATOVER 6307 BADCOR 6437 BADEV 7114 BADKOR 6273 BADMON 6167 BADNUM 6764 BADOPT 7012 BADREM 7103 BADSTR 6772 BADSW 7053 BADSW2 7070 BADSYN 6630 BADVMS 6411 BADVNO 2073 BADX 7002 BASPTR 4553 BASUB 4744 BATAIL 7315 BATBLK 7505 BATBUF 4400 BATCH 2135 BATCOR 6517 BATEND 7517 BATERR 7000 BATHED 7305 BATLEN 7530 BATLST 7534 BATOUT 7400 BATPTR 7401 BATPUT 7471 BATSPL 7200 BATWRI 7501 BEGDIF 7435 BEGGRP 3604 BEGLN 1000 BFR 5000 BKA 6022 BKAROW 3724 BL2 5352 BLK 2515 BLKLEN 7423 BLKNO 7422 BLN 6107 BLSCAN 5343 BTLP 7540 BTPT 7546 BWORD 2153 C1 5704 C2 5705 CB 4547 CCER1 5206 CCER2 5223 CCER3 5742 CCERA 5720 CCERB 5200 CCLA 7523 CCLBLC 0625 CCLBLK 0067 CCLCCW 0634 unreferenced CCLEN 0626 unreferenced CCLNHR 0627 CCLNUM 0261 CCLRDB 0636 CCLREM 2015 CCLSTR 0635 CCLSV 0642 CCLSW 0435 CCLSWT 4271 CCLTAB 0307 CCLVER 0306 CD 3600 CDCONT 7420 CDER0 5227 CDER1 5202 CDER2 5160 CDER3 5216 CDER4 5745 CDER44 5750 CDER5 5204 CDER6 5755 CDER7 5753 CDER8 4644 CDER9 5610 unreferenced CDERA 7344 CDINIT 7400 CHAI 2471 unreferenced CHAIN 2513 CHAINN 2475 CHK 5327 CHKSUP 7214 CIFB 5064 CLACON 4455 CLXR 0035 CMDERR 5557 COLWRD 2710 COM19 6132 COMBA 3424 COMBI 3455 COMBN 3400 COMFT 3417 COMLD 3462 COMMA 3450 COMPA 3412 COMRA 3431 COMRB 3443 COMRL 3405 COMSB 3436 CONTRA 7122 COR1 6012 COR2 6014 COR70 6020 CORE 6003 COREQ 6254 CORETM 6334 COREX 6033 CORLOC 6000 CORMES 6474 CORSIZ 6002 CORV 6001 CORX 6022 COUNT 6107 CRLF 5152 CRSUB 5722 CTRLCK 1241 CTZ 6222 CV 0006 DATE 6600 DATEM 6734 DATWD 7666 DAY 6735 DAY1 6144 DAY2 6147 DAY3 6151 DAY4 6153 DAY5 6156 DAY6 6162 DAY7 6165 DAYDAY 6502 DCDYES 4642 DEASAD 0427 DEASSI 7530 DECODE 4630 DEF 0022 DEFALT 0033 DEFILE 3467 DELIM 0032 DEP 7051 DEPN 2515 DETC2 6202 DETCOR 6433 DETER 6277 DEV 2554 DEV1 0030 DEV2 0031 DEVNAM 7330 DEVPTR 2312 DFLTNM 4124 DIV7 6666 DLOOK 3672 DMPDEV 7375 DNE 6656 DONB 3735 DSKDEV 6746 DT 6732 unreferenced DVFLAG 7343 DVICE 4474 DVNM1 6513 DVNM2 6514 EDSUB 5732 ENDLEN 6311 ENDOFB 5335 ENDOFT 0723 ENGOA 6535 ENTREE 0605 ENTRY 0600 EONUM 4045 EONUM2 4046 ERR2 2071 ERRCMD 6400 ERRET 0033 EXSUB 4524 EXT2 4425 EXT3 4436 EXTBI 3254 EXTBN 3274 EXTCF 3260 EXTCM 3312 EXTCOM 3352 EXTEN 5510 EXTEXE 3316 EXTLI 3306 EXTLO 3302 EXTLUK 4475 EXTMA 3264 EXTNUL 3300 EXTOK 5625 unreferenced EXTPA 3270 EXTSY 3250 FAKBM 0404 FAKE 2323 FATALF 5013 FBLK 3557 FEB 6550 FILDMY 4147 FILLP 7322 FILLP1 7321 FINDIT 0656 FLAG 2553 FLD1 2555 FNLUP 0671 FOREV 7123 FOREVE 7070 FORTE 3422 FORVR 7023 FRCDF 6423 FUDG 7263 G 5645 GAMFLG 3134 GCH 4660 GETCCL 1362 GETF 7305 GETHND 4126 GETKAR 0731 GETL 4332 GETMP 6311 GETSPC 7315 GETYR 6337 GG 6025 GLINE 1200 GLXR 4707 GNAME 4200 GO 2401 GO2 2402 GOEQ 6441 GOO 4552 GOTSEM 7460 GTNMLP 4220 HALF 0727 HIORD 4057 HISFIL 2533 HISIZ 6200 HNDLR 4400 IFIN 5654 INFILE 3640 INSARR 6000 INSIDE 0745 INTO 0701 IOERR 4522 JAN 6547 JMSUB 4531 JSBITS 7746 K32 6334 K7600 6464 K8 7271 KCIDF 2033 unreferenced KCIF 2041 KEIGHT 6301 KENTRY 2130 KEYWRD 0401 KFAKBM 2127 KILMES 6443 KILRT 5242 KLPTDE 2320 KPTR 0726 KRLF 7463 KTTYDE 2322 L200 2246 unreferenced L2400 2253 unreferenced L7605 2270 unreferenced L7607 2274 L7700 2435 L7740 7475 LBEGIN 7440 LCHAR 7402 LCMA 7114 LEAP 6653 LEAVE 5006 LENGTH 4444 LFAILD 4463 LGET 7150 LIMDIF 7436 LINEND 7450 LINPTR 0601 LKUPST 4461 LKUPSW 3625 LNAME 4443 LOADE 3410 LOC78 7137 LOOK 2516 LOOKUP 4400 LOVE 4127 LOVMES 6436 LPTDEV 7365 LPTR 7052 LPUT 7054 LSTPUT 3643 LV 4346 LVNO 2126 LXR 0034 LZER 7045 M7607 2275 unreferenced MAKSUB 5405 MAT 4511 MATCH 0721 MEMBIG 7235 MEMWAR 6572 MIFILE 7617 MNGSUB 5612 MOFILE 7600 MON1 6054 MON10 6114 MON11 6120 MON12 6125 MON2 6060 MON3 6065 MON4 6070 MON5 6073 MON6 6075 MON7 6100 MON8 6103 MON9 6107 MONCHN 2041 MONFIX 2200 unreferenced MONLST 6040 MONOK 2225 MONP 6711 MONRES 2257 MORE 0657 MOVE 6400 MOVMES 6463 MOVRT 5252 MPARAM 7643 MSOVL2 0055 MYSYS 0636 NAME1 0023 NAME2 0024 NAME3 0025 NAME4 0026 NAMECT 4352 NAMERM 4473 NAMPTR 2544 NBS 3662 NEWCOR 6201 NEWEND 6305 NEWLEN 6337 NEXTEX 4470 NF 6650 NMBASE 0027 NMOVE 7441 NMPTR 2511 NMX 5213 NMXXX 7463 NOBKAR 6046 NOBLUP 5324 NOCCL 0646 NOCORE 6505 NODATE 6730 NOLET 0714 NOMT 0707 NONE 7100 NORM 2434 NTEMP 2544 NULDEV 7377 NUM 4054 NUMADD 4041 NUMBER 4000 NUMC 6312 NUMCON 4345 NUMFUJ 4055 NUMKNT 4056 NUMLP 4006 NUMSKP 4033 NUMX 4114 NWB 6106 OLENGT 4715 OLOC 6533 OPENP 4700 OS78BI 7771 OTOD 6306 OTODY 6340 OUTLIM 7437 OUTSW 3737 OV 1375 OVFLOW 6750 P 6200 P1 5162 P10 5314 P2 5304 P3 5306 P4 2317 P5 2321 P6 3740 P7 5310 P8 7506 P9 5312 PAMFLA 3143 PCCER3 2301 PCHAR 5027 PCLXR 3731 PERDSW 4351 PERIOD 4261 PFILDM 2535 PLKUPS 7432 POGO 6216 POS78 3160 PPRM 3162 PREGO 2026 unreferenced PRINT 5124 PRINTP 5131 PRMES 0330 PRMESG 5000 PRNAME 5040 PRQMRK 1357 PRWD 5015 PSPKG1 7434 PSTARS 7433 PT1 7504 PTBL 3163 PTCH 2327 PTPDEV 7373 PTR 0036 PUTF 7200 PUTZ 7210 R200 3161 RDMON 3470 RDREM 7241 RECALL 7074 RECLUP 7133 RECLV 7146 REGO 2062 RELUP 7033 REMBAD 7035 REMBLO 0065 REMD 2423 REMEM 7000 REMER2 7233 REMERR 7231 REMGO 7050 REMSPA 4000 RENMES 6453 RENRT 5246 REST 6000 RETCIF 0724 unreferenced ROTL 7300 ROTLP 4027 RTHALF 0741 RZER 7044 S2 7435 S3 7446 SAVL 6266 SAVLXR 5556 SCAN 5316 SCRM 6451 SCRMES 6472 SEMER1 7552 SEMER2 7551 SEMER3 7550 SEMER4 7547 SEMERR 3536 SEMGO 7403 SEMI 7405 SEMLUP 7410 SEMSG 4153 SEMSG1 6666 SEMSG2 6675 SEMSG3 6703 SEMSG4 6712 SETDEV 2305 SETDSK 6737 SETEXT 3535 SETLPT 2270 SETLXR 5431 SETN 2537 SETOUT 6477 SETPA 5400 SETPTP 2301 SETTTY 2275 SETX 5663 SIGNIF 0730 SLASH 4675 SLSHCH 4600 SLSHLP 4613 SPKLG1 4104 SPOOLI 4537 SQSUB 6454 SQWARN 6602 STAR 3244 STARJM 7547 STARNM 4236 STARSW 4227 START 2000 unreferenced STODON 2464 STOLUP 2453 SUP 6563 SWTCHS 5256 SYSER 6616 SYSTEM 0022 T 0020 T7600 5120 TE 5150 TE2 5151 TECL 5462 TECLV 5553 TECMOV 5452 TECNOR 5541 TECPUT 5443 TECSUB 5474 TEGO 0614 TEKLDG 0602 unreferenced TEM 7504 TEMM 0602 TEMNAM 7361 TJUMP 5114 TM1 6750 TM2 6733 TML 7053 TMP1 6425 TN 4200 TOCDF 6425 TOOLNG 7024 TOOMAN 6640 TPUT 5600 TRMSUB 3144 TS 4513 TT 0021 TTX 6333 TTY212 5020 TTY240 5071 unreferenced TTYDEV 7371 TTYOUT 5077 TVDEV 7367 TW 2123 TWAIT 2115 TX 6332 TXR 0017 unreferenced TYPE 5057 TYR 5662 UNKN 3512 UREM 2113 USR 0200 USRSUB 2077 USUAL 3502 VERTN 7510 VLOC 7144 VMES 7136 VNO 0400 unreferenced WEEKLS 6135 WFL 2134 WKP 6703 WRITFT 3544 WRMON 2246 WRREM 7252 WRSCOR 6446 WRSKOR 6275 X40 0751 XAT 3116 XBAC 2607 XBAS 2612 XBOO 2622 XCCL 2625 XCOMPA 2630 XCOMPI 2635 XCOP 2642 XCOR 2651 XCREA 2654 XCREF 2661 XDAT 2670 XDEA 2702 XDEL 2673 XDIR 2705 XDUPL 2615 XEDI 2714 XEOF 2721 XEXE 2600 XHEL 2724 XLINK 2733 XLIS 2745 XLK2 4314 XLOA 2754 XLUK 4500 XMAC 2740 XMAK 2761 XMAP 2764 XMUN 2771 XPAL 2774 XPRI 3001 XPUN 3006 XR 0016 XR2 0015 XREN 3013 XRES 3024 XREW 3031 XRL 6305 XSET 3034 XSKI 3037 XSQU 3042 XSUB 3051 XTEC 3056 XTYP 3061 XUA 3073 XUB 3076 XUC 3101 XUNL 3070 XVER 3104 XZER 3107 YABSLD 7214 YAT 2056 YBASIC 7241 YBATCH 7252 YBCOMP 7175 YBITMA 7167 YBOOT 7156 YCAMP 7233 YCCL 7271 YDATE 7266 YDIREC 7206 YEAR 6736 YEDIT 7153 YF4 7164 YFORT 7161 YFOTP 7203 YFRTS 7263 YHELP 7274 YLINK 7302 YLOAD 7222 YLOADE 7217 YLPTSP 7230 YMACRE 7277 YPAL8 7200 YPIP 7211 YRALF 7255 YRESOR 7247 YRXCOP 7244 YSABR 7260 YSET 7236 YSRCCO 7172 YTECO 7225 ZERO 2305 ZEROCD 4647 ZERSUB 4513 ZOW 2507