11 22FL #LIS K0MODE>K0LIBRARY>K0ALLGEO 13 22_= ... SEG MODE,865,P.SMITH,LIBRARY 18 23YG # THIS SEGMENT DEALS WITH THE MODE COMMAND AND VARIOUS 19 24D6 # UTILITY FUNCTIONS FOR THE LIBRARIAN CHAPTERS INTERESTED 7 24XQ # IN ^MODES^ 4 25CB # 11 25X2 SEGENTRY K1MODE,QK1MODE 11 26BL SEGENTRY K2MODE,QK2MODE 11 26W= SEGENTRY K3MODE,QK3MODE 11 27*W SEGENTRY K4MODE,QK4MODE 11 27TG SEGENTRY K5MODE,QK5MODE 4 28*6 # 7 28SQ # CONSTANTS 4 29#B # 8 29S2 SNM +1 8 2=?L 4HM 8 2=R= SNT +1 8 2?=W 4HT 4 2??* ...[ 11 2??G ...[ SOME ERROR MESSAGE IDENTIFIERS 4 2??M ...[ 9 2??S ...SHMODUN +HMODUN 9 2??_ ...SHNVM +HNVM 9 2?#6 ...SHMODEAL +HMODEAL 9 2?#? ...SHNVMOD +HNVMOD 9 2?#D ...SHNSWBS +HNSWBS 9 2?#K ...SHNVM7 +HNVM7 10 2?#M ...SHMODREJ +HMODREJ 7 2?#Q ...[ SUBMESSAGES 9 2?#X ...SHUSEC +HUSEC 9 2?*4 ...SHALLD +HALLD 4 2?*9 ...[ 9 2?*B ...[ MODES FOR 9TRACK DECKS 4 2?*H ...[ 8 2?*N ...SMODES +3 9 2?*T ... 4HNRZI 8 2?B2 ... 4HPE 9 2?B7 ... 4HGCR 4 2?B# ...[ 11 2?BF ...[ TABLE OF MODES FOR #12 PERI 4 2?BL ...[ 8 2?BR ...SM12 +1 8 2?BY ... +0 8 2?C5 ... +2 4 2?C= ...[ 7 2?NX ...SMON +12 8 2#=6 SMODE +0 8 2#PQ +4 8 2*9B +8 8 2*P2 +12 8 2B8L +16 8 2BN= +20 8 2C7W +24 8 2CMG +28 8 2D76 +32 8 2DLQ +36 7 2DWH ... +40 7 2D_6 ... +44 8 2F6B SMCHC 4H#0 8 2FL2 4H#4 8 2G5L 4H#10 8 2GK= 4H#14 8 2H4W 4H#20 8 2HJG 4H#24 8 2J46 4H#30 8 2JHQ 4H#34 8 2K3B 4H#40 8 2KH2 4H#44 7 2KQR ... 4H#50 8 2KTB ... 4H#54 8 2L2L SMCHN +2 8 2LG= +2 8 2L_W +3 8 2MFG +3 8 2M_6 +3 8 2NDQ +3 8 2NYB +3 8 2PD2 +3 8 2PXL +3 8 2QC= +3 7 2QM3 ... +3 7 2QPL ... +3 9 2QWW UNMAX +#1000 5 2RBG TLINK 9 2RW6 PAIR LIBLOAD,1 4 2S*Q # 8 2STB # SUBROUTINES 4 2T*2 # 13 2TSL # SCVM 16 2W#= # THIS SR CHECKS THAT THE NUMBER GIVEN IN X4 9 2WRW # IS A VALID MT MODE 17 2WXR ...# FOR THE NRZI/PE ENHANCEMENT THE ENTRY CONDITIONS 16 2X3N ...# HAVE BEEN CHANGED SO THAT THE MODE IS TO BE 12 2X7K ...# FOUND IN A CPAR/GNUMCON BLOCK 12 2X?G # EXIT IF NOT,OTHERWISE EXIT+1 12 2XR6 # SETS X1=FX1,X2=FX2;LINK X7. 4 2Y=Q SCVM 11 2YCX ... MHUNT 3,CPAR,GNUMCON 8 2YFL ... LDX 0 A1(3) 7 2YH* ... SBN 0 1 17 2YK4 ... BNZ 0 SCVM4 [J IF MORE THAN 1 NO. 9 2YLR ... LDX 4 A1+1(3) 14 2YQB LDX 1 FX1 [SET X1 18 2_=2 LDX 2 SMON(1) [NUMBER OF POSSIBLE MODES 7 2_PL SCVM2 SMO 2 10 329= TXU 4 SMODE-1(1) 14 32NW BCC SCVM1 [FOUND 15 338G BCT 2 SCVM2 [TRY AGAIN 8 33N6 LDX 2 FX2 5 33XY ...SCVM4 15 347Q EXIT 7 0 [NOT FOUND 8 34MB SCVM1 LDX 2 FX2 9 3572 STO 4 AWORK3(2) 14 35LL EXIT 7 1 [VALID 4 366= # 4 3689 ...[ 15 368W ...[ SUBROUTINE TO CHECK LEGALITY OF 9-TRACK MODE 4 369H ...[ 9 36=8 ...SCVM9 LDX 0 ANUM(2) 8 36=T ... ANDN 0 #7777 7 36?G ... SBN 0 5 8 36#7 ... BPZ 0 (7) 9 36#S ... LDX 0 SMODES(1) 9 36*F ... LDX 4 APARA(2) 7 36B6 ...SCV91 SMO 0 9 36BR ... TXU 4 SMODES(1) 8 36CD ... BCS SCV92 7 36D5 ... EXIT 7 1 8 36DQ ...SCV92 BCT 0 SCV91 7 36FC ... EXIT 7 0 4 36G4 ...[ 4 36HB ...[ 12 36J3 ...[ SUBROUTINE TO SWITCH 7-TRACK MODES 4 36JN ...[ 5 36KW SWITCHQA 8 375G LPROP 3,0 8 37K6 #SKI K6MODE>199-199 9 384Q SWITRACE 0,MOPROPS 16 38JB ANDN 0 #200 [9 TRACK TAPE? 8 3942 BZE 0 SWQ1 8 39HL LDX 0 GSIGN 7 3=3= EXIT 7 0 15 3=GW SWQ1 LCAP 3,0 [CAPABILITIES 8 3?2G #SKI K6MODE>199-199 9 3?G6 SWITRACE 0,MOCAPS 15 3?_Q STO 0 AWORK2(2) [SAVE THEM 21 3#FB ANDN 0 #10 [DENSITY SWITCHABLE BY PROCESSOR ? 16 3#_2 BNZ 0 SWQ5 [J. IF NOT 1974 8 3*DL LDN 0 #14 21 3*Y= ANDS 0 AWORK3(2) [ADJUST DENSITY TO PRESENT SETTING 8 3BCW #SKI K6MODE>299-299 10 3BXG SWITRACE 0,MODENSWD 8 3CC6 LMODEQ 3,0 16 3CWQ ANDN 0 #60 [CURRENT DENSITY 9 3DBB ORS 0 AWORK3(2) 8 3DW2 BRN SWQ3 8 3F*L SWQ5 LDN 0 #40 18 3FT= ANDX 0 AWORK3(2) [HIGH DENSITY REQUIRED? 15 3G#W BZE 0 SWQ3 [J. IF NOT 8 3GSG #SKI K6MODE>299-299 10 3H#6 SWITRACE 0,MODEHDEN 7 3HRQ LDN 0 4 17 3J?B ANDX 0 AWORK2(2) [J. IF NOT AVAILABLE 8 3JR2 BZE 0 SWQ2 17 3JY7 ... LDN 0 8 [SHORT GAP REQUIRED 17 3J_W ... ANDX 0 AWORK3(2) [ WITH HIGH DENSITY ? 14 3K3K ... BZE 0 SWQ6 [J IF NOT 18 3K5# ... JNOTMT21S 3,SWQ2 [ONLY ALLOWED ON MT21S 8 3K73 ... BRN SWQ4 7 3K=L SWQ3 LDN 0 8 17 3KQ= ANDX 0 AWORK3(2) [SHORT GAP REQUIRED 8 3KYG ... BZE 0 SWQ6 8 3LPG #SKI K6MODE>299-299 10 3M96 SWITRACE 0,MODESGAP 7 3MNQ LDN 0 2 9 3N8B ANDX 0 AWORK2(2) 16 3NN2 BNZ 0 SWQ4 [J. IF AVAILABLE 7 3P7L SWQ2 NGN 0 1 7 3PM= EXIT 7 0 4 3PSN ...SWQ6 9 3PWG ... JNOTMT21S 3,SWQ4 20 3PY# ... HUNT 1,CPAR,GPERCON [MT21S AND LONG GAP REQUESTED 8 3Q26 ... BNG 1 SWQ7 17 3Q3Y ... LDN 0 1 [READ OR WRITE SPEC 9 3Q5Q ... ANDX 0 A1+3(1) 15 3Q7J ... BZE 0 SWQ7 [J IF NOT 9 3Q9B ... ANDX 0 A1+2(1) 15 3Q?8 ... BNZ 0 SWQ2 [J IF WRITE 4 3Q*2 ...SWQ7 19 3QBS ... LDN 0 8 [SET SHORT GAP FOR MT21S 9 3QDL ... ORS 0 AWORK3(2) 9 3QJ= ...SWQ4 LDX 0 AWORK2(2) 16 3QLG SRL 0 3 [SWITCHABLE BIT 8 3R66 LDX 1 FX1 7 3RKQ EXIT 7 0 4 3S5B # 15 3SK2 # ENTRY POINT 1 8 3T4L # MODE COMMAND 5 3TJ= QK1MODE 16 3W3W SPARABEG 1,SNM(1) [MODE PARAMETER 10 3WHG MHUNT 3,CPB,CUNI 9 3X36 LDX 0 ANUM(3) 8 3XGQ BPZ 0 P1 11 3Y2B P2 COMERR JPARMIS,HMODE2 17 3YG2 P1 BZE 0 P2 [PARAMETER IS NULL 10 3Y_L LDX 5 JPARNUM(3) 8 4847 ... CHNUMCON 1,P20 19 486Q ... PICKREP 4 [SAVE REPLY TO CHNUMCON IN X4 10 487R ... LDX 0 CONTEXT(2) 7 4886 ... ANDN 0 1 8 488S ... BZE 0 XNUSE 17 4897 ...[ USER CONTEXT - CHECK MODE PARAMETER OK AND GO TO MODEA 9 489G ... TESTREPN OK,NVMUS 8 489T ... CALL 7 SCVM 8 48=8 ... BRN NVM 9 48=H ... ACROSS MODEA,1 4 48=W ...[ 5 48?9 ...XNUSE 15 48#2 STOZ AWORK1(2) [^PERMANENT^ 9 48RL SPARABEG 1,SNT(1) 10 49?= MHUNT 3,CPB,CUNI 9 49QW LDX 0 ANUM(3) 16 4==G BNG 0 P6 [NOT TEMPORARY 10 4=Q6 LDX 6 JPARNUM(3) 7 4?9Q LDN 0 1 15 4?PB STO 0 AWORK1(2) [TEMPORARY 8 4#92 BRN P7 15 4#NL P6 NGN 6 1 [NO PARAMETER 4 4#WW ...P7 9 4*?B ... MFREE CPB,CUNI 7 4*FL ... SPARAPASS 10 4*MW MHUNT 3,CPB,CUNI 9 4B7G LDX 0 ANUM(3) 8 4B=C ... BPZ 0 XNALL 16 4B?B ...[ NO UNIT PARAMETER - SO CHANGING MODE ON ALL DECKS 7 4B#* ... FREECORE 3 7 4B*# ... PUTREP2 4 9 4BB? ... TESTREPN OK,NVMAL 8 4BC= ... CALL 7 SCVM 8 4BD9 ... BRN NVM 9 4BF8 ... ACROSS MODEA,2 4 4BG7 ...[ 5 4BH6 ...XNALL 8 4BS# ... BZE 0 P7 10 4DKL P8 LDX 0 JPARNUM(3) 7 4F5= TXU 0 5 8 4F?G ... BCC P7 7 4G4G SBX 0 6 8 4G=Q ... BZE 0 P7 10 4GQB ... LDX 6 JPARNUM(3) 11 4H=2 ...[ KEEP THE MODE CUNI BLOCK ABOUT 10 4HPL ... HUNT2 3,CPB,CUNI 10 4J9= ... NAMETOP 3,FILE,FNAME 10 4JNW ... PARSORTX XBRK,6,GROPE 10 4K8G ...[ RENAME THE MODE CUNI BLOCK 10 4KN6 ... MHUNT 3,FILE,FNAME 10 4L7Q ... NAMETOP 3,CPB,CUNI 7 4LMB ... SPARANOX 6 10 4M72 ... HUNT 3,CPAR,JSCE 8 4MLL ... BPZ 3 PONE 6 4N6= ... ENDCOM 15 4NKW ...PONE LDEX 5 JSCEA(3) [DECK NUMBER 15 4P5G ... LDCH 7 JSCEA(3) [DEVICE TYPE 17 4PK6 ... LDX 6 JSCEP(3) [DEVICE LIST ADDRESS 7 4Q4Q ... FREECORE 3 7 4QJB ... LDX 3 6 7 4R42 ... SBN 7 5 14 4RHL ... BZE 7 P11 [MT DECK 16 4S#L P12 COMERR HNSW [NOT SWITCHABLE 7 4SJD ...XBRK COMBRKIN 4 4SS= P11 7 4T2S ... PUTREP 4 9 4T3= ... TESTREPN OK,TR9 18 4T52 ... LDX 6 3 [SAVE DEVICE LIST ADDRESS 16 4T65 ... CALL 7 SCVM [VALIDATE MODE 15 4T78 ... BRN NVMF [J IF INVALID 19 4T8? ... LDX 3 6 [RESTORE DEVICE LIST ADDRESS 17 4T8M ...[ CHECK FOR 9-TRACK DECK - ILLEGAL MODE SPECIFIED IF SO 8 4T8R ... LPROP 3,0 8 4T8X ... ANDN 0 #200 8 4T93 ... BNZ 0 NVMFU 4 4T9B ...P11A 9 4T?W CALL 7 SWITCHQA 8 4TRG #SKI K6MODE>99-99 9 4W?6 SWITRACE 0,MOCHREP 15 4XQ2 BPZ 0 P13 [AVAILABLE 9 4Y9L OUTNUM 4,OCTAL 17 4YP= COMERR HMNAV [MODE NOT AVAILABLE 8 4_8W WRNG OUTNUM 5,0 14 4_NG COMERR ERWRONGED [WRONG 15 5286 XALOC COMERR JALOC [ALLOCATED 9 52MQ P13 JWRONG 3,WRNG 9 537B JALLOC 3,XALOC 16 53M2 SETALLOC 3 [MARK ALLOCATED 9 546L STO 3 CPPTR(2) 17 54L= SETMODEQ 3,AWORK3(2) [RESET CURRENT MODE 8 555W #SKI K6MODE>199-199 11 55KG SWITRACE AWORK3(2),MODEQ 9 5656 LDX 0 AWORK1(2) 18 56JQ BNZ 0 P17 [J. IF TEMPORARY SWITCH 9 574B LDX 0 AWORK3(2) 8 57J2 #SKI K6MODE>199-199 9 583L SWITRACE 0,SMODE 9 58H= DFSET 3,SMODE,0 10 592W P17 DFJUMPS 3,LOAD,PLOAD 17 59GG CLALLOC 3 [DE-ALLOCATED DECK 9 5=26 STOZ CPPTR(2) 8 5=FQ #SKI K6MODE>199-199 9 5=_B SWITRACE 3,MODEND 6 5?F2 ENDCOM 5 5?YL PLOAD 19 5#D= DFCLEAR 3,TSN [CLEAR VARIOUS BITS IN APIA 9 5#XW DFCLEAR 3,TBITS 13 5*CG OPENSYS XBRKIN,DOCUMENT,GENERAL 10 5*X6 P19 SDSEARCH P18,GEOG,5 6 5BBQ DELETE 14 5BWB CLOSETOP [DOCUMENT 9 5CB2 GETACT ACTDOC 9 5CTL LDX 6 CPPTR(2) 9 5D*= LDX 2 BPTR(2) 9 5DSW STO 6 CPPTR(2) 10 5F#G LINKSET 2,TLINK(1) 16 5FS6 FPUT [START LIBLOAD 5 5G3Y ...NDCOM 14 5G?Q ENDCOM [FINISH 10 5GRB P18 GEOERR 1,NOSYSDOC 7 5H?2 P20 COMBRKIN 4 5H?4 ...[ 8 5H?6 ...[ 9-TRACK DECK CODE 8 5H?8 ...[ ****************** 17 5H?= ...[ EXAMINES MODE PARAMETER TO SEE IF IT IS PE,NRZI OR GCR 9 5H?# ...[ IF NOT MODE ILLEGAL 17 5H?B ...[ THEN CHECKS PROPERTIES OF TAPE DECKS AND ENVIRONMENT 15 5H?D ...[ TO SEE IF CAN SPECIFY MODES FOR SPECIFIED DECK 17 5H?G ...[ 9-TRACK DECKS ARE ONLY SOFTWARE SWITCHABLE WITH DME 4 5H?J ...[ 4 5H?Q ...TR9 10 5H*2 ... MHUNT 2,CPB,CUNI 17 5H*= ... HUNT2 2,CPB,CUNI [FIND MODE CPB-CUNI 8 5H** ... CALL 7 SCVM9 8 5H*B ... BRN NVMF 5 5HF2 ...STMODE 8 5HF= ... LDX 2 FX2 9 5HFG ... STO 0 AWORK4(2) 14 5HFK ...[ IF 7-TRACK DECK THEN THE MODE IS ILLEGAL 8 5HFL ... LPROP 3,0 8 5HFM ... ANDN 0 #200 8 5HFN ... BZE 0 NVMFU 17 5HFP ...[ CHECK IF THE DECK IS HARDWARE OR SOFTWARE SWITCHABLE 8 5HFQ ... LPROP 3,0 7 5HFR ... ANDN 0 4 8 5HFS ... BZE 0 P12 8 5HFW ... LPROP 3,0 8 5HFY ... ANDN 0 3 20 5HG= ... BXE 0 AWORK4(2),NALR [J IF DECK ALREADY IN THIS MODE 7 5HG* ... LDN 0 3 9 5HGB ... TXU 0 AWORK4(2) 18 5HGC ... BCS XNGCR [GCR MODE NOT REQUIRED 11 5HGD ... JBC NMODA,3,CAPMODGCR 5 5HGF ...XNGCR 9 5HGH ... JWRONG 3,WRNG 9 5HGQ ... JALLOC 3,XALOC 7 5HH2 ... SETALLOC 3 9 5HH= ... STO 3 CPPTR(2) 11 5HH# ...[ NOT SOFTWARE SWITCHABLE IF DME 9 5HHD ... JENVNOT P14A,DME 19 5HHG ... LDN 0 #12 [SET UP DEVICE LIST FOR PERI 10 5HHQ ... DCA 3,DLA,0,MODE 7 5HJ2 ... LDN 0 1 10 5HJ= ... DCA 3,STO,0,COUNT 9 5HJ* ... SMO AWORK4(2) 9 5HJB ... LDX 0 SM12-1(1) 9 5HJC ... STO 0 AWORK4(2) 9 5HJG ... LDN 0 AWORK4(2) 10 5HJQ ... DCA 3,STO,0,CTSA 8 5HK2 ... GPERI ,2 9 5HK8 ... LDX 4 CPRW1(2) 8 5HKB ... BZE 4 SWOK 7 5HKC ... CLALLOC 9 5HKD ... STOZ CPPTR(2) 13 5HKF ...[ UNABLE TO SWITCH UNIT %A TO MODE %B 10 5HKG ... LDX 4 SHMODREJ(1) 8 5HKH ... BRN XERRA 4 5HKJ ...P14A 7 5HKQ ... CLALLOC 9 5HL2 ... STOZ CPPTR(2) 10 5HL5 ...[ NOT SWITCHABLE BY SOFTWARE 8 5HL6 ... BRN P14 4 5HLG ...SWOK 9 5HLQ ... LDX 0 AWORK1(2) 18 5HM2 ... BZE 0 NOTEMP [J IF NO TEMP PARAM GIVEN 9 5HM= ... MTINFORM HMODET 5 5HMG ...NOTEMP 9 5HMQ ... LDX 3 CPPTR(2) 10 5HN2 ... DFJUMPS 3,LOAD,PLOAD 7 5HN= ... CLALLOC 9 5HNG ... STOZ CPPTR(2) 6 5HNQ ... ENDCOM 4 5HQL # 15 5J== # ENTRY POINT 2 14 5JPW # THIS IS FOR THE MOCH AND MOCHAS MACROS 5 5K9G QK2MODE 16 5KP6 LDX 3 ACOMMUNE1(2) [DLIST POINTER 8 5L8Q #SKI K6MODE>299-299 9 5LNB SWITRACE 3,K2MODE 8 5M82 LTYPE 3,0 14 5MML SBN 0 5 [MT TYPE 8 5N7= BZE 0 Q1 10 5NLW GEOERR 1,DLISTPTR 11 5P6G Q1 MHUNT 1,CPAR,GPERCON 9 5PL6 LDX 0 A1+2(1) 16 5Q5Q ANDN 0 #74 [MODE SPECIFIED ? 8 5QKB BNZ 0 Q2 8 5R52 Q3 SETREP OK 5 5RJL UP 15 5S4= Q2 LMODEQ 3,0 [CURRENT MODE 9 5SHW LDX 6 A1+1(1) 8 5T3G ANDN 6 #74 7 5TH6 TXU 6 0 14 5W2Q BCC Q3 [AGREE 9 5WGB STO 6 AWORK3(2) 8 5X22 #SKI K6MODE>99-99 9 5XFL SWITRACE 6,MOCHAS 9 5X_= CALL 7 SWITCHQA 8 5YDW BPZ 0 Q4 8 5YYG SETREP NOTAV 5 5_D6 UP 10 5_XQ Q4 LDX 4 ACOMMUNE2(2) 15 62CB BZE 4 Q3 [J. IF MOCH 17 62X2 SETMODEQ 3,AWORK3(2) [SWITCH CURRENT MODE 9 63BL SETREP SWITCHED 5 63W= UP 4 64*W # 15 64TG # ENTRY POINT 3 9 65*6 # FOR MONICA MACRO 5 65SQ QK3MODE 15 66#B SETNCORE 2,3,AONBS,GROT [FOR REPLY 11 66S2 MHUNT 2,CPAR,GPERCON 9 67?L LDX 4 A1+1(2) 8 67R= ANDN 4 #74 9 68=W LDX 5 SMON(1) 7 68QG R2 SMO 5 10 69=6 TXU 4 SMODE-1(1) 14 69PQ BCC R1 [FOUND 8 6=9B BCT 5 R2 9 6=P2 GEOERR 1,MODE3 7 6?8L R1 SMO 5 10 6?N= LDX 0 SMCHN-1(1) 15 6#7W STO 0 A1(3) [NR OF CHARS 7 6#MG SMO 5 10 6*76 LDX 0 SMCHC-1(1) 9 6*LQ STO 0 A1+1(3) 5 6B6B UP 4 6CJQ ...[ 9 6CK3 ...[ SOME ERROR ROUTINES 9 6CK# ...[ ********************* 4 6CKK ...[ 19 6CLD ...[ OUTPUT THE UNIT NUMBER FIRST - THE COMERR WILL OUTPUT THE MODE 10 6CLP ...[ IN THE SECOND CUNI BLOCK 4 6CM2 ...[ 8 6CM? ...XERRA OUTNUM 5,0 4 6CMJ ...[ 9 6CMT ...XFREE MFREE CPB,CUNI 4 6CN6 ...[ 7 6CNC ...XCOMM COMERRX 4 4 6CNN ...[ 15 6CN_ ...[ NOT A NUMBER - SEE IF 9-TRACK MODE SPECIFIED 10 6CP= ...NVM7 MHUNT 2,CPB,CUNI 8 6CPH ... CALL 7 SCVM9 8 6CPS ... BRN NVM 13 6CQ5 ...[ 9-TRACK MODE ILLEGAL HERE - OUTPUT IT 9 6CQB ... LDX 4 ANUM(2) 8 6CQM ... ANDN 4 #7777 11 6CQY ... OUTPARAM 4,APARA,CPB,CUNI 9 6CR9 ... LDX 4 SHNVM7(1) 8 6CRG ... COMERRX 4,5 4 6CRR ...[ 8 6CS4 ...[ NOT A VALID MODE 9 6CS* ...NVM LDX 4 SHNVM(1) 8 6CSL ... BRN XCOMM 4 6CSX ...[ 9 6CT8 ...NVMF LDX 4 SHNVM(1) 8 6CTF ... BRN XFREE 10 6CTQ ...[ DECK ALREADY IN GIVEN MODE 10 6CW3 ...NALR LDX 4 SHMODEAL(1) 8 6CW# ... BRN XERRA 14 6CWK ...[ NOT A VALID MODE FOR SPECIFIED TAPE DECK 10 6CWW ...NVMFU LDX 4 SHNVMOD(1) 8 6CX7 ... BRN XERRA 8 6CXD ...[ MODE UNAVAILABLE 10 6CXP ...NMODA LDX 4 SHMODUN(1) 8 6CY2 ... BRN XERRA 10 6CY? ...[ NOT SWITCHABLE BY SOFTWARE 10 6CYJ ...P14 LDX 4 SHNSWBS(1) 8 6CYT ... BRN XCOMM 15 6C_6 ...[ ALL DECKS SPECIFIED-SO 9-TRACK MODE INVALID 9 6C_C ...NVMAL LDX 5 SHALLD(1) 8 6C_N ... BRN NVM7 13 6C__ ...[ USER CONTEXT - SO 9-TRACK MODE INVALID 9 6D2= ...NVMUS LDX 5 SHUSEC(1) 8 6D2H ... BRN NVM7 4 6D2S ...[ 4 6D3B ...[ 4 6D3M ...[ 21 6D3Y ...[********************************************************************** 4 6D49 ...[ 9 6D4G ...XBRKIN GEOERR 1,XBRKIN 4 6D4W # 15 6DJG # ENTRY POINT 4 9 6F46 # FOR FREEMT MACRO 4 6FHQ # 5 6G3B QK4MODE 9 6GH2 LDX 3 CPPTR(2) 8 6H2L LPROP 3,0 14 6HG= ANDN 0 #200 [9 TRACK? 8 6H_W BNZ 0 U2 15 6JFG LMODEQ 3,7 [CURRENT MODE 16 6J_6 DFLOAD 3,SMODE,6 [STANDARD MODE 7 6KDQ TXU 6 7 18 6KYB BCC U2 [ALREADY IN STANDARD MODE 8 6LD2 #SKI K6MODE>99-99 9 6LXL SWITRACE 6,K4MODE 8 6MC= LCAP 3,0 17 6MWW ANDN 0 #10 [DENSITY SWITCHABLE ? 8 6NBG BNZ 0 U7 8 6NW6 LDN 0 #60 16 6P*Q ANDX 0 7 [CURRENT DENSITY 8 6PTB LDN 1 #60 16 6Q*2 ANDX 1 6 [STANDARD DENSITY 7 6QSL TXU 0 1 18 6R#= BCS U3 [J. IF SWITCH REQUIRED 8 6RRW #SKI K6MODE>199-199 9 6S?G SWITRACE 0,MOSWREQ 8 6SR6 U7 JUNBUSY 3,U4 17 6T=Q COOR3 #41 [CO-ORDINATE IF BUSY 8 6TQB BRN U7 8 6W=2 U4 SETMODEQ 3,6 7 6WPL U2 FREEPER 5 6X9= UP 4 6XNW U3 16 6Y8G GETACT ACTDOC [MESSAGE ACTIVITY 9 6YN6 LDX 2 BPTR(2) 16 6_7Q STO 3 CPPTR(2) [DLIST POINTER 9 6_MB LINKSET 2,TLM(1) 8 7272 #SKI K6MODE>299-299 9 72LL SWITRACE 3,MOMESS 16 736= FPUT [START ACTIVITY 8 73KW BRN U2 4 745G # 15 74K6 # ENTRY POINT 5 13 754Q # FOR OUTPUT OF MESSAGE WHEN DECK 17 75JB # CANNOT BE SWITCHED TO STANDARD MODE ON UNLOADING 5 7642 QK5MODE 8 76HL LGEOG ,5 8 773= #SKI K6MODE>99-99 9 77GW SWITRACE 5,K5MODE 14 782G OUTNUM 5,0 [DECK NR 14 78G6 SETNCORE 2,3,AONBS,GROT [BUFFER 13 78_Q LMODEQ ,6 [MODE 9 79FB LDX 4 SMON(1) 7 79_2 V2 SMO 4 10 7=DL TXU 6 SMODE-1(1) 8 7=Y= BCC V1 8 7?CW BCT 4 V2 9 7?XG GEOERR 1,MODE5 7 7#C6 V1 SMO 4 10 7#WQ LDX 0 SMCHN-1(1) 8 7*BB STO 0 A1(3) 7 7*W2 SMO 4 10 7B*L LDX 0 SMCHC-1(1) 9 7BT= STO 0 A1+1(3) 12 7C#W OUTPARAM A1(3),A1+1,AONBS,GROT 8 7CSG MTINFORM HMODE 7 7D#6 SUICIDE 9 7DRQ TLM PAIR MODE,5 10 7F?B MENDAREA 50,K99MODE 4 7FR2 #END 8 ____ ...57671526000300000000