RGDFS. $(1). . THIS SECTION CONTROLS PROCESSING OF FILE 61 ITEMS. . PROCESSES DIAGNOSTIC ITEMS FROM FILES 50 AND 51. VI123* TZ CRPH6 J VI280 RFF61 VI03,VI280. TNZ DMPFLG J $+3 LMJ B11,DMPF61 . EDIT FILE 61 ITEMS +100,0 . WALKBACK SZ,S5 VI530 . CLEAR POSSIBLE SIGN BITS SZ,S6 VI530 . CLEAR POSSIBLE SIGN BITS . BRANCH ON F61 ID. L,S1 A1,VI03 ID VI000380 SZ XTF SZ SPCF SZ ARGF E SZ VIBNKF . CLEAR BANKING FLAG SZ VICMBK . USED TO BANK CERTAIN EXTERNAL SYMBOLS SZ VISP1 SZ VI14 TNG,M A1,22 J VI125,A1 VI000391 J N6ND VI125 J VI200 TYPE 0 VI000420 J VI210 TYPE 1 VI000430 J VI220 TYPE 2 VI000440 J VI230 TYPE 3 VI000450 J VI240 TYPE 4 VI000460 J VI250 LABEL VI000470 J VI260 STATEMENT SEQ VI000480 J VI270 INTERNAL SEPARATOR VI000490 J VI280 END F61 VI000500 J VICREL . COUNTER RELATIVE 131K J VSKB J VSKC 11 (W.B.) J VSKD J VSKL CHANGE LOCATION COUNTER J VINTMP 131K J VIARG 0 SYM RELOC TRACE J VIARG 1 TEMP RELOC TRACE J VIARG 2 TRACE J VIARG 3 TRACE J VIARG 4 ABS RELOCATION TRACE J VIREDB . RELOCATABLE DEBUG INFO J VIFTNA . TYPES FOR FTN COMPATIBLE CALLING SEQ VSKD L,M A1,0100 S A1,SPCF L,H2 A1,CRSTC1 S A1,VI09 LA A1,VI04 HOL NAME SA A1,VI06 TO VI17 TABLE TNZ,S3 VI00 J VI500 DO BINARY LMJ B10,VI600 L A5,VI04 SA A5,VI17 L,M B1,1 S,S3 B1,VISP1 J VI220B+3 VIARG S A1,ARGF TRACE AN,M A1,017 SET BACK TO CORRECT RELOCATION TYPE TRACE S,S1 A1,VI03 TRACE J VI125,A1 TRACE VSKC L,S3 A2,VI03 . GET TYPE OF W.B. TE,M A2,6 . 6 IS SHORT LIST IO ITEM J VSKE . NOT SHORT LIST S,S6 A2,VISP1 . INDICATE SHORT LIST ITEM L,S2 A2,VI03 . TEST FOR TEMP RELOCATION TNE,M A2,1 . J VSKCJ . IT WAS TEMP L,M A2,02100 . CHANGE ID TO TYPE ZERO S,H1 A2,VI03 . AND INDICATE 18 BIT RELOCATION J VI200 . GO TO TYPE 0 SECTION VSKCJ L,M A2,010000 S,H1 A2,VI03 J VI210 VSKE L,M A1,0100 . WALKBACK CODE S A1,SPCF L A0,VI04 . MINUS ZERO IS DEMAND OR CTS CALL SSA A0,18 . SIMULATE L,XH1 JP A0,NOTMUS JNZ A0,NOTMUS L,H2 A0,CTSLNB . CTS LINE NUMBER TZ A0 IF ZERO USE LINE NUMBER TNZ,S2 CRFLGS NON ZERO IF CTS CALL L,H1 A0,CTSLNB . SEQUENTIAL LINE NUMBER SN,H1 A0,VI04 OUTPUT LINE NO. AS A NEGATIVE NOTMUS . L,S2 A1,VI04 I/O CONTINGENCY NO. TZ CRLBCM L,S3 A1,VI04 UNIVAC MODE S A1,VI22CJ L,S3 A1,VI03 131K TNE,M A1,3 131K S,H1 A1,SPCF . SPECIAL WALKBACK FLAG 131K TNZ,S6 CR131K SZ,H1 SPCF 131K L,S2 A1,VI03 RELOC TYPE J VI125,A1 JUMP AGAIN VSKB L,M A1,1 J VSKE+1 . STORE CODE FOR UNIT . THIS SECTION PROCESSES INSTRUCTION TYPE 0 ITEMS . FROM FILE 61. VIIMAD L,S3 A0,VI04 . NO 18 BIT 131K AND,M A0,017 . IMEDIATES 131K JNZ A1,VR213J . WITH B REGS L,S1 A0,VI04 . TEST FOR 131K TNZ,S1 BSTC1+4 . IMMEDIATES OK WITH BANKING TG,M A0,070 . INSTUCTIONS 131K J VR213J . WITH J FACTORS L A0,VI09 . ODD BANK 13J2 TZ,S1 2,A2 . REMAINS 131K JB A0,$+2 . B1 REL 131K S A2,VI18BT 131K SZ VICMNT . CLEAR ANY COMMENTS 131K J VR213 131K VR211 JNB A2,$+2 . RSA WILL STAY OUT OF IMEDIATES 131K A,H2 A1,*VI99 . UNLESS BIT IS SET 131K L,H2 A2,VI04 AND,M A2,*0 OR A1,A3 S,H2 A2,VI04 PRESERVE INDIRECT BIT J VR203+4 131K . 'THIS SECTION' STARTS HERE. VI200 L A1,VI04 DSL A1,16 ISOLATE Z VI000530 SSL A2,20 VI000540 S,H2 A2,VI99 ADDRESS INDIRECTLY VI000550 TNZ,S1 CRNCCB . TEST IF ROUTINE WILL APPEAR IN COMMON J VI200CM L,H2 A0,BSTC1+4 . SYMBOL TO RELOCATE ARRAYS TE,H2 A2,N0LA . TEST IF THIS IS NSCR$$ J VI200CM S A2,VICMBK SZ VI18BT VI200CM L,M B4,1 131K L,H1 A0,1,A2 131K AND,M A0,07777 131K S A1,VI09 . SET STC 131K L,S2 A0,VI03 131K S,S1 A0,VI03 131K L,S2 A3,VI04 . GET 131K AND,M A3,074 . J FCATOR 131K L,XH2 A5,VI03 131K AND,M A0,014 SSL A1,2 MSI,M A1,0177777 . COMPUTE NUMBER OF 65K INCREMENTS TO AD TP VI03 . TEST FOR OFFSET MOVED A A5,A1 TZ A1 AN,H2 A5,1,A2 SUBTRACT RSA TO GET REAL OFFSET TE,M A0,060 . ADD CRMXOF TO GET OFFSET FOR EDITING J $+3 A,XH2 A5,CRMXOF AN,M A0,020 . REMOVE USUAL 18 BIT ADDRESSING BIT TP VI03 131K S A5,VICMNT+1 . COMMENT IF OFSET WAS MOVED 131K L A3,0,A2 . NAME 131K S A3,VI06 . TO U EDIT 131K TEP,M A0,020 . ON THIS BIT 131K J VR211-3 . FORCE 18 BITS 131K SZ A1 131K TZ,H1 SPCF . WALKBACK LEAVES HERE 131K J VI207 131K TN 1,A2 131K J VR213 131K S A3,VICMNT . NAME TO COMMENT 131K TZ,S1 BSTC1+4 . TEST FOR BANKING J VI200Y TNZ SPCF 131K TZ ARGF TEST FOR ARGUMENT TRACE J VR213 . ALL ARGS SKIP OUT HERE VI200Y . TZ,S1 2,A2 131K J VR210 . NOT COMMON 131K L,H2 A13,VI09 . GET POINTER AN A13,CRSTC4 L A1,A13 AN,M A1,1 TG,H2 A1,CRC J VR210Q TZ,S1 BSTC1+4 . TEST IF BANKING ACTIVE S A13,VIBNKF . SHOW BANKING ACTIVE VR210Q SLJ FNLBCK . GET COMMON BLACK NAME L A1,3,B10 TOP,M A0,2 . DONT EDIT BLOCK NAME 131K S A1,VI06 131K TZ ARGF J VR213 VR210 TNE,M A4,070 . TEST FOR IMEDIATE 131K J VIIMAD 131K VR213J L A1,CRSTC1 . DONT L A2,VI09 . SAVE STORAGE CLASS S A1,VI09 . RELOCATE 131K SZ VI06 . CLEAR U 131K . TNZ ARGF TNZ,S1 BSTC1+4 J VR213 TZ VIBNKF . TREAT COMMON BLOCKS AS LOCAL ARRAYS J $+3 TE,H2 A2,CRSTC6 . TEST FOR LOCAL ARRAYS J VR213 S A2,VI09 . RESTORE STORAGE CLASS L A2,CRSTC6 L,S3 A0,VI04 AND,M A0,017 . TEST IF INDEXING PRESENT JNZ A1,VR213 L,S3 A1,BSTC1,A2 . SUPPLY INDEXING FOR CONSTANT L,S1 A1,BSTC1,A1 . SUBSCRIPTS IN BANKING MODE OR,H1 A1,VI04 S,H1 A2,VI04 VR213 L,S1 A1,VI03 AND,M A1,034 . THESE BITS IMPLY OFFSET IS CORRECT JNZ A2,$+3 TP VI03 SZ,H2 VI03 . CLEAR OFSET IF NOT THERE 131K L,M B4,2 INDEX W3(SYMT) L,H1 A1,*VI99 DSL A1,3 ISOLATE CLASS SSL A2,33 L,M B4,1 TNE,M A2,2 J VR333 TE,M A2,1 TEST CLASS EQUAL ONE J VR200 L,H1 A1,*VI99 AND,M A1,07777 TE,M A2,07776 J VR200 L,H2 A1,*VI99 TRANSFER L(SYMT) S,H2 A1,VI99 L A1,CRSTC2 131K S A1,VI09 131K VR200 L,XH2 A1,VI03 . OFSET 131K TZ SPCF 131K J VI203 . IO ARGS 131K A,S3 A1,VI03 . ADD SMALL OFFSET 131K S,H2 A1,VI03 131K TZ ARGF TEST FOR ARGUMENT TRACE J VI203 . ALL ARGS BUT WALKBACK LEAVE HERE 131K VI205 L,S2 A2,VI03 . WHAT TO DO WITH ME FLAGS 131K TZ VI18BT 131K J VR211 131K JB A2,$+2 131K A,H2 A1,*VI99 . ADD RSA 131K DSA A1,16 TRUNCATE TO 16 TZ,S6 CR131K JNZ A1,VI100+1 . CHALENGE ITEM 131K TN A1 J VR203 S,S6 A1,VI530 . GIVE SIGN BITS TO ROR SSL A1,6 . SIMULATE S,T3 S,S5 A1,VI530 VR203 L A1,VI04 SSL A1,16 ATTACH U VI000690 DSL A1,20 COMPLETED INSTR TO A2 VI000700 S A2,VI04 TRANSFER VI000710 L,S3 A3,VI03 TNE,M A3,4 STATIC DIAGNOSTIC WB PACKET J VI204 TNZ,S6 CR131K J VI2JCK TZ VI18BT J VI2JCK TZ,S1 VI03 J VI2JCK L,H2 A1,LCN . CURRENT COUNTER TO GENERATE UNDER TNE,M A1,LC9 . TEST FOR CHARACTER VECTOR J VI2JCK L,S3 A1,VI04 AND,M A1,017 JNZ A2,VI2JCK TP *VI99 SLJ VI100 ITEM SHOULD BE INDEXED VI2JCK TZ,S6 CR131K LMJ B4,VIPUTB . PLACE B1 131K VI204 L,M B4,2 131K L,H1 A1,*VI99 DSL A1,3 SSL A2,33 TNE,M A2,3 J VL700 TE,M A2,7 FORMAT REFERENCE TEST J VI201 NO SSL A1,3 ISOLATE D DSL A1,3 SSL A2,33 TNE,M A2,1 J LABLT TE,M A2,2 TEST D J VI201 NO FORMAT L A1,VI09 STC TE A1,CRSTC9 J VI392 ERROR VI201 SLJ VIBNK TNZ,S3 VI00 J VI500 DO BINARY OUTPUT VI000730 LMJ B10,VI600 DO SKELETON EDIT VI000740 TZ SPCF SDIT I/O ARG J VI220A L,M B4,2 INDEX W3(SYMT) VI000750 L,H1 A1,*VI99 FIRST HALF W3(SYMT) VI000760 DSL A1,3 ISOLATE CLASS VI000770 SSL A2,33 VI000780 J VI202,A2 VI000790 VI203 L A0,VI09 131K TZ,S6 CR131K TNE A0,CRSTC1 . OR NO RELOCATION 131K J VI205 131K L,S3 A2,VI03 TNE,M A2,4 STATIC DIAGNOSTIC WALKBACK PACKET J VI205 L,S3 A2,VI04 131K AND,M A2,017 . B REG FEILD 131K JNZ A3,VI206 . NO 18 BIT IF B REG THERE 131K TG A0,CRSTC4 . TEST FOR LOC CNTR 131K J $+2 . HERE FOR COMMON OR EXT REF 131K JB A0,VI205 . BANK ONE 131K S B11,VI18BT . BANK 2 ABSOLUTE 131K SZ VICMNT 131K J VR211+1 131K VI206 L A0,CRSTC1 131K S A0,VI09 . NON EDITTING 131K SZ VI06 131K J VI205 131K VI207 S B11,VI18BT . WALKBACK ABSOLUTE 131K A,H2 A1,*VI99 . ADD RSA 131K S,H2 A1,VI04 131K J VI204 131K VR333 S A2,XTF J VR200 VL700 L,H2 A0,VI99 L(SYM ENTRY) L,XH2 A1,2,A0 W3(SYM ENTRY) JN A1,VI201 A A1,(0400000) SET FLAG S,H2 A1,2,A0 L,H2 A1,VC10 LOC(LINK) JZ A1,VL710 S,H2 A0,3,A1 LINK TO PRECEDING ITEM VL705 S,H2 A0,VC10 SET FOR NEXT ITEM J VI201 VL710 S,H1 A0,VC10 INITIATE STRING J VL705 VI202 J VI300 VARIABLE OR ARGUMENT VI000800 J VI300 INTERNAL FUNCTION OR SUB VI000810 J VI300 VI000820 J VI310 CONSTANT VI000830 J VI335 PARAMETER VI000840 J VI300 SUB ARGUMENT VI000850 J VI335 INTRINSIC FUNCTION VI000860 J VI320 LABEL, FORMAT, HOL ARG VI000870 . THE NEXT SECTION CHANGES THE LOCATION COUNTER THAT CODE IS . BEING GENERATED UNDER VSKL L,H2 A2,VI03 L,H2 A1,VI04 S A2,LCN . SYMBOLLIC LOCATION COUNTER TZ A1 TEST FOR USING OLD VALUE S A1,LRSTC1,A2 TZ MOPTON DON'T EDIT STATIC DIAGNOSTIC INFO J VI115 UNLESS M OPTION IS ON TE,M A2,LC7 . LOC CNTR OF STATIC DIAG INFO J VSKLC L,S3 A1,VI00 S A1,SVI00 SAVE LIST FLAG SZ,S3 VI00 STOP LIST J VI115 VSKLC L A1,SVI00 RESTORE LIST FLAG TE,M A1,07777 FIRST TIME S,S3 A1,VI00 J VI115 $(2) . VSKLB* + 0 SVI00* +0,07777 . SAVES VI00 WHEN EDITING STATIC DIAG. PACKETS $(1) . . THIS SECTION EDITS SYMBOLIC OPERANDS FIELD FOR . OPTIONAL LISTING. VI300 SZ VI3300 VI3005 L,M B1,0 L,M B2,5 L A5,VI14 SLJ LKFB L A1,VI31 H,I VI000920 JNB A1,VI301 JUMP ON NO I VI000930 L,M A4,'*' SLJ BLDS VI301 TZ,H2 VI3300 J VI3310 TZ,H1 VI3300 J VI3330 L A5,VI06 JNZ A5,$+3 131K L A5,('0 ') 131K TNZ,H2 VI03 131K SLJ LKFB LMJ B8,VI304 CONVERT, OUTPUT OFFSET VI000980 VI3320 L A2,VI32 JZ A2,VI303 JUMP ON NONE VI001000 L,M A4,',' SLJ BLDS L A1,VI31 ISOLATE H VI001030 SSL A1,1 VI001040 JNB A1,VI302 JUMP ON NO H VI001050 L,M A4,'*' SLJ BLDS VI302 L A5,VJ94,A2 B-MNEMONIC VI001080 SLJ LKFB VI303 SLJ DETL S,S3 B1,VI3034 L A0,VJ92 BLANKS L A1,VJ92 DS A0,LINE$+17 DS A0,LINE$+19 E$DITR ED$PKT E$COL 83 E$COPY 6,GLABL E$COL 99 TNZ,S6 VISP1 . SHORT IO LIST ITEM J VI303B . NO L,H1 A4,VI04 . GET SHORT IO FLAG AND TYPE BITS E$OCTV A4 . OUTPUT IN OCTAL E$CHAR ',' . ADD A COMMA VI303B . L,S3 A1,VI3034 MSI,M A1,6 L,M A0,VI17 LMJ B11,ECOPY$ VI303A E$DITX L A1,VJ92 S A1,GLABL TNZ VICMNT 131K TZ VICMNT+1 131K J $+2 131K J VI3037 131K L,M B1,0 131K L,M B2,5 131K L,M A4,'(' 131K SLJ BLDS 131K L A5,VICMNT 131K JZ A5,$+3 131K SLJ LKFB 131K SZ VICMNT 131K L A5,(' ') 131K L A1,VICMNT+1 131K SZ VICMNT+1 131K LMJ B8,VI304+1 131K L,M A4,')' 131K SLJ BLDS 131K SLJ DETL 131K S B1,VI3034 E$DITR ED$PKT E$COL 118 L A1,VI3034 MSI,M A1,6 L,M A0,VI17 LMJ B11,ECOPY$ E$DITX VI3037 TZ SHORT LMJ B11,TPACK SHORT FORM LIST FOR TTY'S LMJ B11,PRINT8 WRITE THE LINE J VI500 DO BINARY OUTPUT VI001220 VI3310 L,M A4,'(' SLJ BLDS L B5,VI53 L,M B6,3 VI3314 L A5,LINE$+17,*B5 SLJ LKFD VI3318 JGD B6,VI3314 L,M A4,')' SLJ BLDS J VI3320 VI3330 L A5,LINE$+19 SLJ LKFD L A5,LINE$+20 SLJ LKFD J VI3320 $(2) . LKFD J -0 J LKFDJ $(1) . LKFDJ . L,M A4,0 DSC A4,66 JZ A4,*LKFD TNE,M A4,' ' J LKFD+1 SLJ BLDS J LKFD+1 VI3040 L,M A4,'+' 131K TE A5,(' ') 131K J VI305+1 131K J VI305 131K VI304 L,XH2 A1,VI03 OFFSET VI001300 JZ A1,0,B8 SKIP OUTPUT IF ZERO VI001310 JP A1,VI3040 131K LN A1,A1 COMPLEMENT VI001340 L,M A4,'-' VI305 SLJ BLDS LMJ B11,VI812 CONVERT, OFFSET VI001370 L A5,VI20 VI001380 SLJ LKFB J 0,B8 EXIT VI001400 . THIS SECTION EDITS REFERENCES TO CONSTANTS. VI310 E$DITR ED$PKT E$COL 102 L,S3 A2,*VI99 FIRST HALF OF W3(SYMT) SSL A2,3 ISOLATE TYPE J VI312,A2 JUMP ON TYPE VI001430 VI312 J VI375 J VI330 INTEGER VI001450 J VI340 REAL VI001460 J VI350 D.P. J VI350 COMPLEX VI001480 J VI375 J VI370 FRACTIONAL VI001500 J VI375 OCTAL VI001510 VI330 E$DECV VI06 INTEGER VI332 E$DITX L,M A2,1 S A2,VI3300 J VI3005 VI340 L,M A0,11*/6+7 L A1,VI06 FLOATING POINT TP A1 A,M A0,0100 LMJ B11,EFLS1$ J VI332 VI3400 L,M A0,16*/6+11 DOUBLE PRECISION L A2,VI16 LEAST SIGNIFICANT PART L A1,VI06 MOST SIGNIFICANT PART TP A1 A,M A0,0100 LMJ B11,EFLS2$ J VI332 VI350 L,H2 B4,VI99 L,H2 A1,2,B4 SSC A1,16 SSL A1,20 L A1,0,A1 S A1,VI16 IMAG PART VI001790 TE,M A2,4 J VI3400 D.P. L,M A0,9*/6+5 COMPLEX L A1,VI06 REAL PART TP A1 A,M A0,0100 LMJ B11,EFLS1$ E$CHAR ',' L,M A0,9*/6+5 L A1,VI16 IMAG PART TP A1 A,M A0,0100 LMJ B11,EFLS1$ J VI332 VI370 L,M B4,2 L,H1 A2,*VI99 FIRST HALF W3(SYMT) SSC A2,12 SSL A2,35 JB A2,VI370A L A0,VI06 FRACTIONAL SZ A1 DSA A0,12 DS A0,VI14 L,M A0,02001 DFP A0,VI14 L,M A0,12*/6+10 TP A1 A,M A0,0100 LMJ B11,EFLG2$ J VI332 VI375 L,S6 A1,VI35 TNE,M A1,027 J VI377 VI370A E$CHAR '0' E$OCTF 12,VI06 OCTAL J VI332 VI377 L,XH1 A0,VI06 LMJ B11,EDECV$ E$CHAR ',' L,XH2 A0,VI06 LMJ B11,EDECV$ J VI332 . THIS SECTION EDITS REFERENCES TO LABELS. VI320 . DSL A1,3 TYPE TO A2 SSC A1,3 SSL A1,33 ISOLATE D J VI322,A1 JUMP ON D VI322 J VI335 0 UNASSIGNED J VI300 1 STATEMENT LABEL J VI300 . 2 FORMAT J VI390 3 HOLLERITH ARGUMENT J VI335 4 UNASSIGNED J VI395 5 MAY BE NAMELIST J VI395 6 MAY BE NAMELIST J VI395 7 MAY BE NAMELIST VI335 L A1,VJ64 S A1,VI06 J VI300 VI390 L A1,VJ101 TRANSFER MNEMONIC VI002260 S A1,VI06 VI002270 J VI300 GO EDIT ADDRESS MODIFIERS VI002280 VI395 . SSL A2,33 ISOLATE TYPE TE,M A2,7 T=7 INDICATES NAMELIST J VI335 J VI300 VI392 LMJ B11,P6EMW PHVID +VI20 PHVID +((020)) PHVID +$ PHVID +0 PHVID SZ VI04 . CLEAR UNREF FORMAT LABER. PHVIDG L A1,CRSTC1 S A1,VI09 . RESET RELOCATION J VI201 . OUTPUT CODE LABLT L A1,VI09 TE A1,CRSTC8 INSTRUCTIONS IN DBANK TNE A1,CRSTC7 STORAGE CLASS FOR STATIC DIAG. WALKBACK J VI201 TE A1,CRSTC2 INSTRUCTIONS TNE A1,CRSTC3 . TEMPS J VI201 TNE A1,CRSTC9 . CONSTANTS J VI201 TZ CRFL . DON'T WRITE IF FATAL J $+6 . ERRORS OCCURED LMJ B11,P6EMW PHVIDG +VI20 PHVIDG +((021)) PHVIDG +$ PHVIDG +0 PHVIDG L A1,(0370000,0) A,H2 A1,VI20 INTERNAL SEQUENCE NUMBER S A1,VI04 . SET UNREF LABEL TO ILLEGAL OP J LABER . PROCESS INSTRUCTION TYPE 1 VI002290 CXTMFL EQU 040000 . FLAG FOR CHARACTER TEMP VI210 L A1,VI04 SZ VI32 SZ VI33 DSL A1,16 ISOLATE Z VI002310 SSL A2,20 VI002320 TOP,M A2,CXTMFL AN,M A2,1 ADJUST TEMP TNZ SPCF 131K A,S3 A2,VI03 . SMALL OFFSET 131K L,S2 A1,VI03 TZ ARGF J $+3 TEP,M A1,020 S A1,VI18BT L,H2 A1,VI03 131K S,H2 A2,VI03 TRANSFER VI002330 TOP,M A2,CXTMFL A,H2 A2,SVLRST+2 . CONSTANTS AND TEMPS DSL A2,16 SHIFT U VI002350 L A2,VI04 COMPOSE INSTRUCTION VI002360 SSL A2,16 VI002370 DSL A2,20 VI002380 TEP,M A3,CXTMFL AN,M A3,CXTMFL S A3,VI04 TRANSFER VI002390 JZ A1,$+3 131K L A1,0,A1 131K S A1,VICMNT . COMMENT TEMPS 131K L,H2 A1,CRSTC3 STC VI002400 L,M A4,CXTMFL TEP,H2 A4,VI03 L,H2 A1,CRSTC9 . FOR CHARACTER TEMP S A1,VI09 VI002410 TZ CRLIBR 131L J VI212 V131K VI211 TZ,S6 CR131K LMJ B4,VIPUTB . PLACE B1 131K SLJ VIBNK TNZ,S3 VI00 TEST LIST OPTION VI002420 J VI500 DO BINARY OUTPUT VI002430 LMJ B10,VI600 DO BASE EDIT VI002440 L A1,VJ98 VI002450 L,H2 A4,VI03 TEP,M A4,CXTMFL L A1,('N$CHAR') TEP,M A4,CXTMFL AN,M A4,CXTMFL S,H2 A4,VI03 S A1,VI06 TRANSFER $T VI002460 J VI300 FINISH EDIT VI002470 VI212 TNZ ARGF TEST FOR ARGUMENT TRACE J VI211 . NOT AN ARG 131L L,S4 A1,VI04 TOP,M A1,020 131L J VI211 . NOT AN INDIRECT ARG 131L L A1,CRSTC3 S,S6 A1,BPLIB+5 SSL A1,6 S,S5 A1,BPLIB+5 . SIMULATE S,T3 L,M A3,VI211+2 131L VI214 . L,H2 A1,VI219 . LOC OF BPLIB 131L JNZ A1,VI213 . BPLIB INITIALIZED 131L L A1,CRLAB 131L S A1,FTTMP+2 L A2,('MEMSQ$') S A2,FTTMP SZ FTTMP+1 L A0,(-0106,-1) S A0,MLINK L A0,(3,FTTMP) LMJ B11,MTLT J 0,A3 . SYMBOL TABLE OVERFLOW,PREVENT LOOPING AU,M A1,1 131L S A2,CRLAB 131L AN A1,CRC 131L S,H2 A1,BPLIB+4 . EXTRNL SYMBL NO. 131L L A1,LCN L A1,CRSTC1,A1 S,H1 A1,BPLIB+2 131L L,M A1,BPLIB 131L S A1,VI219 . BPLIB INITIALIZED FLAG 131L VI213 S,H1 A1,VI219 . FLAG TO VI500 FOR SIX WORD BOP CALL 131L J 0,A3 $(2) . VI219* + 0 131L BPLIB + 060000,0 131L + 0 131L + 0,0 131L +0212,02522,0 + 0 131L +0111,01700,0 FTTMP RES 3 $(1) . . PROCESS INSTRUCTION TYPE 2 VI002480 VI220 . L A1,VI04 DSL A1,16 ISOLATE Z VI002570 SSL A2,20 VI002580 L,H1 A3,1,A2 S,S6 A3,VI09 SSL A3,6 S,S5 A3,VI09 . SIMULATE S,T3 L,H2 A2,1,A2 S,H2 A2,VI03 TRANSFER Z VI002590 SSC A2,16 DSL A1,20 S A2,VI04 L,S2 A1,VI03 . 18 BIT FLAG FOR BANK ONE 131K JZ A1,$+3 131K S A1,VI18BT 131K J $+3 131K TZ,S6 CR131K LMJ B4,VIPUTB . PLACE B1 131K SLJ VIBNK TNZ,S3 VI00 TEST LIST OPTION VI002510 J VI500 DO BINARY OUTPUT VI002520 LMJ B10,VI600 DO BASE EDIT VI002530 L A1,VJ99 TRANSFER $$ VI002540 L,S5 A2,VI09 . COUNTER TO RELOCATE BY LSSL A2,6 . SIMULATE L,T3 A,S6 A2,VI09 SA A1,VI06 J VI300 FINISH EDIT VI002600 VI220A L,M B2,5 I/O ARG EDIT L,M B1,0 L A2,VI22CJ L,S3 B11,VI03 ARG TYPE EX VIIOCE,B11 VI220C SLJ LKFB 131K TZ CRLBCM IN UNIVAC MODE ALL IS FAIR IN INDEX FIELD J VI220B+1 L,S3 A1,VI04 131K AND,M A1,017 131K JZ A2,VI220B+1 131K TZ BSTC1+4 . TEST FOR BANKING J $+3 TE,M A2,1 131K J VI100+1 131K L,M A4,',' 131K SLJ BLDS 131K L A5,VJ94,A2 . EDIT INDEX REGISTER TNE,H2 A2,CRSTC9 . TEST DBANK INSTRUCTIONS L A1,('N$CHAR') VI220B SLJ LKFB SLJ DETL VI220D S,S3 B1,VISP1 E$DITR ED$PKT E$COL 83 E$COPY 6,GLABL E$CHAR ' ' E$CHAR '+' E$COL 99 L,H2 A0,SPCF . IS THIS UNIT NUMBER? TE,M A0,1 . UNIT IS 1 J VI220E . NOT UNIT L,H1 A4,VI04 . FLAG BITS FOR UNIT E$OCTV A4 . OUTPUT IN OCTAL E$CHAR ',' . ADD A COMMA VI220E . L,S3 A1,VISP1 MSI,M A1,6 L,M A0,VI17 LMJ B11,ECOPY$ J VI303A VIIOCE J VIWB WALKBACK POINTER L A5,VIIOCT-1,A2 CONTINGENCY NAME J VIFM FORMAT REF OR UNIT NO. J VIWB2 W. B. WALKBACK J VIWSD . S.D. WALKBACK J SHTLS1 . SHORT LIST IO ITEM SHTLS1 E$DITR ED$PKT . RE-ENTER EDIT MODE E$COL 90 . POSITION TO COLUMN 90 E$CHAR '+' . OUTPUT + SIGN E$COL 99 . POSITION TO 99 L,H1 A4,VI04 . OFFSET OF SHORT LIST ITEM E$DECV A4 . OUTPUT IN DECIMAL E$CHAR ',' . OUTPUT A COMMA L,H2 A4,VI04 . LENGTH OF SHORT LIST ITEM E$DECV A4 . OUTPUT IN DECIMAL J VI303A VIWSD . L A1,('(S.D.)') STATIC DIAGNOSTIC WALKBACK J VIWB1 VIWB2 . L A1,('(W.B.)') J VIWB1 VIWB L A1,('(W.B.)') S A1,GLABL L A1,('0 ') VIWB1 L A5,('000000') L,H1 A4,VI04 L,M R1,5 DSL A4,3 SSC A5,3 JGD R1,$-2 SLJ LKFB L,M A4,',' SLJ BLDS L A5,A1 J VI220B VIFM TZ,S6 SPCF J VIUNT L,M B4,0 L A5,*VI99 NAME IN SYM J VI220C 131K VIUNT L,M B4,2 L,S3 A1,*VI99 CLASS AND,M A1,7 L,M B4,0 TE,M A2,3 J VIUNT1 . NOT A CONST L,M A4,'(' SLJ BLDS L A1,*VI99 VAR NAME OR CONST VALUE LMJ B11,VI812 CONVERT CONST L A5,VI20 LOAD RESULT SLJ LKFB L,M A4,')' SLJ BLDS J VI220C+1 131K VIUNT1 L A5,*VI99 J VI220C 131K $(2) . VI22CJ +0 $(1) . . PROCESS INSTRUCTION TYPE 3 VI002610 VI230 L,H2 A1,LCN L,H2 A1,CRSTC1,A1 S A1,VI09 VI002630 L,S2 A1,VI03 . 18 BIT FLAG FOR BANK ONE 131K JZ A1,$+3 131K S A1,VI18BT 131K J $+3 131K TZ,S6 CR131K LMJ B4,VIPUTB . PLACE B1 131K L,M A5,1 L,S3 A1,VI04 AND,M A1,016 JZ A2,VI230A AN A1,A5 S,S3 A1,VI04 131L L,H2 A1,LCN L,H2 A1,CRSTC1,A1 S,S6 A1,BPLIB+5 SSL A1,6 S,S5 A1,BPLIB+5 LMJ A3,VI214 131L VI230A SLJ VIBNK TNZ,S3 VI00 TEST LIST OPTION VI002640 J VI500 DO BINARY OUTPUT VI002650 LMJ B10,VI600 DO BASE EDIT VI002660 L A1,VJ102 TRANSFER $ VI002670 S A1,VI06 VI002680 J VI300 FINISH EDIT VI002690 VIFTNA . TYPES FOR FTN COMPATIBLE CALLING SEQ L,H2 A1,CRSTC1 . ABSOLUTE RELOCATION S A1,VI09 TNZ,S3 VI00 . TEST LIST OPTION J VI500 . DO BINARY OUTPUT L A0,VJ92 . BLANKS L A1,A0 DS A0,LINE$+17 DS A0,LINE$+19 E$DITR ED$PKT . OPEN EDITING E$COL 1 E$OCTF 5,110 . SEQUENCE NUMBER E$COL 36 . SKIP TO COLUMN 36 L A0,LCN L A0,CRSTC1,A0 L,M A1,2 . EDIT LOCATION COUNTER NUMBER LMJ B11,EOCTF$ E$CHAR ' ' L A0,LCN L A0,LRSTC1,A0 L,M A1,6 . EDIT RELATIVE LOCATION LMJ B11,EOCTF$ E$COL 48 . SKIP TO COLUMN 48 L A7,VI04 L,M A8,5 . COUNT SIX GROUPS VIFTNB SZ A6 LDSL A6,3 . EXTRACT OCTAL DIGIT A,M A6,060 . CONVERT TO CHARACTER L A0,A6 E$CHAR . EDIT THE DIGIT LDSL A6,3 . EXTRACT NEXT OCTAL DIGIT A,M A6,060 . CONVERT TO CHARACTER L A0,A6 E$CHAR . EDIT THE DIGIT E$CHAR ' ' . INSERT A BLANK E$CHAR ' ' . INSERT A BLANK JGD A8,VIFTNB E$DITX . CLOSE OUT EDIT PACKAGE TZ SHORT LMJ B11,TPACK . SHORT FORM LIST FOR TTY LMJ B11,PRINT8 . WRITE THE LINE J VI500 . OUTPUT BINARY . PROCESS INSTRUCTION TYPE 4 VI002700 VI240 L,H2 A1,CRSTC1 S A1,VI09 VI002720 L,H2 A1,VI04 A,XH2 A1,VI03 TNZ SPCF 131K A,S3 A1,VI03 . SMALL OFFSET 131K S,H2 A1,VI04 TNZ,S3 VI00 TEST LIST OPTION VI002730 J VI500 DO BINARY OUTPUT VI002740 LMJ B10,VI600 DO BASE EDIT VI002750 TZ SPCF EDIT I/O ARG J VI220A SZ,H2 VI03 TNZ VI56 VI002751 J VL520 TZ VI32 J VL525 L,H2 A1,VI04 VI002753 DSL A1,16 SSL A2,20 TNG,M A2,034 VI002756 J VL510 VI002757 TG,M A2,0120 VI002758 J VL505 VI002759 TG,M A2,0100 VI002760 J VL507 VL505 L A1,A2 LMJ B11,VI812 S A3,VI06 J VI300 VL507 AN,M A2,0100 L A1,VJ62,A2 J VL511 VI002784 VL510 L A1,VJ61,A2 VL511 DSL A1,6 SSL A2,30 TE,M A2,',' J VL511 VL515 L,M A2,'.' SSC A2,6 DSC A1,66 S A1,VI06 J VI300 VL520 L A1,VI34 TNG,M A1,016 J VL525 L A1,VI32 JNZ A1,VL525 SZ VI31 L,XH2 A1,VI04 VL522 S A1,VI06 E$DITR ED$PKT E$COL 114 E$DECV VI06 E$DITX L,M A1,1 S,H1 A1,VI3300 SZ,H2 VI3300 J VI3005 VL525 L A0,VI04 DSL A0,16 SSL A1,20 J VL522 . PROCESS LABEL VI002799 VI250 L,H2 A1,VI03 L,H2 A1,1,A1 L A0,LCN TE A1,LRSTC1,A0 COMPARE PHASE 5 AND 6 COUNTERS J VI257 VI258 TNZ,S3 VI00 J VI115 GO GET NEXT F61 VI002810 L,H2 A1,VI03 L(SYM(N)) VI002820 L A1,0,A1 S A1,VI20 VI255 TNZ,S5 VI00 J VI251 VI002850 E$DITR ED$PKT E$COL 83 E$COPY 6,GLABL E$DITX TZ SHORT LMJ B11,TPACK SHORT FORM LIST FOR TTY'S LMJ B11,PRINT8 VI251 L A1,VI20 S A1,GLABL L,M A1,1 SAY LABEL WORKING VI002910 S,S5 A1,VI00 VI002920 J VI115 GO GET NEXT F61 VI002930 VI257 S A1,LRSTC1,A0 LMJ B11,P6EMW +VI20 +0,(026015) LOC. COUNTERS DISAGREE +$ +0 J VI258 . . THE FORMAT OF THE F61 ITEMS ARE AS FOLLOWS . VI03 : A,B,C,D . VI04 : INFO WORD LOWER 18 BITS IS RELOCATED BY COUNTER SPECIFIED BY C . A IS 24, D IF NON ZERO IS AN OFFSET FOR INFO WORD. . B IF NON ZERO IS 18 BIT FLAG . VIREDB L,H2 A0,VI03 . POSSIBLE OFFSET A,H2 A0,VI04 S,H2 A0,VI04 L,S3 A0,VI03 . COUNTER TO RELOCATE BY S A0,VI09 L,S2 A0,VI03 S A0,VI18BT S B11,SPCF SET WALK BACK FLAG TNZ,S3 VI00 . LIST FLAG J VI500 LMJ B10,VI600 EDIT OCTAL DL A0,LINE$+9 L,S1 A2,LINE$+11 . GET LAST OCTAL CHARACTER L A3,(' ') DS A0,VI17 L,M A0,060 . FIELDATA ZERO S,S1 A0,VI17 . PUT ON THE LEADING ZERO S A3,VI17+2 . BLANK THIRD WORD S,S1 A2,VI17+2 . PUT LAST CHARACTER IN 3RD WORD L,M B1,3 . GET READY TO MOVE 3 WORDS J VI220D VICREL . COUNTER RELATIVE INSTRUCTION 131K L,H2 A1,VI03 131K S A1,VI09 131K L,H2 A1,VI04 131K S,H2 A1,VI03 131K L,S2 A1,VI03 . 18 BIT FLAG 131K JZ A1,$+3 131K S A1,VI18BT 131K J $+3 131K TZ,S6 CR131K LMJ B4,VIPUTB . PLACE B1 131K VICRLA SLJ VIBNK TNZ,S3 VI00 J VI500 131K LMJ B10,VI600 131K L A1,('CNTR-$') 131K S A1,VI06 131K L A1,VI09 131K L A1,CRSTC1,A1 A,M A1,060 131K S,S5 A1,VI06 131K J VI300 131K VINTMP . PROCESS INITIALIZE TEMP ITEM 131K L A0,LCN SAVE L A1,LRSTC1,A0 LOCATION S A1,PSSTC COUNTER L,H2 A1,VI04 131K AN,M A1,1 . TEMP LOC 131K A,H2 A1,SVLRST+2 . + LENGTH OF CONSTANTS S A1,LRSTC1,A0 S A1,VI01 . TO LOC 131K . IF AN INITIALIZED TEMP ITEM HAS AN O77 IN S2 OF WORD 1 THEN H1 OFREGIST . WORD 2 IS A TEMP NUMBER WHOSE ADDRESS SHOULD BE INITIALIZED REGIST L,S2 A1,VI03 REGIST TNE,M A1,077 REGIST J VINTMA REGIST TNE,M A1,076 . TEMP REPRESENTING CHARACTER FUNCTION J VINTCH AND,M A1,040 L A4,A2 A4 NEGATIVE IF LOC IS NEGATIVE L,H1 A1,VI04 . SYM 131K L,H2 A2,1,A1 . RSA 131K A,XH2 A2,VI03 . + OFFSET 131K TZ A4 LN A2,A2 TP A2 S,S6 A2,VI530 SSC A2,6 . SIMULATE S,T3 S,S5 A2,VI530 LSSC A2,6 S A2,VI04 . TO ITEM 131K L,H1 A1,1,A1 . STC RELOCATED BY 131K AND,M A1,07777 131K TZ A4 LN A2,A2 S A2,VI09 131K VINTMB . REGIST SN,H2 A2,VI18BT . SET 18 BIT 131K SN,H2 A2,VI36BT L,M A1,$+3 131K S,H2 A1,VI507 . SET RETURN 131K J VI500 . FROM BOP CALLER 131K L,M A1,VI115 . FOLLOWS RESTORATIONS 131K S,H2 A1,VI507 131K SZ VI36BT L A1,LCN RESTORE L A2,PSSTC LOCATION S A2,LRSTC1,A1 COUNTER J VI115 131K VINTMA L A1,CRSTC3 REGIST S A1,VI09 STORAGE CLASS TO RELOCATE BY REGIST L,H2 A1,VI03 TEMP AN,M A1,1 REGIST A,H2 A1,SVLRST+2 LENGTH OF CONSTANTS S A1,VI04 RELATIVE STORAGE ASSIGNEMENT REGIST J VINTMB REGIST VINTCH L A1,CRSTC9 . COUNTER REPRESENTING CHARACTER TEMP S A1,VI09 L,H2 A1,VI03 . TEMP NUMBER AN,M A1,CXTMFL . FLAG FOR CHARACTER TEMP S,H2 A1,VI04 J VINTMB . PROCESS STATEMENT TYPE VI002940 VI260 L,H2 A1,VI03 DSL A1,15 ISOLATE SEQUENCE NO. VI002960 SSL A2,21 VI002970 S,H2 A2,VI10 SAVE SEQ NO. VI002980 VI261 TNZ,S2 VI00 TEST END F60 VI003040 J VI400 NO, PROCESS NEXT F60 VI003050 J VI115 YES, TRY F61 VI003060 . PROCESS INTERNAL PROGRAM SEPARATOR VI003070 VI270 L,M A1,1 S,S4 A1,VI00 VI003090 J VI115 CONTINUE F61 VI003100 . PROCESS END F61 VI003110 VI280* L,M A1,1 S,S1 A1,VI00 VI003130 J VI116 TRY F60 VI003140 . INSTRUCTION EDIT VI004670 VI600 SZ,S5 VI00 L A1,(' ') 131K S A1,VIAST 131K TZ VI18BT 131K J VI601 131K TZ SPCF J V6B EDIT FULL WORD L A1,VI04 INSTRUCTION WORD VI004690 DSL A1,16 ISOLATE U VI004700 SSL A2,20 VI004710 S A2,VI30 U-FIELD VI004720 DSL A1,2 ISOLATE H,I VI004730 SSL A2,34 VI004740 S A2,VI31 H,I-FIELD VI004750 VI6011 . 131K DSL A1,4 ISOLATE B VI004760 SSL A2,32 VI004770 S A2,VI32 B-FIELD VI004780 DSL A1,4 ISOLATE A VI004790 SSL A2,32 VI004800 S A2,VI33 A-FIELD VI004810 DSL A1,4 ISOLATE J VI004840 SSL A2,32 VI004850 S A2,VI34 J-FIELD VI004860 S A1,VI35 . INSTRUCTION FIELD TZ,S6 VISP1 . SHORT IO LIST ITEM? J V6B . YES JZ A2,VI602 VI004861 SZ VI56 VI004862 J VI603 VI004863 VI601 L,H2 A1,VI04 131K S A1,VI30 . EDIT 18 BITS 131K SZ VI31 131K L A1,(' *') 131K S A1,VIAST 131K L,H1 A1,VI04 131K TZ SPCF 131K J V6B 131K J VI6011 131K VI602 L,M A3,1 VI004864 S A3,VI56 VI004865 VI603 L A3,VJ92,A2 VI004870 TNZ,S2 COMFL TEST FOR Q IN FLD J $+3 TLE,M A2,8 L A3,VJ9Z,A2 QUARTER WORD NAMES TZ ARGF REGIST L A3,VJ92 FORCE BLANKS FOR ARGUMENT REGIST S A3,VI15 J-MNEMONIC VI004880 L,M A3,1 131L A A3,VI32 TZ,H1 VI219 . NO APARENT B1 131L S A3,VI32 . SO KLUDGE 131L TNE,M A1,7 J VI619 TG,M A1,070 J VI620 ELIMINATE J-MNEMONIC VI004910 L A1,VJ91,A1 TRANSFER - VI004920 TZ ARGF REGIST L A1,VJ91 EDIT BLANKS FOR ARGUMENTS REGIST VI604 S A1,VI16 F-MNEMONIC VI004930 SSL A1,30 ISOLATE FIRST CHAR VI004940 AN,M A1,060 VI004950 L A2,VI33 VI004951 J $+1,A1 VI004952 J VI650 VI004953 J VI655 VI004954 J VI660 VI004955 J VI665 VI004956 J VI670 VI004957 VI650 L A2,VJ92 VI004958 VI651 L A3,VJ92 DSC A2,60 S A2,VI14 VI004961 J VI606 VI004962 VI655 L A2,VJ93,A2 VI004963 J VI651 VI004964 VI660 L A2,VJ61,A2 VI004965 J VI651 VI004966 VI665 L A2,VJ62,A2 VI004967 J VI651 VI004968 VI670 L,H1 A1,VI04 VI004969 DSL A1,12 VI004970 SSL A2,28 VI004971 TNG,M A2,034 VI004972 J VI660 VI004973 TG,M A2,0120 VI004974 J VI674 VI004975 TG,M A2,0100 VI004976 J VI676 VI004977 VI674 L A1,A2 LMJ B11,VI812 S A3,VI14 J VI606 VI676 AN,M A2,0100 VI004980 J VI665 VI004981 VI606 L,M B1,0 L,M B2,5 L A5,VI16 L A6,VJ92 DSC A5,60 SLJ LKFB L A5,VI15 SLJ LKFB SLJ DETL S,S3 B1,VI608 V6B L A4,VI09 E$DITR ED$PKT TNE A4,CRSTC1 J V6B1 S A4,PSSTC E$COL 70 E$OCTF 4,PSSTC . LOCATION COUNTER V6B1 TNZ SPCF J V6B2 E$COL 55 E$OCTF 12,VI04 J V6B3 V6B2 E$COL 48 E$OCTF 2,VI35 INSTRUCTION OCTAL E$OCTF 2,VI34 J FACTOR E$CHAR ' ' E$OCTF 2,VI33 A FIELD E$CHAR ' ' E$OCTF 2,VI32 X FIELD E$CHAR ' ' E$OCTF 1,VI31 H FIELD E$CHAR ' ' E$OCTF 6,VI30 U FIELD E$COL 90 TNZ,S6 VISP1 . SHORT IO LIST ITEM J V6B4 . NO E$CHAR '+' . OUTPUT + SIGN J V6B3 V6B4 . L,S3 A1,VI608 MSI,M A1,6 L,M A0,VI17 NMEMONIC INSTRUCTION LMJ B11,ECOPY$ V6B3 E$COL 67 E$CHAR VIAST,,S6 E$COL 1 E$OCTF 5,VI10 SEQ. NO. E$COL 36 L A0,LCN L A0,CRSTC1,A0 L,M A1,2 LMJ B11,EOCTF$ E$CHAR ' ' L A0,LCN L A0,LRSTC1,A0 L,M A1,6 LMJ B11,EOCTF$ RSA E$DITX J 0,B10 EXIT VI005160 VI619 L A3,VJ92 S A3,VI15 L A1,VJ91A-012,A2 . LDJ OR LIJ S A1,VI56 J VI604 VI620 L A3,VJ92 BLANKS - VI005170 S A3,VI15 FOR J-MNEMONIC VI005180 AN,M A1,070 S A1,VI56 131K J VI622,A1 VI005200 VI622 J VI639 J VI631 J VI632 CODE 72 VI005220 J VI633 CODE 73 VI005230 J VI634 CODE 74 VI005240 J VI638 CODE 75 VI005250 J VI636 CODE 76 VI005260 J VI100+1 OP CODE 77 NOW ILLEGAL REGIST VI631 TG,M A2,020 J VI638 UNASSIGNED VI005290 L A1,VJ911,A2 TRANSFER MNEMONIC VI005300 J VI604 RETURN VI005310 VI632 TG,M A2,012 TEST J VI005320 J VI638 UNASSIGNED VI005330 L A1,VJ912,A2 TRANSFER MNEMONIC VI005340 J VI604 RETURN VI005350 VI633 TG,M A2,014 J VI638 UNASSIGNED VI005370 SZ VI56 131K L A1,VJ913,A2 TRANSFER MNEMONIC VI005380 J VI604 RETURN VI005390 VI634 L A1,VJ914,A2 TRANSFER MNEMONIC VI005400 J VI604 RETURN VI005410 VI636 L A1,VJ916,A2 VI005420 S A1,VI56 SAY SYSTEM SYMBOL J VI604 RETURN VI005430 VI638 L A1,VJ91 LOAD ASTERISKS VI005460 J VI604 RETURN VI005470 VI639 L A1,VJ91+070 J VI604 RFF61E* S,H2 B11,RF61E DS A2,RF61E+1 DS A4,RF61E+3 B$READ F61,VI280 . 2ND ARG IS EOF RETURN L,H2 A1,F61+6 . LOC OF CURRENT BUFFER L B11,RF61E L A0,1,A1 . GET ITEM COUNT S A0,F61I A A1,(1,NBCW) DL A2,RF61E+1 DL A4,RF61E+3 AN,M B11,2 J 0,B11 $(2) . RF61E J $ RES 4 $(1) . VIPUTB L,S3 A1,VI04 131K AND,M A1,017 131K JNZ A2,0,B4 . NO B IF B 131K TZ VI18BT 131K J 0,B4 131K L,H2 A2,LCN . SYMBOLLIC LOCATION COUNTER TNE,M A2,LC9 . TEST FOR CHARACTER VECTOR J 0,B4 A,M A1,1 131K S,S3 A1,VI04 . SET TO B1 131K J 0,B4 131K VIBNKR L,S3 A1,VI04 AND,M A1,017 IF INDEXING EXISTS, DO NOT ADD JNZ A2,*VIBNK TZ VICMBK . SPECIAL SYMBOLS IN COMMON BANKS SZ VI18BT TZ VI18BT NO INDEXING IF 18 BIT ADDRESSES J *VIBNK L A1,VI09 TNZ VICMBK . SPECIAL EXTERNAL SYMBOLS IN COMMON BAN TZ VIBNKF . TREAT COMMON BLOCKS AS LOCAL ARRAYS L A1,CRSTC6 . SYMBOLLIC POINTER FOR ARRAYS TG,M A1,10 J *VIBNK L,S3 A1,BSTC1,A1 GET SYMBOLIC COUNTER FOR ABSOLUTE L,S1 A1,BSTC1,A1 INDEX TO FLOAT ON OR,H1 A1,VI04 S,H1 A2,VI04 ADD INDEX TO INSTRUCTION J *VIBNK TPACK* L,M R1,6 L A0,(1,LINE$) STORE HERE THE OCTAL INSTRUCTION L A1,(1,LINE$+6) BT A0,0,*A1 L,H1 A0,LINE$+12 LOCATION COUNTER S,H2 A0,LINE$+5 L,M R1,6 L A0,(1,LINE$+6) INSTRUCTION NMEMONICS L A1,(1,LINE$+15) BT A0,0,*A1 L,M R1,11 L A0,(1,LINE$+12) L,M A1,VJ92 BLANKS BT A0,0,*A1 J 0,B11 $(1) . . OPERATION MNEMONICS VI010310 VJ91 + '0 + ' . + '1 SA ' . 01 0-17 + '1 SNA ' . 02 0-17 + '1 SMA ' . 03 0-17 + '3 SR ' . 04 0-17 + '0 SZ ' . 05 0-17 + '2 SX ' . 06 0-17 + '2 LIJ ' . 07 013 + '1 LA ' . 10 0-17 + '1 LNA ' . 11 0-17 + '1 LMA ' . 12 0-17 + '1 LNMA' . 13 0-17 + '1 AA ' . 14 0-17 + '1 ANA ' . 15 0-17 + '1 AMA ' . 16 0-17 + '1 ANMA' . 17 0-17 + '1 AU ' . 20 0-17 + '1 ANU ' . 21 0-17 + '2 BT ' . 22 0-17 + '3 LR ' . 23 0-17 + '2 AX ' . 24 0-17 + '2 ANX ' . 25 0-17 + '2 LXM ' . 26 0-17 + '2 LX ' . 27 0-17 + '1 MI ' . 30 0-17 + '1 MSI ' . 31 0-17 + '1 MF ' . 32 0-17 + '0 ****' . 33 0-17 + '1 DI ' . 34 0-17 + '1 DSF ' . 35 0-17 + '1 DF ' . 36 0-17 + '0 ****' . 37 0-17 + '1 OR ' . 40 0-17 + '1 XOR ' . 41 0-17 + '1 AND ' . 42 0-17 + '1 MLU ' . 43 0-17 + '1 TEP ' . 44 0-17 + '1 TOP ' . 45 0-17 + '2 LXI ' . 46 0-17 + '2 TLEM' . 47 0-17 + '0 TZ ' . 50 0-17 + '0 TNZ ' . 51 0-17 + '1 TE ' . 52 0-17 + '1 TNE ' . 53 0-17 + '1 TLE ' . 54 0-17 + '1 TG ' . 55 0-17 + '1 TW ' . 56 0-17 + '1 TNW ' . 57 0-17 + '0 TP ' . 60 0-17 + '0 TN ' . 61 0-17 + '1 SE ' . 62 0-17 + '1 SNE ' . 63 0-17 + '1 SLE ' . 64 0-17 + '1 SG ' . 65 0-17 + '1 SW ' . 66 0-17 + '1 SNW ' . 67 0-17 + '4 JGD ' . 70 0-17 VJ911* + '1 MSE ' . 71 00 + '1 MSNE' . 71 01 + '1 MSLE' . 71 02 + '1 MSG ' . 71 03 + '1 MSW ' . 71 04 + '1 MSNW' . 71 05 + '1 MASL' . 71 06 + '1 MASG' . 71 07 + '1 DA ' . 71 10 + '1 DAN ' . 71 11 + '1 DS ' . 71 12 + '1 DL ' . 71 13 + '1 DLN ' . 71 14 + '1 DLM ' . 71 15 + '1 DJZ ' . 71 16 + '1 DTE ' . 71 17 VJ912* + '0 ****' . 72 00 + '0 SLJ ' . 72 01 + '1 JPS ' . 72 02 + '1 JNS ' . 72 03 + '1 AH ' . 72 04 + '1 ANH ' . 72 05 + '1 AT ' . 72 06 + '1 ANT ' . 72 07 + '0 EX ' . 72 10 + '0 ER ' . 72 11 VJ913* + '1 SSC ' . 73 00 + '1 DSC ' . 73 01 + '1 SSL ' . 73 02 + '1 DSL ' . 73 03 + '1 SSA ' . 73 04 + '1 DSA ' . 73 05 + '1 LSC ' . 73 06 + '1 DLSC' . 73 07 + '1 LSSC' . 73 10 + '1 LDSC' . 73 11 + '1 LSSL' . 73 12 + '1 LDSL' . 73 13 VJ914* + '1 JZ ' . 74 00 + '1 JNZ ' . 74 01 + '1 JP ' . 74 02 + '1 JN ' . 74 03 + '0 J ' . 74 04 + '0 HJ ' . 74 05 + '1 NOP ' . 74 06 + '0 AAIJ' . 74 07 + '1 JNB ' . 74 10 THE S.O.B. + '1 JB ' . 74 11 + '2 JMGI' . 74 12 + '2 LMJ ' . 74 13 + '0 JO ' . 74 14 + '0 JNO ' . 74 15 + '0 JC ' . 74 16 + '0 JNC ' . 74 17 VJ916* + '1 FA ' . 76 00 + '1 FAN ' . 76 01 + '1 FM ' . 76 02 + '1 FD ' . 76 03 + '1 LUF ' . 76 04 + '1 LCF ' . 76 05 + '1 MCDU' . 76 06 + '1 CDU ' . 76 07 + '1 DFA ' . 76 10 + '1 DFAN' . 76 11 + '1 DFM ' . 76 12 + '1 DFD ' . 76 13 + '1 DFU ' . 76 14 + '1 DFP ' . 76 15 + '1 FEL ' . 76 16 + '1 FCL ' .76 17 VJ917* + '1 ****' . 77 00 + '1 ****' . 77 01 + '1 ****' . 77 02 + '1 ****' . 77 03 + '1 DTE ' .7704 + '1 DTNE' .77 05 + '1 DTG ' .77 06 + '1 DTLE' .77 07 + '1 ****' . 77 10 + '1 ****' . 77 11 + '1 ****' . 77 12 + '1 ****' . 77 13 + '1 CA ' . 77 14 + '1 CAN ' . 77 15 + '1 CM ' . 77 16 + '1 CD ' . 77 17 VJ91A + '2 LDJ ' . 07 012 + '2 LIJ ' . 07 013 . J-FIELD MNEMONICS VI011660 VJ92 + ' ' VI011670 + ',H2 ' VI011680 + ',H1 ' VI011690 + ',XH2 ' + ',XH1 ' + ',XT3 ' VI011720 + ',XT2 ' VI011730 + ',XT1 ' VI011740 + ',S6 ' VI011750 + ',S5 ' VI011760 + ',S4 ' VI011770 + ',S3 ' VI011780 + ',S2 ' VI011790 + ',S1 ' VI011800 +',U ' +',XU ' VJ9Z +' ' +',H2 ' +',H1 ' + ',XH2 ' +',Q2 ' +',Q4 ' +',Q3 ' +',Q1 ' . A-FIELD MNEMONICS VI011825 VJ61 +'X0, ' +'X1, ' +'X2, ' +'X3, ' +'X4, ' +'X5, ' +'X6, ' +'X7, ' +'X8, ' +'X9, ' +'X10,' +'X11,' VJ93 + 'A0, ' + 'A1, ' + 'A2, ' + 'A3, ' + 'A4, ' + 'A5, ' + 'A6, ' + 'A7, ' + 'A8, ' + 'A9, ' + 'A10,' + 'A11,' + 'A12,' + 'A13,' + 'A14,' + 'A15,' VJ62 + 'R0, ' + 'R1, ' + 'R2, ' + 'R3, ' + 'R4, ' + 'R5, ' + 'R6, ' + 'R7, ' + 'R8, ' + 'R9, ' + 'R10,' + 'R11,' + 'R12,' + 'R13,' + 'R14,' + 'R15,' . B-FIELD MNEMONICS VI012000 VJ94 +'X0 ' +'X1 ' +'X2 ' +'X3 ' +'X4 ' +'X5 ' +'X6 ' +'X7 ' +'X8 ' +'X9 ' +'X10 ' +'X11 ' + 'A0 ' + 'A1 ' + 'A2 ' + 'A3 ' VIIOCT '(BUFF)' '(END)' '(ERR)' '(SENT)' '(LNTH)' '(LIST)' $(2) . VI99 NOP 0,0,B4 FOR REFERENCE TO SYMT VI010140 VJ98 + 'NTEMP$' VJ99 + 'NBPRO$' VJ101 + '(H.A.)' VJ102 + '$ ' VI010300 VJ63 + ',' SXT + 060 VI10* + 0 . SEQ COUNT VI06 RES 1 CONTAINS W1 OF SYMT VI009800 VI08 RES 1 OCTAL INSTRUCTION EDIT VI009820 VI14 RES 1 A-MNE VI009880 VI15 RES 1 J-MNE VI009890 VI16 RES 1 F-MNE VI009900 VI30* RES 1 VI35* RES 1 VI36* RES 1 VI37* RES 1 VI38* RES 1 VI3300 RES 1 VI56 RES 1 SPECIAL A VI010051 GLABL +' ' SPCF RES 1 VIAST RES 1 131K VI18BT* + 0 131K VIBNKF* +0 . USED WHEN BANKING COMMON BLOCKS VICMBK* +0 . USED WHEN ROUTINE WILL BE IN COMMON BANK VICMNT + 0 131K + 0 131K ARGF +0 NON ZERO WHILE PROCESSING ARGUMENT TRACE VJ64 + '$$$$$ ' VI3034 +0 VI608 +0 VISP1 +0 VIBNK J $-$ J VIBNKR END.