File: DHTDAD.PA of Disk: Disks/Working/MyProgs-22-04-07
(Source file text)
/MAINDEC-08-DHTDA-D-D /TD8E SYMBOLS SDSS=6771 SDST=6772 SDSQ=6773 SDLC=6774 SDLD=6775 SDRC=6776 SDRD=6777 *17 AUTO, 0000 /00017-0000 SOFLAS, 0000 /00020-0000 UNK1, 0000 /00021-0000 X8SWI, 0000 /00022-0000 ELIST1, LIST1 /00023-6257 ELIST2, LIST2 /00024-6266 ELIST3, LIST3 /00025-6301 ELIST4, LIST4 /00026-6306 ELIST5, LIST5 /00027-6356 ELIST6, LIST6 /00030-6360 IND, 0000 /00031-0000 ERRARG, 0000 /00032-0000 MPNTR, 0000 /00033-0000 OUT, 0000 /00034-0000 IN, 0000 /00035-0000 CNTR1, 0000 /00036-0000 CNTR2, 0000 /00037-0000 UNK2, 0000 /00040-0000 XHEAD1, 0000 /00041-0000 XHEAD2, 0000 /00042-0000 BLK, 0000 /00043-0000 FILPNT, 0000 /00044-0000 XLAS, RDLAS /00045-1151 X8A, DECX8A /00046-3522 X8C, DECX8C /00047-3547 X8B, DECX8B /00050-3534 XOPRNT, OPRINT /00051-2324 XINDIR, INDIR /00052-1145 XMESAG, MESAGE /00053-2264 XERROR, ERROR /00054-0472 HANG1, 0000 /00055-0000 HANG2, 0000 /00056-0000 C77, 77 /00057-0077 C7, 7 /00060-0007 C400, 400 /00061-0400 C4000, 4000 /00062-4000 C240, 240 /00063-0240 C200, 200 /00064-0200 XSINGL, SINGLE /00065-0600 HEAD2, 0000 /00066-0000 HEAD1, 0000 /00067-0000 TYPE, 0000 /00070-0000 TLS /00071-6046 TSF /00072-6041 JMP .-1 /00073-5072 TCF /00074-6042 CLA /00075-7200 JMP I TYPE /00076-5470 CRLF, 0000 /00077-0000 TAD [215 /00100-1177 JMS TYPE /00101-4070 TAD [212 /00102-1176 JMS TYPE /00103-4070 JMP I CRLF /00104-5477 LOOP1, 0000 /00105-0000 JMS I XLAS /00106-4445 RAL /00107-7004 SMA CLA /00110-7700 ISZ LOOP1 /00111-2105 JMP I LOOP1 /00112-5505 M10, -10 /00113-7770 BLKTRY, 0000 /00114-0000 DISBL, 0000 /00115-0000 DISDA, 0000 /00116-0000 BLKCN, 0000 /00117-0000 BLKREV, 0000 /00120-0000 TAD (3000 /00121-1175 TAD I (UNIT /00122-1774 IOT172, SDLC /00123-6774 JMS I (RDQUAD /00124-4773 JMS I (RDQUAD /00125-4773 JMP I BLKREV /00126-5520 BLKEND, 0000 /00127-0000 IOT173, SDSS /00130-6771 JMP .-1 /00131-5130 IOT174, SDRC /00132-6776 AND [77 /00133-0172 TAD [-22 /00134-1171 SZA CLA /00135-7640 JMP .-6 /00136-5130 JMP I BLKEND /00137-5527 BLKSER, 0000 /00140-0000 IOT175, SDSS /00141-6771 JMP .-1 /00142-5141 IOT176, SDRD /00143-6777 DCA DISDA /00144-3116 IOT177, SDRC /00145-6776 AND [77 /00146-0172 TAD [-26 /00147-1170 SZA CLA /00150-7640 JMP .-10 /00151-5141 JMP I BLKSER /00152-5540 PAGE START, JMP I (SELECT /00200-5777 DATREG, CLA CLL /00201-7300 DCA OUT /00202-3034 DCA HEAD1 /00203-3067 DCA HEAD2 /00204-3066 TAD OUT /00205-1034 CMA /00206-7040 IOT1, SDLD /00207-6775 CLA /00210-7200 TAD OUT /00211-1034 IOT2, SDLD /00212-6775 CLA /00213-7200 IOT3, SDRD /00214-6777 DCA IN /00215-3035 JMS I XLAS /00216-4445 SPA CLA /00217-7710 JMP DATREG+7 /00220-5210 TAD IN /00221-1035 CMA IAC /00222-7041 TAD OUT /00223-1034 SNA CLA /00224-7650 JMP DATLUP /00225-5233 JMS I XERROR /00226-4454 4000 /00227-4000 JMS I XLAS /00230-4445 SPA CLA /00231-7710 JMP DATREG+7 /00232-5210 DATLUP, ISZ OUT /00233-2034 JMP DATREG+4 /00234-5205 JMS LOOP1 /00235-4105 JMP DATREG /00236-5201 ISZ HEAD1 /00237-2067 COMREG, CLA CLL /00240-7300 DCA OUT /00241-3034 DCA HEAD2 /00242-3066 TAD OUT /00243-1034 AND (6400 /00244-0376 IOT4, SDLC /00245-6774 CLA /00246-7200 IOT5, SDRC /00247-6776 AND (7400 /00250-0375 DCA IN /00251-3035 JMS I XLAS /00252-4445 SPA CLA /00253-7710 JMP COMREG+3 /00254-5243 TAD OUT /00255-1034 AND (6400 /00256-0376 CMA IAC /00257-7041 TAD IN /00260-1035 SNA CLA /00261-7650 JMP CLOOP /00262-5270 JMS I XERROR /00263-4454 4001 /00264-4001 JMS I XLAS /00265-4445 SPA CLA /00266-7710 JMP COMREG+3 /00267-5243 CLOOP, TAD OUT /00270-1034 TAD C400 /00271-1061 SNA /00272-7450 JMP INITST-2 /00273-5305 DCA OUT /00274-3034 JMS I XLAS /00275-4445 RAR /00276-7010 SNL CLA /00277-7620 JMP COMREG+3 /00300-5243 RAR /00301-7010 TAD OUT /00302-1034 SZA CLA /00303-7640 JMP COMREG+3 /00304-5243 JMS LOOP1 /00305-4105 JMP COMREG /00306-5240 INITST, CLA CLL /00307-7300 TAD (6400 /00310-1376 IOT6, SDLC /00311-6774 CAF /00312-6007 JMS I XLAS /00313-4445 SPA CLA /00314-7710 JMP INITST /00315-5307 IOT7, SDRC /00316-6776 AND (7400 /00317-0375 SNA CLA /00320-7650 JMP .+6 /00321-5327 JMS I XERROR /00322-4454 0001 /00323-0001 JMS I XLAS /00324-4445 SPA CLA /00325-7710 JMP INITST /00326-5307 JMS LOOP1 /00327-4105 JMP INITST /00330-5307 JMP I (CHKCLA /00331-5774 PAGE CHKCLA, ISZ HEAD1 /00400-2067 CLA CLL /00401-7300 DCA HEAD2 /00402-3066 CSDLC, TAD [6777 /00403-1167 IOT8, SDLC /00404-6774 SNA CLA /00405-7650 JMP .+6 /00406-5214 JMS I XLAS /00407-4445 SPA CLA /00410-7710 JMP CSDLC /00411-5203 JMS I XERROR /00412-4454 0102 /00413-0102 JMS I XLAS /00414-4445 SPA CLA /00415-7710 JMP CSDLC /00416-5203 CSDRC, CLA CLL /00417-7300 IOT9, SDLC /00420-6774 CLA CMA /00421-7240 IOT10, SDRC /00422-6776 SNA CLA /00423-7650 JMP .+6 /00424-5232 JMS I XLAS /00425-4445 SPA CLA /00426-7710 JMP CSDRC /00427-5217 JMS I XERROR /00430-4454 0103 /00431-0103 JMS I XLAS /00432-4445 SPA CLA /00433-7710 JMP CSDRC /00434-5217 CSDLD, CLA CMA /00435-7240 IOT11, SDLD /00436-6775 SZA CLA /00437-7640 JMP .+6 /00440-5246 JMS I XLAS /00441-4445 SPA CLA /00442-7710 JMP CSDLD /00443-5235 JMS I XERROR /00444-4454 0204 /00445-0204 JMS I XLAS /00446-4445 SPA CLA /00447-7710 JMP CSDLD /00450-5235 CSDRD, CLA CLL /00451-7300 IOT12, SDLD /00452-6775 CLA CMA /00453-7240 IOT13, SDRD /00454-6777 SNA CLA /00455-7650 JMP .+6 /00456-5264 JMS I XLAS /00457-4445 SPA CLA /00460-7710 JMP CSDRD /00461-5251 JMS I XERROR /00462-4454 0105 /00463-0105 JMS I XLAS /00464-4445 SPA CLA /00465-7710 JMP CSDRD /00466-5251 JMS LOOP1 /00467-4105 JMP CHKCLA+1 /00470-5201 JMP I XSINGL /00471-5465 ERROR, 0000 /00472-0000 JMS I X8B /00473-4450 TAD I ERROR /00474-1672 ISZ ERROR /00475-2272 DCA ERRARG /00476-3032 JMS I XLAS /00477-4445 AND C400 /00500-0061 SZA CLA /00501-7640 JMP DONTPR /00502-5373 TAD ERRARG /00503-1032 CLL RAL /00504-7104 SZL /00505-7430 JMP ESPEC /00506-5356 CLL RAL /00507-7104 SNL /00510-7420 JMP ENORM /00511-5323 CLA /00512-7200 TAD HEAD2 /00513-1066 SZA CLA /00514-7640 JMP NOHEAD /00515-5334 ISZ HEAD2 /00516-2066 TAD HEAD1 /00517-1067 TAD ELIST6 /00520-1030 JMS I XINDIR /00521-4452 JMP NOHEAD-1 /00522-5333 ENORM, CLA /00523-7200 TAD HEAD2 /00524-1066 SZA CLA /00525-7640 JMP NOHEAD /00526-5334 ISZ HEAD2 /00527-2066 TAD HEAD1 /00530-1067 TAD ELIST1 /00531-1023 JMS I XINDIR /00532-4452 JMS I XMESAG /00533-4453 NOHEAD, TAD HEAD1 /00534-1067 TAD ELIST2 /00535-1024 JMS I XINDIR /00536-4452 JMS I XMESAG /00537-4453 TAD ERRARG /00540-1032 BSW /00541-7002 AND C7 /00542-0060 SNA /00543-7450 JMP .+4 /00544-5350 TAD ELIST3 /00545-1025 JMS I XINDIR /00546-4452 JMS I XMESAG /00547-4453 TAD ERRARG /00550-1032 AND C77 /00551-0057 TAD ELIST4 /00552-1026 JMS I XINDIR /00553-4452 JMS I XMESAG /00554-4453 JMP DONTPR /00555-5373 ESPEC, CLA CLL /00556-7300 TAD HEAD1 /00557-1067 TAD ELIST5 /00560-1027 JMS I XINDIR /00561-4452 JMS I XMESAG /00562-4453 JMS I XMESAG /00563-4453 GODBAD /00564-5013 TAD OUT /00565-1034 JMS I XOPRNT /00566-4451 TAD C240 /00567-1063 JMS TYPE /00570-4070 TAD IN /00571-1035 JMS I XOPRNT /00572-4451 DONTPR, JMS I XLAS /00573-4445 AND C200 /00574-0064 SNA CLA /00575-7650 HLT /00576-7402 JMP I ERROR /00577-5672 PAGE SINGLE, ISZ HEAD1 /00600-2067 CLA CLL /00601-7300 DCA HEAD2 /00602-3066 SDLC /00603-6774 IOT14, SDSS /00604-6771 JMP .+3 /00605-5210 JMS I XERROR /00606-4454 0306 /00607-0306 TAD (1000 /00610-1377 IOT15, SDLC /00611-6774 SINGL0, CLA /00612-7200 TAD (-1000 /00613-1376 DCA CNTR1 /00614-3036 DCA CNTR2 /00615-3037 IOT16, SDSS /00616-6771 SKP /00617-7410 JMP SING1 /00620-5232 ISZ CNTR2 /00621-2037 JMP .-4 /00622-5216 ISZ CNTR1 /00623-2036 JMP .-6 /00624-5216 JMS I XERROR /00625-4454 0407 /00626-0407 JMS I XLAS /00627-4445 SPA CLA /00630-7710 JMP SINGLE+1 /00631-5201 SING1, SDSS /00632-6771 SKP /00633-7410 JMP .+3 /00634-5237 JMS I XERROR /00635-4454 0210 /00636-0210 JMS I XLAS /00637-4445 SPA CLA /00640-7710 JMP SING1 /00641-5232 SING2, SDSS /00642-6771 JMP .-1 /00643-5242 CAF /00644-6007 JMS I XLAS /00645-4445 SPA CLA /00646-7710 JMP SING2 /00647-5242 IOT17, SDSS /00650-6771 JMP SING3-2 /00651-5257 JMS I XERROR /00652-4454 0111 /00653-0111 JMS I XLAS /00654-4445 SPA CLA /00655-7710 JMP SING2 /00656-5242 TAD (1000 /00657-1377 IOT18, SDLC /00660-6774 SING3, SDSS /00661-6771 JMP .-1 /00662-5261 CLA /00663-7200 IOT19, SDLD /00664-6775 JMS I XLAS /00665-4445 SPA CLA /00666-7710 JMP SING3 /00667-5261 IOT20, SDSS /00670-6771 JMP 0677 /00671-5277 JMS I XERROR /00672-4454 0104 /00673-0104 JMS I XLAS /00674-4445 SPA CLA /00675-7710 JMP SING3 /00676-5261 SING4, SDSS /00677-6771 JMP .-1 /00700-5277 CLA /00701-7200 IOT21, SDRC /00702-6776 JMS I XLAS /00703-4445 SPA CLA /00704-7710 JMP SING4 /00705-5277 IOT22, SDSS /00706-6771 JMP SING5 /00707-5315 JMS I XERROR /00710-4454 0103 /00711-0103 JMS I XLAS /00712-4445 SPA CLA /00713-7710 JMP SING4 /00714-5277 SING5, SDSS /00715-6771 JMP .-1 /00716-5315 CLA /00717-7200 IOT23, SDRD /00720-6777 JMS I XLAS /00721-4445 SPA CLA /00722-7710 JMP SING5 /00723-5315 IOT24, SDSS /00724-6771 JMP I (SING6 /00725-5777 JMS I XERROR /00726-4454 0105 /00727-0105 JMS I XLAS /00730-4445 SPA CLA /00731-7710 JMP SING5 /00732-5315 JMP I (SING6 /00733-5777 PAGE SING6, SDSS /01000-6771 JMP .-1 /01001-5200 IOT25, SDST /01002-6772 NOP /01003-7000 IOT26, SDSQ /01004-6773 CLA /01005-7200 TAD (1000 /01006-1377 IOT27, SDLC /01007-6774 IOT28, SDSS /01010-6771 SKP /01011-7410 JMP SING7 /01012-5220 JMS I XERROR /01013-4454 0212 /01014-0212 JMS I XLAS /01015-4445 SPA CLA /01016-7710 JMP SING6 /01017-5200 SING7, SDLC /01020-6774 JMS LOOP1 /01021-4105 JMP I (SINGLE+1 /01022-5776 QUAD, ISZ HEAD1 /01023-2067 CLA CLL /01024-7300 DCA HEAD2 /01025-3066 SDLC /01026-6774 IOT29, SDSQ /01027-6773 JMP 1033 /01030-5233 JMS I XERROR /01031-4454 0313 /01032-0313 TAD (1000 /01033-1377 IOT30, SDLC /01034-6774 QUAD0, SDRD /01035-6777 IOT31, SDSS /01036-6771 JMP .-1 /01037-5236 IOT32, SDSQ /01040-6773 JMP .+4 /01041-5245 JMS I XERROR /01042-4454 0014 /01043-0014 JMP Q0LUP /01044-5274 IOT33, SDSS /01045-6771 SKP /01046-7410 JMP .-2 /01047-5245 IOT34, SDSQ /01050-6773 JMP .+4 /01051-5255 JMS I XERROR /01052-4454 0014 /01053-0014 JMP Q0LUP /01054-5274 IOT35, SDSS /01055-6771 JMP .-1 /01056-5255 IOT36, SDSQ /01057-6773 JMP .+4 /01060-5264 JMS I XERROR /01061-4454 0014 /01062-0014 JMP Q0LUP /01063-5274 IOT37, SDSS /01064-6771 SKP /01065-7410 JMP .-2 /01066-5264 IOT38, SDSQ /01067-6773 SKP /01070-7410 JMP Q0LUP /01071-5274 JMS I XERROR /01072-4454 0115 /01073-0115 Q0LUP, JMS I XLAS /01074-4445 SPA CLA /01075-7710 JMP QUAD0-2 /01076-5233 QUAD1, SDSQ /01077-6773 SKP /01100-7410 JMP .+3 /01101-5304 JMS I XERROR /01102-4454 0216 /01103-0216 JMS I XLAS /01104-4445 SPA CLA /01105-7710 JMP QUAD1 /01106-5277 QUAD2, SDSQ /01107-6773 JMP .-1 /01110-5307 CAF /01111-6007 JMS I XLAS /01112-4445 SPA CLA /01113-7710 JMP QUAD2 /01114-5307 IOT39, SDSQ /01115-6773 JMP 1124 /01116-5324 JMS I XERROR /01117-4454 0111 /01120-0111 JMS I XLAS /01121-4445 SPA CLA /01122-7710 JMP QUAD2 /01123-5307 TAD (1000 /01124-1377 IOT40, SDLC /01125-6774 QUAD3, SDSQ /01126-6773 JMP .-1 /01127-5326 CLA /01130-7200 IOT41, SDLD /01131-6775 JMS I XLAS /01132-4445 SPA CLA /01133-7710 JMP QUAD3 /01134-5326 IOT42, SDSQ /01135-6773 JMP I (QUAD4 /01136-5775 JMS I XERROR /01137-4454 0104 /01140-0104 JMS I XLAS /01141-4445 SPA CLA /01142-7710 JMP QUAD3 /01143-5326 JMP I (QUAD4 /01144-5775 INDIR, 0000 /01145-0000 DCA IND /01146-3031 TAD I IND /01147-1431 JMP I INDIR /01150-5745 RDLAS, 0000 /01151-0000 TAD X8SWI /01152-1022 SMA CLA /01153-7700 CLA OSR /01154-7604 TAD SOFLAS /01155-1020 JMP I RDLAS /01156-5751 PAGE QUAD4, SDSQ /01200-6773 JMP .-1 /01201-5200 CLA /01202-7200 IOT43, SDRC /01203-6776 JMS I XLAS /01204-4445 SPA CLA /01205-7710 JMP QUAD4 /01206-5200 IOT44, SDSQ /01207-6773 JMP QUAD5 /01210-5216 JMS I XERROR /01211-4454 0103 /01212-0103 JMS I XLAS /01213-4445 SPA CLA /01214-7710 JMP QUAD4 /01215-5200 QUAD5, SDSQ /01216-6773 JMP .-1 /01217-5216 CLA /01220-7200 IOT45, SDRD /01221-6777 JMS I XLAS /01222-4445 SPA CLA /01223-7710 JMP QUAD5 /01224-5216 IOT46, SDSQ /01225-6773 JMP QUAD6 /01226-5234 JMS I XERROR /01227-4454 0105 /01230-0105 JMS I XLAS /01231-4445 SPA CLA /01232-7710 JMP QUAD5 /01233-5216 QUAD6, SDSQ /01234-6773 JMP .-1 /01235-5234 IOT47, SDST /01236-6772 NOP /01237-7000 IOT48, SDSS /01240-6771 NOP /01241-7000 CLA /01242-7200 TAD (1000 /01243-1377 IOT49, SDLC /01244-6774 JMS I XLAS /01245-4445 SPA CLA /01246-7710 JMP QUAD6 /01247-5234 IOT50, SDSQ /01250-6773 SKP /01251-7410 JMP QUAD7 /01252-5260 JMS I XERROR /01253-4454 0217 /01254-0217 JMS I XLAS /01255-4445 SPA CLA /01256-7710 JMP QUAD6 /01257-5234 QUAD7, CLA CLL /01260-7300 TAD (-2 /01261-1376 DCA CNTR1 /01262-3036 IOT51, SDLD /01263-6775 IOT52, SDSS /01264-6771 JMP .-1 /01265-5264 IOT53, SDSS /01266-6771 SKP /01267-7410 JMP .-1 /01270-5267 ? IOT54, SDSS /01271-6771 JMP .-1 /01272-5271 ISZ CNTR1 /01273-2036 JMP QUAD7+3 /01274-5263 JMS I XLAS /01275-4445 SPA CLA /01276-7710 JMP QUAD7 /01277-5260 IOT55, SDSQ /01300-6773 JMP .+3 /01301-5304 JMS I XERROR /01302-4454 0020 /01303-0020 JMS I XLAS /01304-4445 SPA CLA /01305-7710 JMP QUAD7 /01306-5260 JMS LOOP1 /01307-4105 JMP I (QUAD+1 /01310-5775 TIMING, ISZ HEAD1 /01311-2067 CLA CLL /01312-7300 DCA HEAD2 /01313-3066 SDLC /01314-6774 TAD (1000 /01315-1377 IOT56, SDLC /01316-6774 IOT57, SDSS /01317-6771 JMP .-1 /01320-5317 IOT58, SDST /01321-6772 JMP TIME0 /01322-5325 JMS I XERROR /01323-4454 0321 /01324-0321 TIME0, SDSQ /01325-6773 JMP .-1 /01326-5325 CLA /01327-7200 DCA CNTR1 /01330-3036 ISZ CNTR1 /01331-2036 JMP .-1 /01332-5331 IOT59, SDST /01333-6772 SKP /01334-7410 JMP TIME1 /01335-5343 JMS I XERROR /01336-4454 0122 /01337-0122 JMS I XLAS /01340-4445 SPA CLA /01341-7710 JMP TIME0 /01342-5325 TIME1, SDST /01343-6772 SKP /01344-7410 JMP .+3 /01345-5350 JMS I XERROR /01346-4454 0223 /01347-0223 JMS I XLAS /01350-4445 SPA CLA /01351-7710 JMP TIME1 /01352-5343 JMP I (TIME2 /01353-5774 PAGE TIME2, SDST /01400-6772 JMP .-1 /01401-5200 CAF /01402-6007 JMS I XLAS /01403-4445 SPA CLA /01404-7710 JMP TIME2 /01405-5200 IOT60, SDST /01406-6772 JMP TIME3-2 /01407-5215 JMS I XERROR /01410-4454 0111 /01411-0111 JMS I XLAS /01412-4445 SPA CLA /01413-7710 JMP TIME2 /01414-5200 TAD (1000 /01415-1377 IOT61, SDLC /01416-6774 TIME3, SDST /01417-6772 JMP .-1 /01420-5217 IOT62, SDRC /01421-6776 DCA IN /01422-3035 JMS I XLAS /01423-4445 SPA CLA /01424-7710 JMP TIME3 /01425-5217 TAD IN /01426-1035 AND (100 /01427-0376 SZA CLA /01430-7640 JMP TIME4-2 /01431-5237 JMS I XERROR /01432-4454 0024 /01433-0024 JMS I XLAS /01434-4445 SPA CLA /01435-7710 JMP TIME3 /01436-5217 TAD (1000 /01437-1377 IOT63, SDLC /01440-6774 TIME4, SDST /01441-6772 JMP .-1 /01442-5241 IOT64, SDLC /01443-6774 JMS I XLAS /01444-4445 SPA CLA /01445-7710 JMP TIME4 /01446-5241 IOT65, SDST /01447-6772 JMP TIME5 /01450-5256 JMS I XERROR /01451-4454 0102 /01452-0102 JMS I XLAS /01453-4445 SPA CLA /01454-7710 JMP TIME4 /01455-5241 TIME5, CLA CLL /01456-7300 TAD (3000 /01457-1375 IOT66, SDLC /01460-6774 JMS I (HANG /01461-4774 ? IOT67, SDSS /01462-6771 JMP .-2 /01463-5261 IOT68, SDRC /01464-6776 AND (77 /01465-0373 TAD (-22 /01466-1372 SZA CLA /01467-7640 JMP .-7 /01470-5261 IOT69, SDRC /01471-6776 AND (7000 /01472-0371 TAD C400 /01473-1061 IOT70, SDLC /01474-6774 DCA CNTR1 /01475-3036 ISZ CNTR1 /01476-2036 JMP .-1 /01477-5276 IOT71, SDST /01500-6772 SKP /01501-7410 JMP .+3 /01502-5305 JMS I XERROR /01503-4454 0125 /01504-0125 IOT72, SDRC /01505-6776 AND C400 /01506-0061 SZA CLA /01507-7640 SKP /01510-7410 JMP .+3 /01511-5314 JMS I XERROR /01512-4454 0026 /01513-0026 JMS I XLAS /01514-4445 SPA CLA /01515-7710 JMP TIME5 /01516-5256 TIME6, CLA CLL /01517-7300 TAD (1000 /01520-1377 IOT73, SDLC /01521-6774 IOT74, SDSS /01522-6771 JMP .-1 /01523-5322 TAD (-5 /01524-1370 DCA CNTR2 /01525-3037 DCA CNTR1 /01526-3036 IOT75, SDRC /01527-6776 IOT76, SDRD /01530-6777 IOT77, SDLD /01531-6775 ISZ CNTR1 /01532-2036 JMP .-4 /01533-5327 ISZ CNTR2 /01534-2037 JMP .-6 /01535-5327 JMS I XLAS /01536-4445 SPA CLA /01537-7710 JMP TIME6+6 /01540-5325 ? IOT78, SDST /01541-6772 SKP /01542-7410 JMP .+3 /01543-5346 JMS I XERROR /01544-4454 0027 /01545-0127 JMS I XLAS /01546-4445 SPA CLA /01547-7710 JMP TIME6 /01550-5317 JMS LOOP1 /01551-4105 JMP I (TIMING+1 /01552-5767 JMP I (UTSMRK /01553-5766 PAGE UTSMRK, ISZ HEAD1 /01600-2067 CLA CLL /01601-7300 DCA HEAD2 /01602-3066 IOT82, SDLC /01603-6774 TAD (1000 /01604-1377 IOT83, SDLC /01605-6774 JMS I XLAS /01606-4445 SPA CLA /01607-7710 JMP UTSMRK+1 /01610-5201 IOT84, SDRC /01611-6776 AND (77 /01612-0376 SZA /01613-7440 SKP /01614-7410 JMP .+3 /01615-5220 JMS I XERROR /01616-4454 0130 /01617-0130 JMS I XLAS /01620-4445 SPA CLA /01621-7710 JMP UTSMRK+1 /01622-5201 UTSMK1, CLA CLL /01623-7300 TAD (1000 /01624-1377 IOT85, SDLC /01625-6774 IOT86, SDSS /01626-6771 JMP .-1 /01627-5226 IOT87, SDRC /01630-6776 AND (77 /01631-0376 SNA CLA /01632-7650 JMP .-5 /01633-5226 IOT88, SDLC /01634-6774 JMS I XLAS /01635-4445 SPA CLA /01636-7710 JMP UTSMK1 /01637-5223 IOT89, SDRC /01640-6776 AND (77 /01641-0376 SZA /01642-7440 SKP /01643-7410 JMP .+3 /01644-5247 JMS I XERROR /01645-4454 0131 /01646-0131 JMS I XLAS /01647-4445 SPA CLA /01650-7710 JMP UTSMK1 /01651-5223 UTSMK2, CLA CLL /01652-7300 TAD (3000 /01653-1375 IOT90, SDLC /01654-6774 IOT91, SDSS /01655-6771 JMP .-1 /01656-5255 IOT92, SDRC /01657-6776 AND (77 /01660-0376 SNA CLA /01661-7650 JMP .-5 /01662-5255 TAD (1000 /01663-1377 IOT93, SDLC /01664-6774 JMS I XLAS /01665-4445 SPA CLA /01666-7710 JMP UTSMK2 /01667-5252 IOT94, SDRC /01670-6776 AND (77 /01671-0376 SZA /01672-7440 SKP /01673-7410 JMP .+3 /01674-5277 JMS I XERROR /01675-4454 0132 /01676-0132 JMS I XLAS /01677-4445 SPA CLA /01700-7710 JMP UTSMK2 /01701-5252 UTSMK3, CLA CLL /01702-7300 TAD (1000 /01703-1377 IOT95, SDLC /01704-6774 IOT96, SDSS /01705-6771 JMP .-1 /01706-5305 IOT97, SDRC /01707-6776 AND (77 /01710-0376 SNA CLA /01711-7650 JMP .-5 /01712-5305 TAD (3000 /01713-1375 IOT98, SDLC /01714-6774 JMS I XLAS /01715-4445 SPA CLA /01716-7710 JMP UTSMK3 /01717-5302 IOT99, SDRC /01720-6776 AND (77 /01721-0376 SZA /01722-7440 SKP /01723-7410 JMP .+3 /01724-5327 JMS I XERROR /01725-4454 0133 /01726-0133 JMS I XLAS /01727-4445 SPA CLA /01730-7710 JMP UTSMK3 /01731-5302 JMP I (UTSMK4 /01732-5774 PAGE UTSMK4, CLA CLL /02000-7300 TAD (1000 /02001-1377 IOT100, SDLC /02002-6774 IOT101, SDSS /02003-6771 JMP .-1 /02004-5203 IOT102, SDRC /02005-6776 AND (77 /02006-0376 SNA CLA /02007-7650 JMP .-5 /02010-5203 TAD (5000 /02011-1375 IOT103, SDLC /02012-6774 JMS I XLAS /02013-4445 SPA CLA /02014-7710 JMP UTSMK4 /02015-5200 IOT104, SDRC /02016-6776 AND (77 /02017-0376 SZA /02020-7440 SKP /02021-7410 JMP .+3 /02022-5225 JMS I XERROR /02023-4454 0134 /02024-0134 JMS I XLAS /02025-4445 SPA CLA /02026-7710 JMP UTSMK4 /02027-5200 JMS I XLAS /02030-4445 RAR /02031-7010 SZL CLA /02032-7630 JMP UTSMK6 /02033-5264 UTSMK5, CLA CLL /02034-7300 TAD (5000 /02035-1375 IOT105, SDLC /02036-6774 IOT106, SDSS /02037-6771 JMP .-1 /02040-5237 IOT107, SDRC /02041-6776 AND (77 /02042-0376 SNA CLA /02043-7650 JMP .-5 /02044-5237 TAD (1000 /02045-1377 IOT108, SDLC /02046-6774 JMS I XLAS /02047-4445 SPA CLA /02050-7710 JMP UTSMK5 /02051-5234 IOT109, SDRC /02052-6776 AND (77 /02053-0376 SZA /02054-7440 SKP /02055-7410 JMP .+3 /02056-5261 JMS I XERROR /02057-4454 0135 /02060-0135 JMS I XLAS /02061-4445 SPA CLA /02062-7710 JMP UTSMK5 /02063-5234 UTSMK6, JMS LOOP1 /02064-4105 JMP I (UTSMRK+1 /02065-5774 TAD C4000 /02066-1062 IOT110, SDLC /02067-6774 JMS I XLAS /02070-4445 RTL /02071-7006 SPA CLA /02072-7710 JMP I (DATREG /02073-5773 JMS I X8A /02074-4446 JMP I (XFER /02075-5772 *2100 BLKCH, CLA CLL /02100-7300 DCA DISBL /02101-3115 TAD [-2702 /02102-1166 DCA BLKCN /02103-3117 JMS BLKREV /02104-4120 JMS BLKEND /02105-4127 TAD [1000 /02106-1165 TAD I (UNIT /02107-1771 IOT171, SDLC /02110-6774 JMS I (RDQUAD /02111-4770 JMS I (RDQUAD /02112-4770 FBLKCT, JMS BLKSER /02113-4140 TAD DISDA /02114-1116 CMA IAC /02115-7041 TAD DISBL /02116-1115 SZA CLA /02117-7640 JMP BLKERR /02120-5346 ISZ DISBL /02121-2115 ISZ BLKCN /02122-2117 JMP FBLKCT /02123-5313 JMS BLKEND /02124-4127 TAD [2701 /02125-1164 DCA DISBL /02126-3115 TAD [-2702 /02127-1166 DCA BLKCN /02130-3117 JMS BLKREV /02131-4120 RBLKCT, JMS BLKSER /02132-4140 TAD DISDA /02133-1116 CMA IAC /02134-7041 TAD DISBL /02135-1115 SZA CLA /02136-7640 JMP BLKERR /02137-5346 CMA /02140-7040 TAD DISBL /02141-1115 DCA DISBL /02142-3115 ISZ BLKCN /02143-2117 JMP RBLKCT /02144-5332 JMP BLKCH /02145-5300 BLKERR, CLA CLL /02146-7300 TAD DISBL /02147-1115 HLT /02150-7402 CLA /02151-7200 TAD DISDA /02152-1116 HLT /02153-7402 JMP BLKCH /02154-5300 PAGE DBLOCK, CLA CLL /02200-7300 DCA DISBLK /02201-3233 TAD (3000 /02202-1377 TAD UNIT /02203-1234 IOT111, SDLC /02204-6774 CLA CLL /02205-7300 DISLUP, SDSS /02206-6771 JMP .-1 /02207-5206 CLA CLL /02210-7300 IOT112, SDRD /02211-6777 DCA DISDAT /02212-3236 IOT113, SDRC /02213-6776 AND (77 /02214-0376 TAD (-26 /02215-1375 SZA /02216-7440 JMP DISEND /02217-5224 TAD DISDAT /02220-1236 ISZ DISBLK /02221-2233 JMP .-1 /02222-5221 JMP DISLUP /02223-5206 DISEND, TAD (4 /02224-1374 SZA CLA /02225-7640 JMP DISLUP /02226-5206 IOT114, SDRC /02227-6776 RTL /02230-7006 CML RTR /02231-7032 JMP DISLUP-2 /02232-5204 DISBLK, 0000 /02233-0000 UNIT, 0000 /02234-0000 DISTRK, 0000 /02235-0000 DISDAT, 0000 /02236-0000 ROCK, CLA CLL /02237-7300 TAD (1000 /02240-1373 IOT115, SDLC /02241-6774 JMS I XLAS /02242-4445 CMA /02243-7040 DCA 0001 /02244-3001 ISZ 0000 /02245-2000 JMP .-1 /02246-5245 ISZ 0001 /02247-2001 JMP .-3 /02250-5245 NOP /02251-7000 TAD (3000 /02252-1377 IOT116, SDLC /02253-6774 JMS I XLAS /02254-4445 CMA /02255-7040 DCA 0001 /02256-3001 ISZ 0000 /02257-2000 JMP .-1 /02260-5257 ISZ 0001 /02261-2001 JMP .-3 /02262-5257 JMP ROCK+1 /02263-5240 MESAGE, 0000 /02264-0000 SZA /02265-7440 JMP MLOOP-1 /02266-5273 TAD I MESAGE /02267-1664 ISZ MESAGE /02270-2264 SNA /02271-7450 JMP I MESAGE /02272-5664 DCA MPNTR /02273-3033 MLOOP, TAD I MPNTR /02274-1433 RTR /02275-7012 RTR /02276-7012 RTR /02277-7012 JMS MHALF /02300-4305 TAD I MPNTR /02301-1433 JMS MHALF /02302-4305 ISZ MPNTR /02303-2033 JMP MLOOP /02304-5274 MHALF, 0000 /02305-0000 AND C77 /02306-0057 SNA /02307-7450 JMP I MESAGE /02310-5664 TAD (-37 /02311-1372 SNA /02312-7450 JMP MCRLF /02313-5322 TAD (-1 /02314-1371 SPA /02315-7510 TAD (100 /02316-1370 TAD C240 /02317-1063 JMS TYPE /02320-4070 JMP I MHALF /02321-5705 MCRLF, JMS CRLF /02322-4077 JMP I MHALF /02323-5705 OPRINT, 0000 /02324-0000 DCA ONUMB /02325-3346 TAD (-4 /02326-1367 DCA OCNT /02327-3347 TAD ONUMB /02330-1346 RAL /02331-7004 OPLOOP, RAL /02332-7004 RTL /02333-7006 DCA ONUMB /02334-3346 TAD ONUMB /02335-1346 AND (7 /02336-0366 TAD (260 /02337-1365 JMS TYPE /02340-4070 TAD ONUMB /02341-1346 ISZ OCNT /02342-2347 JMP OPLOOP /02343-5332 CLA /02344-7200 JMP I OPRINT /02345-5724 ONUMB, 0000 /02346-0000 OCNT, 0000 /02347-0000 HANG, 0000 /02350-0000 ISZ HANG1 /02351-2055 JMP I HANG /02352-5750 ISZ HANG2 /02353-2056 JMP I HANG /02354-5750 TAD (-40 /02355-1364 DCA HANG2 /02356-3056 JMS I X8A /02357-4446 JMP I HANG /02360-5750 PAGE BLKCHK, CLA CLL /02400-7300 TAD (3000 /02401-1377 IOT117, SDLC /02402-6774 JMS RD6MRK /02403-4315 ENDZ, JMS RD1MRK /02404-4307 TAD (-22 /02405-1376 SZA CLA /02406-7640 JMP .-3 /02407-5204 IOT118, SDRC /02410-6776 RTL /02411-7006 CML RTR /02412-7032 IOT119, SDLC /02413-6774 JMS RD6MRK /02414-4315 JMS RD1MRK /02415-4307 TAD (-26 /02416-1375 SNA CLA /02417-7650 JMP RVGARD /02420-5236 JMP .-4 /02421-5215 FWDEXP, JMS RD6MRK /02422-4315 TAD (-25 /02423-1374 SZA /02424-7440 HLT /02425-7402 BLKMRK, JMS RD6MRK /02426-4315 TAD (-26 /02427-1375 SNA /02430-7450 JMP RVGARD /02431-5236 IAC /02432-7001 SZA /02433-7440 HLT /02434-7402 JMP ENDZ /02435-5204 RVGARD, JMS RD6MRK /02436-4315 TAD (-32 /02437-1373 SZA /02440-7440 HLT /02441-7402 TAD (-4 /02442-1372 DCA 0 /02443-3000 JMS RD6MRK /02444-4315 LOCK, TAD (-10 /02445-1371 SZA /02446-7440 HLT /02447-7402 ISZ 0 /02450-2000 JMP .-5 /02451-5244 DATA, TAD (-122 /02452-1370 DCA 0 /02453-3000 JMS RD6MRK /02454-4315 TAD (-70 /02455-1367 SZA /02456-7440 HLT /02457-7402 ISZ 0 /02460-2000 JMP .-5 /02461-5254 PREFIN, TAD (-4 /02462-1372 DCA 0 /02463-3000 JMS RD6MRK /02464-4315 TAD (-73 /02465-1366 SZA /02466-7440 HLT /02467-7402 ISZ 0 /02470-2000 JMP .-5 /02471-5264 GUARD, JMS RD6MRK /02472-4315 TAD (-51 /02473-1365 SZA /02474-7440 HLT /02475-7402 REVBLK, JMS RD6MRK /02476-4315 TAD (-45 /02477-1364 SZA /02500-7440 HLT /02501-7402 REVEXP, JMS RD6MRK /02502-4315 TAD (-25 /02503-1374 SZA /02504-7440 HLT /02505-7402 JMP FWDEXP /02506-5222 RD1MRK, 0 /02507-0000 IOT120, SDSS /02510-6771 JMP .-1 /02511-5310 IOT121, SDRC /02512-6776 AND (77 /02513-0363 JMP I RD1MRK /02514-5707 RD6MRK, 0 /02515-0000 TAD (-6 /02516-1362 DCA RD1MRK /02517-3307 IOT122, SDSS /02520-6771 JMP .-1 /02521-5320 IOT123, SDRC /02522-6776 ISZ RD1MRK /02523-2307 JMP .-4 /02524-5320 AND (77 /02525-0363 JMP I RD6MRK /02526-5715 PAGE SELECT, CLA CLL /02600-7300 JMS I X8C /02601-4447 DCA HEAD1 /02602-3067 DCA HEAD2 /02603-3066 IOT124, SDLC /02604-6774 IOT125, SDST /02605-6772 JMP .+3 /02606-5211 JMS I XERROR /02607-4454 2036 /02610-2036 TAD C4000 /02611-1062 IOT126, SDLC /02612-6774 CLA /02613-7200 IOT127, SDRC /02614-6776 DCA IN /02615-3035 JMS I XLAS /02616-4445 SPA CLA /02617-7710 JMP SELECT /02620-5200 TAD IN /02621-1035 AND (100 /02622-0377 SZA CLA /02623-7640 JMP .+3 /02624-5227 JMS I XERROR /02625-4454 2037 /02626-2037 JMS I XLAS /02627-4445 SPA CLA /02630-7710 JMP SELECT /02631-5200 SELCT1, TAD (4400 /02632-1376 IOT128, SDLC /02633-6774 JMS I XLAS /02634-4445 SPA CLA /02635-7710 JMP SELCT1 /02636-5232 IOT129, SDRC /02637-6776 DCA IN /02640-3035 TAD IN /02641-1035 AND C400 /02642-0061 SNA CLA /02643-7650 JMP .+3 /02644-5247 JMS I XERROR /02645-4454 2040 /02646-2040 JMS I XLAS /02647-4445 SPA CLA /02650-7710 JMP SELCT1 /02651-5232 SELCT2, SDLC /02652-6774 JMS I XLAS /02653-4445 SPA CLA /02654-7710 JMP SELCT2 /02655-5252 IOT130, SDRC /02656-6776 DCA IN /02657-3035 TAD IN /02660-1035 AND (100 /02661-0377 SNA CLA /02662-7650 JMP .+3 /02663-5266 JMS I XERROR /02664-4454 2047 /02665-2047 JMS I XLAS /02666-4445 SPA CLA /02667-7710 JMP SELCT2 /02670-5252 JMS LOOP1 /02671-4105 JMP SELECT /02672-5200 ISZ HEAD1 /02673-2067 WL0, CLA CLL /02674-7300 DCA HEAD2 /02675-3066 SDLC /02676-6774 IOT131, SDRC /02677-6776 DCA IN /02700-3035 JMS I XLAS /02701-4445 SPA CLA /02702-7710 JMP WL0 /02703-5274 TAD IN /02704-1035 AND C200 /02705-0064 SZA CLA /02706-7640 JMP .+3 /02707-5312 JMS I XERROR /02710-4454 2041 /02711-2041 JMS I XLAS /02712-4445 SPA CLA /02713-7710 JMP WL0 /02714-5274 WL1, TAD C400 /02715-1061 IOT132, SDLC /02716-6774 JMS I XLAS /02717-4445 SPA CLA /02720-7710 JMP WL1 /02721-5315 IOT133, SDRC /02722-6776 DCA IN /02723-3035 TAD IN /02724-1035 AND C400 /02725-0061 SNA CLA /02726-7650 JMP .+3 /02727-5332 JMS I XERROR /02730-4454 2042 /02731-2042 JMS I XLAS /02732-4445 SPA CLA /02733-7710 JMP WL1 /02734-5315 JMS LOOP1 /02735-4105 JMP WL0 /02736-5274 JMS I XMESAG /02737-4453 OK /02740-2743 HLT /02741-7402 JMP .-1 /02742-5341 OK, TEXT /_OK/ /02743-3717 PAGE BUFF1=7200 BUFF2=7400 XFER, CLA CLL /03000-7300 DCA IN /03001-3035 TAD (FILL0 /03002-1377 JMS WREAD /03003-4224 TAD (FILL1 /03004-1376 JMS WREAD /03005-4224 TAD (FILL25 /03006-1375 JMS WREAD /03007-4224 TAD (FILPAT /03010-1374 JMS WREAD /03011-4224 TAD (FILINC /03012-1373 JMS WREAD /03013-4224 TAD (FILDEC /03014-1372 JMS WREAD /03015-4224 TAD (SPEC1 /03016-1371 JMS WREAD /03017-4224 TAD (SPEC2 /03020-1370 JMS WREAD /03021-4224 JMS I (PASCNT /03022-4767 JMP XFER+2 /03023-5202 WREAD, 0000 /03024-0000 DCA FILPNT /03025-3044 DCA I (SUNIT /03026-3766 TAD (-200 /03027-1365 JMS I FILPNT /03030-4444 BUFF1 /03031-7200 DCA BLK /03032-3043 TAD (MESS57 /03033-1364 DCA XHEAD1 /03034-3041 WRBL1, TAD (MESS58 /03035-1363 DCA XHEAD2 /03036-3042 TAD BLK /03037-1043 JMS I (WRITE /03040-4762 BUFF1 /03041-7200 -200 /03042-7600 TAD (MESS59 /03043-1361 DCA XHEAD2 /03044-3042 TAD BLK /03045-1043 JMS I (READ /03046-4760 BUFF2 /03047-7400 -201 /03050-7577 TAD (-200 /03051-1365 JMS I (COMPAR /03052-4757 BUFF1 /03053-7200 BUFF2+1 /03054-7401 TAD (MESS60 /03055-1356 DCA XHEAD2 /03056-3042 TAD BLK /03057-1043 JMS I (READR /03060-4755 BUFF2 /03061-7400 -201 /03062-7577 TAD BLK /03063-1043 TAD (100 /03064-1354 DCA BLK /03065-3043 JMS I X8A /03066-4446 TAD BLK /03067-1043 TAD (-2701 /03070-1353 SPA CLA /03071-7710 JMP WRBL1 /03072-5235 TAD (2701 /03073-1352 DCA BLK /03074-3043 TAD (MESS61 /03075-1351 DCA XHEAD1 /03076-3041 WRBL2, TAD (MESS62 /03077-1350 DCA XHEAD2 /03100-3042 TAD BLK /03101-1043 JMS I (WRITER /03102-4747 BUFF1 /03103-7200 -200 /03104-7600 TAD (MESS60 /03105-1356 DCA XHEAD2 /03106-3042 TAD BLK /03107-1043 JMS I (READR /03110-4755 BUFF2 /03111-7400 -201 /03112-7577 TAD (-200 /03113-1365 JMS I (COMPAR /03114-4757 BUFF1 /03115-7200 BUFF2+1 /03116-7401 TAD (MESS59 /03117-1361 DCA XHEAD2 /03120-3042 TAD BLK /03121-1043 JMS I (READ /03122-4760 BUFF2 /03123-7400 -201 /03124-7577 TAD BLK /03125-1043 TAD (-100 /03126-1346 DCA BLK /03127-3043 JMS I X8A /03130-4446 TAD BLK /03131-1043 SMA CLA /03132-7700 JMP WRBL2 /03133-5277 JMS I XLAS /03134-4445 RAR /03135-7010 SZL CLA /03136-7630 JMP I WREAD /03137-5624 TAD I (SUNIT /03140-1766 TAD C4000 /03141-1062 SNA /03142-7450 JMP I WREAD /03143-5624 DCA I (SUNIT /03144-3766 JMP WRBL1-3 /03145-5232 PAGE COMPAR, 0000 /03200-0000 DCA CCNTR /03201-3224 TAD I COMPAR /03202-1600 DCA GPNTR /03203-3225 ISZ COMPAR /03204-2200 TAD I COMPAR /03205-1600 DCA TPNTR /03206-3226 ISZ COMPAR /03207-2200 TAD (DATMES /03210-1377 DCA I (DATHD /03211-3776 COMLUP, TAD I GPNTR /03212-1625 CMA IAC /03213-7041 TAD I TPNTR /03214-1626 SZA CLA /03215-7640 JMS I (DATERR /03216-4775 ISZ GPNTR /03217-2225 ISZ TPNTR /03220-2226 ISZ CCNTR /03221-2224 JMP COMLUP /03222-5212 JMP I COMPAR /03223-5600 CCNTR, 0000 /03224-0000 GPNTR, 0000 /03225-0000 TPNTR, 0000 /03226-0000 FILL0, 0000 /03227-0000 DCA FILL0C /03230-3241 TAD I FILL0 /03231-1627 DCA FILL0P /03232-3242 ISZ FILL0 /03233-2227 DCA I FILL0P /03234-3642 ISZ FILL0P /03235-2242 ISZ FILL0C /03236-2241 JMP .-3 /03237-5234 JMP I FILL0 /03240-5627 FILL0C, 0000 /03241-0000 FILL0P, 0000 /03242-0000 FILL1, 0000 /03243-0000 DCA FILL1C /03244-3256 TAD I FILL1 /03245-1643 DCA FILL1P /03246-3257 ISZ FILL1 /03247-2243 CLA CMA /03250-7240 DCA I FILL1P /03251-3657 ISZ FILL1P /03252-2257 ISZ FILL1C /03253-2256 JMP .-4 /03254-5250 JMP I FILL1 /03255-5643 FILL1C, 0000 /03256-0000 FILL1P, 0000 /03257-0000 FILL25, 0000 /03260-0000 DCA FILL2C /03261-3273 TAD I FILL25 /03262-1660 DCA FILL2P /03263-3275 ISZ FILL25 /03264-2260 TAD FILL2K /03265-1274 DCA I FILL2P /03266-3675 ISZ FILL2P /03267-2275 ISZ FILL2C /03270-2273 JMP .-4 /03271-5265 JMP I FILL25 /03272-5660 FILL2C, 0000 /03273-0000 FILL2K, 2525 /03274-2525 FILL2P, 0000 /03275-0000 FILPAT, 0000 /03276-0000 DCA FILLC1 /03277-3323 TAD I FILPAT /03300-1676 DCA FILLP1 /03301-3321 ISZ FILPAT /03302-2276 FILPL1, TAD FILTP /03303-1325 DCA FILLP2 /03304-3322 TAD FILTC /03305-1331 DCA FILLC2 /03306-3324 FILPL2, TAD I FILLP2 /03307-1722 DCA I FILLP1 /03310-3721 ISZ FILLP1 /03311-2321 ISZ FILLC1 /03312-2323 SKP /03313-7410 JMP I FILPAT /03314-5676 ISZ FILLP2 /03315-2322 ISZ FILLC2 /03316-2324 JMP FILPL2 /03317-5307 JMP FILPL1 /03320-5303 FILLP1, 0000 /03321-0000 FILLP2, 0000 /03322-0000 FILLC1, 0000 /03323-0000 FILLC2, 0000 /03324-0000 FILTP, .+1 /03325-3326 2225 /03326-2225 5522 /03327-5522 2555 /03330-2555 FILTC, FILTP-FILTC+1 /03331-7775 PAGE FILINC, 0000 /03400-0000 DCA FILICT /03401-3216 TAD I FILINC /03402-1600 DCA FILIPT /03403-3217 ISZ FILINC /03404-2200 DCA FILIDT /03405-3220 TAD FILIDT /03406-1220 DCA I FILIPT /03407-3617 ISZ FILIDT /03410-2220 NOP /03411-7000 ISZ FILIPT /03412-2217 ISZ FILICT /03413-2216 JMP .-6 /03414-5206 JMP I FILINC /03415-5600 FILICT, 0000 /03416-0000 FILIPT, 0000 /03417-0000 FILIDT, 0000 /03420-0000 FILDEC, 0000 /03421-0000 DCA FILDCT /03422-3240 TAD I FILDEC /03423-1621 DCA FILDPT /03424-3241 ISZ FILDEC /03425-2221 DCA FILDDT /03426-3242 TAD FILDDT /03427-1242 DCA I FILDPT /03430-3641 CMA /03431-7040 TAD FILDDT /03432-1242 ISZ FILDPT /03433-2241 ISZ FILDCT /03434-2240 JMP .-7 /03435-5226 CLA /03436-7200 JMP I FILDEC /03437-5621 FILDCT, 0000 /03440-0000 FILDPT, 0000 /03441-0000 FILDDT, 0000 /03442-0000 SPEC1, 0000 /03443-0000 DCA SP1CT /03444-3256 TAD I SPEC1 /03445-1643 DCA SP1PT /03446-3257 ISZ SPEC1 /03447-2243 TAD SPEC1D /03450-1260 DCA I SP1PT /03451-3657 ISZ SP1PT /03452-2257 ISZ SP1CT /03453-2256 JMP .-4 /03454-5250 JMP I SPEC1 /03455-5643 SP1CT, 0000 /03456-0000 SP1PT, 0000 /03457-0000 SPEC1D, 6161 /03460-6161 SPEC2, 0000 /03461-0000 DCA SP2CT /03462-3274 TAD I SPEC2 /03463-1661 DCA SP2PT /03464-3275 ISZ SPEC2 /03465-2261 TAD SPEC2D /03466-1276 DCA I SP2PT /03467-3675 ISZ SP2PT /03470-2275 ISZ SP2CT /03471-2274 JMP .-4 /03472-5266 JMP I SPEC2 /03473-5661 SP2CT, 0000 /03474-0000 SP2PT, 0000 /03475-0000 SPEC2D, 3434 /03476-3434 PASCNT, 0000 /03477-0000 JMS I XMESAG /03500-4453 PASS /03501-3511 ISZ IN /03502-2035 NOP /03503-7000 TAD IN /03504-1035 JMS I XOPRNT /03505-4451 JMS I XMESAG /03506-4453 COMP /03507-3515 JMP I PASCNT /03510-5677 PASS, TEXT /_PASS / COMP, TEXT / COMPLETE/ DECX8A, 0000 /03522-0000 TAD X8SWI /03523-1022 SMA CLA /03524-7700 JMP I DECX8A /03525-5722 IOF /03526-6002 CDF 0 /03527-6201 CIF 70 /03530-6272 JMS I .+2 /03531-4733 JMP I DECX8A /03532-5722 6500 /03533-6500 DECX8B, 0000 /03534-0000 TAD X8SWI /03535-1022 SMA CLA /03536-7700 JMP I DECX8B /03537-5734 CLA CMA /03540-7240 TAD I (ERROR /03541-1777 IOF /03542-6002 CDF 0 /03543-6201 CIF 70 /03544-6272 JMP I .+1 /03545-5746 6520 /03546-6520 DECX8C, 0000 /03547-0000 TAD X8SWI /03550-1022 SMA CLA /03551-7700 JMP I DECX8C /03552-5747 TAD X8SWI /03553-1022 CMA /03554-7040 AND C7 /03555-0060 DCA SOFLAS /03556-3020 TAD (-40 /03557-1376 DCA HANG2 /03560-3056 JMP I (DATREG /03561-5775 PAGE RSERCH, 0000 /03600-0000 DCA RSLOOK /03601-3270 TAD M10 /03602-1113 DCA BLKTRY /03603-3114 TAD (1000 /03604-1377 TAD I (SUNIT /03605-1776 RSRCH0, SDLC /03606-6774 IOT134, SDRC /03607-6776 AND (100 /03610-0375 SZA CLA /03611-7640 JMP I [SELERR /03612-5563 JMS I (RDQUAD /03613-4774 JMS I (RDQUAD /03614-4774 RSRCH1, SDSS /03615-6771 SKP /03616-7410 IOT135, SDRD /03617-6777 IOT136, SDSS /03620-6771 JMP .-1 /03621-5220 IOT138, SDRC /03622-6776 AND (77 /03623-0373 TAD (-26 /03624-1372 SNA /03625-7450 JMP RSRCH2 /03626-5240 TAD (4 /03627-1371 SZA CLA /03630-7640 JMP RSRCH1 /03631-5215 IOT13A, SDRC /03632-6776 RTL /03633-7006 CML RTR /03634-7032 ISZ BLKTRY /03635-2114 JMP RSRCH0 /03636-5206 JMP RSTURN+5 /03637-5261 RSRCH2, SDRC /03640-6776 RTL /03641-7006 IOT137, SDRD /03642-6777 CMA IAC /03643-7041 TAD RSLOOK /03644-1270 SNA /03645-7450 JMP RSOK /03646-5265 CMA IAC /03647-7041 SNL /03650-7420 TAD (4 /03651-1371 SZL CLA /03652-7630 JMP RSRCH1 /03653-5215 RSTURN, SDRC /03654-6776 RTL /03655-7006 CML RTR /03656-7032 ISZ BLKTRY /03657-2114 JMP RSRCH0 /03660-5206 CLA /03661-7200 TAD RSLOOK /03662-1270 HLT /03663-7402 JMP .-1 /03664-5263 RSOK, SZL CLA /03665-7630 JMP RSRCH1 /03666-5215 JMP I RSERCH /03667-5600 RSLOOK, 0000 /03670-0000 WRITER, 0000 /03671-0000 DCA I (WCNT /03672-3770 TAD I WRITER /03673-1671 DCA I (WADDR /03674-3767 ISZ WRITER /03675-2271 TAD I WRITER /03676-1671 DCA I (WCOUNT /03677-3766 TAD WRITER /03700-1271 IAC /03701-7001 DCA I (WRITE /03702-3765 JMS I (CSUMRT /03703-4764 0025 /03704-0025 BUFF1-1 /03705-7177 -200 /03706-7600 JMS I (SBCXOR /03707-4763 JMS WRTLCK /03710-4331 TAD I (WCNT /03711-1770 JMS RSERCH /03712-4200 JMP I (WRITE1 /03713-5762 READR, 0000 /03714-0000 DCA I (RCNT /03715-3761 TAD I READR /03716-1714 DCA I (RADDR /03717-3760 ISZ READR /03720-2314 TAD I READR /03721-1714 DCA I (RCOUNT /03722-3757 TAD READR /03723-1314 IAC /03724-7001 DCA I (READ /03725-3756 TAD I (RCNT /03726-1761 JMS RSERCH /03727-4200 JMP I (READ1 /03730-5755 WRTLCK, 0000 /03731-0000 TAD I (SUNIT /03732-1776 IOT151, SDLC /03733-6774 IOT15A, SDRC /03734-6776 AND C200 /03735-0064 SZA CLA /03736-7640 JMP I [WRDERR /03737-5562 JMP I WRTLCK /03740-5731 PAGE DATERR, 0000 /04000-0000 JMS I XLAS /04001-4445 AND C400 /04002-0061 SZA CLA /04003-7640 JMP DATHLT-3 /04004-5232 TAD DATHD /04005-1237 SNA CLA /04006-7650 JMP DATNUM /04007-5217 JMS HEADTP /04010-4247 TAD DATHD /04011-1237 JMS I XMESAG /04012-4453 DCA DATHD /04013-3237 JMS CRLF /04014-4077 JMS I XMESAG /04015-4453 GODBAD /04016-5013 DATNUM, TAD I (GPNTR /04017-1777 DCA DATPNT /04020-3240 TAD I DATPNT /04021-1640 JMS I XOPRNT /04022-4451 TAD C240 /04023-1063 JMS TYPE /04024-4070 TAD I (TPNTR /04025-1776 DCA DATPNT /04026-3240 TAD I DATPNT /04027-1640 JMS I XOPRNT /04030-4451 JMS CRLF /04031-4077 JMS I XLAS /04032-4445 AND C200 /04033-0064 SNA CLA /04034-7650 DATHLT, HLT /04035-7402 JMP I DATERR /04036-5600 DATHD, 0000 /04037-0000 DATPNT, 0000 /04040-0000 DATMES, TEXT /_DATA ERROR/ HEADTP, 0000 /04047-0000 CLA CLL CMA /04050-7340 TAD HEADTP /04051-1247 DCA I (ERROR /04052-3775 JMS I X8B /04053-4450 JMS I XMESAG /04054-4453 UMESS /04055-4076 IOT139, SDRC /04056-6776 SPA CLA /04057-7710 IAC /04060-7001 TAD (260 /04061-1374 JMS TYPE /04062-4070 JMS I XMESAG /04063-4453 BLOCK /04064-4102 TAD BLK /04065-1043 JMS I XOPRNT /04066-4451 JMS CRLF /04067-4077 JMS I XMESAG /04070-4453 XHEAD1 /04071-0041 JMS I XMESAG /04072-4453 XHEAD2 /04073-0042 JMS CRLF /04074-4077 JMP I HEADTP /04075-5647 UMESS, TEXT /_UNIT / BLOCK, TEXT /_BLOCK # / CHKERR, 0000 /04107-0000 DCA CHKDAT /04110-3327 IOT140, SDRC /04111-6776 AND C4000 /04112-0062 IOT141, SDLC /04113-6774 JMS HEADTP /04114-4247 JMS I XMESAG /04115-4453 CHKMES /04116-4130 JMS I XLAS /04117-4445 AND C200 /04120-0064 SZA CLA /04121-7640 JMP I CHKERR /04122-5707 TAD CHKDAT /04123-1327 HLT /04124-7402 CLA /04125-7200 JMP I CHKERR /04126-5707 CHKDAT, 0000 /04127-0000 CHKMES, TEXT /_CHECKSUM ERROR/ PAGE WRDERR, JMS I (HEADTP /04200-4777 IOT142, SDRC /04201-6776 AND C4000 /04202-0062 IOT143, SDLC /04203-6774 JMS I XMESAG /04204-4453 WRDMES /04205-4213 JMS I XLAS /04206-4445 AND C200 /04207-0064 WRDHLT, SNA CLA /04210-7650 HLT /04211-7402 JMP I (WRBL1+2 /04212-5776 WRDMES, TEXT /_UNIT WRITE LOCKED/ SELERR, JMS I (HEADTP /04225-4777 JMS I XMESAG /04226-4453 SELMES /04227-4235 JMS I XLAS /04230-4445 AND C200 /04231-0064 SNA CLA /04232-7650 SELHT, HLT /04233-7402 JMP I (WRBL1+2 /04234-5776 SELMES, TEXT /_SELECT ERROR/ TYMERR, 0000 /04244-0000 IOT144, SDRC /04245-6776 AND C4000 /04246-0062 IOT145, SDLC /04247-6774 JMS I (HEADTP /04250-4777 JMS I XMESAG /04251-4453 TYMMES /04252-4260 JMS I XLAS /04253-4445 AND C200 /04254-0064 SNA CLA /04255-7650 TYMHLT, HLT /04256-7402 JMP I (WREAD+3 /04257-5775 TYMMES, TEXT /_TIMING ERROR/ CLRWT, 0000 /04267-0000 IOT168, SDSQ /04270-6773 JMP .-1 /04271-5270 IOT154, SDST /04272-6772 SKP CLA /04273-7610 JMS [TYMERR /04274-4161 ? IOT169, SDRC /04275-6776 AND (7000 /04276-0374 IOT170, SDLC /04277-6774 JMP I CLRWT /04300-5667 CSUMRT, 0000 /04301-0000 TAD I CSUMRT /04302-1701 DCA I (CHKSUM /04303-3773 ISZ CSUMRT /04304-2301 TAD I CSUMRT /04305-1701 DCA AUTO /04306-3017 ISZ CSUMRT /04307-2301 TAD I CSUMRT /04310-1701 DCA XXX /04311-3320 ISZ CSUMRT /04312-2301 TAD I AUTO /04313-1417 JMS I (SBCXOR /04314-4772 ISZ XXX /04315-2320 JMP .-3 /04316-5313 JMP I CSUMRT /04317-5701 XXX, 0000 /04320-0000 CHKCHK, 0000 /04321-0000 JMS CSUMRT /04322-4301 0000 /04323-0000 BUFF2-1 /04324-7377 -203 /04325-7575 TAD I (CHKSUM /04326-1773 CMA /04327-7040 AND (77 /04330-0371 SZA /04331-7440 JMS I [CHKERR /04332-4560 JMP I CHKCHK /04333-5721 PAGE SEARCH, 0000 /04400-0000 DCA SLOOK /04401-3276 TAD M10 /04402-1113 DCA BLKTRY /04403-3114 TAD (3000 /04404-1377 TAD SUNIT /04405-1277 SRCH0, SDLC /04406-6774 IOT146, SDRC /04407-6776 AND (100 /04410-0376 SZA CLA /04411-7640 JMP I [SELERR /04412-5563 JMS I (RDQUAD /04413-4775 JMS I (RDQUAD /04414-4775 SRCH1, SDSS /04415-6771 SKP /04416-7410 IOT147, SDRD /04417-6777 IOT148, SDSS /04420-6771 JMP .-1 /04421-5220 IOT149, SDRC /04422-6776 AND (77 /04423-0374 TAD (-26 /04424-1373 SNA /04425-7450 JMP SRCH2 /04426-5240 TAD (4 /04427-1372 SZA CLA /04430-7640 JMP SRCH1 /04431-5215 IOT14A, SDRC /04432-6776 RTL /04433-7006 CML RTR /04434-7032 ISZ BLKTRY /04435-2114 JMP SRCH0 /04436-5206 JMP BADBLK /04437-5261 SRCH2, SDRC /04440-6776 RTL /04441-7006 IOT150, SDRD /04442-6777 CMA IAC /04443-7041 TAD SLOOK /04444-1276 SNA /04445-7450 JMP LOCBED /04446-5273 CMA IAC /04447-7041 SNL /04450-7420 TAD (2 /04451-1371 SZL CLA /04452-7630 JMP SRCH1 /04453-5215 IOT15B, SDRC /04454-6776 RTL /04455-7006 CML RTR /04456-7032 ISZ BLKTRY /04457-2114 JMP SRCH0 /04460-5206 BADBLK, CLA /04461-7200 TAD SLOOK /04462-1276 DCA BLK /04463-3043 DCA XHEAD1 /04464-3041 DCA XHEAD2 /04465-3042 JMS I XMESAG /04466-4453 BKSRCH /04467-5000 JMS I (HEADTP /04470-4770 HLT /04471-7402 JMP .-1 /04472-5271 LOCBED, SNL CLA /04473-7620 JMP SRCH1 /04474-5215 JMP I SEARCH /04475-5600 SLOOK, 0000 /04476-0000 SUNIT, 0000 /04477-0000 WCNT=SLOOK WRITE, 0000 /04500-0000 DCA WCNT /04501-3276 TAD I WRITE /04502-1700 DCA WADDR /04503-3352 ISZ WRITE /04504-2300 TAD I WRITE /04505-1700 DCA WCOUNT /04506-3353 ISZ WRITE /04507-2300 JMS I (CSUMRT /04510-4767 0025 /04511-0025 BUFF1-1 /04512-7177 -200 /04513-7600 JMS I (SBCXOR /04514-4766 JMS I (WRTLCK /04515-4765 TAD WCNT /04516-1276 JMS SEARCH /04517-4200 WRITE1, JMS I (REVGRD /04520-4764 JMS I (RDQUAD /04521-4775 IOT152, SDRC /04522-6776 TAD C400 /04523-1061 IOT153, SDLC /04524-6774 TAD (25 /04525-1363 JMS I (WRQUAD /04526-4762 WRITE2, TAD I WADDR /04527-1752 ISZ WADDR /04530-2352 NOP /04531-7000 JMS I (WRQUAD /04532-4762 ISZ WCOUNT /04533-2353 JMP WRITE2 /04534-5327 JMS I (WRQUAD /04535-4762 TAD I (CHKSUM /04536-1761 CMA /04537-7040 AND (77 /04540-0374 CLL RTL /04541-7106 RTL /04542-7006 RTL /04543-7006 JMS I (WRQUAD /04544-4762 JMS I (CLRWT /04545-4760 IOT155, SDRC /04546-6776 AND C4000 /04547-0062 IOT156, SDLC /04550-6774 JMP I WRITE /04551-5700 WADDR, 0000 /04552-0000 WCOUNT, 0000 /04553-0000 PAGE READ, 0000 /04600-0000 DCA RCNT /04601-3256 TAD I READ /04602-1600 DCA RADDR /04603-3257 ISZ READ /04604-2200 TAD I READ /04605-1600 DCA RCOUNT /04606-3260 ISZ READ /04607-2200 TAD RCNT /04610-1256 JMS I (SEARCH /04611-4777 READ1, SDSS /04612-6771 JMP .-1 /04613-5212 IOT16A, SDRC /04614-6776 AND (77 /04615-0376 TAD (-32 /04616-1375 SNA /04617-7450 JMP .+5 /04620-5225 TAD (10 /04621-1374 SZA CLA /04622-7640 JMP READ1 /04623-5212 JMP IOT162 /04624-5274 JMS RDQUAD /04625-4307 JMS RDQUAD /04626-4307 JMS RDQUAD /04627-4307 AND (77 /04630-0376 SKP /04631-7410 READ2, JMS RDQUAD /04632-4307 DCA I RADDR /04633-3657 ISZ RADDR /04634-2257 NOP /04635-7000 ISZ RCOUNT /04636-2260 JMP READ2 /04637-5232 JMS RDQUAD /04640-4307 DCA I RADDR /04641-3657 ISZ RADDR /04642-2257 JMS RDQUAD /04643-4307 AND (7700 /04644-0373 DCA I RADDR /04645-3657 IOT157, SDST /04646-6772 SKP /04647-7410 JMS I [TYMERR /04650-4561 IOT158, SDRC /04651-6776 AND C4000 /04652-0062 IOT159, SDLC /04653-6774 JMS I (CHKCHK /04654-4772 JMP I READ /04655-5600 RCNT, 0000 /04656-0000 RADDR, 0000 /04657-0000 RCOUNT, 0000 /04660-0000 REVGRD, 0000 /04661-0000 IOT160, SDSS /04662-6771 JMP .-1 /04663-5262 IOT161, SDRC /04664-6776 AND (77 /04665-0376 TAD (-32 /04666-1375 SNA /04667-7450 JMP I REVGRD /04670-5661 TAD (10 /04671-1374 SZA CLA /04672-7640 JMP REVGRD+1 /04673-5262 IOT162, SDRC /04674-6776 AND C4000 /04675-0062 IOT163, SDLC /04676-6774 HLT /04677-7402 JMP .-1 /04700-5277 WRQUAD, 0000 /04701-0000 IOT164, SDSQ /04702-6773 JMP .-1 /04703-5302 IOT165, SDLD /04704-6775 M0200A, CLA+400 /04705-7600 JMP I WRQUAD /04706-5701 RDQUAD, 0000 /04707-0000 IOT166, SDSQ /04710-6773 JMP .-1 /04711-5310 IOT167, SDRD /04712-6777 JMP I RDQUAD /04713-5707 SBCXOR, 0000 /04714-0000 CMA /04715-7040 DCA SBWORD /04716-3345 TAD SBWORD /04717-1345 AND CHKSUM /04720-0344 CMA IAC /04721-7041 CLL RAL /04722-7104 TAD SBWORD /04723-1345 TAD CHKSUM /04724-1344 DCA CHKSUM /04725-3344 TAD SBWORD /04726-1345 CLL RTR /04727-7112 RTR /04730-7012 RTR /04731-7012 DCA SBWORD /04732-3345 TAD SBWORD /04733-1345 AND CHKSUM /04734-0344 CMA IAC /04735-7041 CLL RAL /04736-7104 TAD SBWORD /04737-1345 TAD CHKSUM /04740-1344 AND (77 /04741-0376 DCA CHKSUM /04742-3344 JMP I SBCXOR /04743-5714 CHKSUM, 0000 /04744-0000 SBWORD, 0000 /04745-2327 PAGE BKSRCH, TEXT /_BLOCK SEARCH FAILED/ GODBAD, TEXT /_GOOD BAD_/ MESS1, TEXT /_LOAD AND READ DATA REGISTER ERROR/ MESS2, TEXT /_LOAD AND READ COMMAND REGISTER ERROR/ MESS3, TEXT /_INITIALIZE TEST/ MESS4, TEXT /_CAF DID NOT CLEAR COMMAND REGISTER/ MESS5, TEXT /_CHECK SDLC, SDLD, SDRC, SDRD AND AC CLEAR/ MESS6, TEXT / SDLC/ MESS7, TEXT / SDRC/ MESS8, TEXT / SDLD/ MESS9, TEXT / SDRD/ MESS10, TEXT /_SINGLE LINE FLAG SKIP INSTRUCTION AND LOGIC/ MESS11, TEXT / OR SDSS ALWAYS SKIPS/ MESS12, TEXT / OR SDSS DOES NOT SKIP/ MESS13, TEXT / SDSS/ MESS14, TEXT / CAF/ MESS15, TEXT / SDST, SDSQ, OR SDLC/ MESS19, TEXT /_QUAD LINE FLAG SKIP INSTRUCTION AND LOGIC/ MESS20, TEXT / OR SDSQ ALWAYS SKIPS/ MESS21, TEXT / SET TOO SOON/ MESS22, TEXT / OR SDSQ DOES NOT SKIP/ MESS23, TEXT / SDSQ/ MESS28, TEXT / SDST, SDSS, OR SDLC/ MESS29, TEXT " COUNTER FLIP/FLOP NOT PROPERLY CLEARED" MESS30, TEXT /_TIMING ERROR SKIP INSTRUCTION AND LOGIC/ MESS31, TEXT / OR SDST ALWAYS SKIPS/ MESS32, TEXT / IN READ MODE OR SDST DOES NOT SKIP/ MESS33, TEXT / SDST/ MESS35, TEXT / STATUS BIT NOT SET IN COMMAND REGISTER/ MESS37, TEXT / IN WRITE MODE/ MESS38, TEXT " DOES NOT CLEAR WRITE FLIP/FLOP" MESS39, TEXT / NOT SET BY SDRC SDRD, OR SDLC/ MESS43, TEXT /_UP TO SPEED CIRCUITRY CHECK USING 'CLEAR MARK TRACK REGISTER' FEATURE/ MESS44, TEXT / 'GO'/ MESS45, TEXT / 'STOP'/ MESS46, TEXT / 'REV' TO 'FWD'/ MESS47, TEXT / 'FWD' TO 'REV'/ MESS48, TEXT / 'UNIT 0' TO 'UNIT 1'/ MESS49, TEXT / 'UNIT 1' TO 'UNIT 0'/ MESS50, TEXT /_'SELECT ERROR' TESTS/ MESS51, TEXT /_TIMING ERROR SET/ MESS52, TEXT /_NO SELECT ERROR STATUS FROM UNIT 1/ MESS53, TEXT /_'WRITE' SELECT ERROR/ MESS54, TEXT /_'WRITE LOCK OUT' TESTS/ MESS55, TEXT /_NO WRITE LOCK OUT STATUS FROM UNIT 0/ MESS56, TEXT /_'WRITE' WRITE LOCK OUT/ MESS57, TEXT /_DATA WRITTEN FORWARD/ MESS58, TEXT /_WRITE DATA FORWARD/ MESS59, TEXT /_READ DATA FORWARD/ MESS60, TEXT /_READ DATA BACKWARD/ MESS61, TEXT /_DATA WRITTEN BACKWARD/ MESS62, TEXT /_WRITE DATA BACKWARD/ MESS63, TEXT /_NO UNIT 0 SELECTED/ MESSNC, TEXT / NOT CLEARED BY/ MESSCL, TEXT / CLEARED BY/ MESSAS, TEXT / ALWAYS SET/ MESSNS, TEXT / DOES NOT SET/ MESSCR, TEXT /_/ MESSAC, TEXT /_AC/ MESSSL, TEXT /_SINGLE LINE FLAG/ MESSQL, TEXT /_QUAD LINE FLAG/ MESSTE, TEXT /_TIMING ERROR/ MESSME, TEXT /_MARK TRACK ERROR/ LIST1, 0000 /0 /06257-0000 MESS3 /1 /06260-5066 MESS5 /2 /06261-5121 MESS10 /3 /06262-5163 MESS19 /4 /06263-5262 MESS30 /5 /06264-5410 MESS43 /6 /06265-5571 LIST2, MESSCR /0 /06266-6213 MESSCR /1 /06267-6213 MESSAC /2 /06270-6214 MESSSL /3 /06271-6216 MESSQL /4 /06272-6227 MESSTE /5 /06273-6237 MESSME /6 /06274-6246 MESSCR /7 /06275-6213 MESSCR /10 /06276-6213 MESSCR /11 /06277-6213 MESSCR /12 /06300-6213 LIST3, 0000 /0 /06301-0000 MESSNC /1 /06302-6160 MESSCL /2 /06303-6170 MESSAS /3 /06304-6176 MESSNS /4 /06305-6204 LIST4, 0000 /0 /06306-0000 MESS4 /1 /06307-5077 MESS6 /2 /06310-5147 MESS7 /3 /06311-5152 MESS8 /4 /06312-5155 MESS9 /5 /06313-5160 MESS11 /6 /06314-5212 MESS12 /7 /06315-5225 MESS13 /10 /06316-5241 MESS14 /11 /06317-5244 MESS15 /12 /06320-5247 MESS20 /13 /06321-5310 MESS21 /14 /06322-5323 MESS22 /15 /06323-5332 MESS23 /16 /06324-5346 MESS28 /17 /06325-5351 MESS29 /20 /06326-5364 MESS31 /21 /06327-5435 MESS32 /22 /06330-5450 MESS33 /23 /06331-5472 MESS35 /24 /06332-5475 MESS37 /25 /06333-5521 MESS38 /26 /06334-5531 MESS39 /27 /06335-5551 MESS44 /30 /06336-5635 MESS45 /31 /06337-5640 MESS46 /32 /06340-5644 MESS47 /33 /06341-5654 MESS48 /34 /06342-5664 MESS49 //35 /06343-5677 MESS51 /36 /06344-5725 MESS52 /37 /06345-5736 MESS53 /40 /06346-5760 MESS55 /41 /06347-6007 MESS56 /42 /06350-6032 MESS58 /43 /06351-6061 MESS59 /44 /06352-6073 MESS60 /45 /06353-6105 MESS62 /46 /06354-6133 MESS63 /47 /06355-6146 LIST5, MESS1 /0 /06356-5021 MESS2 /1 /06357-5043 LIST6, MESS50 /0 /06360-5712 MESS54 /1 /06361-5773 PAGE MODIFY, JMS I XLAS /06400-4445 AND MODMS1 /06401-0221 DCA MODCON /06402-3223 TAD MODTAB /06403-1230 DCA MODPT1 /06404-3224 TAD MODSIZ /06405-1227 DCA MODCNT /06406-3226 MODLUP, TAD I MODPT1 /06407-1624 DCA MODPT2 /06410-3225 TAD I MODPT2 /06411-1625 AND MODMS2 /06412-0222 TAD MODCON /06413-1223 DCA I MODPT2 /06414-3625 ISZ MODPT1 /06415-2224 ISZ MODCNT /06416-2226 JMP MODLUP /06417-5207 HLT /06420-7402 MODMS1, 0030 /06421-0030 MODMS2, 7747 /06422-7747 MODCON, 0000 /06423-0000 MODPT1, 0000 /06424-0000 MODPT2, 0000 /06425-0000 MODCNT, 0000 /06426-0000 MODSIZ, -MODEND+MODTAB /06427-7461 MODTAB, .+1 /06430-6431 IOT1 /06431-0207 IOT2 /06432-0212 IOT3 /06433-0214 IOT4 /06434-0245 IOT5 /06435-0247 IOT6 /06436-0311 IOT7 /06437-0316 IOT8 /06440-0404 IOT9 /06441-0420 IOT10 /06442-0422 IOT11 /06443-0436 IOT12 /06444-0452 IOT13 /06445-0454 /IOT14B /06446-0603 IOT14 /06446-0604 IOT15 /06447-0611 IOT16 /06450-0616 SING1 /06451-0632 SING2 /06452-0642 IOT17 /06453-0650 IOT18 /06454-0660 SING3 /06455-0661 IOT19 /06456-0664 IOT20 /06457-0670 SING4 /06460-0677 IOT21 /06461-0702 IOT22 /06462-0706 SING5 /06463-0715 IOT23 /06464-0720 IOT24 /06465-0724 SING6 /06466-1000 IOT25 /06467-1002 IOT26 /06470-1004 IOT27 /06471-1007 IOT28 /06472-1010 /SING7 /06473-1020 /IOT29B /06473-1026 IOT29 /06473-1027 IOT30 /06474-1034 QUAD0 /06475-1035 IOT31 /06476-1036 IOT32 /06477-1040 IOT33 /06500-1045 IOT34 /06501-1050 IOT35 /06502-1055 IOT36 /06503-1057 IOT37 /06504-1064 IOT38 /06505-1067 QUAD1 /06506-1077 QUAD2 /06507-1107 IOT39 /06510-1115 IOT40 /06511-1125 QUAD3 /06512-1126 IOT41 /06513-1131 IOT42 /06514-1135 QUAD4 /06515-1200 IOT43 /06516-1203 IOT44 /06517-1207 QUAD5 /06520-1216 IOT45 /06521-1221 IOT46 /06522-1225 QUAD6 /06523-1234 IOT47 /06524-1236 IOT48 /06525-1240 IOT49 /06526-1244 IOT50 /06527-1250 IOT51 /06530-1263 IOT52 /06531-1264 IOT53 /06532-1266 IOT54 /06533-1271 IOT55 /06534-1300 /IOT56B /06535-1314 IOT56 /06535-1316 IOT57 /06536-1317 IOT58 /06537-1321 TIME0 /06540-1325 IOT59 /06541-1333 TIME1 /06542-1343 TIME2 /06543-1400 IOT60 /06544-1406 IOT61 /06545-1416 TIME3 /06546-1417 IOT62 /06547-1421 IOT63 /06550-1440 TIME4 /06551-1441 IOT64 /06552-1443 IOT65 /06553-1447 IOT66 /06554-1460 IOT67 /06555-1462 IOT68 /06556-1464 IOT69 /06557-1471 IOT70 /06560-1474 IOT71 /06561-1500 IOT72 /06562-1505 IOT73 /06563-1521 IOT74 /06564-1522 IOT75 /06565-1527 IOT76 /06566-1530 IOT77 /06567-1531 IOT78 /06570-1541 IOT82 /06571-1603 IOT83 /06572-1605 IOT84 /06573-1611 IOT85 /06574-1625 IOT86 /06575-1626 IOT87 /06576-1630 IOT88 /06577-1634 IOT89 /06600-1640 IOT90 /06601-1654 IOT91 /06602-1655 IOT92 /06603-1657 IOT93 /06604-1664 IOT94 /06605-1670 IOT95 /06606-1704 IOT96 /06607-1705 IOT97 /06610-1707 IOT98 /06611-1714 IOT99 /06612-1720 IOT100 /06613-2002 IOT101 /06614-2003 IOT102 /06615-2005 IOT103 /06616-2012 IOT104 /06617-2016 IOT105 /06620-2036 IOT106 /06621-2037 IOT107 /06622-2041 IOT108 /06623-2046 IOT109 /06624-2052 IOT110 /06625-2067 IOT111 /06626-2204 DISLUP /06627-2206 IOT112 /06630-2211 IOT113 /06631-2213 IOT114 /06632-2227 IOT115 /06633-2241 IOT116 /06634-2253 IOT117 /06635-2402 IOT118 /06636-2410 IOT119 /06637-2413 IOT120 /06640-2510 IOT121 /06641-2512 IOT122 /06642-2520 IOT123 /06643-2522 IOT124 /06644-2604 IOT125 /06645-2605 IOT126 /06646-2612 IOT127 /06647-2614 IOT128 /06650-2633 IOT129 /06651-2637 SELCT2 /06652-2652 IOT130 /06653-2656 /IOT131B /06654-2676 IOT131 /06654-2677 IOT132 /06655-2716 IOT133 /06656-2722 RSRCH0 /06657-3606 IOT134 /06660-3607 RSRCH1 /06661-3615 IOT135 /06662-3617 IOT136 /06663-3620 IOT13A /06664-3632 IOT137 /06665-3642 IOT138 /06666-3622 RSRCH2 /06667-3640 RSTURN /06670-3654 IOT139 /06671-4056 IOT140 /06672-4111 IOT141 /06673-4113 IOT142 /06674-4201 IOT143 /06675-4203 IOT144 /06676-4245 IOT145 /06677-4247 SRCH0 /06700-4406 IOT146 /06701-4407 SRCH1 /06702-4415 IOT147 /06703-4417 IOT148 /06704-4420 IOT149 /06705-4422 IOT14A /06706-4432 IOT150 /06707-4442 IOT15B /06710-4454 SRCH2 /06711-4440 IOT151 /06712-3733 IOT15A /06713-3734 IOT152 /06714-4522 IOT153 /06715-4524 IOT154 /06716-4272 IOT155 /06717-4546 IOT156 /06720-4550 IOT157 /06721-4646 IOT158 /06722-4651 IOT159 /06723-4653 IOT160 /06724-4662 IOT16A /06725-4614 READ1 /06726-4612 IOT161 /06727-4664 IOT162 /06730-4674 IOT163 /06731-4676 IOT164 /06732-4702 IOT165 /06733-4704 IOT166 /06734-4710 IOT167 /06735-4712 IOT168 /06736-4270 IOT169 /06737-4275 IOT170 /06740-4277 IOT171 /06741-2110 IOT172 /06742-0123 IOT173 /06743-0130 IOT174 /06744-0132 IOT175 /06745-0141 IOT176 /06746-0143 MODEND, IOT177 /06747-0145 $