01010AUTOCODER RUN THRU OUTPUT ASALT 01020 JOB PASS1 -- SOURCE DECK TO DISK CONVERSION ASALT 01030 CTL 311 0PPP11 11792 ASALT 01040* ASALT 01050* MODIFIED 9/21/68. ASALT 01060* ASALT 01070*** PASS 1 - READS SOURCE DECK ONTO DISK ASALT 01080* ASALT 01090* SEPARATES OPERANDS OF INSTRUCTIONS INTO AN SPS-LIKE FORMAT. ASALT 01100* ASALT 01110* GENERATES CONSTANTS WHERE LITERALS ARE FOUND THAT EXCEED ASALT 01120* 5 CHARACTERS. ASALT 01130* ASALT 01140* EXAMINES ALL CONSTANTS FOR TYPE AND GENERATES /360 EQUIVALENT ASALT 01150* 1. ARITHMETIC USAGE - PACKED DECIMAL, ASALT 01160* 2. CHARACTER USAGE - ZONED DECIMAL, ASALT 01170* 3. EDIT-WORD USAGE - HEXADECIMAL. ASALT 01180* CREATES A TABLE ON DISK FOR EXAMINATION DURING PASS 2. ASALT 01190 DIOCS ASALT 01200IODEVICES DISK ASALT 01210FEATURES DIRECT ASALT 01220DISKDRIVES 0,2,4,6,8 ASALT 01230DUPPACKS YES ASALT 01240PROCESTYPE CONSEC ASALT 01250 DTF SOURCE ASALT 02010FILETYPE DISK,OUTPUT,CONSEC ASALT 02020IOAREAS SRC14 ASALT 02030NSECTORS 1 ASALT 02040NAT0PACK 0 ASALT 02050EOFADDR LOAD86 ASALT 02060FILESTART 001100 ASALT 02070FILEND 007999 ASALT 02080SIZEREC 100 ASALT 02090 DTF CONST ASALT 02100FILETYPE DISK,OUTPUT,CONSEC ASALT 02110IOAREAS CONST1 ASALT 02120NSECTORS 1 ASALT 02130NAT0PACK 0 ASALT 02140EOFADDR LOAD88 ASALT 02150INDEXREG X3 ASALT 02160RECFORM BLOCKED ASALT 02170NRECORDS 8 ASALT 02180SIZEREC 11 ASALT 02190FILESTART 001000 ASALT 02200FILEND 001099 ASALT 02210 DTF GENCON ASALT 02220FILETYPE DISK,OUTPUT,CONSEC ASALT 02230IOAREAS GEN1 ASALT 02240NSECTORS 1 ASALT 02250NAT0PACK 0 ASALT 03010EOFADDR LOAD89 ASALT 03020FILESTART 008000 ASALT 03030FILEND 008999 ASALT 03040SIZEREC 100 ASALT 03050 DTF INGEN ASALT 03060FILETYPE DISK,INPUT,CONSEC ASALT 03070IOAREAS SRC14 ASALT 03080NSECTORS 1 ASALT 03090NAT0PACK 0 ASALT 03100EOFADDR LOAD8B ASALT 03110FILESTART 008000 ASALT 03120FILEND 008999 ASALT 03130SIZEREC 100 ASALT 03140 SKIPN ASALT 03150SRC14 DA 1X10,C ASALT 03160 1,1 ASALT 03170 DA 1X100,G,C ASALT 03180CDIMAG 1,72 ASALT 03190AOPRND 73,79 ASALT 03200AIND 80,80 ASALT 03210AADJ 81,83 ASALT 03220BOPRND 84,90 ASALT 03230BIND 91,91 ASALT 03240BADJ 92,94 ASALT 03250DMOD 95,95 ASALT 04010SLENG 96,96 ASALT 04020STYPE 100,100 ASALT 04030* ASALT 04040CONST1 DA 1X10,C ASALT 04050 1,1 ASALT 04060 DA 9X11,X3,C ASALT 04070LABEL 1,7 ASALT 04080TYPE 8,8 ASALT 04090LENGTH 9,11 ASALT 04100 DCW @ @,G ASALT 04110GEN1 DA 1X10,C ASALT 04120 1,1 ASALT 04130 DA 1X100,G,C ASALT 04140GENLBL 6,12 ASALT 04150GENOP 16,20 ASALT 04160GENCNS 21,21 ASALT 04170GENEND 72 ASALT 04180* ASALT 04190DCAREA DCW #53 ASALT 04200ZEROSW DC @ @ ASALT 04210EDWDSW DC @ @ ASALT 04220MOVDSW DC @ @ ASALT 04230 DCW #1 ASALT 04240BLANK2 DCW #1 ASALT 04250DASW DC @ @ ASALT 05010 TABLE DCW @,.$-CR*/&@ ASALT 05020 ORG TABLE ASALT 05030 DA 9X1 ASALT 05040 1,1 ASALT 05050LOAD8K DCW @ @ ASALT 05060 SKIPN ASALT 05070* COMMENT - MNEMONIC OP CODE TABLE ASALT 05080OPCODE DCW @A @ ASALT 05090 @B @ ASALT 05100 @BAV @ ASALT 05110 @BBE @ ASALT 05120 @BCE @ ASALT 05130 @BCV @ ASALT 05140 @BC9 @ ASALT 05150 @BE @ ASALT 05160 @BEF @ ASALT 05170 @BER @ ASALT 05180 @BH @ ASALT 05190 @BIN @ ASALT 05200 @BL @ ASALT 05210 @BLC @ ASALT 05220 @BM @ ASALT 05230 @BPB @ ASALT 05240 @BPCB @ ASALT 05250 @BSP @ ASALT 06010 @BSS @ ASALT 06020 @BU @ ASALT 06030 @BW @ ASALT 06040 @BWZ @ ASALT 06050 @C @ ASALT 06060 @CC @ ASALT 06070 @CCB @ ASALT 06080 @CS @ ASALT 06090 @CU @ ASALT 06100 @CW @ ASALT 06110 @D @ ASALT 06120 @DA @ ASALT 06130 @DC @ ASALT 06140 @DCW @ ASALT 06150 @DS @ ASALT 06160 @DSA @ ASALT 06170 @EQU @ ASALT 06180 @H @ ASALT 06190 @LCA @ ASALT 06200 @LTORG@ ASALT 06210 @LU @ ASALT 06220 @M @ ASALT 06230 @MA @ ASALT 06240 @MCE @ ASALT 06250 @MCM @ ASALT 07010 @MCS @ ASALT 07020 @MCW @ ASALT 07030 @MLC @ ASALT 07040 @MLCWA@ ASALT 07050 @MLNS @ ASALT 07060 @MLZS @ ASALT 07070 @MN @ ASALT 07080 @MRCM @ ASALT 07090 @MRCWG@ ASALT 07100 @MU @ ASALT 07110 @MZ @ ASALT 07120 @NOP @ ASALT 07130 @ORG @ ASALT 07140 @P @ ASALT 07150 @PCB @ ASALT 07160 @PS @ ASALT 07170 @PSK @ ASALT 07180 @R @ ASALT 07190 @RCB @ ASALT 07200 @RCP @ ASALT 07210 @RCPW @ ASALT 07220 @RD @ ASALT 07230 @RDCO @ ASALT 07240 @RDCOW@ ASALT 07250 @RDT @ ASALT 08010 @RDTA @ ASALT 08020 @RDTAW@ ASALT 08030 @RDTR @ ASALT 08040 @RDTRW@ ASALT 08050 @RDTW @ ASALT 08060 @RDW @ ASALT 08070 @RF @ ASALT 08080 @RP @ ASALT 08090 @RT @ ASALT 08100 @RTB @ ASALT 08110 @RTW @ ASALT 08120 @RWD @ ASALT 08130 @RWU @ ASALT 08140 @S @ ASALT 08150 @SAR @ ASALT 08160 @SBR @ ASALT 08170 @SD @ ASALT 08180 @SDE @ ASALT 08190 @SDEW @ ASALT 08200 @SDH @ ASALT 08210 @SDHW @ ASALT 08220 @SDL @ ASALT 08230 @SDLW @ ASALT 08240 @SKP @ ASALT 08250 @SPF @ ASALT 09010 @SRF @ ASALT 09020 @SS @ ASALT 09030 DCW @SSB @ ASALT 09040 @SW @ ASALT 09050 @TR @ ASALT 09060 @TRW @ ASALT 09070 @W @ ASALT 09080 @WCP @ ASALT 09090 @WCPW @ ASALT 09100 @WD @ ASALT 09110 @WDC @ ASALT 09120 @WDCO @ ASALT 09130 @WDCOW@ ASALT 09140 @WDCW @ ASALT 09150 @WDT @ ASALT 09160 @WDTA @ ASALT 09170 @WDTAW@ ASALT 09180 @WDTR @ ASALT 09190 @WDTRW@ ASALT 09200 @WDTW @ ASALT 09210 @WDW @ ASALT 09220 @WM @ ASALT 09230 @WP @ ASALT 09240 @WR @ ASALT 09250 @WRF @ ASALT 10010 @WRP @ ASALT 10020 @WT @ ASALT 10030 @WTB @ ASALT 10040 @WTM @ ASALT 10050 @WTW @ ASALT 10060 @ZA @ ASALT 10070 @ZS @ ASALT 10080NINES @99999@ ASALT 10090 DCW #50 EXPANSION AREA ASALT 10100 SKIPN ASALT 10110START OPEN D,SOURCE,CONST,GENCON ASALT 10120LOAD01 MLC 20,PREVOP#5 ASALT 10130 CS 80 ASALT 10140 SW 1,6 ASALT 10150 SW 16 ASALT 10160 SW 21,76 ASALT 10170 CW EDWDSW,ZEROSW ASALT 10180 BLC LOAD82 ASALT 10190 R ASALT 10200 SS 1 ASALT 10210 BCE LOAD83,6,* Q. COMMENTS CARD ASALT 10220 C 20,@END @ ASALT 10230 BE LOAD81 ASALT 10240 C 20,@DCW @ ** ASALT 10250 BE LOAD08 * ASALT 11010 C 20,@DC @ * TEST ASALT 11020 BE LOAD08 * FOR ASALT 11030 C 20,@DSA @ * DATA ASALT 11040 BE LOAD16 * DEFINITION ASALT 11050 C 20,@DS @ * STATEMENT ASALT 11060 BE LOAD31 * ASALT 11070 C 20,@DA @ * ASALT 11080 BU LOAD32 ** ASALT 11090 SKIPN ASALT 11100 SBR X1,21 DA PROCESSOR ASALT 11110 SW DASW ASALT 11120LOAD02 BCE LOAD03,0&X1,X ASALT 11130 SBR X1,1&X1 ASALT 11140 B LOAD02 ASALT 11150LOAD03 SW 1&X1 ASALT 11160 SBR LOAD06&3,1&X1 ASALT 11170LOAD04 BCE LOAD05,1&X1,, ASALT 11180 BCE LOAD05,1&X1, ASALT 11190 SBR X1,1&X1 ASALT 11200 B LOAD04 ASALT 11210LOAD05 ZA 0&X1,LENGTH ASALT 11220 ZA 0&X1,BADJ ASALT 11230 MLZS *-4,LENGTH ASALT 11240 MLZS *-4,BADJ ASALT 11250LOAD0E BCE LOAD0F,1&X1,` LOOK FOR RECORD MARK PARAM ASALT 12010 BCE LOAD0F&14,1&X1, Q. END OF DA ASALT 12020 SBR X1,1&X1 ASALT 12030 B LOAD0E ASALT 12040LOAD0F A *-6,LENGTH RECORD MARK IS ASALT 12050 A *-6,BADJ PART OF RECORD LENGTH ASALT 12060 MLC @D@,TYPE ASALT 12070 MLC @D@,STYPE-1 ASALT 12080LOAD06 CW 0 ASALT 12090 C 11,@ @ Q. NO LABEL FOR THIS CONST ASALT 12100 BE LOAD07 YES--DON,T WRITE ON DISK ASALT 12110 BCE LOAD14,6, Q. INDENTED LABEL ASALT 12120 MLC 11,LABEL-1 ASALT 12130 PUT ,CONST ASALT 12140LOAD07 MLC @ @,LENGTH ASALT 12150 CHAIN2 ASALT 12160 MLC @D@,STYPE INDICATE DATA ASALT 12170 CW 6,16 ASALT 12180 CW 21 ASALT 12190 MLC 72,CDIMAG ASALT 12200 MLC @ @,SLENG ASALT 12210 CW DMOD ASALT 12220 PUT ,SOURCE ASALT 12230 SW DMOD ASALT 12240 B LOAD91 ASALT 12250 B LOAD01 ASALT 13010 SKIPN ASALT 13020 MLC PREVOP,20 ASALT 13030LOAD08 MLC @C@,TYPE DC/DCW ASALT 13040 MLC @C@,STYPE-1 ASALT 13050 BCE LOAD17,21,# Q. AREA DEFINITION ASALT 13060 BCE LOAD19,21,@ ASALT 13070 BCE LOAD15,21,& ASALT 13080 BCE LOAD15,21,- ASALT 13090 SBR X1,21 ASALT 13100 BWZ LOAD09,21,2 Q. NUMERIC CONSTANT ASALT 13110 B LOAD16 NO--ADDRESS CONSTANT ASALT 13120LOAD09 MLC @P@,TYPE ASALT 13130 MLC @000@,LENGTH ASALT 13140 MLC @P@,STYPE-1 ASALT 13150LOAD10 BCE LOAD1A,0&X1, ASALT 13160 A *-6,LENGTH ASALT 13170 SBR X1,1&X1 ASALT 13180 B LOAD10 ASALT 13190LOAD1A ZA LENGTH,LENWRK#4 COMPUTE PACKED LENGTH ASALT 13200 A LENWRK ASALT 13210 A LENWRK ASALT 13220 A LENGTH,LENWRK ASALT 13230 A *-6,LENWRK-1 ASALT 13240 MLC LENWRK-1,LENGTH ASALT 13250LOAD11 C 11,@ @ Q. UNLABELED CONSTANT ASALT 14010 BE LOAD07 YES--DON,T WRITE ON DISK ASALT 14020 BCE LOAD14,6, Q. INDENTED LABEL ASALT 14030LOAD12 MLC 11,LABEL-1 ASALT 14040LOAD13 MLC LENGTH,BADJ ASALT 14050 PUT ,CONST ASALT 14060 B LOAD07 ASALT 14070LOAD14 MLC 12,LABEL-1 ASALT 14080 MLC @D@,STYPE-1 ASALT 14090 MLC @D@,TYPE ASALT 14100 B LOAD13 ASALT 14110LOAD15 SBR X1,22 ASALT 14120 BWZ LOAD09,22,2 Q. NUMERIC SIGNED ASALT 14130LOAD16 MLC @004@,LENGTH ADDRESS CONSTANT ASALT 14140 MLC @A@,TYPE ASALT 14150 MLC @A@,STYPE-1 ASALT 14160 B LOAD12 ASALT 14170LOAD17 SW 22 AREA DEFINING CONSTANT ASALT 14180 SBR X1,22 ASALT 14190 SBR LOAD06&3,22 ASALT 14200LOAD18 BCE *&12,1&X1, ASALT 14210 SBR X1,1&X1 ASALT 14220 B LOAD18 ASALT 14230 ZA 0&X1,LENGTH ASALT 14240 ZA 0&X1,BADJ ASALT 14250 MLZS *-4,LENGTH ASALT 15010 MLZS *-4,BADJ ASALT 15020 B LOAD06 ASALT 15030LOAD19 SBR X1,72 CONSTANT DEFINITION ASALT 15040LOAD20 BCE LOAD21,0&X1,@ FIND RIGHT BOUND ASALT 15050 MA @I9I@,X1 ASALT 15060 B LOAD20 ASALT 15070LOAD21 SBR X2,22 ASALT 15080LOAD22 BCE LOAD23,0&X2,@ ASALT 15090 A *-6,LENGTH ASALT 15100 SBR X2,1&X2 ASALT 15110 B LOAD22 ASALT 15120LOAD23 C X1,X2 ASALT 15130 MLC LENGTH,BADJ ASALT 15140 BU LOAD22&8 ASALT 15150 SBR X2,22 ASALT 15160 BCE LOAD26,0&X2,$ Q. IS FIRST CHARACTER A ASALT 15170 BCE LOAD26,0&X2, POSSIBLE BEGINNING OF ASALT 15180* AN EDIT WORD ASALT 15190LOAD25 MLC @C@,TYPE ASALT 15200 MLC @C@,STYPE-1 ASALT 15210 B LOAD11 ASALT 15220LOAD26 MLC X1,SAVEX1#3 ASALT 15225 MLC @0@,EDWDCT RESET LENGTH COUNTER ASALT 15230 BCE LOAD42,0&X2,0 ASALT 15240 BCE LOAD30,0&X2, ASALT 15250 SBR X1,0 ASALT 16010LOAD27 C 0&X2,TABLE&X1 ASALT 16020 BE LOAD28 ASALT 16030 SBR X1,1&X1 ASALT 16040 BCE LOAD25,X1,9 NOT IN TABLE - NOT EDIT-WD ASALT 16050 B LOAD27 ASALT 16060LOAD42 BW LOAD25,ZEROSW BR IF MORE THAN ONE ZERO ASALT 16070 SW ZEROSW ASALT 16075 A *-6,EDWDCT INCREMENT EDIT WORD DIGITS ASALT 16076* COUNTER ASALT 16080LOAD28 SBR X2,1&X2 ASALT 16090 SW EDWDSW ASALT 16100 C X2,SAVEX1 ASALT 16110 BU LOAD26&14 ASALT 16120LOAD29 MLC @X@,TYPE ASALT 16130 MLC @X@,STYPE-1 ASALT 16132 A *-6,LENGTH ADD 1 TO LENGTH FOR FILL ASALT 16133* CHARACTER ASALT 16134 MLNS EDWDCT,*&8 ASALT 16135 BCE LOAD11,@13579@, BRANCH IF ODD NUMBER OF ASALT 16136 CHAIN4 DIGITS TO BE EDITED ASALT 16137 A *-6,LENGTH ADD 1 TO LENGTH TO MAKE AN ASALT 16138* ODD NUMBER OF DIGITS ASALT 16140 B LOAD11 ASALT 16150LOAD30 SBR X2,1&X2 ASALT 16155 A *-6,EDWDCT INCREMENT EDIT WORD DIGITS ASALT 16156* COUNTER ASALT 16160 C X2,SAVEX1 ASALT 16170 BU LOAD26&14 ASALT 16180 BW LOAD29,EDWDSW BR IF EDIT WORD ASALT 16190 B LOAD25 ASALT 16200LOAD31 SBR X1,21 DS ASALT 16210 MLC @C@,TYPE ASALT 16220 MLC @C@,STYPE-1 ASALT 16230 SBR LOAD06&3,21 ASALT 16240 B LOAD18 ASALT 16250LOAD3A SBR X1,21 DA FIELD HANDLER ASALT 17010LOAD3B BCE LOAD3C,1&X1,, Q. FIRST DELIMITER END ASALT 17020 BCE LOAD3F,1&X1, Q. ONLY ONE DELIMITER ASALT 17030 SBR X1,1&X1 NEITHER ASALT 17040 B LOAD3B ASALT 17050LOAD3C ZS 0&X1,BADJ STORE FIRST DELIM AS MINUS ASALT 17060 ZS 0&X1,DALO#3 ASALT 17070 SBR X1,2&X1 ASALT 17080 SW 0&X1 ASALT 17090 SBR LOAD06&3,0&X1 ASALT 17100LOAD3D BCE LOAD3E,1&X1, Q. SECOND DELIMITER END ASALT 17110 SBR X1,1&X1 NO ASALT 17120 B LOAD3D ASALT 17130LOAD3E A 0&X1,BADJ ADD SECOND DELIM TO SAVED ASALT 17140 A *-6,BADJ FIRST & ADD 1 TO FIRST. ASALT 17150 MLNS BADJ,LENGTH ASALT 17160 MLC ASALT 17170 MLC @C@,TYPE ASALT 17180 MLC @C@,STYPE-1 ASALT 17190 B LOAD06 ASALT 17200LOAD3F MLZS DALO,SVZONE#1 ASALT 17210 MLZS *-4,DALO ASALT 17220 ZA 0&X1,DAHI#3 ASALT 17230 MLZS *-4,DAHI ASALT 17240 C DALO,DAHI ASALT 17250 BL LOAD3G ASALT 18010 MLZS SVZONE,DALO ASALT 18020 MLC DALO,BADJ ASALT 18030 B LOAD3E ASALT 18040LOAD3G MLC @U@,STYPE ONLY ONE DELIMITER - ASALT 18050 CW 6,16 CANNOT COMPUTE LENGTH ASALT 18060 CW 21 ASALT 18070 MLC 72,CDIMAG ASALT 18080 MLC @ @,SLENG ASALT 18090 CW DMOD ASALT 18100 PUT ,SOURCE ASALT 18110 SW DMOD ASALT 18120 B LOAD91 ASALT 18130 B LOAD01 ASALT 18140 SKIPN ASALT 18150* ASALT 18160*** SEPARATE OPERAND%S) INTO BREAKDOWN FORMAT ASALT 18170* ASALT 18180LOAD32 SBR X1,0 ASALT 18190 SBR X2,21 ASALT 18200 MLC @ @,BADJ ASALT 18210 CHAIN2 ASALT 18220 MLC @ @ ASALT 18230 CHAIN2 ASALT 18240 MLC @ @,DMOD ASALT 18250 MLC @1@,SLENG ASALT 19010 C 20,@JOB @ ASALT 19020 BE LOAD80 ASALT 19030LOAD33 C 20,OPCODE&X1 IS IT A VALID OPERATION ASALT 19040 BE LOAD35 YES ASALT 19050 SBR X1,5&X1 ASALT 19060 C OPCODE&X1,NINES Q. END OF OPERATION TABLE ASALT 19070 BU LOAD33 NO ASALT 19080 C 20,@ @ ASALT 19090 BU LOAD34 ASALT 19100 C PREVOP,@DC @ ASALT 19110 BE LOAD08-7 YES ASALT 19120 C PREVOP,@DCW @ ASALT 19130 BE LOAD08-7 YES ASALT 19140 BW LOAD3A,DASW Q. PROCESSING DA ASALT 19150LOAD34 MLC @U@,STYPE NOT A VALID OPERATION CODE ASALT 19160 MLC @ @,SLENG ASALT 19170 CW 6,16 ASALT 19180 CW 21,DASW ASALT 19190 MLC 72,CDIMAG ASALT 19200 CW DMOD ASALT 19210 PUT ,SOURCE ASALT 19220 SW DMOD ASALT 19230 B LOAD91 ASALT 19240 B LOAD01 ASALT 19250* VALID OPERATION CODE ASALT 20010LOAD35 CW MOVDSW,DASW ASALT 20020 SW 0&X2 ASALT 20030 MLC X2,SAVEX2#3 ASALT 20040 BCE LOAD40-15,21, Q. NO OPERANDS ASALT 20050 BCE LOAD37,0&X2,@ Q. LITERAL ASALT 20060 BCE LOAD45,0&X2,& ASALT 20070 BCE LOAD45,0&X2,- ASALT 20080 BCE LOAD48,0&X2,* Q. ASTERISK ADJUSTMENT ASALT 20090 BWZ LOAD50,0&X2,2 Q. ACTUAL ADDRESS ASALT 20100LOAD36 BCE LOAD76,0&X2,, Q. END OF OPERAND ASALT 20110 BCE LOAD62,0&X2,& Q. ADJUSTMENT ASALT 20120 BCE LOAD66,0&X2,- ASALT 20130 BCE LOAD70,0&X2,# Q. AREA DEFINING LITERAL ASALT 20140 BCE LOAD78,0&X2, Q. END OF OPERAND ASALT 20150 SBR X2,1&X2 ASALT 20160 B LOAD36 ASALT 20170 SKIPN ASALT 20180LOAD37 SBR X1,72 ASALT 20190LOAD38 BCE LOAD39,0&X1,@ Q. RIGHT BOUND ASALT 20200 MA @I9I@,X1 NO ASALT 20210 B LOAD38 ASALT 20220LOAD39 C X1,X2 Q. CHANNEL 12 TEST OR SKIP ASALT 20230* CONTROL. ASALT 20240 BU LOAD41 NO ASALT 20250 C 20,@MU @ Q. OVERLAPPED ASALT 21010 BE LOAD36 TAPE ASALT 21020 C 20,@LU @ OPERATION ASALT 21030 BE LOAD36 ASALT 21040 MLC @@@,DMOD ASALT 21050 MLC @I@,STYPE ASALT 21060 CW 0&X2 ASALT 21070 B LOAD24 ASALT 21080LOAD40 CW 6,16 ASALT 21090 CW 21 ASALT 21100 MLC 72,CDIMAG ASALT 21110 C AADJ,&000 ASALT 21120 BU *&8 ASALT 21130 MLC @ @,AADJ ASALT 21140 C BADJ,&000 ASALT 21150 BU *&8 ASALT 21160 MLC @ @,BADJ ASALT 21170 CW DMOD ASALT 21180 PUT ,SOURCE ASALT 21190 SW DMOD ASALT 21200 B LOAD91 ASALT 21210 B LOAD01 ASALT 21220LOAD41 S X2,X1 COMPUTE LITERAL LENGTH ASALT 21225 MLC &000,LENGTH ASALT 21230 MLZS *-4,X1 ASALT 21240 BCE LOAD4A,OPCNT,1 Q. PROCESSING B-OPERAND ASALT 21250* %OPERAND-1 CANNOT BE LTRL) ASALT 22010 C X1,@07@ Q. MORE THAN 5 CHAR LITERAL ASALT 22020 BH LOADEB NO ASALT 22030LOAD4A SW 0&X2 SET UP CONSTANT ASALT 22040 A X2,X1 ASALT 22050 MLZS *-4,X1 ASALT 22060 MLC @C@,TYPE INDICATE CHARACTER ASALT 22070 MLC @CD@,GENEND&28 TYPE OF CONSTANT ASALT 22080 B LOADE0 ASALT 22090LOAD43 MLC LOAD90,AOPRND ASALT 22100 MLC @GENDC@ ASALT 22110 SW MOVDSW ASALT 22120 MLC @G@,STYPE-1 INDICATE GENERATED LITERAL ASALT 22130 MLC LOAD90,LABEL ASALT 22140 MLC @GENDC@ ASALT 22150 A X1,LENGTH ASALT 22160 S X2,LENGTH ASALT 22170 S @1@,LENGTH ASALT 22180 MLZS *-4,LENGTH ASALT 22190 MLC LENGTH,GENEND&22 ASALT 22200 PUT ,CONST ASALT 22210 MLC @ @,LENGTH ASALT 22220 CHAIN2 ASALT 22230 MLC X1,X2 SET X2 EQUAL TO RIGHT BOUND ASALT 22240LOAD4D MLC X3,SAVEX3 SAVE X3 CONTENTS ASALT 22250 MLC X1,X3 ASALT 23010 S SAVEX2,X3 ASALT 23020 MLZS *-4,X3 ASALT 23030 SBR X3,GENCNS&X3 ASALT 23040 MLC 0&X1,0&X3 MOVE LITERAL ASALT 23050 MLC SAVEX3,X3 RESTORE X3 CONTENTS ASALT 23060 MLC @DCW @,GENOP ASALT 23070 MLC LOAD90,GENLBL ASALT 23080 MLC @GENDC@ ASALT 23090 MLC SAVEX2,*&4 ASALT 23100 CW 0&X2 ASALT 23110 PUT ,GENCON ASALT 23120 B LOAD93 ASALT 23130 A *-6,LOAD90 ASALT 23140 MLC X1,X2 ASALT 23150 SBR X2,1&X2 ASALT 23160 BCE LOAD78,0&X2, Q. END OF INSTRUCTION ASALT 23170 B LOAD76 NO--END OF OPERAND ASALT 23180* ASALT 23190LOAD44 MLC @L@,STYPE-2 INDICATE LITERAL ASALT 23200 S @1@,X1 ASALT 23210 MLNS X1,AADJ STORE LITERAL ASALT 23220 MLC LENGTH ASALT 23230 A @1@,X1 ASALT 23240 MLC X3,SAVEX3#3 AND LEAVE EMBEDDED ASALT 23250LOAD95 SBR X3,AOPRND-6 ASALT 24010 A X1,X3 ASALT 24020 A X1,X2 ASALT 24030 MLC 0&X2,0&X3 CANNOT MRCM BECAUSE MAY BE ASALT 24040 SW MOVDSW A RECORD MARK IN OPERAND. ASALT 24050 MLC SAVEX2,*&4 ASALT 24060 CW 0&X2 ASALT 24070 MLC SAVEX3,X3 RESTORE X3 ASALT 24080 SBR X2,1&X2 ASALT 24090 BCE LOAD78,0&X2, Q. END OF INSTRUCTION ASALT 24100 B LOAD76 NO--END OF OPERAND ASALT 24110* ASALT 24120LOAD45 BWZ LOAD46,1&X2,2 Q. NUMERIC LITERAL ASALT 24130 MLC @004@,LENGTH NO--ADDRESS CONSTANT LTRL ASALT 24140 MLC @004@,GENEND&22 ASALT 24150 MLC @AD@,GENEND&28 ASALT 24160 MLC @A@,TYPE ASALT 24170 MLC @G@,STYPE-1 ASALT 24180LOAD4E MLC LOAD90,AOPRND ASALT 24190 MLC @GENDC@ ASALT 24200 SW MOVDSW ASALT 24210 MLC LOAD90,LABEL ASALT 24220 MLC @GENDC@ ASALT 24230 PUT ,CONST ASALT 24240 MLC @ @,LENGTH ASALT 24250 CHAIN2 ASALT 25010 SW 0&X2 ASALT 25020 MLC X2,X1 ASALT 25030LOAD4F BCE LOAD4D,1&X1,, ASALT 25040 BCE LOAD4D,1&X1, ASALT 25050 SBR X1,1&X1 ASALT 25060 B LOAD4F ASALT 25070LOAD46 MLC X2,X1 SET X1 EQUAL X2 ASALT 25080 MLC @P@,TYPE INDICATE PACKED DECIMAL ASALT 25090 MLC @PD@,GENEND&28 TYPE OF CONSTANT ASALT 25100LOAD47 BCE LOAD43,1&X1,, ASALT 25110 BCE LOAD43,1&X1, ASALT 25120 SBR X1,1&X1 ASALT 25130 B LOAD47 ASALT 25140 SKIPN ASALT 25150LOAD48 MLC @*@,STYPE-3 ASTERISK ADJUSTMENT ASALT 25160LOAD4G BCE LOAD4H,1&X2,, Q. END OF OPERAND ASALT 25170 BCE LOAD4H,1&X2, ASALT 25180 SBR X2,1&X2 ASALT 25190 B LOAD4G ASALT 25200LOAD4H MLC LOAD5C&6,LOAD4I&6 SET UP MRCM ASALT 25210 MLC @`@,DCAREA ASALT 25220 MLC 0&X2 ASALT 25230 SBR LOAD4I&3 ASALT 25240 MA @001@,LOAD4I&3 BUMP BY ONE ASALT 25250LOAD4I MRCM 21,AOPRND-6 MOVE * AND ADJUSTMENT TO ASALT 26010 MLC BLANK2 OPERAND ASALT 26020 MLC ASALT 26030 SW MOVDSW ASALT 26040 MLC SAVEX2,X2 RESTORE X2 ASALT 26050 SBR X2,1&X2 ASALT 26060 B LOAD36 PROCESS ADJUSTMENT NORMALLY ASALT 26070 SKIPN ASALT 26080LOAD5A BCE LOAD5B,2&X1,X Q. INDEXED ADJUSTMENT ASALT 26090 B LOAD58 NO ASALT 26100LOAD5B MLC @`@,DCAREA ASALT 26110 MLC 0&X1 ASALT 26120 SBR LOAD5C&3 ASALT 26130 MA @001@,LOAD5C&3 ASALT 26140LOAD5C MRCM 21,AOPRND-6 ASALT 26150 MLC BLANK2 ASALT 26160 MLC ASALT 26170LOAD5D MLNS 3&X1,AIND ASALT 26180 BCE LOAD5E,3&X1,1 Q. X1 REFERENCE ASALT 26190 B LOAD49 NO ASALT 26200LOAD5E MLNS @4@,AIND ASALT 26210LOAD49 SBR X2,1&X2 ASALT 26220 SW MOVDSW ASALT 26230 BCE LOAD76,0&X2,, SKIP REMAINDER ASALT 26240 BCE LOAD78,0&X2, OF OPERAND ASALT 26250 B LOAD49 ASALT 27010* ASALT 27020LOAD50 C 20,@H @ Q. CODED HALT ASALT 27030 BE LOAD36 YES ASALT 27040 SW 0&X2 NUMERIC OPERAND ASALT 27050 MLC X2,X1 ASALT 27060LOAD51 BCE LOAD52,1&X1,, ASALT 27070 BCE LOAD52,1&X1, ASALT 27080 BCE LOAD5A,1&X1,& Q. TEST FOR INDEX ADJUSTMNT ASALT 27090 SBR X1,1&X1 ASALT 27100 B LOAD51 ASALT 27110LOAD52 MLC @ @,DCAREA CLEAR DCAREA ASALT 27120 MLC DCAREA ASALT 27130 MCS 0&X1,DCAREA ASALT 27140 CW 0&X2 ASALT 27150 C DCAREA,@ 89@ Q. X1 REFERENCE ASALT 27160 BE LOAD59 ASALT 27170 C DCAREA,@ 94@ Q. X2 REFERENCE ASALT 27180 BE LOAD60 ASALT 27190 C DCAREA,@ 99@ Q. X3 REFERENCE ASALT 27200 BE LOAD61 ASALT 27210 C DCAREA,@ 80@ Q. READ AREA REFERENCE ASALT 27220 BL LOAD54 ASALT 27230LOAD53 MLC DCAREA,AADJ ASALT 27240 S @1@,AADJ ASALT 27250 BM LOAD5J,AADJ Q. ZERO OPERAND ASALT 28010 MLC @READARE@,AOPRND ASALT 28020 B LOAD49 ASALT 28030LOAD5J MLC @0@,AOPRND-6 ASALT 28040 MLC @ @,AADJ ASALT 28050 B LOAD49 ASALT 28060LOAD54 C DCAREA,@ 101@ Q. PUNCH ASALT 28070 BH LOAD58 AREA ASALT 28080 C DCAREA,@ 180@ REFERENCE ASALT 28090 BL LOAD56 ASALT 28100LOAD55 MLC DCAREA,AADJ ASALT 28110 S @101@,AADJ ASALT 28120 MLC @PCHAREA@,AOPRND ASALT 28130 B LOAD49 ASALT 28140LOAD56 C DCAREA,@ 201@ Q. PRINT ASALT 28150 BH LOAD58 AREA ASALT 28160 C DCAREA,@ 332@ REFERENCE ASALT 28170 BL LOAD58 ASALT 28180LOAD57 MLC DCAREA,AADJ ASALT 28190 S @201@,AADJ ASALT 28200 MLC @PRTAREA@,AOPRND ASALT 28210 B LOAD49 ASALT 28220LOAD58 MLC @*******@,AOPRND ACTUAL ADDRESS INVALID ASALT 28230 B LOAD49 ASALT 28240LOAD59 MLC @X1 @,AOPRND-1 ASALT 28250 B LOAD49 ASALT 29010LOAD60 MLC @X2 @,AOPRND-1 ASALT 29020 B LOAD49 ASALT 29030LOAD61 MLC @X3 @,AOPRND-1 ASALT 29040 B LOAD49 ASALT 29050 SKIPN ASALT 29060LOAD62 BW LOAD84,MOVDSW ADJUSTED OPERAND ASALT 29070 MLC 0&X2,DCAREA 4 ASALT 29080 SBR LOAD96&3 4 ASALT 29090 MLC @`@,DCAREA ASALT 29100 MA @001@,LOAD96&3 ASALT 29110LOAD96 MRCM 21,AOPRND-6 ASALT 29120 MLC BLANK2 ASALT 29130 MLC ASALT 29140 SW MOVDSW ASALT 29150LOAD84 SBR X2,1&X2 PLUS ADJUSTMENT ASALT 29160 BCE LOAD74,0&X2,X Q. INDEXING ASALT 29170 SW 0&X2 ASALT 29180 SBR LOAD65&3,0&X2 ASALT 29190LOAD63 BCE LOAD64,1&X2,, Q. END OF ASALT 29200 BCE LOAD64,1&X2, ADJUSTMENT ASALT 29210 BCE LOAD64,1&X2,& Q. MULTIPLE ASALT 29220 BCE LOAD64,1&X2,- ADJUSTMENT ASALT 29230 SBR X2,1&X2 ASALT 29240 B LOAD63 ASALT 29250LOAD64 A 0&X2,AADJ ASALT 30010 SBR X2,1&X2 ASALT 30020LOAD65 CW 0 ASALT 30030 BM LOAD36,AADJ Q. NEGATIVE ADJUSTMENT ASALT 30040 MLZS @C@,AADJ NO--MAKE PLUS ADJUSTMENT ASALT 30050 B LOAD36 ASALT 30060LOAD66 BW LOAD85,MOVDSW ASALT 30070 MLC 0&X2,DCAREA 4 ASALT 30080 SBR LOAD97&3 4 ASALT 30090 MLC @`@,DCAREA 4 ASALT 30100 MA @001@,LOAD97&3 ASALT 30110LOAD97 MRCM 21,AOPRND-6 ASALT 30120 MLC BLANK2 ASALT 30130 MLC ASALT 30140 SW MOVDSW ASALT 30150LOAD85 SBR X2,1&X2 MINUS ADJUSTMENT ASALT 30160 SW 0&X2 ASALT 30170 SBR LOAD69&3,0&X2 ASALT 30180LOAD67 BCE LOAD68,1&X2,, Q. END OF ASALT 30190 BCE LOAD68,1&X2, ADJUSTMENT ASALT 30200 BCE LOAD68,1&X2,& Q. MULTIPLE ASALT 30210 BCE LOAD68,1&X2,- ADJUSTMENT ASALT 30220 SBR X2,1&X2 ASALT 30230 B LOAD67 ASALT 30240LOAD68 S 0&X2,AADJ ASALT 30250 SBR X2,1&X2 ASALT 31010LOAD69 CW 0 ASALT 31020 B LOAD36 ASALT 31030 SKIPN ASALT 31040LOAD70 MLC SAVEX2,X1 AREA DEFINING LITERAL ASALT 31050 SW 0&X1 ASALT 31060 MLC 0&X2,DCAREA ASALT 31070 SBR LOAD71&3 ASALT 31080 MLC @`@,DCAREA ASALT 31090 CW 0&X1 ASALT 31100 MA @001@,LOAD71&3 ASALT 31110LOAD71 MRCM 22,AOPRND-6 ASALT 31120 MLC BLANK2 ASALT 31130 MLC ASALT 31140 SW MOVDSW ASALT 31150 MLC AOPRND,GENLBL ASALT 31160 MLC @DCW @,GENOP ASALT 31170 SBR X1,GENCNS ASALT 31180LOAD72 SW 0&X2 ASALT 31190 MLC 0&X2,0&X1 ASALT 31200 CW 0&X2 ASALT 31210 SBR X2,1&X2 ASALT 31220 BCE LOAD73,0&X2,, ASALT 31230 BCE LOAD73,0&X2, ASALT 31240 SBR X1,1&X1 ASALT 31250 B LOAD72 ASALT 32010LOAD73 MLC @CD@,GENEND&28 ASALT 32020 SW GENCNS&1,GENEND&20 ASALT 32030 SBR X1,GENCNS&1 ASALT 32040LOAD7A BCE LOAD7B,1&X1,, ASALT 32050 BCE LOAD7B,1&X1, ASALT 32060 SBR X1,1&X1 ASALT 32070 B LOAD7A ASALT 32080LOAD7B ZA 0&X1,GENEND&22 ASALT 32090 MLZS *-4,GENEND&22 ASALT 32100 CW GENCNS&1,GENEND&20 ASALT 32110 MLC @CD@,GENEND&28 ASALT 32120 PUT ,GENCON ASALT 32130 MLC GENEND&22,LENGTH ASALT 32140 MLC @C@ ASALT 32150 MLC GENLBL ASALT 32160 PUT ,CONST ASALT 32170 B LOAD93 CLEAR GENCON IOAREA ASALT 32180 MLC @ @,LENGTH ASALT 32190 CHAIN2 ASALT 32200 B LOAD36 ASALT 32210 SKIPN ASALT 32220LOAD74 MLNS 1&X2,AIND INDEX ADJUSTMENT ASALT 32230 BCE *&5,1&X2,1 ASALT 32240 B LOAD75 ASALT 32250 SW LOAD74&4 ASALT 33010 MLC LOAD74&6,*&7 ASALT 33020 MLNS @4@,0 ASALT 33030 CW LOAD74&4 ASALT 33040LOAD75 BCE LOAD76,0&X2,, ASALT 33050 BCE LOAD78,0&X2, ASALT 33060 BCE LOAD36,0&X2,& ASALT 33070 BCE LOAD36,0&X2,- ASALT 33080 SBR X2,1&X2 ASALT 33090 B LOAD75 ASALT 33100 SKIPN ASALT 33110LOAD76 A *-6,OPCNT#1 END OF OPERAND - , FOUND ASALT 33120 A @3@,SLENG ASALT 33130 BCE LOAD77,OPCNT,2 Q. D-MODIFIER TO BE PROCESD ASALT 33140 BW LOAD98,MOVDSW ASALT 33150 MLC 0&X2,DCAREA ASALT 33160 SBR LOAD99&3 ASALT 33170 MLC @`@,DCAREA ASALT 33180 MA @001@,LOAD99&3 ASALT 33190LOAD99 MRCM 21,AOPRND-6 ASALT 33200 MLC BLANK2 ASALT 33210 MLC ASALT 33220LOAD98 MA @011@,LOAD43&6 ASALT 33230 MA @011@,LOAD95&6 ASALT 33240 MA @011@,LOAD53&6 ASALT 33250 MA @011@,LOAD53&13 ASALT 34010 MA @011@,LOAD53&20 ASALT 34020 MA @011@,LOAD55&6 ASALT 34030 MA @011@,LOAD55&13 ASALT 34040 MA @011@,LOAD55&20 ASALT 34050 MA @011@,LOAD57&6 ASALT 34060 MA @011@,LOAD57&13 ASALT 34070 MA @011@,LOAD57&20 ASALT 34080 MA @011@,LOAD58&6 ASALT 34090 MA @011@,LOAD59&6 ASALT 34100 MA @011@,LOAD60&6 ASALT 34110 MA @011@,LOAD61&6 ASALT 34120 MA @011@,LOAD96&6 ASALT 34130 MA @011@,LOAD64&6 ASALT 34140 MA @011@,LOAD97&6 ASALT 34150 MA @011@,LOAD68&6 ASALT 34160 MA @011@,LOAD65&10 ASALT 34170 MA @011@,LOAD65&18 ASALT 34180 MA @011@,LOAD5C&6 ASALT 34190 MA @011@,LOAD5D&6 ASALT 34200 MA @011@,LOAD5E&6 ASALT 34210 MA @011@,LOAD5J&6 ASALT 34220 MA @011@,LOAD5J&13 ASALT 34230 MA @011@,LOAD53&28 ASALT 34240 MA @011@,LOAD4E&6 ASALT 34250 MA @011@,LOAD71&6 ASALT 35010 MA @011@,LOAD71&19 ASALT 35020 MA @011@,LOAD74&6 ASALT 35030 MA @011@,LOAD79&6 ASALT 35040 MA @011@,LOAD99&6 ASALT 35050 CW EDWDSW,MOVDSW ASALT 35060 SBR X2,1&X2 ASALT 35070 B LOAD35 ASALT 35080 SKIPN ASALT 35090LOAD77 MLC 1&X2,DMOD D-MODIFIER ASALT 35100 A @1@,SLENG ASALT 35110 BW LOAD24,MOVDSW Q. B-OPERAND ALREADY MOVED ASALT 35120 MLC 0&X2,DCAREA NO ASALT 35130 SBR X1 ASALT 35140 MLC @`@,DCAREA ASALT 35150 MRCM 1&X1,BOPRND-6 ASALT 35160 MLC BLANK2 ASALT 35170 MLC ASALT 35180 B LOAD24 ASALT 35190* ASALT 35200LOAD78 A @3@,SLENG ASALT 35210LOAD7C BW LOAD24,MOVDSW Q. ALREADY MOVED OPERAND ASALT 35220 MLC SAVEX2,*&4 ASALT 35230 SW 0 ASALT 35240 MLC 0&X2,DCAREA-1 ASALT 35250 SBR LOAD79&3 ASALT 36010 MLC @`@,DCAREA ASALT 36020 MA @001@,LOAD79&3 ASALT 36030LOAD79 MRCM 21,AOPRND-6 ASALT 36040 MLC BLANK2 ASALT 36050 MLC ASALT 36060LOAD24 MLC @0@,OPCNT END OF INSTRUCTION ASALT 36070 SBR LOAD43&6,AOPRND ASALT 36080 SBR LOAD53&6,AADJ ASALT 36090 SBR LOAD53&13,AADJ ASALT 36100 SBR LOAD53&28,AOPRND ASALT 36110 SBR LOAD55&6,AADJ ASALT 36120 SBR LOAD55&13,AADJ ASALT 36130 SBR LOAD55&20,AOPRND ASALT 36140 SBR LOAD57&6,AADJ ASALT 36150 SBR LOAD57&13,AADJ ASALT 36160 SBR LOAD57&20,AOPRND ASALT 36170 SBR LOAD58&6,AOPRND ASALT 36180 SBR LOAD59&6,AOPRND-1 ASALT 36190 SBR LOAD60&6,AOPRND-1 ASALT 36200 SBR LOAD61&6,AOPRND-1 ASALT 36210 SBR LOAD64&6,AADJ ASALT 36220 SBR LOAD68&6,AADJ ASALT 36230 SBR LOAD71&6,AOPRND-6 ASALT 36240 SBR LOAD71&19,AOPRND ASALT 36250 SBR LOAD74&6,AIND ASALT 37010 SBR LOAD95&6,AOPRND-6 ASALT 37020 SBR LOAD96&6,AOPRND-6 ASALT 37030 SBR LOAD97&6,AOPRND-6 ASALT 37040 SBR LOAD99&6,AOPRND-6 ASALT 37050 SBR LOAD79&6,AOPRND-6 ASALT 37060 CW EDWDSW,MOVDSW ASALT 37070 SBR LOAD65&10,AADJ ASALT 37080 SBR LOAD65&18,AADJ ASALT 37090 SBR LOAD5C&6,AOPRND-6 ASALT 37100 SBR LOAD5D&6,AIND ASALT 37110 SBR LOAD5E&6,AIND ASALT 37120 SBR LOAD5J&6,AOPRND-6 ASALT 37130 SBR LOAD5J&13,AADJ ASALT 37140 SBR LOAD53&20,AADJ ASALT 37150 SBR LOAD4E&6,AOPRND ASALT 37160 MLC @I@,STYPE ASALT 37170 MLC SAVEX2,*&4 ASALT 37180 CW 0 ASALT 37190 B LOAD40 ASALT 37200 SKIPN ASALT 37210LOAD80 MLC @ @,AOPRND JOB CARD ASALT 37220 MLC 80 ASALT 37230 MLC @J@,STYPE ASALT 37240 B LOAD40 ASALT 37250 SKIPN ASALT 38010LOAD81 MLC @DCW @,GENOP END CARD READ ASALT 38020 MLC @000000000000000@,GENCNS&14 ASALT 38030 MLC @PACKEDA@,GENLBL ASALT 38040 MLC @015@,GENEND&22 ASALT 38050 MLC @PD@,GENEND&28 ASALT 38060 PUT ,GENCON ASALT 38070 MLC @PACKEDA@,LABEL ASALT 38080 MLC @P@,TYPE ASALT 38090 MLC @015@,LENGTH ASALT 38100 PUT ,CONST ASALT 38110 MLC @PACKEDB@,GENLBL ASALT 38120 MLC @DCW @,GENOP ASALT 38130 MLC @000000000000000@,GENCNS&14 ASALT 38140 MLC @015@,GENEND&22 ASALT 38150 MLC @PD@,GENEND&28 ASALT 38160 PUT ,GENCON ASALT 38170 MLC @PACKEDB@,LABEL ASALT 38180 MLC @P@,TYPE ASALT 38190 MLC @015@,LENGTH ASALT 38200 PUT ,CONST ASALT 38210 CLOSED,GENCON ASALT 38220 MLC @PRTAREAD132@,LENGTH ASALT 38230 CHAIN2 ASALT 38240 PUT ,CONST ASALT 38250 MLC @READARED080@,LENGTH ASALT 39010 CHAIN2 ASALT 39020 PUT ,CONST ASALT 39030 MLC @PCHAREAD080@,LENGTH ASALT 39040 CHAIN2 ASALT 39050 PUT ,CONST ASALT 39060 CLOSED,GENCON ASALT 39070 OPEN D,INGEN PUT GENERATED CONSTANTS ASALT 39080LOAD8A GET INGEN ON END OF SOURCE FILE. ASALT 39090 PUT ,SOURCE ASALT 39100 B LOAD91 CLEAR SOURCE IOAREA ASALT 39110 B LOAD8A ASALT 39120LOAD8B SBR X1,0 PROCESS END CARD ASALT 39130 MLC @E@,STYPE ASALT 39140LOAD8C BCE LOAD8E,22&X1, Q. END OF OPERAND ASALT 39150 BCE LOAD8D,22&X1,& Q. OPERAND ASALT 39160 BCE LOAD8D,22&X1,- ADJUSTMENT. ASALT 39170 SBR X1,1&X1 ASALT 39180 B LOAD8C ASALT 39190LOAD8D CW LOAD8K ASALT 39200LOAD8E MLC 21&X1,AOPRND-6&X1 ASALT 39210 BW LOAD8J,LOAD8K Q. ADDRESS ADJUSTMENT ASALT 39220 SW 23&X1 YES ASALT 39230 SBR LOAD8H&3,23&X1 SAVE FOR CLEAR WORD MARK ASALT 39240 SBR LOAD8I&3,22&X1 SAVE FOR ZONE MOVE ASALT 39250LOAD8F BCE LOAD8G,24&X1, Q. END OF ADJUSTMENT ASALT 40010 SBR X1,1&X1 ASALT 40020 B LOAD8F ASALT 40030LOAD8G ZA 23&X1,AADJ ASALT 40040LOAD8H CW 23&X1 ASALT 40050LOAD8I MLZS 22&X1,AADJ ASALT 40060LOAD8J CW 6,16 ASALT 40070 CW 21 ASALT 40080 MLC 72,CDIMAG ASALT 40090 PUT ,SOURCE ASALT 40100 CLOSED,SOURCE,INGEN,CONST ASALT 40110 FETCH@PASSB@ FETCH NEXT PROGRAM PHASE ASALT 40120 SKIPN ASALT 40130LOAD82 MLC @M@,STYPE-1 NO END CARD ASALT 40140 MLC @START@,25 ASALT 40150 MLC @END @ ASALT 40160 B LOAD81 ASALT 40170* ASALT 40180LOAD83 MLC @C@,STYPE INDICATE COMMENTS CARD ASALT 40190 B LOAD40 ASALT 40200 SKIPN ASALT 40210* ASALT 40220*** OUTPUT DISK FILE LIMITS REACHED ASALT 40230* ASALT 40240LOAD86 CS 332 ASALT 40250 CS ASALT 41010 MLC @SOURCE@,238 ASALT 41020LOAD87 MLC @FILE LIMITS EXCEEDED@,260 ASALT 41030 CC T ASALT 41040 W ASALT 41050 CC L ASALT 41060 CC L ASALT 41070 CC L ASALT 41080 CC L ASALT 41090 CC L ASALT 41100 H 111,111 ASALT 41110 B *-10 ASALT 41120* ASALT 41130LOAD88 CS 332 ASALT 41140 CS ASALT 41150 MLC @CONSTANT@,238 ASALT 41160 B LOAD87 ASALT 41170* ASALT 41180LOAD89 CS 332 ASALT 41190 CS ASALT 41200 MLC @GENERATED CONSTANT@,238 ASALT 41210 B LOAD87 ASALT 41220* ASALT 41230LOAD90 DCW 00 ASALT 41240 SKIPN ASALT 41250* ASALT 42010*** CHECK GENCON LITERAL FOR A POSSIBLE EDIT WORD. ASALT 42020* ASALT 42030LOADE0 MLC X1,SAVER1 SAVE X1 ASALT 42040 MLC X2,SAVER2 SAVE X2 ASALT 42050 SBR X1,72 ASALT 42060 CW ZEROSW,EDWDSW ASALT 42065 MLC @0@,EDWDCT#1 ASALT 42070LOADE2 BCE LOADE3,0&X1,@ Q. RIGHT BOUND ASALT 42080 MA @I9I@,X1 NO ASALT 42090 B LOADE2 ASALT 42100LOADE3 SBR X2,1&X2 ASALT 42110 BCE LOADE4,0&X2,$ Q. IS FIRST CHARACTER A ASALT 42120 BCE LOADE4,0&X2, POSSIBLE BEGINNING OF ASALT 42130* AN EDIT WORD. ASALT 42140 B LOADEX NO-- NOT AN EDIT WORD ASALT 42150LOADE4 MLC X1,SAVEX1 YES ASALT 42160LOADE5 BCE LOADEA,0&X2, ASALT 42170 BCE LOADE7,0&X2,0 ASALT 42180 SBR X1,0 ASALT 42190LOADE6 C 0&X2,TABLE&X1 Q. IS CHARACTER IN EDIT ASALT 42200 BE LOADE8 WORD TABLE. ASALT 42210 SBR X1,1&X1 NO ASALT 42220 BCE LOADEX,X1,9 Q. NOT IN TABLE--NOT EDITWD ASALT 42230 B LOADE6 ASALT 42240LOADE7 BW LOADEX,ZEROSW EXIT IF MORE THAN ONE ZERO ASALT 42250 SW ZEROSW ASALT 42260 A *-6,EDWDCT INCREMENT EDIT WORD DIGITS ASALT 42270* COUNTER ASALT 43010LOADE8 SBR X2,1&X2 ASALT 43020 SW EDWDSW ASALT 43030 C X2,SAVEX1 Q. AT END OF LITERAL ASALT 43040 BU LOADE5 NOT YET ASALT 43050LOADE9 MLC @X@,TYPE INDICATE HEXADECIMAL ASALT 43060 MLC @X@,GENEND&27 TYPE OF CONSTANT ASALT 43062 A *-6,LENGTH ASALT 43063* CHARACTER ASALT 43064 MLNS EDWDCT,*&8 ASALT 43065 BCE LOADEX,@13579@, BRANCH IF ODD NUMBER OF ASALT 43066 CHAIN4 DIGITS TO BE EDITED ASALT 43067 A *-6,LENGTH ADD 1 TO LENGTH TO MAKE AN ASALT 43068* ODD NUMBER OF DIGITS ASALT 43070LOADEX MLC SAVER1,X1 RESTORE X1 ASALT 43080 MLC SAVER2,X2 RESTORE X2 ASALT 43090 B LOAD43 EXIT ASALT 43100* ASALT 43110LOADEA SBR X2,1&X2 ASALT 43115 A *-6,EDWDCT INCREMENT EDIT WORD DIGITS ASALT 43116* COUNTER ASALT 43120 C X2,SAVEX1 ASALT 43130 BU LOADE5 ASALT 43140 BW LOADE9,EDWDSW Q. EDOT WORD CHAR/S FOUND ASALT 43150 B LOADEX ASALT 43160*** SCAN SHORT %EMBEDDED)LITERAL FOR POSSIBLE EDIT WORD. ASALT 43170LOADEB MLC X1,SAVER1#3 SAVE X1 ASALT 43180 MLC X2,SAVER2#3 SAVE X2 ASALT 43190 CW ZEROSW,EDWDSW ASALT 43200 SBR X2,1&X2 ASALT 43210 BCE LOADED,0&X2, ASALT 43220 BCE LOADED,0&X2,$ ASALT 43230LOADEC MLC SAVER1,X1 RESTORE X1 ASALT 43240 MLC SAVER2,X2 RESTORE X2 ASALT 43250 B LOAD44 LEAVE EMBEDDED ASALT 44010LOADED BCE LOADEI,0&X2, ASALT 44020 BCE LOADEF,0&X2,0 ASALT 44030 SBR X1,0 ASALT 44040LOADEE C 0&X2,TABLE&X1 ASALT 44050 BE LOADEG ASALT 44060 SBR X1,1&X1 ASALT 44070 BCE LOADEC,X1,9 ASALT 44080 B LOADEE ASALT 44090LOADEF BW LOADEC,ZEROSW EXIT IF MORE THAN ONE ZERO ASALT 44100 SW ZEROSW ASALT 44110LOADEG SBR X2,1&X2 ASALT 44120 SW EDWDSW ASALT 44130 BCE LOADEH,0&X2,@ Q. END OF LITERAL ASALT 44140 B LOADED ASALT 44150LOADEH MLC SAVER1,X1 RESTORE X1 ASALT 44160 MLC SAVER2,X2 RESTORE X2 ASALT 44170 B LOAD4A TREAT AS GENERATED LITERAL ASALT 44180LOADEI SBR X2,1&X2 ASALT 44190 BCE LOADEJ,0&X2,@ Q. END OF LITERAL ASALT 44200 B LOADED ASALT 44210LOADEJ BW LOADEH,EDWDSW Q. EDIT WORD ASALT 44220 B LOADEC NO--LEAVE EMBEDDED ASALT 44230 SKIPN ASALT 44240LOAD91 SBR LOAD92&3 CLEAR SOURCE DISK AREA ASALT 44250 MLC @ @,STYPE ASALT 45010 MLC STYPE ASALT 45020 CHAIN15 ASALT 45030LOAD92 B 0 ASALT 45040* ASALT 45050LOAD93 SBR LOAD94&3 CLEAR GENERATED CONSTANT ASALT 45060 MLC @ @,GENEND&28 ASALT 45070 MLC GENEND&28 ASALT 45080 CHAIN5 ASALT 45090LOAD94 B 0 ASALT 45100 SKIPN ASALT 45110 LTORG* ASALT 45120 END START ASALT