01010AUTOCODER RUN THRU OUTPUT PASS2 01020 JOB 1400 AUTOCODER TRANSLATOR -- MAIN ROUTINE PASS2 01030 CTL 311 0PPP11 11792 PASS2 01040* PASS2 01050* MODIFIED 9/21/68. PASS2 01060* PASS2 01070 DIOCS PASS2 01080IODEVICES DISK PASS2 01090DISKDRIVES 0,2,4,6,8 PASS2 01100DUPPACKS YES PASS2 01110PROCESTYPE CONSEC PASS2 01120CYLDOVFLW YES PASS2 01130FEATURES DIRECT PASS2 01140 DTF DISKIN PASS2 01150FILETYPE DISK,INPUT,CONSEC PASS2 01160IOAREA INAREA PASS2 01170SIZEREC 100 PASS2 01180NAT0PACK 0 PASS2 01190EOFADDR EOFIN PASS2 01200FILESTART 001100 PASS2 01210FILEND 007999 PASS2 01220NSECTORS 1 PASS2 01230NRECORDS 0 PASS2 01240 DTF DSKOUT PASS2 01250FILETYPE DISK,OUTPUT,CONSEC PASS2 02010IOAREA OUTDSK PASS2 02020SIZEREC 150 PASS2 02030NAT0PACK 0 PASS2 02040EOFADDR EOFOUT PASS2 02050FILESTART 008000 PASS2 02060FILEND 019999 PASS2 02070INDEXREG X3 PASS2 02080RECFORM FIXED,BLOCKED PASS2 02090NSECTORS 3 PASS2 02100NRECORDS 1 PASS2 02110 DTF CONST PASS2 02120FILETYPE DISK,INPUT,CONSEC PASS2 02130IOAREA ICONST PASS2 02140SIZEREC 11 PASS2 02150NAT0PACK 0 PASS2 02160EOFADDR EOFCON PASS2 02170FILESTART 001000 PASS2 02180FILEND 001099 PASS2 02190INDEXREG X2 PASS2 02200RECFORM FIXED,BLOCKED PASS2 02210NSECTORS 1 PASS2 02220NRECORDS 8 PASS2 02230 SKIPN PASS2 02240*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* PASS2 02250CORE EQU 12000 THIS MUST BE THE SIZE *** PASS2 03010* OF THE OBJECT MACHINE. *** PASS2 03020* AND MUST REFLECT THE *** PASS2 03030* SIZE FOR WHICH THE *** PASS2 03040* DISK MONITOR %DOMSY) *** PASS2 03050* WAS ASSEMBLED AND *** PASS2 03060* GENERATED *** PASS2 03070*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* PASS2 03080 SKIPN PASS2 03090INAREA DA 1X10,C SOURCE INPUT AREA PASS2 03100 1,1 PASS2 03110 DA 1X100,G,C PASS2 03120PGLN14 1,5 PASS2 03130LBL14 6,12 PASS2 03140OP1400 16,20 PASS2 03150OPR14 21,21 PASS2 03160OPR14E 72 PASS2 03170AOPRND 73,79 PASS2 03180AIND 80,80 PASS2 03190AADJ 81,83 PASS2 03200BOPRND 84,90 PASS2 03210BIND 91,91 PASS2 03220BADJ 92,94 PASS2 03230DMOD 95,95 PASS2 03240TYPE 100,100 PASS2 03250COMT14 EQU OPR14E PASS2 04010* PASS2 04020* PASS2 04030OUTDSK DA 1X10,C PASS2 04040 1,1 PASS2 04050 DA 2X149,`,X3,G,C PASS2 04060OCODES 1,149 PASS2 04070OUTWRK DA 1X149,`,C PASS2 04080IMAG14 1,72 PASS2 04090NAM360 73,80 PASS2 04100OP360 81,85 PASS2 04110OPR360 86,86 PASS2 04120CONT36 142,142 PASS2 04130SEQ360 143,145 PASS2 04140CODES 146,149 PASS2 04150* PASS2 04160* PASS2 04170* PASS2 04180CLEAR1 DA 1X149,`,C PASS2 04190BLANKS 1,72 PASS2 04200ICONST DA 1X10,C PASS2 04210 1,1 PASS2 04220 DA 9X11,X2,C PASS2 04230CLABEL 1,7 PASS2 04240CTYPE 8,8 PASS2 04250CLENG 9,11 PASS2 05010 DCW @ @,G PAD PASS2 05020 SKIPN PASS2 05030* PASS2 05040** TABLE OF TRANSLATABLE OP CODES AND PHASE WHICH TRANSLATES THEM. PASS2 05050* PASS2 05060OPCODE DCW @MLC @ PASS2 05070FETCHR DCW @MOVES@ PASS2 05080 DCW @B @ PASS2 05090 DCW @LOGIC@ PASS2 05100 DCW @DCW @ PASS2 05110 DCW @DECLR@ PASS2 05120 DCW @BCE @ PASS2 05130 DCW @LOGIC@ PASS2 05140 DCW @A @ PASS2 05150 DCW @ARITH@ PASS2 05160 DCW @S @ PASS2 05170 DCW @ARITH@ PASS2 05180 DCW @BU @ PASS2 05190 DCW @LOGIC@ PASS2 05200 DCW @BE @ PASS2 05210 DCW @LOGIC@ PASS2 05220 DCW @BH @ PASS2 05230 DCW @LOGIC@ PASS2 05240 DCW @BL @ PASS2 05250 DCW @LOGIC@ PASS2 06010 DCW @C @ PASS2 06020 DCW @LOGIC@ PASS2 06030 DCW @DC @ PASS2 06040 DCW @DECLR@ PASS2 06050 DCW @BW @ PASS2 06060 DCW @LOGIC@ PASS2 06070 DCW @BWZ @ PASS2 06080 DCW @LOGIC@ PASS2 06090 DCW @BM @ PASS2 06100 DCW @LOGIC@ PASS2 06110 DCW @MLCWA@ PASS2 06120 DCW @MOVES@ PASS2 06130 DCW @MLNS @ PASS2 06140 DCW @MOVES@ PASS2 06150 DCW @MLZS @ PASS2 06160 DCW @MOVES@ PASS2 06170 DCW @MCS @ PASS2 06180 DCW @MOVES@ PASS2 06190 DCW @CS @ PASS2 06200 DCW @MISC @ PASS2 06210 DCW @SW @ PASS2 06220 DCW @MISC @ PASS2 06230 DCW @CW @ PASS2 06240 DCW @MISC @ PASS2 06250 DCW @H @ PASS2 07010 DCW @MISC @ PASS2 07020 DCW @DA @ PASS2 07030 DCW @DECLR@ PASS2 07040 DCW @W @ PASS2 07050 DCW @IODEV@ PASS2 07060 DCW @R @ PASS2 07070 DCW @IODEV@ PASS2 07080 DCW @P @ PASS2 07090 DCW @IODEV@ PASS2 07100 DCW @CC @ PASS2 07110 DCW @MISC @ PASS2 07120 DCW @CCB @ PASS2 07130 DCW @MISC @ PASS2 07140 DCW @MCE @ PASS2 07150 DCW @MOVES@ PASS2 07160 DCW @BCV @ PASS2 07170 DCW @LOGIC@ PASS2 07180 DCW @ZA @ PASS2 07190 DCW @ARITH@ PASS2 07200 DCW @ZS @ PASS2 07210 DCW @ARITH@ PASS2 07220 DCW @MRCM @ PASS2 07230 DCW @MOVES@ PASS2 07240 DCW @SS @ PASS2 07250 DCW @MISC @ PASS2 08010 DCW @SSB @ PASS2 08020 DCW @MISC @ PASS2 08030 DCW @WR @ PASS2 08040 DCW @IODEV@ PASS2 08050 DCW @WP @ PASS2 08060 DCW @IODEV@ PASS2 08070 DCW @RP @ PASS2 08080 DCW @IODEV@ PASS2 08090 DCW @WRP @ PASS2 08100 DCW @IODEV@ PASS2 08110 DCW @WT @ PASS2 08120 DCW @IODEV@ PASS2 08130 DCW @RT @ PASS2 08140 DCW @IODEV@ PASS2 08150 DCW @RWU @ PASS2 08160 DCW @IODEV@ PASS2 08170 DCW @RWD @ PASS2 08180 DCW @IODEV@ PASS2 08190 DCW @WTM @ PASS2 08200 DCW @IODEV@ PASS2 08210 DCW @BSP @ PASS2 08220 DCW @IODEV@ PASS2 08230 DCW @SKP @ PASS2 08240 DCW @IODEV@ PASS2 08250 DCW @NOP @ PASS2 09010 DCW @MISC @ PASS2 09020 DCW @BSS @ PASS2 09030 DCW @LOGIC@ PASS2 09040 DCW @BIN @ PASS2 09050 DCW @LOGIC@ PASS2 09060 DCW @BC9 @ PASS2 09070 DCW @LOGIC@ PASS2 09080 DCW @PS @ PASS2 09090 DCW @IODEV@ PASS2 09100 DCW @PSK @ PASS2 09110 DCW @IODEV@ PASS2 09120 DCW @DS @ PASS2 09130 DCW @DECLR@ PASS2 09140 DCW @DSA @ PASS2 09150 DCW @DECLR@ PASS2 09160 DCW @MA @ PASS2 09170 DCW @MISC @ PASS2 09180 DCW @SBR @ PASS2 09190 DCW @MISC @ PASS2 09200 DCW @M @ PASS2 09210 DCW @ARITH@ PASS2 09220 DCW @D @ PASS2 09230 DCW @ARITH@ PASS2 09240 DCW @MU @ PASS2 09250 DCW @IODEV@ PASS2 10010 DCW @CU @ PASS2 10020 DCW @IODEV@ PASS2 10030 DCW @LU @ PASS2 10040 DCW @IODEV@ PASS2 10050 DCW @RCP @ PASS2 10060 DCW @IODEV@ PASS2 10070 DCW @RF @ PASS2 10080 DCW @IODEV@ PASS2 10090 DCW @RCPW @ PASS2 10100 DCW @IODEV@ PASS2 10110 DCW @RTB @ PASS2 10120 DCW @IODEV@ PASS2 10130 DCW @RTW @ PASS2 10140 DCW @IODEV@ PASS2 10150 DCW @WCP @ PASS2 10160 DCW @IODEV@ PASS2 10170 DCW @WCPW @ PASS2 10180 DCW @IODEV@ PASS2 10190 DCW @WRF @ PASS2 10200 DCW @IODEV@ PASS2 10210 DCW @WTB @ PASS2 10220 DCW @IODEV@ PASS2 10230 DCW @WTW @ PASS2 10240 DCW @IODEV@ PASS2 10250 DCW @MCW @ PASS2 11010 DCW @MOVES@ PASS2 11020 DCW @LCA @ PASS2 11030 DCW @MOVES@ PASS2 11040 DCW @MZ @ PASS2 11050 DCW @MOVES@ PASS2 11060 DCW @MN @ PASS2 11070 DCW @MOVES@ PASS2 11080 DCW @MCM @ PASS2 11090 DCW @MOVES@ PASS2 11100 DCW @BAV @ PASS2 11110 DCW @LOGIC@ PASS2 11120 DCW @BBE @ PASS2 11130 DCW @LOGIC@ PASS2 11140 DCW @EQU @ PASS2 11150 DCW @DECLR@ PASS2 11160 DCW @GET @ PASS2 11170 DCW @IODEV@ PASS2 11180 DCW @PUT @ PASS2 11190 DCW @IODEV@ PASS2 11200 DCW @DTF @ PASS2 11210 DCW @DIOCS@ PASS2 11220 DCW @DIOCS@ PASS2 11230 DCW @DIOCS@ PASS2 11240 DCW @CLOSE@ PASS2 11250 DCW @IODEV@ PASS2 12010 DCW @OPEN @ PASS2 12020 DCW @IODEV@ PASS2 12030 DCW @SEEK @ PASS2 12040 DCW @IODEV@ PASS2 12050 DCW @SKIP @ PASS2 12060 DCW @IODEV@ PASS2 12070 DCW @SPACE@ PASS2 12080 DCW @IODEV@ PASS2 12090 DCW @JOB @ PASS2 12100 DCW @COMPL@ PASS2 12110 DCW @FEORL@ PASS2 12120 DCW @IODEV@ PASS2 12130 DCW @RELSE@ PASS2 12140 DCW @IODEV@ PASS2 12150 DCW @EX @ PASS2 12160 DCW @COMPL@ PASS2 12170 DCW @XFR @ PASS2 12180 DCW @COMPL@ PASS2 12190 DCW @ORG @ PASS2 12200 DCW @COMPL@ PASS2 12210 DCW @SKIPN@ PASS2 12220 DCW @COMPL@ PASS2 12230 DCW @LTORG@ PASS2 12240 DCW @COMPL@ PASS2 12250 DCW @LIST @ PASS2 13010 DCW @COMPL@ PASS2 13020 DCW @ULST @ PASS2 13030 DCW @COMPL@ PASS2 13040 DCW @RUN @ PASS2 13050 DCW @COMPL@ PASS2 13060 DCW @RCB @ PASS2 13070 DCW @IODEV@ PASS2 13080 DCW @WM @ PASS2 13090 DCW @IODEV@ PASS2 13100 DCW @PCB @ PASS2 13110 DCW @IODEV@ PASS2 13120ENDTBL DCW @END @ THIS MUST BE LAST SET PASS2 13130 DCW @COMPL@ OF ENTRIES IN TABLE. PASS2 13140 SKIPN PASS2 13150H90 DCW 00 PASS2 13160LU90 DCW 00 PASS2 13170GENLBL DCW 000 PASS2 13180PRGNME EQU CORE-24 DISK PHASE NAME LAST FETCH PASS2 13190********** PASS2 13200** PASSED DATA %FROM PREVIOUS ROUTINES). PASS2 13210********** PASS2 13220SWIOCS EQU 86 PASS2 13230PASSED ORG 101 PASS2 13240RDRSW DS 1 PASS2 13250RDRSS DS 1 PASS2 14010RDREOF DS 9 PASS2 14020RDRAR DS 7 PASS2 14030RDDTF DS 7 PASS2 14040PCHSW DS 1 PASS2 14050PCHSS DS 1 PASS2 14060PCHAR DS 7 PASS2 14070PHDTF DS 7 PASS2 14080PRTSW DS 1 PASS2 14090PRTCC DS 1 PASS2 14100PRTAR DS 7 PASS2 14110PRDTF DS 7 PASS2 14120RDFSW DS 1 PASS2 14130RDFSS DS 1 PASS2 14140 DA 6X12,X1 PASS2 14150TPUNIT 1 PASS2 14160TPIO 2 PASS2 14170TPAREA 11 PASS2 14180TPCTL 12 PASS2 14190DTFSV1 DCW #7 PASS2 14200 ORG PASSED PASS2 14210 SKIPN PASS2 14220****** PASS2 14230** COMMON I/O ROUTINES PASS2 14240****** PASS2 14250* PASS2 15010** DISK OUTPUT PASS2 15020* PASS2 15030WRITED SBR WREXIT&3 PASS2 15040 A *-6,SEQ360 PASS2 15050 MLC CODES,OCODES PASS2 15060 CHAIN6 PASS2 15070 PUT ,DSKOUT PASS2 15080 MRCM CLEAR1,OUTWRK CLEAR OUTPUT AREA PASS2 15090WREXIT B * PASS2 15100* PASS2 15110** DISK INPUT PASS2 15120* PASS2 15130GETCD SBR GETXIT&3 PASS2 15140 CW DMOD PASS2 15150GETCD1 GET DISKIN READ 1400 SOURCE PASS2 15160 SW DMOD PASS2 15170 MLC OPR14E,IMAG14 PASS2 15180 CHAIN3 PASS2 15190 BCE *&5,TYPE-3,* Q. ASTERISK ADJUSTMENT PASS2 15200 B GETXIT NO PASS2 15210 B CODEIT PASS2 15220 DCW @2/@ PASS2 15230GETXIT B 0 PASS2 15240 SKIPN PASS2 15250********** PASS2 16010** MAIN LINE ROUTINE -- READS 1400 STATEMENT & FETCHES SUBROUTINE. PASS2 16020********** PASS2 16030MAIN00 B GETCD READ 1400 SOURCE PASS2 16040PROCES MLC BLANKS,REV99 ** PASS2 16050 CHAIN3 * PASS2 16060 MLC BLANKS,REV93 * RESET REVERSE PASS2 16070 CHAIN2 * ROUTINE WORK AREAS. PASS2 16080 CW REV95,REV90 * PASS2 16090 CW ** PASS2 16100 CW REV80,REV84 ** PASS2 16110 MLC BLANKS,SRCH97 * RESET SEARCH PASS2 16120 MLC * ROUTINE PASS2 16130 CW SRCH93 * WORK AREAS. PASS2 16140 SBR SRCH92,0 * PASS2 16150 SBR SRCH91,0 ** PASS2 16160 BCE COMENT,LBL14-6,* Q. 1400 COMMENTS CARD PASS2 16170* PASS2 16180 SBR X1,0 SCAN OP CODE TABLE FOR PASS2 16190MAIN01 C OP1400,OPCODE&X1 TRANSLATABLE OPERATION. PASS2 16200 BE FOUND PASS2 16210 C OPCODE&X1,ENDTBL Q. NOT IN TABLE PASS2 16220 BE NOTRAN YES PASS2 16230 SBR X1,10&X1 PASS2 16240 B MAIN01 PASS2 16250* PASS2 17010COMENT MLC IMAG14,OPR360&53 1400 COMMENTS CARD PASS2 17020 CHAIN2 PASS2 17030 B PUTD PASS2 17040* PASS2 17050NOTRAN B CODEIT PASS2 17060 DCW @D/@ PASS2 17070 C BLANKS,LBL14 PASS2 17080 BE MAIN02 PASS2 17090 MLC @NOPR@,OP360-1 PASS2 17100 MLC @0@,OPR360 PASS2 17110 B REV19 PASS2 17120PUTD B WRITED WRITE TRANSLATION RECORD PASS2 17130 B MAIN00 PASS2 17140MAIN02 MLC CON1,OP360 PASS2 17150 B PUTD PASS2 17160CON1 DCW @*****@ PASS2 17170* PASS2 17180FOUND C PRGNME,FETCHR&X1 Q. TRANSLATION ROUTINE IN PASS2 17190 BE COMMON CORE. PASS2 17200 FETCHFETCHR&X1 NO--FETCH IT FROM DISK PASS2 17210 SKIPN PASS2 17220* PASS2 17230** END OF 1400 SOURCE FILE PASS2 17240* PASS2 17250EOFIN CLOSED,DISKIN,CONST,DSKOUT PASS2 18010 CC A PASS2 18020 CS 332 PASS2 18030 CS PASS2 18040 MLC @END OF TRANSLATION PHASE@,250 PASS2 18050 W PASS2 18060 FETCH@PASS3@ PASS2 18070* PASS2 18080** END OF S/360 SOURCE FILE -- FILE LIMITS EXCEEDED. PASS2 18090* PASS2 18100EOFOUT CS 332 PASS2 18110 CS PASS2 18120 MLC @OUTPUT FILE LIMITS TO EXCEEDED@,265 PASS2 18130 MLC DSKOUT&34,246 PASS2 18140 MLC DSKOUT&40,256 PASS2 18150 CC A PASS2 18160 W PASS2 18170 NOP 1111 PASS2 18180 H PASS2 18190 H *-8 PASS2 18200 S @6@,DSKOUT&12 FORCE CLOSE PASS2 18210 MLZS *-4,DSKOUT&12 PASS2 18220 B EOFIN PASS2 18230 SKIPN PASS2 18240****** PASS2 18250* ROUTINE TO SEARCH CONSTANT FILE FOR DEFINED OPERANDS PASS2 19010****** PASS2 19020SEARCH SBR SRCHXT&3 PASS2 19030 MLC CONST&34,CONST&12 RESTORE FILESTART PASS2 19040 MLC CONST&28,CONST&42 RESET BLOCK/RECORD COUNTER PASS2 19050 CW SRCH98 PASS2 19060 CW SRCH95 PASS2 19070 CW SRCH90 PASS2 19080SRCH01 GET CONST PASS2 19090 C CLABEL,AOPRND Q. A-OPERAND FOUND PASS2 19100 BU SRCH02 NO--KEEP LOOKING PASS2 19110 SW SRCH98 YES-- INDICATE SO PASS2 19120 MLC CLENG,SRCH91 STORE A-OPERAND LENGTH PASS2 19130 MLC CTYPE,SRCH94 STORE A-OPERAND CLASS PASS2 19140 C BLANKS,BOPRND Q. NO B-OPERAND TO FIND PASS2 19150 BE SRCH04 YES--EXIT PASS2 19160 BW SRCH04,SRCH95 EXIT IF B-OPERAND FOUND TOO PASS2 19170SRCH02 C BLANKS,BOPRND Q. NO B-OPERAND TO LOOK FOR PASS2 19180 BE SRCH01 YES PASS2 19190 BW SRCH01,SRCH95 PASS2 19200 C CLABEL,BOPRND Q. B-OPERAND FOUND PASS2 19210 BU SRCH01 NO--KEEP LOOKING PASS2 19220 SW SRCH95 YES--INDICATE SO PASS2 19230 MLC CLENG,SRCH92 STORE B-OPERAND LENGTH PASS2 19240 MLC CTYPE,SRCH97 STORE B-OPERAND CLASS PASS2 19250 BW SRCH04,SRCH98 EXIT IF A-OPERAND FOUND TOO PASS2 20010 B SRCH01 PASS2 20020* PASS2 20030SRCH07 MLC SRCH97,SRCH94 SET A-CLASS EQUAL B-CLASS PASS2 20040 MLC AADJ,SRCH91 PASS2 20050 SW SRCH98 PASS2 20060* PASS2 20070EOFCON BW SRCH03,SRCH98 Q. A-OPERAND LOCATED PASS2 20080 BCE SRCH07,TYPE-2,L Q. A-OPERAND A LITERAL PASS2 20090 SW SRCH90 NO PASS2 20100SRCH03 C BLANKS,BOPRND PASS2 20110 BE SRCH04 PASS2 20120 BW SRCH04,SRCH95 Q. B-OPERAND LOCATED PASS2 20130 SW SRCH90 NO PASS2 20140SRCH04 C SRCH94,SRCH97 Q. OPERANDS OF SAME CLASS PASS2 20150 BE SRCHXT YES PASS2 20160 BCE SRCH06,SRCH94,X NO PASS2 20170 BCE SRCH06,SRCH94,D PASS2 20180 BCE SRCH06,SRCH94,C PASS2 20190SRCH05 SW SRCH93 PASS2 20200SRCHXT B * PASS2 20210* PASS2 20220SRCH06 BCE SRCHXT,SRCH97,D Q. CHAR TO CHAR OR EDIT PASS2 20230 BCE SRCHXT,SRCH97,C WORD TO CHAR TRANSFER PASS2 20240 B SRCH05 NO PASS2 20250* PASS2 21010SRCH90 DC #1 ONE OR BOTH OPERANDS MIS- PASS2 21020* SING IF THIS HAS WM. PASS2 21030SRCH91 DCW 000 A-OPERAND LENGTH. PASS2 21040SRCH92 DCW 000 B-OPERAND LENGTH. PASS2 21050SRCH93 DC #1 OPERANDS OF DIFFERENT DATA PASS2 21060* CLASS IF THIS HAS A WM. PASS2 21070SRCH94 DCW #1 A-OPERAND CLASS PASS2 21080SRCH97 DCW #1 B-OPERAND CLASS PASS2 21090SRCH95 DC #1 B-OPERAND LOCATED IF HAS WM PASS2 21100SRCH98 DC #1 A-OPERAND LOCATED IF HAS WM PASS2 21110 SKIPN PASS2 21120****** PASS2 21130* ROUTINE TO REVERSE 1400 OPERANDS %IF NECESSARY) AND PASS2 21140* GENERATE ANY REQUIRED INDEX/ADDRESS ADJUSTMENT. PASS2 21150****** PASS2 21160REVERS SBR REVXIT&3 PASS2 21170 CW REV83 PASS2 21180 ZA *-6,REV99 PASS2 21190 A AADJ,REV99 PASS2 21200 C REV99,&000 PASS2 21210 BE REV42 PASS2 21220 BCE *&5,SRCH94,D Q. A-OPERAND NAME REFERS TO PASS2 21230* HIGH-ORDER LOCATION PASS2 21240 B REV41 NO PASS2 21250 BCE *&5,SRCH97,D Q. B-OPERAND NAME REFERS TO PASS2 22010* HIGH-ORDER LOCATION PASS2 22020 B REV45 NO PASS2 22030 B CODEIT PASS2 22040 DCW @W/@ PASS2 22050 SW REV83 PASS2 22060 B REV42 PASS2 22070REV45 S SRCH92,REV99 PASS2 22080 A *-6,REV99 PASS2 22090 B REV42 PASS2 22100REV41 A SRCH91,REV99 1400 OPERAND ADJUSTED PASS2 22110 S @1@,REV99 PASS2 22120REV42 MLC AOPRND,REV98 PASS2 22130 BW *&5,REV94 Q. OPERAND-2 ADJ REQUIRED PASS2 22140 B *&8 NO PASS2 22150 A REV91,REV99 YES PASS2 22160* PASS2 22170 ZA *-6,REV97 PASS2 22180 A BADJ,REV97 PASS2 22190 C REV97,&000 PASS2 22200 BE REV44 PASS2 22210 BW REV44,REV83 PASS2 22220 BCE *&5,SRCH97,D Q. B-OPERAND NAME REFERS TO PASS2 22230* HIGH-ORDER LOCATION PASS2 22240 B REV43 NO PASS2 22250 S SRCH91,REV97 YES - DECR BY A-OP LENGTH PASS2 23010 A *-6,REV97 PASS2 23020 B REV44 PASS2 23030REV43 A SRCH92,REV97 1400 OPERAND ADJUSTED PASS2 23040 S @1@,REV97 PASS2 23050REV44 MLC BOPRND,REV96 PASS2 23060 BW *&5,REV90 Q. OPERAND-1 ADJ REQUIRED PASS2 23070 B *&8 NO PASS2 23080 A REV93,REV97 YES PASS2 23090* PASS2 23100 BCE REV05,BIND, Q. B-OPERAND INDEXED PASS2 23110 BCE REV46,BIND,0 Q. INDEXING SUPPRESSION PASS2 23120* PASS2 23130 MLC OP360,REV85 YES PASS2 23140 MLC CODES,REV81 PASS2 23150 MLC @ @,CODES PASS2 23160 MLC @LA @,OP360 PASS2 23170 MLC @5,@,OPR360&1 PASS2 23180 MLC BOPRND,OPR360&8 PASS2 23190 BWZ REV40,BOPRND-6,2 Q. ACTUAL ADDRESS INDEXED PASS2 23200 BCE REV03,REV97, Q. B-OPERAND ADJUSTED PASS2 23210 B CODEIT PASS2 23220 DCW @9/@ PASS2 23230 SBR X1,OPR360&2 PASS2 23240REV01 BCE REV02,0&X1, PASS2 23250 SBR X1,1&X1 PASS2 24010 B REV01 PASS2 24020REV02 MLZS REV97,0&X1 PASS2 24030 MLNS REV97,3&X1 PASS2 24040 MLC PASS2 24050 C 3&X1,@000@ PASS2 24060 BU REV03 PASS2 24070 MLC @ @,3&X1 PASS2 24080 MLC @ @,REV97 PASS2 24090 MLC @ @,CODES-1 PASS2 24100REV03 B REV19 MOVE LABEL AND COMMENTS PASS2 24110 B CODEIT PASS2 24120 DCW @1/@ PASS2 24130 B WRITED PASS2 24140 BCE REV17,BIND,1 Q. X1 REFERENCE PASS2 24150 MLNS BIND,OPR360&2 NO PASS2 24160REV04 MLC @5,@,OPR360&1 PASS2 24170 MLC @AR@,OP360-3 PASS2 24180 B CODEIT PASS2 24190 DCW @1/@ PASS2 24200 B WRITED PASS2 24210 MLC REV85,OP360 PASS2 24220 MLC REV81,CODES PASS2 24230 BW REV31,REV84 PASS2 24240 MLC @0% ,5)@,REV96 PASS2 24250 MLNS SRCH92,REV96-3 PASS2 25010 MLNS PASS2 25020 CW REV80 PASS2 25030 MLC @000@,REV97 PASS2 25040 C BLANKS,REV92 PASS2 25050 BE REV05 PASS2 25060 MLNS REV92,REV96-3 PASS2 25070 MLNS PASS2 25080* PASS2 25090REV05 BCE REV10,AIND, Q. A-OPERAND INDEXED PASS2 25100 BCE REV47,AIND,0 Q. INDEXING SUPPRESSION PASS2 25110* PASS2 25120 MLC OP360,REV85 YES PASS2 25130 MLC CODES,REV81 PASS2 25140 MLC @ @,CODES PASS2 25150 MLC @LA @,OP360 PASS2 25160 MLC @6,@,OPR360&1 PASS2 25170 MLC AOPRND,OPR360&8 PASS2 25180 BWZ REV40,AOPRND-6,2 Q. ACTUAL ADDRESS INDEXED PASS2 25190 BCE REV08,REV99, Q. A-OPERAND ADJUSTED PASS2 25200 B CODEIT PASS2 25210 DCW @9/@ PASS2 25220 SBR X1,OPR360&3 PASS2 25230REV06 BCE REV07,0&X1, PASS2 25240 SBR X1,1&X1 PASS2 25250 B REV06 PASS2 26010REV07 MLZS REV99,0&X1 PASS2 26020 MLNS REV99,3&X1 PASS2 26030 MLC PASS2 26040 C 3&X1,@000@ PASS2 26050 BU REV08 PASS2 26060 MLC @ @,3&X1 PASS2 26070 MLC @ @,CODES-1 PASS2 26080REV08 MLC @ @,REV99 PASS2 26090 B REV19 MOVE LABEL AND COMMENTS PASS2 26100 B CODEIT PASS2 26110 DCW @1/@ PASS2 26120 B WRITED PASS2 26130 BCE REV18,AIND,1 Q. X1 REFERENCE PASS2 26140 MLNS AIND,OPR360&2 NO PASS2 26150REV09 MLC @6,@,OPR360&1 PASS2 26160 MLC @AR@,OP360-3 PASS2 26170 B CODEIT PASS2 26180 DCW @1/@ PASS2 26190 B WRITED PASS2 26200 MLC @0% ,6)@,REV98 PASS2 26210 MLNS SRCH91,REV98-3 PASS2 26220 MLNS PASS2 26230 MLC REV85,OP360 RESTORE OP CODE PASS2 26240 MLC REV81,CODES PASS2 26250 BW REV49,REV95 Q. NEED OPERAND-2 LENGTH PASS2 27010 MLC @0%6) @,REV98 NO PASS2 27020REV49 CW REV95 PASS2 27030 MLC @000@,REV99 PASS2 27040* PASS2 27050REV10 SBR X1,OPR360-1 PASS2 27060 BCE REV33,REV96-6, Q. B-OPERAND PRESENT PASS2 27070 MLC REV96,OPR360&6 YES PASS2 27080REV11 SBR X1,1&X1 PASS2 27090 BCE REV12,0&X1, PASS2 27100 B REV11 PASS2 27110REV12 MLZS REV97,0&X1 PASS2 27120 MLNS REV97,3&X1 PASS2 27130 MLC PASS2 27140 BCE *&13,2&X1, PASS2 27150 C 3&X1,@000@ PASS2 27160 BU REV13 PASS2 27170 MLC @ @,REV97 PASS2 27180 MLC @ @,3&X1 PASS2 27190REV13 BCE REV14,0&X1, PASS2 27200 SBR X1,1&X1 PASS2 27210 B REV13 PASS2 27220REV14 BW REV15,REV80 Q. NEED EXPLICIT LENGTH PASS2 27230 B REV32 NO PASS2 27240REV15 MLC @% )@,4&X1 YES PASS2 27250 MLNS REV92,3&X1 PASS2 28010 MLC PASS2 28020 SBR X1,5&X1 PASS2 28030* PASS2 28040REV32 MLC @,@,0&X1 PASS2 28050* PASS2 28060REV33 BCE REV29,TYPE-2,L Q. LITERAL PASS2 28070 MLC REV98,7&X1 PASS2 28080 BCE REV39,REV79,D Q. BCE D-MOD AS OPERAND-2 PASS2 28090REV34 SBR X1,1&X1 PASS2 28100 BCE REV35,0&X1, PASS2 28110 B REV34 PASS2 28120REV35 MLZS REV99,0&X1 PASS2 28130 MLNS REV99,3&X1 PASS2 28140 MLC PASS2 28150 BCE *&13,2&X1, PASS2 28160 C 3&X1,@000@ PASS2 28170 BU REV36 PASS2 28180 MLC @ @,3&X1 PASS2 28190 MLC @ @,REV97 PASS2 28200REV36 BCE REV37,0&X1, PASS2 28210 SBR X1,1&X1 PASS2 28220 B REV36 PASS2 28230REV37 BW REV38,REV95 Q. B-OPERAND LENGTH REQUIRD PASS2 28240 B REV39 NO PASS2 28250REV38 MLC @% )@,4&X1 YES PASS2 29010 MLNS SRCH91,3&X1 PASS2 29020 MLC PASS2 29030 BCE REV39,AADJ, Q. OPERAND-2 ADJUSTED PASS2 29040 B CODEIT PASS2 29050 DCW @9/@ PASS2 29060REV39 CW REV95 PASS2 29065 MLC REV80,REV79 PASS2 29070 B REV19 MOVE LABEL AND COMMENTS PASS2 29080* PASS2 29090REVXIT B 0 PASS2 29100* PASS2 29110REV40 SBR *&10 PASS2 29120 B CODEIT PASS2 29130 DCW @5/@ PASS2 29140 B 0 PASS2 29150* PASS2 29160REV17 MLC @4@,OPR360&1 X1 REFERENCE PASS2 29170 B REV04 PASS2 29180REV18 MLC @4@,OPR360&1 PASS2 29190 B REV09 PASS2 29200* PASS2 29210REV46 B CODEIT PASS2 29220 DCW @9/@ PASS2 29230 B REV05 PASS2 29240REV47 B CODEIT PASS2 29250 DCW @9/@ PASS2 30010 B REV10 PASS2 30020* PASS2 30030** PASS2 30040* PASS2 30050REV19 SBR REV28&3 PASS2 30060 BW REV28,REV89 Q. ALREADY MOVED LABEL PASS2 30070 SW REV89 NO PASS2 30080 MLC LBL14,NAM360-1 PASS2 30090 SBR X1,CONT36-1 PASS2 30100REV20 BCE *&5,0&X1, Q. START OF INSTRUCTION PASS2 30110 B REV21 YES PASS2 30120 MA @I9I@,X1 NO--DECREASE X1 BY 1 PASS2 30130 B REV20 PASS2 30140REV21 MLC X2,REV88 PASS2 30150 SBR X1,3&X1 LEAVE 2 BLANKS AFTER INSTR. PASS2 30160 SBR X2,OPR14 PASS2 30170REV22 BCE REV23,0&X2,@ Q. LITERAL--LEFT BOUND PASS2 30180 BCE REV25,0&X2, Q. END OF 1400 INSTRUCTION PASS2 30190REV48 SBR X2,1&X2 PASS2 30200 B REV22 PASS2 30210REV23 SBR X2,OPR14&51 PASS2 30220REV24 BCE REV48,0&X2,@ Q. RIGHT BOUND OF LITERAL PASS2 30230 MA @I9I@,X2 PASS2 30240 B REV24 PASS2 30250REV25 C X2,REV87 Q. AT END OF 1400 INSTR. PASS2 31010 BL REV27 PASS2 31020 SBR X2,1&X2 PASS2 31030 BCE REV25,0&X2, PASS2 31040REV26 SW 0&X2 PASS2 31050 MLC 0&X2,0&X1 PASS2 31060 CW 0&X2 PASS2 31070 C X1,REV86 Q. END OF /360 INSTR. AREA PASS2 31080 BL REV27 YES PASS2 31090 C X2,REV87 Q. END OF 1400 INSTR. AREA PASS2 31100 BL REV27 YES PASS2 31110 SBR X1,1&X1 PASS2 31120 SBR X2,1&X2 PASS2 31130 B REV26 PASS2 31140REV27 MLC REV88,X2 RESTORE X2 PASS2 31150 SW OPR14 PASS2 31160REV28 B * EXIT PASS2 31170* PASS2 31180REV29 MLC REV98,9&X1 PASS2 31190 MLC @#P@ PASS2 31200 BCE REV30,SRCH94,P PASS2 31210 MLC @C@,2&X1 PASS2 31220REV30 SBR X1,4&X1 PASS2 31230 MLC REV79,TYPE-2 CLEAR LITERAL INDICATION PASS2 31240 B REV39 PASS2 31250* PASS2 32010REV31 MLC BLANKS,REV97 PASS2 32020 MLC @0%5) @,REV96 PASS2 32030 CW REV84 PASS2 32040 B REV05 PASS2 32050* PASS2 32060REV79 DCW #1 PASS2 32070REV80 DC #1 IF W/M, NEED EXPLICIT LENGT PASS2 32080REV81 DCW #4 HOLD AREA FOR CODES PASS2 32090REV83 DC @ @ W/M IF BOTH OPERANDS ARE PASS2 32100* GENERATED I/O AREAS PASS2 32110REV84 DC #1 IF WM, NO LENGTH ATTRIBUTE PASS2 32120REV85 DCW #5 OP CODE SAVE AREA PASS2 32130REV86 DSA CONT36-2 END OF /360 INSTR OPERAND PASS2 32140REV87 DSA OPR14&50 END OF 1400 INSTR AREA PASS2 32150REV88 DCW #3 X2 SAVE AREA PASS2 32160REV89 DC #1 LABEL/COMMENT PROCESSED SW PASS2 32170REV90 DC #1 OPERAND-1 ADJ REQD SW PASS2 32180REV91 DCW #3 OPERAND-1 ADJUSTMENT FACTOR PASS2 32190REV92 DCW #3 OPERAND-1 LENGTH PASS2 32200REV93 DCW #3 OPERAND-2 ADJUSTMENT FACTOR PASS2 32210REV94 DC #1 OPERAND-2 ADJ REQD SW PASS2 32220REV95 DC #1 OPERAND-2 LENGTH REQD SW PASS2 32230REV96 DCW #7 1400 B-OPERAND LABEL PASS2 32240REV97 DCW #3 1400 B-OPERAND ADJUSTMENT PASS2 32250REV98 DCW #7 1400 A-OPERAND LABEL PASS2 33010REV99 DCW #3 1400 A-OPERAND ADJUSTMENT PASS2 33020 SKIPN PASS2 33030****** PASS2 33040* COMMON ROUTINE TO MOVE ERROR/WARNING CODES TO OUTPUT AREA. PASS2 33050** PASS2 33060* CALLING SEQUENCE... B CODEIT PASS2 33070* DCW @ @ CODE TO BE MOVED IN PASS2 33080* . PASS2 33090* . PASS2 33100* DC @/@ END OF CODES INDICATOR PASS2 33110* ROUTINE RETURNS TO THIS POINT PASS2 33120****** PASS2 33130CODEIT SBR CODEXT&3 PASS2 33140 MLC X2,CODE90 SAVE INDEX PASS2 33150 MLC REGISTERS PASS2 33160 MLC CODEXT&3,X1 PASS2 33170 SBR X2,0 PASS2 33180CODE00 C CODES-3&X2,0&X1 Q. CODE ALREADY MOVED PASS2 33190 BE CODE02 YES PASS2 33200 BCE CODE01,CODES-3&X2, Q. SPACE AVAILABLE FOR CODE PASS2 33210 BCE CODE01,X2,3 Q. LIMIT--MOVE ANYWAY IF SO PASS2 33220 SBR X2,1&X2 INCREMENT X2 PASS2 33230 B CODE00 PASS2 33240CODE01 MLC 0&X1,CODES-3&X2 PASS2 33250CODE02 SBR X1,1&X1 PASS2 34010 BCE CODE03,0&X1,/ Q. END OF CODE INDICATOR PASS2 34020 B CODE00-7 NOT YET PASS2 34030CODE03 SBR CODEXT&3,1&X1 YES--SET EXIT TO RETURN PASS2 34040 MLC CODE90,X2 RESTORE INDEX PASS2 34050 MLC REGISTERS PASS2 34060CODEXT B 0 PASS2 34070* PASS2 34080CODE90 DCW #8 PASS2 34090 SKIPN PASS2 34100 LTORG* PASS2 34110COMMON EQU *&1 PASS2 34120 SKIPN PASS2 34130********** PASS2 34140** OPEN FILES & CHECK IF IOCS -- OVERLAID BY FIRST FETCH PASS2 34150********** PASS2 34160START OPEN D,DISKIN,CONST,DSKOUT PASS2 34170 BW MAIN00,SWIOCS Q. ANY IOCS STATEMENTS PASS2 34180 BSS START1,D Q. DOS/TOS OUTPUT PASS2 34190 MLC @DTFBGDISK@,OPR360&3 NO PASS2 34200 MLC PASS2 34210 MLC @1@,SWIOCS INDICATE DTFBG CREATED PASS2 34220 B CODEIT PASS2 34230 DCW @1/@ PASS2 34240 B WRITED PASS2 34250START1 B GETCD PASS2 35010 MLC BLANKS,IMAG14 PASS2 35020 FETCH@DTFGN@ PASS2 35030 EX START PASS2 01010 JOB ARITHMETIC INSTRUCTION TRANSLATION ROUTINES ARITH 01020******************************************************************* ARITH 01030********************** ARITHMETIC OPERATIONS ********************** ARITH 01040******************************************************************* ARITH 01050* * * ARITH 01060* A AFLD,BFLD * AP BFLD,AFLD * ARITH 01070* A AFLD * AP AFLD,AFLD * ARITH 01080* ZA AFLD,BFLD * ZAP BFLD,AFLD * ARITH 01090* ZA AFLD * ZAP AFLD,AFLD * ARITH 01100* S AFLD,BFLD * SP BFLD,AFLD * ARITH 01110* S AFLD * SP AFLD,AFLD * ARITH 01120* ZS AFLD,BFLD * ZAP BFLD,AFLD * ARITH 01130* * XI BFLD&LB-1,X@FE@ * ARITH 01140* * XI BFLD&LB-1,X@FF@ * ARITH 01150* ZS AFLD * ZAP AFLD,AFLD * ARITH 01160* * XI AFLD&LA-1,X@FE@ * ARITH 01170* * XI AFLD&LA-1,X@FF@ * ARITH 01180* M AFLD,BFLD * MP BFLD,AFLD * ARITH 01190* D AFLD,BFLD * DP BFLD,AFLD * ARITH 01200* A DECML,ZONED * PACK PACKEDB,ZONED * ARITH 01210* * OI PACKEDB&7,X@08@ * ARITH 01220* * AP PACKEDB,DECML * ARITH 01230* * UNPK ZONED,PACKEDB * ARITH 01240* A ZONED1,ZONED2 * PACK PACKEDA,ZONED1 * ARITH 01250* * OI PACKEDA&7,X@08@ * ARITH 02010* * PACK PACKEDB,ZONED2 * ARITH 02020* * OI PACKEDB&7,X@08@ * ARITH 02030* * AP PACKEDB,PACKEDA * ARITH 02040* * UNPK ZONED2,PACKEDB * ARITH 02050* A ZONED,DECML * PACK PACKEDA,ZONED * ARITH 02060* * OI PACKEDA&7,X@08@ * ARITH 02070* * AP DECML,PACKEDA * ARITH 02080* * * ARITH 02090******************************************************************* ARITH 02100 SKIPN ARITH 02110 ORG COMMON ARITH 02120* ARITH 02130*** TRANSLATION FOR ADD, ZERO AND ADD, SUBTRACT, ZERO AND SUBTRACT, ARITH 02140* MULTIPLY, AND DIVIDE. ARITH 02150* ARITH 02160ARITH SBR X1,0 ARITH 02170 SD IOCADR-7 RE-POSITION DISK HEADS ARITH 02180 BIN *-12,\ AFTER FETCH ARITH 02190ARTH01 C OP1400,ARTH91 ARITH 02200 BE ARTH02 ARITH 02210 SBR X1,8&X1 ARITH 02220 B ARTH01 ARITH 02230ARTH02 MLC ARTH92,*&4 ARITH 02240 B 000 ARITH 02250ARTH90 EQU *&1 ARITH 03010 DCW @A @ ARITH 03020 DSA ADD00 ARITH 03030 DCW @ZA @ ARITH 03040 DSA ZADD00 ARITH 03050 DCW @S @ ARITH 03060 DSA SUB00 ARITH 03070 DCW @ZS @ ARITH 03080 DSA ZSUB00 ARITH 03090 DCW @M @ ARITH 03100 DSA MULT00 ARITH 03110 DCW @D @ ARITH 03120 DSA DVD00 ARITH 03130 ORG ARTH90 ARITH 03140 DA 6X8,X1 ARITH 03150ARTH91 1,5 ARITH 03160ARTH92 6,8 ARITH 03170 SKIPN ARITH 03180* ARITH 03190** ADD ENTRY ARITH 03200* ARITH 03210ADD00 MLC @AP@,OP360-3 ARITH 03220 BCE ADD04,AOPRND-6, Q. FULL CHAIN ARITH 03230 BCE ADD05,BOPRND-6, Q. PARTIAL CHAIN ARITH 03240 BCE ADD11S,AOPRND-6,* Q. ADD *-6 ARITH 03250ADD01 BCE *&5,AIND, Q. INDEXED A-OPERAND ARITH 04010 SW REV95 YES--SET ON LENGTH REQ SW ARITH 04020 C AADJ,@ @ Q. ADJUSTED A-OPERAND ARITH 04030 BE *&5 NO ARITH 04040 SW REV95 YES--SET ON LENGTH REQ SW ARITH 04050 BCE ADD14,BOPRND-6,X Q. POSSIBLE INDEX REGISTER ARITH 04060ADD10 B SEARCH ARITH 04070 BW ADD06,SRCH90 Q. ONE OR BOTH LABELS NOT ARITH 04080* FOUND ARITH 04090 C SRCH91,SRCH92 COMP A-LENGTH TO B-LENGTH ARITH 04100 BL ADD07 B-LENGTH SHORTER ARITH 04110ADD02 BW ADD08,SRCH93 Q. OPERANDS OF DIFF CLASS ARITH 04120 BCE ADD03,SRCH94,P Q. A-CLASS PACKED DECIMAL ARITH 04130 MLC OP360,ADD90#5 ARITH 04140 MLC BADJ,ADD91#11 ARITH 04150 CHAIN2 ARITH 04160 B ADD11 GENERATE PACKED A-OPERAND ARITH 04170 B ADD12 GENERATE PACKED B-OPERAND ARITH 04180 MLC ADD90,OP360 CREATE ARITH 04190 MLC @PACKEDA @,AADJ ACTUAL ARITH 04200 CHAIN2 ARITH 04210 MLC @PACKEDB @,BADJ S/360 ARITH 04220 CHAIN2 EQUIVALENT ARITH 04230 B REVERS ARITH 04240 B WRITED ARITH 04250 B ADD13 GENERATE UNPACKED B-OPERAND ARITH 05010 B PUTD ARITH 05020* ARITH 05030ADD03 B REVERS ARITH 05040 B PUTD ARITH 05050* ARITH 05060ADD04 B CODEIT FULL CHAIN--NOT TRANSLATABL ARITH 05070 DCW @4/@ ARITH 05080 B NOTRAN&6 ARITH 05090* ARITH 05100ADD05 MLC AADJ,BADJ PARTIAL CHAIN ARITH 05110 CHAIN2 ARITH 05120 B ADD01 ARITH 05130* ARITH 05140ADD06 B CODEIT UNDEFINED DATA NAME ARITH 05150 DCW @3@ ARITH 05160 DCW @5@ ARITH 05170 DCW @S/@ ARITH 05180 B REVERS ARITH 05190 B PUTD ARITH 05200* ARITH 05210ADD07 B CODEIT B-FIELD SHORTER THAN A- ARITH 05220 DCW @R/@ ARITH 05230 B ADD02 ARITH 05240* ARITH 05250ADD08 BCE ADD09,SRCH97,P CLASS DIFFERENCE ARITH 06010 MLC BADJ,ADD91 B-OPERAND UNPACKED ARITH 06020 CHAIN2 ARITH 06030 MLC AADJ,ADD92#11 ARITH 06040 CHAIN2 ARITH 06050 MLC OP360,ADD90 ARITH 06060 B ADD12 GENERATE PACKED B-OPERAND ARITH 06070 MLC ADD92,AADJ ARITH 06080 CHAIN2 ARITH 06090 MLC @PACKEDB @,BADJ ARITH 06100 CHAIN2 ARITH 06110 MLC ADD90,OP360 ARITH 06120 B REVERS ARITH 06130 B WRITED ARITH 06140 B ADD13 GENERATE UNPACKED B-OPERAND ARITH 06150 B PUTD ARITH 06160* ARITH 06170ADD09 MLC BADJ,ADD91 A-OPERAND UNPACKED ARITH 06180 CHAIN2 ARITH 06190 MLC OP360,ADD90 ARITH 06200 B ADD11 GENERATE PACKED A-OPERAND ARITH 06210 MLC ADD91,BADJ ARITH 06220 CHAIN2 ARITH 06230 MLC @PACKEDA @,AADJ ARITH 06240 CHAIN2 ARITH 06250 MLC ADD90,OP360 ARITH 07010 B REVERS ARITH 07020 B PUTD ARITH 07030* ARITH 07040ADD11S C AADJ,-006 Q. A *-6,XXX ARITH 07050 BU ADD01 NO ARITH 07060 MLC @#P@1@@,AOPRND-2 YES ARITH 07070 MLC BLANKS,AADJ ARITH 07080 BCE *&5,CODES-3,2 ARITH 07090 B *&8 ARITH 07100 MLC @ @,CODES-3 ARITH 07110ADD11T B SEARCH ARITH 07120 BW *&5,SRCH95 Q. B-OPERAND DEFINED ARITH 07130 B ADD06 NO ARITH 07140 MLC @001@,SRCH91 ARITH 07150 MLC @P@,SRCH94 ARITH 07160 SW SRCH98 ARITH 07170 CW SRCH90,SRCH93 ARITH 07180 BCE ADD02,SRCH97,P Q. B-OPERAND PACKED ARITH 07190 SW SRCH93 NO ARITH 07200 B ADD02 ARITH 07210* ARITH 07220ADD11 SBR ADD11X&3 GENERATE INSTRUCTIONS ARITH 07230 MLC @PACKEDA @,BADJ TO PACK A-OPERAND ARITH 07240 CHAIN2 ARITH 07250 MLC @PACK@,OP360-1 ARITH 08010 B REVERS ARITH 08020 BCE *&7,AOPRND, Q. GENERATED I/O AREA ARITH 08030 B CODEIT YES-WARN ABT LENGTH & ADJ ARITH 08040 DCW @W/@ ARITH 08050 B CODEIT ARITH 08060 DCW @1/@ ARITH 08070 BCE *&7,AADJ, Q. A-OPERAND ADJUSTED ARITH 08080 B CODEIT YES-WARN ABT LENGTH & ADJ ARITH 08090 DCW @W/@ ARITH 08100 B WRITED ARITH 08110 MLC @PACKEDA&7,X@08@@,OPR360&14 ARITH 08120 MLC @OI@,OP360-3 ARITH 08130 B CODEIT ARITH 08140 DCW @1/@ ARITH 08150 B WRITED ARITH 08160ADD11X B 0 ARITH 08170* ARITH 08180ADD12 SBR ADD12X&3 GENERATE INSTRUCTION ARITH 08190 MLC @PACKEDB @,BADJ TO PACK B-OPERAND ARITH 08200 CHAIN2 ARITH 08210 MLC ADD91,AADJ ARITH 08220 CHAIN2 ARITH 08230 MLC @PACK@,OP360-1 ARITH 08240 B REVERS ARITH 08250 BCE *&7,AOPRND, Q. GENERATED I/O AREA ARITH 09010 B CODEIT YES-WARN ABT LENGTH & ADJ ARITH 09020 DCW @W/@ ARITH 09030 B CODEIT ARITH 09040 DCW @1/@ ARITH 09050 B WRITED ARITH 09060 BCE *&7,AADJ, Q. B-OPERAND ADJUSTED ARITH 09070 B CODEIT YES-WARN ABT LENGTH & ADJ ARITH 09080 DCW @W/@ ARITH 09090 MLC @PACKEDB&7,X@08@@,OPR360&14 ARITH 09100 MLC @OI@,OP360-3 ARITH 09110 B CODEIT ARITH 09120 DCW @1/@ ARITH 09130 B WRITED ARITH 09140ADD12X B 0 ARITH 09150* ARITH 09160ADD13 SBR ADD13X&3 GENERATE INSTRUCTION ARITH 09170 MLC @PACKEDB @,AADJ TO UNPACK B-OPERAND ARITH 09180 CHAIN2 ARITH 09190 MLC ADD91,BADJ ARITH 09200 CHAIN2 ARITH 09210 MLC @UNPK@,OP360-1 ARITH 09220 B REVERS ARITH 09230 BCE *&7,BOPRND, Q. GENERATED I/O AREA ARITH 09240 B CODEIT YES-WARN ABT LENGTH & ADJ ARITH 09250 DCW @W/@ ARITH 10010 B CODEIT ARITH 10020 DCW @1/@ ARITH 10030ADD13X B 0 ARITH 10040ADD14 C BOPRND-4,@X3 @ INDEX REGISTER ARITHMETIC ARITH 10050 BE ADD15 ARITH 10060 C BOPRND-4,@X2 @ ARITH 10070 BE ADD15 ARITH 10080 C BOPRND-4,@X1 @ ARITH 10090 B ADD10 ARITH 10100* ARITH 10110 MLC @4@,BOPRND-5 ARITH 10120ADD15 MLNS BOPRND-5,OPR360 ARITH 10130 BCE ADD17,AOPRND-6,@ Q. LITERAL ARITH 10140 C AOPRND-4,@X3 @ Q. INDEX REGISTER ARITH 10150 BE ADD16 ARITH 10160 C AOPRND-4,@X2 @ ARITH 10170 BE ADD16 ARITH 10180 C AOPRND-4,@X1 @ ARITH 10190 BU ADD18 ARITH 10200 MLC @4@,AOPRND-5 ARITH 10210ADD16 MLC @R@,OP360-3 ARITH 10220 MLNS AOPRND-5,OPR360&2 ARITH 10230 MLC @,@,OPR360&1 ARITH 10240 B REV19 ARITH 10250 B PUTD ARITH 11010* ARITH 11020ADD17 MLC @,@,OPR360&1 ARITH 11030 MLC @#F@,OPR360&3 ARITH 11040 MLC AOPRND,OPR360&10 ARITH 11050 MLC @ @,OP360-3 ARITH 11060 B REV19 ARITH 11070 B PUTD ARITH 11080* ARITH 11090ADD18 MLC @,@,OPR360&1 ARITH 11100 MLC @ @,OP360-3 ARITH 11110 MLC AOPRND,OPR360&8 ARITH 11120 B CODEIT ARITH 11130 DCW @F/@ ARITH 11140 B REV19 ARITH 11150 B PUTD ARITH 11160 SKIPN ARITH 11170* ARITH 11180** ZERO AND ADD ENTRY ARITH 11190* ARITH 11200ZADD00 MLC @ZAP@,OP360-2 ARITH 11210 BCE ADD04,AOPRND-6, Q. FULL CHAIN ARITH 11220 BCE ADD05,BOPRND-6, Q. PARTIAL CHAIN ARITH 11230 BCE ZADD01,AOPRND-6,* Q. POSSIBLE ZA *-6 ARITH 11240 B ADD01&8 ARITH 11250* ARITH 12010ZADD01 C AADJ,-006 Q. ZA *-6,XXX ARITH 12020 BU ADD01&8 ARITH 12030 BCE *&5,CODES-3,2 ARITH 12040 B *&8 ARITH 12050 MLC @ @,CODES-3 ARITH 12060 MLC @#P@0@@,AOPRND-2 YES ARITH 12070 MLC BLANKS,AADJ ARITH 12080 B ADD11T ARITH 12090* ARITH 12100** SUBTRACT ENTRY ARITH 12110* ARITH 12120SUB00 MLC @SP@,OP360-3 ARITH 12130 BCE ADD04,AOPRND-6, Q. FULL CHAIN ARITH 12140 BCE ADD05,BOPRND-6, Q. PARTIAL CHAIN ARITH 12150 B ADD01 ARITH 12160 SKIPN ARITH 12170* ARITH 12180** ZERO AND SUBTRACT ENTRY ARITH 12190* ARITH 12200ZSUB00 BCE ADD04,AOPRND-6, Q. FULL CHAIN ARITH 12210 MLC @ZAP@,OP360-2 ARITH 12220 BCE ZSUB08,BOPRND-6, Q. PARTIAL CHAIN ARITH 12230ZSUB01 B SEARCH SCAN DATA NAME TABLE ARITH 12240 BCE *&5,AIND, ARITH 12250 SW REV95 ARITH 13010 C AADJ,@ @ ARITH 13020 BE *&5 ARITH 13030 SW REV95 ARITH 13040 BW ZSUB09,SRCH90 Q. ONE OR BOTH DATA NAMES ARITH 13050* NOT FOUND IN TABLE ARITH 13060 C SRCH91,SRCH92 COMP A-LENGTH TO B-LENGTH ARITH 13070 BL ZSUB10 B-LENGTH SHORTER ARITH 13080ZSUB02 BW ZSUB11,SRCH93 Q. OPERANDS OF DIFF CLASS ARITH 13090 BCE ZSUB03,SRCH94,P Q. A-CLASS PACKED DECIMAL ARITH 13100 MLC OP360,ADD90 NO--MUST PACK FIELDS ARITH 13110 MLC BADJ,ADD91 ARITH 13120 CHAIN2 ARITH 13130 B ADD11 GENERATE PACKED A-OPERAND ARITH 13140 B ADD12 GENERATE PACKED B-OPERAND ARITH 13150 MLC ADD90,OP360 ARITH 13160 MLC @PACKEDA @,AADJ ARITH 13170 CHAIN2 ARITH 13180 MLC @PACKEDB @,BADJ ARITH 13190 CHAIN2 ARITH 13200 MLC ADD90,OP360 ARITH 13210 B REVERS ARITH 13220 B WRITED ARITH 13230 B ADD13 GENERATE UNPACKED B-OPERAND ARITH 13240 B ZSUB14 ARITH 13250ZSUB03 B REVERS REVERSE 1400 OPERANDS ARITH 14010 BW *&5,SRCH95 Q. NO B-OPERAND IN DATA ARITH 14020 B ZSUB13 NAME TABLE ARITH 14030ZSUB14 B WRITED ARITH 14040 MLC @XI @,OP360 ARITH 14050 BCE *&5,BIND, Q. B-OPERAND INDEXED ARITH 14060 B ZSUB18 YES ARITH 14070 MLC BOPRND,OPR360&6 ARITH 14080 SBR X1,OPR360 ARITH 14090ZSUB04 BCE ZSUB05,0&X1, Q. END OF LABEL ARITH 14100 SBR X1,1&X1 ARITH 14110 B ZSUB04 ARITH 14120ZSUB05 MLC SRCH92,ZSUB90 ARITH 14130 S @1@,ZSUB90 ARITH 14140 C ZSUB90,&00 Q. ZERO RESULT ARITH 14150 BE ZSUB15 YES ARITH 14160 MLZS *-4,ZSUB90 ARITH 14170 MLC ZSUB91,8&X1 ARITH 14180 CHAIN2 ARITH 14190 BCE *&8,SRCH97,P Q. B-OPERAND DECIMAL ARITH 14200 MLC @EF@,7&X1 ARITH 14210 B WRITED ARITH 14220 MLC @XI @,OP360 ARITH 14230 MLC BOPRND,OPR360&6 ARITH 14240 SBR X1,OPR360 ARITH 14250ZSUB06 BCE ZSUB07,0&X1, ARITH 15010 SBR X1,1&X1 ARITH 15020 B ZSUB06 ARITH 15030ZSUB07 MLC ZSUB91,8&X1 ARITH 15040 CHAIN2 ARITH 15050 MLC @F@,7&X1 ARITH 15060 B PUTD ARITH 15070ZSUB18 MLC SRCH92,ZSUB90 INDEXED B-OPERAND ARITH 15080 S @1@,ZSUB90 ARITH 15090 MLZS *-4,ZSUB90 ARITH 15100 MLC BLANKS,BOPRND ARITH 15110 MCW @%5)@,BOPRND-2 ARITH 15120 MLC ZSUB90 ARITH 15130 SBR X1,OPR360&5 ARITH 15140 MLC BOPRND,OPR360&6 ARITH 15150ZSUB15 MLC ZSUB91,5&X1 NO ADJUSTMENT REQUIRED ARITH 15160 MLC @,@ ARITH 15170 BCE *&8,SRCH97,P Q. B-OPERAND DECIMAL ARITH 15180 MLC @EF@,4&X1 ARITH 15190 B WRITED ARITH 15200 MLC @XI @,OP360 ARITH 15210 MLC BOPRND,OPR360&6 ARITH 15220 SBR X1,OPR360 ARITH 15230ZSUB16 BCE ZSUB17,0&X1, ARITH 15240 SBR X1,1&X1 ARITH 15250 B ZSUB16 ARITH 16010ZSUB17 MLC ZSUB91,5&X1 ARITH 16020 MLC @,@ ARITH 16030 MLC @F@,4&X1 ARITH 16040 B PUTD ARITH 16050* ARITH 16060ZSUB08 MLC AADJ,BADJ PARTIAL CHAIN ARITH 16070 CHAIN2 ARITH 16080 MLC SRCH94,SRCH97 ARITH 16090 B ZSUB01 ARITH 16100* ARITH 16110ZSUB09 B CODEIT UNDEFINED DATA NAME ARITH 16120 DCW @3@ ARITH 16130 DCW @5@ ARITH 16140 DCW @S/@ ARITH 16150 B ZSUB03 ARITH 16160* ARITH 16170ZSUB10 B CODEIT B-FIELD SHORTER THAN A- ARITH 16180 DCW @R/@ ARITH 16190 B ZSUB02 ARITH 16200* ARITH 16210ZSUB11 BCE ZSUB12,SRCH97,P CLASSES DIFFER ARITH 16220 MLC BADJ,ADD91 B-OPERAND UNPACKED ARITH 16230 CHAIN2 ARITH 16240 MLC AADJ,ADD92 ARITH 16250 CHAIN2 ARITH 17010 MLC OP360,ADD90 ARITH 17020 B ADD12 GENERATE PACKED B-OPERAND ARITH 17030 MLC ADD92,AADJ ARITH 17040 CHAIN2 ARITH 17050 MLC @PACKEDB @,BADJ ARITH 17060 CHAIN2 ARITH 17070 MLC ADD90,OP360 ARITH 17080 B REVERS ARITH 17090 B WRITED ARITH 17100 B ADD13 GENERATE UNPACKED B-OPERAND ARITH 17110 B ZSUB14 ARITH 17120* ARITH 17130ZSUB12 MLC BADJ,ADD91 A-OPERAND UNPACKED ARITH 17140 CHAIN2 ARITH 17150 MLC OP360,ADD90 ARITH 17160 B ADD11 GENERATE PACKED A-OPERAND ARITH 17170 MLC ADD91,BADJ ARITH 17180 CHAIN2 ARITH 17190 MLC @PACKEDA @,AADJ ARITH 17200 CHAIN2 ARITH 17210 MCW ADD90,OP360 ARITH 17220 B CODEIT ARITH 17230 DCW @1/@ ARITH 17240 B ZSUB03 ARITH 17250* ARITH 18010ZSUB13 MLC @ @,AOPRND B-LABEL NOT IN DATA TABLE ARITH 18020 MLC ZSUB91 ARITH 18030 B REVERS ARITH 18040 B CODEIT ARITH 18050 DCW @5/@ ARITH 18060 B WRITED ARITH 18070 MLC @F@,AOPRND-3 ARITH 18080 B REVERS ARITH 18090 B PUTD ARITH 18100 DCW @&@ ARITH 18110ZSUB90 DCW 00 ARITH 18120 DC @,@ ARITH 18130ZSUB91 DCW @X@FE@@ ARITH 18140 SKIPN ARITH 18150* ARITH 18160** MULTIPLY ENTRY ARITH 18170* ARITH 18180MULT00 BCE ADD04,BOPRND-6, Q. CHAINING ARITH 18190 MLC @MP@,OP360-3 ARITH 18200 B ADD01 ARITH 18210* ARITH 18220** DIVIDE ENTRY ARITH 18230* ARITH 18240DVD00 BCE ADD04,BOPRND-6, Q. CHAINING ARITH 18250 MLC @DP@,OP360-3 NO ARITH 19010 B ADD01 ARITH 19020 EX ARITH ARITH 01010 JOB ASSEMBLER CONTROL OPERATIONS COMPL 01020 ORG COMMON COMPL 01030******************************************************************* COMPL 01040******************* ASSEMBLER CONTROL OPERATIONS ****************** COMPL 01050******************************************************************* COMPL 01060* * * COMPL 01070* CTL 211 0PPP11 S * ***** * COMPL 01080* END PROG * END $$PROG * COMPL 01090* *$$PROG BALR 7,0 * COMPL 01100* * USING *,7,8,9,10 * COMPL 01110* *$$BASE LM 8,10,$$ADDR * COMPL 01120* * B PROG * COMPL 01130* *$$ADDR DC A%$$BASE&4096) * COMPL 01140* * DC A%$$BASE&8192) * COMPL 01150* * DC A%$$BASE&12288) * COMPL 01160* ENT SPS * ***** * COMPL 01170* EX PROG * XFR $$PROG * COMPL 01180* *$$PROG BALR 7,0 * COMPL 01190* * USING *,7,8,9,10 * COMPL 01200* *$$BASE LM 8,10,$$ADDR * COMPL 01210* * B PROG * COMPL 01220* *$$ADDR DC A%$$BASE&4096) * COMPL 01230* * DC A%$$BASE&8192) * COMPL 01240* * DC A%$$BASE&12288) * COMPL 01250* LTORG * LTORG * COMPL 02010* LIST * PRINT ON * COMPL 02020* SPCE * ***** * COMPL 02030* SKIPN * EJECT * COMPL 02040* ULST * PRINT OFF * COMPL 02050* ORG * ORG * COMPL 02060* XFR PROG * XFR $$PROG * COMPL 02070* *$$PROG BALR 7,0 * COMPL 02080* * USING *,7,8,9,10 * COMPL 02090* *$$BASE LM 8,10,$$ADDR * COMPL 02100* * B PROG * COMPL 02110* *$$ADDR DC A%$$BASE&4096) * COMPL 02120* * DC A%$$BASE&8192) * COMPL 02130* * DC A%$$BASE&12288) * COMPL 02140* SFX B * ***** * COMPL 02150* JOB AUTOCODER TRANSLATR* TITLE @AUTOCODER TRANSLA@* COMPL 02160* * CSECT * COMPL 02170*AUTOCO RUN THRU OUTPUT * ***** * COMPL 02180* * * COMPL 02190******************************************************************* COMPL 02200 SKIPN COMPL 02210* COMPL 02220*** TRANSLATION FOR COMPILER DIRECTING STATEMENTS COMPL 02230* COMPL 02240COMPL SBR X1,0 COMPL 02250 SD IOCADR-7 RE-POSITION DISK HEADS COMPL 03010 BIN *-12,\ AFTER FETCH COMPL 03020COMPL1 C OP1400,COMPL8 COMPL 03030 BE COMPL2 COMPL 03040 SBR X1,8&X1 COMPL 03050 B COMPL1 COMPL 03060COMPL2 MLC COMPL9,*&4 COMPL 03070 B 0 COMPL 03080COMPL7 EQU *&1 COMPL 03090 DCW @END @ COMPL 03100 DSA END00 COMPL 03110 DCW @EX @ COMPL 03120 DSA EX00 COMPL 03130 DCW @LTORG@ COMPL 03140 DSA LTORG COMPL 03150 DCW @SKIPN@ COMPL 03160 DSA SKIPN COMPL 03170 DCW @ORG @ COMPL 03180 DSA ORG00 COMPL 03190 DCW @XFR @ COMPL 03200 DSA XFR00 COMPL 03210 DCW @JOB @ COMPL 03220 DSA JOB00 COMPL 03230 DCW @RUN @ COMPL 03240 DSA RUN00 COMPL 03250 DCW @LIST @ COMPL 04010 DSA LIST COMPL 04020 DCW @ULST @ COMPL 04030 DSA ULST COMPL 04040 ORG COMPL7 COMPL 04050 DA 10X8,X1 COMPL 04060COMPL8 1,5 COMPL 04070COMPL9 6,8 COMPL 04080 SKIPN COMPL 04090* COMPL 04100** END CARD PROCESSOR COMPL 04110* COMPL 04120END00 MLC OPR14&17,OPR360&19 COMPL 04130 MLC @$$@,OPR360&1 COMPL 04140 MLC OP1400,OP360 COMPL 04150 BCE END02,TYPE-1,M Q. GENERATED END STATEMENT COMPL 04160END01 B REV19 COMPL 04170 B WRITED COMPL 04180 MLC @BALR @,OP360 COMPL 04190 MLC @7,0@,OPR360&2 COMPL 04200 B CODEIT COMPL 04210 DCW @1@ COMPL 04220 DCW @N/@ COMPL 04230 MLC AOPRND-1,NAM360 COMPL 04240 MLC @$$@ COMPL 04250 B WRITED COMPL 05010 MLC @USING@,OP360 COMPL 05020 MLC @*,7,8,9,10@,OPR360&9 COMPL 05030 B CODEIT COMPL 05040 DCW @1@ COMPL 05050 DCW @N/@ COMPL 05060 B WRITED COMPL 05070 MLC LU90,OPR360&12 COMPL 05080 MLC @$$ADDR@,OPR360&10 COMPL 05090 MLC @8,10,@ COMPL 05100 MLC @LM@,OP360-3 COMPL 05110 MLC LU90,NAM360 COMPL 05120 MLC @$$BASE@,NAM360-2 COMPL 05130 B CODEIT COMPL 05140 DCW @1@ COMPL 05150 DCW @N/@ COMPL 05160 B WRITED COMPL 05170 MLC @B@,OP360-4 COMPL 05180 MLC OPR14&17,OPR360&17 COMPL 05190 B CODEIT COMPL 05200 DCW @1@ COMPL 05210 DCW @N/@ COMPL 05220 BCE *&7,AADJ, Q. A-OPERAND ADJUSTED COMPL 05230 B CODEIT COMPL 05240 DCW @9/@ COMPL 05250 B WRITED COMPL 06010 MLC @4096)@,OPR360&15 COMPL 06020 MLC @A%$$BASE &@ COMPL 06030 MLC LU90,OPR360&9 COMPL 06040 MLC @DC@,OP360-3 COMPL 06050 MLC LU90,NAM360 COMPL 06060 MLC @$$ADDR@,NAM360-2 COMPL 06070 B CODEIT COMPL 06080 DCW @1@ COMPL 06090 DCW @N/@ COMPL 06100 B WRITED COMPL 06110 MLC @8192)@,OPR360&15 COMPL 06120 MLC @A%$$BASE &@ COMPL 06130 MLC LU90,OPR360&9 COMPL 06140 MLC @DC@,OP360-3 COMPL 06150 B CODEIT COMPL 06160 DCW @1@ COMPL 06170 DCW @N/@ COMPL 06180 B WRITED COMPL 06190 MLC @12288)@,OPR360&16 COMPL 06200 MLC @A%$$BASE &@ COMPL 06210 MLC LU90,OPR360&9 COMPL 06220 A *-6,LU90 COMPL 06230 MLC @DC@,OP360-3 COMPL 06240 B CODEIT COMPL 06250 DCW @1@ COMPL 07010 DCW @N/@ COMPL 07020 C OP1400,COMPL8&X0 Q. END CARD COMPL 07030 BE PUTD YES COMPL 07040 B WRITED NO--GENERATE *CSECT* COMPL 07050 MLC @CSECT@,OP360 COMPL 07060 B CODEIT COMPL 07070 DCW @2@ COMPL 07080 DCW @1@ COMPL 07090 DCW @N/@ COMPL 07100 B PUTD COMPL 07110* COMPL 07120END02 B CODEIT GENERATED END STATEMENT COMPL 07130 DCW @1/@ %LAST CARD BUT NO END) COMPL 07140 B END01 COMPL 07150* COMPL 07160** EX/XFR CARD PROCESSOR COMPL 07170* COMPL 07180EX00 EQU *&1 COMPL 07190XFR00 BSS NOTRAN,D Q. DOS/TOS OUTPUT COMPL 07200 MLC @XFR @,OP360 NO--XFR/EX IS VALID OPCOD COMPL 07210 MLC OPR14&17,OPR360&19 COMPL 07220 MLC @$$@,OPR360&1 COMPL 07230 MLC OPR14&5,AOPRND-1 COMPL 07240 B END01 COMPL 07250 SKIPN COMPL 08010* COMPL 08020** LTORG/ORG PROCESSOR COMPL 08030* COMPL 08040LTORG EQU *&1 COMPL 08050ORG00 MLC OP1400,OP360 COMPL 08060 BCE ORG03,OPR14, Q. NO OPERAND COMPL 08070 BCE ORG04,OPR14,* Q. ASTERISK OPERAND COMPL 08080 BWZ NOTRAN,OPR14,2 Q. ACTUAL ADDRESS COMPL 08090 B SEARCH SCAN DATA NAME TABLE COMPL 08100 BW ORG02,SRCH90 Q. OPERAND DEFINED AS CONST COMPL 08110ORG01 B REVERS YES COMPL 08120 BCE PUTD,AADJ, Q. A-OPERAND ADJUSTED COMPL 08130 B CODEIT YES COMPL 08140 DCW @9/@ COMPL 08150 B PUTD COMPL 08160ORG02 B CODEIT UNDEFINED ORIGIN POINT COMPL 08170 DCW @5/@ COMPL 08180 B ORG01 COMPL 08190* COMPL 08200ORG03 B REV19 NO OPERAND GIVEN COMPL 08210 B PUTD COMPL 08220* COMPL 08230ORG04 MLC OPR14&17,OPR360&17 ASTERISK AS OPERAND COMPL 08240 BCE *&5,CODES-3,2 COMPL 08250 B *&8 COMPL 09010 MLC @ @,CODES-3 COMPL 09020 BCE ORG03,OPR14&1, Q. ADJUSTED OPERAND COMPL 09030 B CODEIT YES COMPL 09040 DCW @9/@ COMPL 09050 B ORG03 COMPL 09060 SKIPN COMPL 09070* COMPL 09080** JOB CARD PROCESSOR COMPL 09090* COMPL 09100JOB00 MLC @TITLE@,OP360 COMPL 09110 MLC @@@,OPR360&53 COMPL 09120 MLC OPR14&51 COMPL 09130 MLC @@@ COMPL 09140 MLC AOPRND-2,NAM360-3 COMPL 09150 B WRITED COMPL 09160 MLC @CSECT@,OP360 COMPL 09170 MLC AOPRND-2,NAM360-3 COMPL 09180 B CODEIT COMPL 09190 DCW @1@ COMPL 09200 DCW @X/@ COMPL 09205 BWZ JOB01,NAM360-7,2 Q. ZONED FIRST CHAR COMPL 09210 B PUTD COMPL 09213JOB01 B CODEIT NO--INVALID CSECT NAME COMPL 09215 DCW @2/@ COMPL 09217 B PUTD COMPL 09220 SKIPN COMPL 09230* COMPL 09240** SKIPN PROCESSOR COMPL 09250* COMPL 10010SKIPN MLC @EJECT@,OP360 COMPL 10020 B PUTD COMPL 10030* COMPL 10040** ULST/LIST PROCESSOR COMPL 10050* COMPL 10060ULST MLC @OFF@,OPR360&2 COMPL 10070 B *&8 COMPL 10080LIST MLC @ON@,OPR360&1 COMPL 10090 MLC @PRINT@,OP360 COMPL 10100 B PUTD COMPL 10110* COMPL 10120** RUN CARD COMPL 10130* COMPL 10140RUN00 B CODEIT COMPL 10150 DCW @D/@ COMPL 10160 B MAIN02 COMPL 10170 EX COMPL COMPL 01010 JOB DECLARATIVE OPERATION TRANSLATOR ROUTINES DECLR 01020 ORG COMMON DECLR 01030* * DECLR 01040******************************************************************* DECLR 01050********************* DECLARATIVE OPERATIONS ********************** DECLR 01060******************************************************************* DECLR 01070* * * DECLR 01080*DC1 DC &1 *DC1 DC P@1@ * DECLR 01090*DCABC DC @ABC@ *DCABC DC C@ABC@ * DECLR 01100*DCADCN DC &LABEL *DCADCN DC A%LABEL) * DECLR 01110*DCMIN1 DC -1 *DCMIN1 DC P@-1@ * DECLR 01120*DCLGN4 DC #4 *DCLGN4 DC CL4@ @ * DECLR 01130*DC100 DC 100 *DC100 DC P@100@ * DECLR 01140* SAME FOR DCW * * DECLR 01150*EDIT1 DCW @$ , 0@ *EDIT1 DC X@405B20206B202021@* DECLR 01160*DSL6 DS 6 *DSL6 DS CL6 * DECLR 01170*ADCON1 DSA NAME *ADCON1 DC A%NAME) * DECLR 01180*TAPEIIN DA 10X15,X2,`,G * USING *,2 * DECLR 01190* *TAPEIN DS 0CL16 * DECLR 01200*FLD1 1,6 *FLD1 DS CL6 * DECLR 01210*FLD2 7,10 *FLD2 DS CL4 * DECLR 01220* * DS CL4 * DECLR 01230*FLD3 15 *FLD3 DS CL1 * DECLR 01240* * DS CL1 * DECLR 01250* * DS 9CL16 * DECLR 02010* * DROP 2 * DECLR 02020* * * DECLR 02030******************************************************************* DECLR 02040 SKIPN DECLR 02050DECLR SBR X1,0 DECLR 02060 SD IOCADR-7 RE-POSITION DISK HEADS DECLR 02070 BIN *-12,\ AFTER FETCH DECLR 02080DECL01 C OP1400,DECL91 DECLR 02090 BE DECL02 DECLR 02100 SBR X1,8&X1 DECLR 02110 B DECL01 DECLR 02120DECL02 MLC DECL92,*&4 DECLR 02130 B 000 DECLR 02140* DECLR 02150DECL90 EQU *&1 DECLR 02160 DCW @DC @ DECLR 02170 DSA DC00 DECLR 02180 DCW @DCW @ DECLR 02190 DSA DCW00 DECLR 02200 DCW @DA @ DECLR 02210 DSA DA00 DECLR 02220 DCW @DS @ DECLR 02230 DSA DS00 DECLR 02240 DCW @DSA @ DECLR 02250 DSA DSA00 DECLR 03010 DCW @EQU @ DECLR 03020 DSA EQU00 DECLR 03030 ORG DECL90 DECLR 03040 DA 6X8,X1 DECLR 03050DECL91 1,5 DECLR 03060DECL92 6,8 DECLR 03070 SKIPN DECLR 03080* DECLR 03090** DEFINE AREA ENTRY ALSO HANDLES DA FIELDS. DECLR 03100* DECLR 03110DA00 SBR X1,0 DECLR 03120 ZA *-6,DA98 DECLR 03130 MLC DA98,DA97 DECLR 03140 CHAIN2 DECLR 03150 SW DA94 DECLR 03160 MLC @DS@,DA92 DECLR 03170 MLC @ @,DA93 DECLR 03180DA01 BCE DA02,OPR14&1&X1,X Q. DELIMITER DECLR 03190 SBR X1,1&X1 DECLR 03200 B DA01 DECLR 03210DA02 ZA OPR14&X1,DA90 SAVE DUPLICATION FACTOR DECLR 03220 SW OPR14&2&X1 DECLR 03230 SBR DA12&3,OPR14&2&X1 STORE FOR CLEAR WORD MARK DECLR 03240DA03 BCE DA04,OPR14&1&X1,, Q. END OF RECORD LENGTH DECLR 03250 BCE DA04,OPR14&1&X1, DECLR 04010 SBR X1,1&X1 DECLR 04020 B DA03 DECLR 04030DA04 ZA OPR14&X1,DA91 SAVE RECORD LENGTH DECLR 04040DA05 BCE DA12,OPR14&1&X1, Q. END OF DA STATEMENT DECLR 04050 BCE DA07,OPR14&2&X1,X Q. INDEXING DECLR 04060 BCE DA10,OPR14&2&X1,` Q. RECORD MARK DECLR 04070 BCE DA11,OPR14&2&X1,C Q. CLEAR AREA DECLR 04080DA06 SBR X1,2&X1 ASSUME GROUP MARK DECLR 04090 B DA05 DECLR 04100* DECLR 04110DA07 MLC @DSECT@,OP360 INDEXED AREA DECLR 04120 B CODEIT DECLR 04130 DCW @1/@ DECLR 04140 B WRITED DECLR 04150 BCE DA09,OPR14&3&X1,1 Q. X1 REFERENCE DECLR 04160 MLNS OPR14&3&X1,OPR360&2 DECLR 04170DA08 MLC @*,@,OPR360&1 DECLR 04180 MLC @USING@,OP360 DECLR 04190 MLNS OPR360&2,DA93 DECLR 04200 SW REV89 TURN ON LABEL/COMMENT SWTCH DECLR 04210 B CODEIT DECLR 04220 DCW @1/@ DECLR 04230 B WRITED DECLR 04240 SBR X1,3&X1 DECLR 04250 CW REV89 TURN IT OFF DECLR 05010 MLC LBL14-1,DA99 DECLR 05020 MLC BLANKS,LBL14 DECLR 05030 B DA05 DECLR 05040DA09 MLC @4@,OPR360&2 DECLR 05050 B DA08 DECLR 05060* DECLR 05070DA10 A *-6,DA91 RECORD MARK - ADD ONE DECLR 05080 B DA06 TO RECORD LENGTH DECLR 05090* DECLR 05100DA11 MLC @DC@,DA92 CLEAR DA DECLR 05110 CW DA94 INDICATE NEED DC CL--@ @ DECLR 05120 B DA06 DECLR 05130* DECLR 05140DA12 CW 000 END OF DA STATEMENT DECLR 05150 C DA91,&0257 DECLR 05160 BH DA13 DECLR 05165 BSS DA13,D DECLR 05170 B CODEIT DECLR 05180 DCW @J/@ DECLR 05190DA13 MLC @DS@,OP360-3 DECLR 05200 MLC @0CL@,OPR360&2 DECLR 05210 MLNS DA91,OPR360&5 DECLR 05220 CHAIN2 DECLR 05230 ZA *-6,DA95 DECLR 05240DA14 B REV19 DECLR 05250DA14A B WRITED DECLR 06010 B GETCD DECLR 06020 MLC BLANKS,REV99 DECLR 06030 CHAIN3 DECLR 06040 MLC BLANKS,REV93 DECLR 06050 CHAIN3 DECLR 06060 CW REV95,REV90 DECLR 06070 CW DECLR 06080 CW REV80 DECLR 06090 C OP1400,@ @ Q. NEW OPERATION CODE DECLR 06100 BU DA26 YES DECLR 06110 BCE DA26,LBL14-6,* Q. COMMENTS CARD DECLR 06120 SBR X1,OPR14 DECLR 06130DA15 BCE DA16,1&X1, Q. SUBFIELD DECLR 06140 BCE DA19,1&X1,, Q. FIELD DECLR 06150 SBR X1,1&X1 DECLR 06160 B DA15 DECLR 06170* DECLR 06180DA16 ZA 0&X1,DA96 SUBFIELD DECLR 06190 MLZS DA95,DA96 DECLR 06200 C DA95,DA96 COMP LAST POS TO CURR POS DECLR 06210 BH DA18 DECLR 06220DA17 MLC CON1,OP360 SEQUENCE ERROR DECLR 06230 B CODEIT DECLR 06240 DCW @K/@ DECLR 06250 B DA14A DECLR 07010DA18 S DA95,DA96 DECLR 07020 MLC DA92,OP360-3 DECLR 07030 MLC @CL@,OPR360&1 DECLR 07040 MLNS DA96,OPR360&4 DECLR 07050 CHAIN2 DECLR 07060 ZA 0&X1,DA96 DECLR 07070 ZA 0&X1,DA95 DECLR 07080 BW DA14,DA94 DECLR 07090 MLC @@ @@,OPR360&7 DECLR 07100 B DA14 DECLR 07110* DECLR 07120DA19 ZA 0&X1,DA96 FIELD - FIRST DELIMITER DECLR 07130 ZA 0&X1,DA98 DECLR 07140 MLZS DA95,DA96 DECLR 07150 C DA95,DA96 DECLR 07160 BH DA20 DECLR 07170 B DA17 DECLR 07180DA20 S DA95,DA98 DECLR 07190 S @1@,DA98 DECLR 07200 C DA98,&0000 Q. CONTIGUOUS FIELDS DECLR 07210 BE DA22 YES DECLR 07220 MLC DA92,OP360-3 NO- GENERATE FILLER DECLR 07230 MLNS DA98,OPR360&4 DECLR 07240 CHAIN2 DECLR 07250 MLC @CL@ DECLR 08010 BW DA21,DA94 DECLR 08020 MLC @@ @@,OPR360&7 DECLR 08030DA21 MLC BLANKS,IMAG14 DECLR 08040 B CODEIT DECLR 08050 DCW @1/@ DECLR 08060 B WRITED DECLR 08070 MLC OPR14E,IMAG14 DECLR 08080 CHAIN3 DECLR 08090DA22 SW 2&X1 DECLR 08100 SBR DA25&3,2&X1 DECLR 08110 SBR X1,2&X1 DECLR 08120DA23 BCE DA24,1&X1, FIND END OF SECOND DELIMETR DECLR 08130 SBR X1,1&X1 DECLR 08140 B DA23 DECLR 08150DA24 ZA 0&X1,DA97 DECLR 08160 ZA 0&X1,DA98 DECLR 08170 S DA96,DA98 DECLR 08180 A @1@,DA98 DECLR 08190 MLC DA92,OP360-3 DECLR 08200 MLNS DA98,OPR360&4 DECLR 08210 CHAIN2 DECLR 08220 MLC @CL@ DECLR 08230 ZA 0&X1,DA95 DECLR 08240DA25 CW 000 DECLR 08250 BW DA14,DA94 DECLR 09010 MLC @@ @@,OPR360&7 DECLR 09020 B DA14 DECLR 09030* DECLR 09040DA26 MLC BLANKS,IMAG14 CLEAR OUT 1400 SOURCE IMAGE DECLR 09050 MLZS DA91,DA95 DECLR 09060 C DA91,DA95 Q. WHOLE RECORD DEFINED DECLR 09070 BE DA29 YES DECLR 09080DA27 ZA DA91,DA98 COMPUTE FILLER DECLR 09090 S DA95,DA98 DECLR 09100 MLNS DA98,OPR360&4 DECLR 09110 CHAIN2 DECLR 09120 MLC @CL@ DECLR 09130 MLC DA92,OP360-3 DECLR 09140 BW DA28,DA94 DECLR 09150 MLC @@ @@,OPR360&7 DECLR 09160DA28 MLC BLANKS,IMAG14 DECLR 09170 B CODEIT DECLR 09180 DCW @1/@ DECLR 09190 B WRITED DECLR 09200 MLC OPR14E,IMAG14 DECLR 09210 CHAIN3 DECLR 09220* DECLR 09230DA29 BCE *&5,DA93, Q. INDEXED AREA DECLR 09240 B DA32 YES DECLR 09250 S @1@,DA90 Q. DUPLICATION FACTOR DECLR 10010 C DA90,&000 DECLR 10020 BE DA31 DECLR 10030 MLC BLANKS,IMAG14 CLEAR 1400 SOURCE IMAGE DECLR 10040DA33 MLC DA92,OP360-3 DECLR 10050 MLNS DA90,OPR360&2 DECLR 10060 CHAIN2 DECLR 10070 MLNS DA91,OPR360&7 DECLR 10080 CHAIN2 DECLR 10090 MLC @CL@ DECLR 10100 BW DA30,DA94 DECLR 10110 MLC @@ @@,OPR360&10 DECLR 10120DA30 B WRITED DECLR 10130DA31 MLC OPR14E,IMAG14 RESTORE 1400 INSTRUCTION DECLR 10140 CHAIN3 DECLR 10150* DECLR 10160 B PROCES DECLR 10170* DECLR 10180* DECLR 10190DA32 MLC BLANKS,IMAG14 INDEXED AREA DECLR 10250 MLC @CSECT@,OP360 *CSECT* DECLR 11010 B CODEIT DECLR 11015 DCW @2@ DECLR 11020 DCW @1/@ DECLR 11030 B WRITED DECLR 11040 MLC DA99,NAM360-2 DECLR 11050 B DA33 PROCESS W/O DECREMENTING DECLR 11060* DUPLICATION FACTOR DECLR 11070* DECLR 11080DA90 DCW #3 DUPLICATION FACTOR DECLR 11090DA91 DCW #4 RECORD LENGTH DECLR 11100DA92 DCW @DS@ OPERATION DECLR 11110DA93 DCW #1 INDEX/BASE REG SAVE DECLR 11120DA94 DCW #1 CLEAR SWITCH DECLR 11130DA95 DCW #4 SAVE LAST RECORD END DECLR 11140DA96 DCW #4 FIELD START DECLR 11150DA97 DCW #4 FIELD END DECLR 11160DA98 DCW #4 WORK AREA DECLR 11170DA99 DCW #6 SAVE INDEXED DA AREA LABEL DECLR 11180 SKIPN DECLR 11190* DECLR 11200** DEFINE CONSTANT ENTRIES DECLR 11210* DECLR 11220DC00 B CODEIT WARN THAT 1400 OPCODE IS DC DECLR 11230 DCW @L/@ DECLR 11240* DECLR 11250DCW00 MLC DECL91,OPR360 DECLR 12010 MLC @DC@,OP360-3 DECLR 12020 BCE DCW02,TYPE-1,P Q. DECIMAL CONSTANT DECLR 12030 BCE DCW07,TYPE-1,A Q. ADDRESS CONSTANT DECLR 12040 BCE DCW11,TYPE-1,X Q. EDIT MASK CONSTANT DECLR 12050* CHARACTER CONSTANT DECLR 12060 BCE DCW01,OPR14,# Q. AREA DEFINING CONSTANT DECLR 12070 MLC OPR14&51,OPR360&52 DECLR 12080 MLC @C@ DECLR 12090 B DCW21 DECLR 12100* AREA DEFINING CONSTANT DECLR 12110DCW01 MLC @@ @@,OPR360&7 DECLR 12120 MLNS BADJ,OPR360&4 DECLR 12130 MLC DECLR 12140 MLC @CL@ DECLR 12150 B DCW21 DECLR 12160* DECIMAL CONSTANT DECLR 12170DCW02 MLC @P@@,OPR360&1 DECLR 12180 SBR X1,0 DECLR 12190DCW03 BCE DCW04,OPR14&1&X1, DECLR 12200 SBR X1,1&X1 DECLR 12210 B DCW03 DECLR 12220DCW04 MLC @@@,OPR360&3&X1 DECLR 12230 MLC OPR14&X1 DECLR 12240DCW21 B REV19 DECLR 12250 C BLANKS,LBL14 Q. 1400 LABEL PRESENT DECLR 13010 BE PUTD NO DECLR 13020 BCE DCW22,LBL14-6, Q. INDENTED LABEL DECLR 13030 B PUTD NO DECLR 13040DCW22 B CODEIT DECLR 13050 DCW @B/@ DECLR 13060 MLC LBL14,NAM360-2 DECLR 13070 MLC @ @,NAM360-1 DECLR 13080 B PUTD DECLR 13090* ADDRESS CONSTANT DECLR 13100DCW07 SBR X1,0 DECLR 13110DCW08 BCE DCW09,OPR14&1&X1, Q. END OF LABEL DECLR 13120 BCE DCW10,OPR14&1&X1,& Q. ADJUSTED DECLR 13130 BCE DCW10,OPR14&1&X1,- LABEL DECLR 13140 SBR X1,1&X1 DECLR 13150 B DCW08 DECLR 13160DCW10 B CODEIT DECLR 13170 DCW @9/@ DECLR 13180DCW09 BCE DCW23,OPR14,& DECLR 13190 BCE DCW23,OPR14,- DECLR 13200 MLC @)@,OPR360&3&X1 DECLR 13210 MLC OPR14&X1,OPR360&2&X1 DECLR 13220 MLC @A%@,OPR360&1 DECLR 13230 B DCW21 DECLR 13240DCW23 MLC @)@,OPR360&2&X1 DECLR 13250 MLC OPR14&X1,OPR360&1&X1 DECLR 14010 MLC @A%@,OPR360&1 DECLR 14020 B DCW21 DECLR 14030* EDIT MASK CONSTANT DECLR 14040DCW11 MLC DCW98,DCW97 CLEAR WORK AREA DECLR 14050 SBR X1,DCW96&4 DECLR 14060 MLC @X@40@,DCW96&3 DECLR 14070 MLC X2,DCW93 DECLR 14080 MLC X3 DECLR 14090 CW DCW94 DECLR 14100 SBR X3,1 DECLR 14110DCW12 SBR X2,0 DECLR 14120DCW13 C OPR14&X3,DCW91&X2 Q. EDIT CHARACTER DECLR 14130 BE DCW14 YES DECLR 14140 C DCW91&X2,DCW91E Q. END OF TABLE DECLR 14150 BE DCW18 YES DECLR 14160 SBR X2,3&X2 DECLR 14170 B DCW13 DECLR 14180DCW14 MLC DCW91&2&X2,1&X1 MOVE IN CHARACTER DECLR 14190DCW15 SBR X3,1&X3 BUMP 1400 OPERAND REGISTER DECLR 14200 SBR X1,2&X1 DECLR 14210 BCE DCW16,OPR14&X3,@ Q. END OF EDIT MASK DECLR 14220 B DCW12 NO DECLR 14230DCW16 MLC @@@,0&X1 DECLR 14240 BW DCW17,DCW94 Q. EDIT MASK ADJ NEEDED DECLR 14250 MLC 0&X1,2&X1 DECLR 15010 MLC @4020@,DCW96&5 DECLR 15020 MLC DCW92,X3 DECLR 15030 A *-6,BADJ DECLR 15040DCW17 MLC DCW92,X3 DECLR 15050 MLC DCW93,X2 DECLR 15060 MLC DCW99,CONT36-1 DECLR 15070 B REV19 DECLR 15080 BCE PUTD,DCW99&1, Q. NEED TWO DC,S DECLR 15090 MLC @C@,CONT36 YES DECLR 15100 B WRITED DECLR 15110 MLC DCW97,OPR360&45 DECLR 15120 B PUTD DECLR 15130DCW18 MLC @21@,1&X1 DECLR 15140 BCE DCW19,OPR14&X3,0 DECLR 15150 MLC @20@,1&X1 DECLR 15160DCW19 BW DCW20,DCW94 DECLR 15170 SW DCW94 DECLR 15180 B DCW15 DECLR 15190DCW20 CW DCW94 DECLR 15200 B DCW15 DECLR 15210DCW90 DCW #11 DECLR 15220DCW91 DCW @,@ DECLR 15230 @6B@ DECLR 15240 @.@ DECLR 15250 @4B@ DECLR 16010 @$@ DECLR 16020 @5B@ DECLR 16030 @C@ DECLR 16040 @C3@ DECLR 16050 @R@ DECLR 16060 @D9@ DECLR 16070 @-@ DECLR 16080 @60@ DECLR 16090 @*@ DECLR 16100 @5C@ DECLR 16110 @/@ DECLR 16120 @61@ DECLR 16130DCW91E @&@ DECLR 16140 @22@ DECLR 16150DCW92 DCW #3 DECLR 16160DCW93 DCW #3 DECLR 16170DCW94 DCW #1 DECLR 16180DCW95 DCW -25 DECLR 16190 DA 1X102,C DECLR 16200DCW96 1,1 DECLR 16210DCW99 56 DECLR 16220DCW97 102 DECLR 16230DCW98 DC @ @ DECLR 16240 SKIPN DECLR 16250* DECLR 17010** DEFINE SYMBOL ENTRIES DECLR 17020* DECLR 17030DS00 MLC OP1400,OP360 DUPLICATE DECLR 17040 MLC OPR14&5,OPR360&7 1400 ENTRY BUT ADD DECLR 17050 MLC @CL@ CL IN FRONT OF LENGTH DECLR 17060 B REV19 DECLR 17070 B PUTD DECLR 17080 SKIPN DECLR 17090* DECLR 17100** DSA HANDLER DECLR 17110* DECLR 17120DSA00 EQU *&1 DECLR 17130 MLC @DC@,OP360-3 DECLR 17140 MLC @A%@,OPR360&1 DECLR 17150 MLC OPR14&12,OPR360&14 DECLR 17160 SBR X1,OPR360&3 FIND DECLR 17170DSA01 BCE DSA02,0&X1, RIGHTMOST DECLR 17180 SBR X1,1&X1 CHARACTER DECLR 17190 B DSA01 OF 1400 DECLR 17200DSA02 MLC @)@,0&X1 LABEL DECLR 17210 B REV19 DECLR 17220 SBR X1,OPR14 DECLR 17230DSA03 BCE DSA04,0&X1,& Q. OPERAND ADJUSTED DECLR 17240 BCE DSA04,0&X1,- DECLR 17250 BCE PUTD,0&X1, DECLR 18010 SBR X1,1&X1 DECLR 18020 B DSA03 DECLR 18030DSA04 BCE DSA05,1&X1,X Q. INDEXED CONSTANT DECLR 18040 B CODEIT DECLR 18050 DCW @9/@ DECLR 18060 SBR X1,1&X1 DECLR 18070 B DSA03 DECLR 18080DSA05 B CODEIT DECLR 18090 DCW @M/@ DECLR 18100 SBR X1,1&X1 DECLR 18110 B DSA03 DECLR 18120 SKIPN DECLR 18130* DECLR 18140** EQUATE DECLR 18150* DECLR 18160EQU00 BCE NOTRAN,OPR14,% Q. I/O UNIT EQUATE DECLR 18170 MLC OP1400,OP360 DECLR 18180 MLC OPR14&9,OPR360&9 DECLR 18190 B SEARCH DECLR 18200 BW *&5,SRCH98 Q. EQUATE LABEL DEFINED DECLR 18210 B EQU01 NO DECLR 18220 B REVERS DECLR 18230 BCE PUTD,AADJ, Q. ADJUSTED DECLR 18240 B CODEIT DECLR 18250 DCW @9/@ DECLR 19010 B PUTD DECLR 19020EQU01 B CODEIT DECLR 19030 DCW @5/@ DECLR 19040 B REV19 DECLR 19050 B PUTD DECLR 19060 EX DECLR DECLR 01010 JOB DIOCS AND DTF TRANSLATOR ROUTINES DIOCS 01020 ORG COMMON DIOCS 01030******************************************************************* DIOCS 01040* * * DIOCS 01050* DIOCS * DTFBG DISK * DIOCS 01060*IODEVICES --- * ***** * DIOCS 01070*DIOCSORG 400 * ***** * DIOCS 01080*RDLIN DISK,TAPE * ***** * DIOCS 01090*FEATURES DIRECT,OVERLAP * ***** * DIOCS 01100*DLABDEF CHECK,OUTPUT * ***** * DIOCS 01110*OVLAYLBL YES * ***** * DIOCS 01120*DISKDRIVES 0,2,4,6,8,?,B,D * ***** * DIOCS 01130*DUPPACKS YES * ***** * DIOCS 01140*PROCESTYPE RANDOM,CTLSEQ,CONSE* ***** * DIOCS 01150*CYLDOVFLW YES * ***** * DIOCS 01160*WRITEXIT WREXIT * ***** * DIOCS 01170*RDROVLP CARDIN * ***** * DIOCS 01180*PCHOVLP CRDOUT * ***** * DIOCS 01190*PRNTOVLP PRINTR * ***** * DIOCS 01200*SEEKCHECK YES * ***** * DIOCS 01210*RECTYPE UNBLOCKED * ***** * DIOCS 01220*CSLINKAGE 7 * ***** * DIOCS 01230*TAPEUSE INPUT * ***** * DIOCS 01240*ALTDRIVE YES * ***** * DIOCS 01250*LABELDEF MIXED,D * ***** * DIOCS 02010*EXITS YES * ***** * DIOCS 02020*WLRCHECK YES * ***** * DIOCS 02030*READERROR SCAN * ***** * DIOCS 02040*CHECKPOINT YES * ***** * DIOCS 02050* * * DIOCS 02060******************************************************************* DIOCS 02070* * * DIOCS 02080******************************************************************* DIOCS 02090* * * DIOCS 02100* DTF CARDIN * ***** * DIOCS 02110*FILETYPE READER *CARDIN DTFSR C* DIOCS 02120* * DEVICE#READ40, C* DIOCS 02130* * TYPEFLE#INPUT, C* DIOCS 02140*IOAREAS ICARD * IOAREA1#ICARD, C* DIOCS 02150*EOFADDR LASTCD * EOFADDR#LASTCD, C* DIOCS 02160*WORKAREA IWORKC * WORKA#YES, C* DIOCS 02170* * IOAREA2#IWORKC, C* DIOCS 02180*CARDPOC 2 * CONTROL#YES, C* DIOCS 02190* * DEVADDR#SYSIPT, C* DIOCS 02200* * RECFORM#FIXUNB, C* DIOCS 02210* * BLKSIZE#80 * DIOCS 02220* * * DIOCS 02230******************************************************************* DIOCS 02240* * * DIOCS 02250* DTF CRDOUT * ***** * DIOCS 03010*FILETYPE PUNCH *CRDOUT DTFSR C* DIOCS 03020* * DEVICE#READ40, C* DIOCS 03030* * TYPEFLE#OUTPUT, C* DIOCS 03040*IOAREAS OCARD * IOAREA1#OCARD, C* DIOCS 03050*WORKAREA OWORKC * WORKA#YES, C* DIOCS 03060* * IOAREA2#OWORKC, C* DIOCS 03070*CARDPOC 4 * CONTROL#YES, C* DIOCS 03080* * DEVADDR#SYSOPT, C* DIOCS 03090* * RECFORM#FIXUNB, C* DIOCS 03100* * BLKSIZE#80 * DIOCS 03110* * * DIOCS 03120******************************************************************* DIOCS 03130* * * DIOCS 03140* DTF PRINTR * ***** * DIOCS 03150*FILETYPE PRINTER *PRINTR DTFSR C* DIOCS 03160* * DEVICE#PRINTER, C* DIOCS 03170* * TYPEFLE#OUTPUT, C* DIOCS 03180*IOAREAS OPRINT * IOAREA1#OPRINT, C* DIOCS 03190*OVERFLOW 9,CHANL9 * PRINTOV#YES, C* DIOCS 03200*WORKAREA OWORKW * WORKA#YES, C* DIOCS 03210* * IOAREA2#OWORKW, C* DIOCS 03220*FORMCNTL J * ***** * DIOCS 03230* * CONTROL#YES, C* DIOCS 03240* * DEVADDR#SYSLST, C* DIOCS 03250* * RECFORM#FIXUNB, C* DIOCS 04010* * BLKSIZE#132 * DIOCS 04020* * * DIOCS 04030******************************************************************* DIOCS 04040* * * DIOCS 04050* DTF TAPE * ***** * DIOCS 04060*FILETYPE TAPE,INPUT,CHECKPOI*TAPE DTFSR C* DIOCS 04070* * DEVICE#TAPE, C* DIOCS 04080* * TYPEFLE#INPUT, C* DIOCS 04090* * CKPTREC#YES, C* DIOCS 04100*FILETYPE TAPE,OUTPUT * DEVICE#TAPE, C* DIOCS 04110* * TYPEFLE#OUTPUT, C* DIOCS 04120*IOAREAS TAPE1,TAPE2 * IOAREA1#TAPE1, C* DIOCS 04130* * IOAREA2#TAPE2, C* DIOCS 04140*CHANDRIVE 3 * DEVADDR#SYS003, C* DIOCS 04150*EOFADDR TAPEND * EOFADDR#TAPEND, C* DIOCS 04160*INDEXREG X2 * IOREG#2, C* DIOCS 04170*WORKAREA TPWORK * WORKA#YES, C* DIOCS 04180* * IOAREA2#TPWORK, C* DIOCS 04190*RECFORM FIXED,BLOCKED * RECFORM#FIXBLK, C* DIOCS 04200*RECFORM UNBLOCKED,VARIABLE * RECFORM#VARUNB, C* DIOCS 04210*BLOCKSIZE 333 * BLKSIZE#333, C* DIOCS 04220*SIZEREC 111 * RECSIZE#111, C* DIOCS 04230*ALTTAPE 4 * ALTTAPE#SYS004, C* DIOCS 04240*MODEPAR LOAD * ***** * DIOCS 04250*OUTLIN YES * ***** * DIOCS 05010*TYPELABEL STANDARD,B,TM * FILABL#STD, C* DIOCS 05020*TYPELABEL NONSTANDARD,TM * FILABL#NSTD, C* DIOCS 05030*CHECKLABEL ALL * ***** * DIOCS 05040*SERIALNUM 00010 * ***** * DIOCS 05050*REELSEQ 0001 * ***** * DIOCS 05060*HEADER PAYRLMASTR,66100,01* ***** * DIOCS 05070*TOTALS RECORD,HSHTOT * ***** * DIOCS 05080*EX-ADDR EXIT- * LABADDR#EXIT-, C* DIOCS 05090*PADDING 9 * ***** * DIOCS 05100*REWIND UNLOAD * REWIND#UNLOAD, C* DIOCS 05110*WLRADDR TPWLR * WLRERR#TPWLR, C* DIOCS 05120*LABINFO 10110 * ***** * DIOCS 05130*DENSITY 2 * ***** * DIOCS 05140*CHKSUM 3 * ***** * DIOCS 05150*BLKSEQIND 0 * ***** * DIOCS 05160*TPCHKIND 2 * ***** * DIOCS 05170*TPRECTCH 6 * ***** * DIOCS 05180*TPPROTCH 9 * ***** * DIOCS 05190*CREATSYS 1401 * ***** * DIOCS 05200*FMRECORD A * ***** * DIOCS 05210*LNGRECORD 333 * ***** * DIOCS 05220*BLKFACTOR 3 * ***** * DIOCS 05230*CHPTRCD 3 * ***** * DIOCS 05240* * CONTROL#YES, C* DIOCS 05250* * ERROPT#IGNORE * DIOCS 06010* * * DIOCS 06020******************************************************************* DIOCS 06030* * * DIOCS 06040*FILETYPE DISK,INPUT,CONSEC *DSIK DTFSR C* DIOCS 06050* * DEVICE#DISK11, C* DIOCS 06060* * TYPEFLE#INPUT, C* DIOCS 06070*IOAREAS DISKIO * IOAREA1#DISKIO, C* DIOCS 06080*SIZEREC 100 * RECSIZE#100, C* DIOCS 06090*NAT-PACK - * ***** * DIOCS 06100*EOFADDR ENDISK * EOFADDR#ENDISK, C* DIOCS 06110*FILESTART 000000 * ***** * DIOCS 06120*FILEND 019979 * ***** * DIOCS 06130*INDEXREG X1 * IOREG#4, C* DIOCS 06140*WORKAREA DWORK * WORKA#YES, C* DIOCS 06150* * IOAREA2#DWORK, C* DIOCS 06160*RECFORM BLOCKED * RECFORM#FIXBLK, C* DIOCS 06170*NSECTORS 3 * ***** * DIOCS 06180*TRACKFORM SECTOR * ***** * DIOCS 06190*NRECORDS 2 * BLKSIZE#300, C* DIOCS 06200*SEEKEOC YES * ***** * DIOCS 06210*CHECKLABEL ALL * ***** * DIOCS 06220*FILESEQ 0001 * ***** * DIOCS 06230*SERIALNUM 00001 * ***** * DIOCS 06240*PACKSERIAL 00001 * ***** * DIOCS 06250*HEADER DISK LABEL,66100,00* ***** * DIOCS 07010* * ERROPT#IGNORE * DIOCS 07020* * * DIOCS 07030* * * * * * * * * * * * * * * * * * * * * * * DIOCS 07040* * * DIOCS 07050* DTF DISK * ***** * DIOCS 07060*FILETYPE DISK,INPUT,CTLSEQ *DISK DTFIS C* DIOCS 07070* * IOROUT#RETRVE, C* DIOCS 07080* * TYPEFLE#SEQNTL, C* DIOCS 07090*IOAREAS DISKIO * IOAREAS#DISKIO, C* DIOCS 07100*SIZEREC 200 * RECSIZE#200, C* DIOCS 07110*NAT-PACK - * ***** * DIOCS 07120*EOFADDR ENDCTL * EOFADDR#ENDCTL, C* DIOCS 07130*FILESTART 000060 * ***** * DIOCS 07140*FILEND 019979 * ***** * DIOCS 07150*INDEXREG X3 * IOREG#3, C* DIOCS 07160*WORLAREA DWORK * WORKS#YES, C* DIOCS 07170*NSECTORS 10 * ***** * DIOCS 07180*TRACKFORM SECTOR * ***** * DIOCS 07190*NRECORDS 4 * NRECDS#5, C* DIOCS 07200* * KEYLOC#***, C* DIOCS 07210*UPDATE YES * UPDATE#SEQNTL, C* DIOCS 07220* * VERIFY#YES, C* DIOCS 07230*SEEKEOC YES * ***** * DIOCS 07240*CHECKLABEL ALL * ***** * DIOCS 07250*FILSEQ 0001 * ***** * DIOCS 08010*SERIALNUM 00001 * ***** * DIOCS 08020*PACKSERIAL 00001 * ***** * DIOCS 08030*HEADER DISK-LABEL,66100,00* ***** * DIOCS 08040* * DERREX#***, C* DIOCS 08050* * DSKXTNT#***, C* DIOCS 08060* * KEYLEN#***, C* DIOCS 08070* * RECFORM#FIXBLK, C* DIOCS 08080* * WLRERR#*** * DIOCS 08090* * * DIOCS 08100* * * * * * * * * * * * * * * * * * * * * * * DIOCS 08110* * * DIOCS 08120* DTF DISK * ***** * DIOCS 08130*FILETYPE DISK,OUTPUT,RANDOM *DISK DTFDA C* DIOCS 08140* * DEVICE#DISK11, C* DIOCS 08150* * TYPEFLE#OUTPUT, C* DIOCS 08160*IOAREAS DISKIO * IOAREA1#DISKIO, C* DIOCS 08170*SIZEREC 50 * ***** * DIOCS 08180*NAT-PACK - * ***** * DIOCS 08190*INDEXREG X2 * ***** * DIOCS 08200*WORKAREA DWORK * ***** * DIOCS 08210*NSECTORS 3 * ***** * DIOCS 08220*UPDATE YES * VERIFY#YES, C* DIOCS 08230*NRECORDS 5 * BLKSIZE#300, C* DIOCS 08240*TRACKFORM TRKSECTOR * ***** * DIOCS 08250*CHECKLABEL ALL * ***** * DIOCS 09010*FILSEQ 0001 * ***** * DIOCS 09020*SERIALNUM 00001 * ***** * DIOCS 09030*PACKSERIAL 00001 * ***** * DIOCS 09040*HEADER DISK-LABEL,0010 * ***** * DIOCS 09050* * IDLOC#IOCADR, C* DIOCS 09060* * ERRBYTE#*** * DIOCS 09070* * * DIOCS 09080******************************************************************* DIOCS 09090 SKIPN DIOCS 09100DIOCS SD IOCADR-7 RE-POSITION DISK HEADS DIOCS 09110 BIN *-12,\ AFTER FETCH DIOCS 09120 C OP1400,@DTF @ DIOCS 09130 BE DTF DIOCS 09140* * DIOCS 09150******************************************************************* DIOCS 09160*********************** DIOCS/DTF TRANSLATOR ********************** DIOCS 09170******************************************************************* DIOCS 09180* * DIOCS 09190 BSS DIOCS1,D Q. DOS/TOS OUTPUT DIOCS 09200 BCE DIOCS2,SWIOCS,1 Q. DTFBG GENERATED DIOCS 09210 MLC @DTFBGDISK@,OPR360&3 DIOCS 09220 MLC DIOCS 09230 MLC @1@,SWIOCS DIOCS 09240 B CODEIT DIOCS 09250 DCW @1/@ DIOCS 10010 B DIOCS4 DIOCS 10020DIOCS1 MLC CON1,OP360 INDICATE NO TRANSLATION DIOCS 10030 B CODEIT DIOCS 10040 DCW @Y/@ DIOCS 10050DIOCS4 B WRITED WRITE DISK RECORD DIOCS 10060 B GETCD READ NEXT CARD RECORD DIOCS 10070DIOCS2 BCE DIOCS3,LBL14-6,* Q. COMMENTS CARD DIOCS 10080 C BLANKS,OP1400 Q. DIOCS CONTINUED DIOCS 10090 BE DIOCS1 YES DIOCS 10100 C OP1400,@DTF @ Q. DTF ENTRY DIOCS 10110 BE DTF YES--PROCESS DTF DIOCS 10120 FETCH@DTFGN@ NO--FETCH DTF GENERATOR DIOCS 10130DIOCS3 MLC IMAG14,OPR360&53 1400 COMMENTS CARD DIOCS 10140 CHAIN2 DIOCS 10150 B DIOCS4 DIOCS 10152DIOCS5 MLC CON1,OP360 INDICATE NO FILETYPE PARAM DIOCS 10154 B CODEIT DIOCS 10156 DCW @0/@ DIOCS 10158 B DIOCS4 DIOCS 10160 LTORG* DIOCS 10170 SKIPN DIOCS 10180******************************************************************* DIOCS 10190************************** DTF TRANSLATOR ************************* DIOCS 10200******************************************************************* DIOCS 10210* * DIOCS 10220DTF BSS DTF5,D Q. DOS/TOS OUTPUT DIOCS 10230 MLC OPR14&5,DTFSV1-1 SAVE DTF NAME DIOCS 10240 CW SWRECB,SWRECF#1 DIOCS 10250 ZA *-6,SVNREC DIOCS 11010 MLC CON1,OP360 INDICATE NO TRANSLATION DIOCS 11020 B CODEIT DIOCS 11030 DCW @Y/@ DIOCS 11040 B WRITED WRITE DISK RECORD DIOCS 11050 B GETCD READ NEXT CARD RECORD DIOCS 11060 C LBL14-1,@FILETY@ Q. FILETYPE PARAMETER DIOCS 11070 BU DIOCS5 NO--REJECT DTF DIOCS 11080 CW DTFSW1 DIOCS 11090 C OPR14&5,@READER@ Q. CARD READER DIOCS 11100 BE DTFRD YES DIOCS 11110 C OPR14&4,@PUNCH@ Q. CARD PUNCH DIOCS 11120 BU DTF3 NO DIOCS 11130 FETCH@DTFPH@ YES--MUST FETCH HANDLER DIOCS 11140DTF3 C OPR14&5,@PRINTE@ Q. PRINTER DIOCS 11150 BU DTF4 NO DIOCS 11160 FETCH@DTFPR@ YES--MUST FETCH HANDLER DIOCS 11170DTF4 C OPR14&3,@TAPE@ Q. TAPE DIOCS 11180 BE DTFTP YES DIOCS 11190 C OPR14&3,@DISK@ Q. DISK DIOCS 11200 BU DIOCS1 NO--REJECT DTF DIOCS 11210******************************************************************* DIOCS 11220***************************** DISK DTF **************************** DIOCS 11230******************************************************************* DIOCS 11240 SBR X1,OPR14&5 DIOCS 11250 C 4&X1,@INPUT@ DIOCS 12010 BE DTF2 DIOCS 12020 C 5&X1,@OUTPUT@ DIOCS 12030 BU DTF1 DIOCS 12040 SBR X1,7&X1 DIOCS 12050 SW DTFSW1 DIOCS 12060DTF1 C 5&X1,@CONSEC@ Q. CONSECUTIVE DISK FILE DIOCS 12070 BE DTFSD YES DIOCS 12080 C 5&X1,@CTLSEQ@ Q. CONTROL SEQUENTIAL FILE DIOCS 12090 BE DTFIS YES DIOCS 12100 C 5&X1,@RANDOM@ Q. RANDOM FILE DIOCS 12110 BE DTFDA YES DIOCS 12120 BCE DTFDA,0&X1, Q. TREAT AS RANDOM FILE IF DIOCS 12130* NO OTHER OPERANDS DIOCS 12140 B DIOCS1 REJECT THE DTF DIOCS 12150DTF2 SBR X1,6&X1 DIOCS 12160 B DTF1 DIOCS 12170* DIOCS 12180DTF5 FETCH@DOS @ FETCH DOS/TOS DTF HANDLER DIOCS 12190 SKIPN DIOCS 12200******************************************************************* DIOCS 12210*************************** CARD READER *************************** DIOCS 12220******************************************************************* DIOCS 12230DTFRD MLC DTFSV1,NAM360-1 DIOCS 12240 MLC DTFSV1,RDDTF DIOCS 12250 CW RDRSW DIOCS 13010 MLC @DTFSR@,OP360 DIOCS 13020 MLC @C@,CONT36 INDICATE CONTINUATION DIOCS 13030 B WRITED WRITE DISK RECORD DIOCS 13040 MLC @READ40,@,OPR360&13 DIOCS 13050 MLC @DEVICE#@ DIOCS 13060 MLC @C@,CONT36 INDICATE CONTINUATION DIOCS 13070 B WRITED DIOCS 13080 MLC @,@,OPR360&13 DIOCS 13090 MLC @INPUT@ DIOCS 13100 MLC @TYPEFLE#@ DIOCS 13110DTFRD1 MLC @C@,CONT36 DIOCS 13120 B WRITED WRITE TYPEFLE PARAMETER ETC DIOCS 13130 B GETCD DIOCS 13140 C BLANKS,OP1400 Q. END OF DTF PARAMETERS DIOCS 13150 BU DTFRD2 DIOCS 13160 BCE DTFRD2,LBL14-6,* Q. COMMENTS CARD DIOCS 13170 C LBL14-1,@IOAREA@ DIOCS 13180 BE DTFRD9 DIOCS 13190 C LBL14-1,@EOFADD@ DIOCS 13200 BE DTFRD3 DIOCS 13210 C LBL14-1,@WORKAR@ DIOCS 13220 BE DTFRD7 DIOCS 13230 C LBL14-1,@CARDPO@ DIOCS 13240 BE DTFRD8 DIOCS 13250 MLC CON1,OP360 DIOCS 14010 B CODEIT DIOCS 14020 DCW @Y/@ DIOCS 14030 B DTFRD1&7 DIOCS 14040DTFRD2 MCW BLANKS,IMAG14 BLANK OUT 1400 IMAGE DIOCS 14050 MLC @SYSIPT,@,OPR360&14 DIOCS 14060 MLC @DEVADDR#@ DIOCS 14070 BW DTFUR1,RDRSS Q. READ STACKER SELECT DIOCS 14080 MLC @C@,CONT36 YES DIOCS 14090 B CODEIT DIOCS 14100 DCW @1/@ DIOCS 14110 B WRITED DIOCS 14120 MLC @CONTROL#YES,@,OPR360&11 DIOCS 14130DTFUR1 MLC @C@,CONT36 DIOCS 14140 B CODEIT DIOCS 14150 DCW @1/@ DIOCS 14160 B WRITED WRITE DEVADDR PARAMETER DIOCS 14170 MLC @FIXUNB,@,OPR360&14 DIOCS 14180 MLC @RECFORM#@ DIOCS 14190 MLC @C@,CONT36 DIOCS 14200 B CODEIT DIOCS 14210 DCW @1/@ DIOCS 14220 B WRITED WRITE RECFORM PARAMETER DIOCS 14230 MLC @80@,OPR360&9 DIOCS 14240 MLC @BLKSIZE#@ DIOCS 14250 B CODEIT DIOCS 15010 DCW @1/@ DIOCS 15020DTFUR2 B WRITED WRITE BLKSIZE PARAMETER DIOCS 15030 MLC OPR14E,IMAG14 RESTORE 1400 SOURCE IMAGE DIOCS 15040 CHAIN3 DIOCS 15050 B DIOCS2 DIOCS 15060DTFRD3 MLC OPR14&9,OPR360&17 EOFADDR DIOCS 15070 MLC @EOFADDR#@ DIOCS 15080DTFRD4 SBR X1,OPR360&9 DIOCS 15090DTFRD5 BCE DTFRD6,0&X1, DIOCS 15100 SBR X1,1&X1 DIOCS 15110 B DTFRD5 DIOCS 15120DTFRD6 MLC @,@,0&X1 DIOCS 15130 B DTFRD1 DIOCS 15140* DIOCS 15150DTFRD7 MLC @WORKA#YES,@,OPR360&9 WORKAREA DIOCS 15160 MLC @C@,CONT36 DIOCS 15170 B WRITED DIOCS 15180 MLC OPR14&9,OPR360&17 DIOCS 15190 MLC @IOAREA1#@ DIOCS 15200 B CODEIT DIOCS 15210 DCW @1/@ DIOCS 15220 B DTFRD4 DIOCS 15230* DIOCS 15240DTFRD8 MLC CON1,OP360 CARDPOC DIOCS 15250 B CODEIT DIOCS 16010 DCW @Y/@ DIOCS 16020 B WRITED DIOCS 16030 MLC @CONTROL#YES,@,OPR360&11 DIOCS 16040 SW RDRSS DIOCS 16050 B DTFRD1 DIOCS 16060* DIOCS 16070DTFRD9 MLC OPR14&9,OPR360&17 IOAREAS PARAMETER DIOCS 16080 MLC @IOAREA1#@ DIOCS 16090 B CODEIT DIOCS 16100 DCW @1@ DIOCS 16110 DCW @Q/@ DIOCS 16120 B DTFRD4 DIOCS 16130 SKIPN DIOCS 16140******************************************************************* DIOCS 16150******************************* TAPE ****************************** DIOCS 16160******************************************************************* DIOCS 16170DTFTP MLC DTFSV1,NAM360-1 DIOCS 16180 MLC @DTFSR@,OP360 DIOCS 16190 MLC @C@,CONT36 DIOCS 16200 B WRITED DIOCS 16210 MLC @TAPE,@,OPR360&11 DIOCS 16220 MLC @DEVICE#@ DIOCS 16230 MLC @C@,CONT36 DIOCS 16240 C OPR14&9,@INPUT@ DIOCS 16250 BE DTFT01 DIOCS 17010 C OPR14&10,@OUTPUT@ DIOCS 17020 BE DTFT05 DIOCS 17030 C OPR14&10,@CHECKP@ DIOCS 17040 BE DTFT06 DIOCS 17050 C OPR14&10,BLANKS-66 DIOCS 17060 BU DIOCS1 REJECT THE DTF DIOCS 17070DTFT01 B WRITED ASSUME TO BE INPUT DIOCS 17080 MLC @N@,DTFT38 DIOCS 17090 MLC @,@,OPR360&13 DIOCS 17100 MLC @INPUT@ DIOCS 17110 MLC @TYPEFLE#@ DIOCS 17120 MLC @C@,CONT36 DIOCS 17130 C OPR14&16,@CHECKP@ DIOCS 17140DTFT02 BU DTFT04 DIOCS 17150 B WRITED DIOCS 17160DTFT03 MLC @B@,DTFT02 DIOCS 17170 MLC @CKPTREC#YES,@,OPR360&11 DIOCS 17180DTFT04 MLC @C@,CONT36 DIOCS 17190 B WRITED DIOCS 17200 B GETCD DIOCS 17210 BCE DTFT37,LBL14-6,* Q. COMMENTS CARD DIOCS 17220 C BLANKS,OP1400 DIOCS 17230 BU DTFT37 DIOCS 17240 C LBL14-1,@IOAREA@ DIOCS 17250 BE DTFT07 DIOCS 18010 C LBL14-1,@CHANDR@ DIOCS 18020 BE DTFT14 DIOCS 18030 C LBL14-1,@EOFADD@ DIOCS 18040 BE DTFT15 DIOCS 18050 C LBL14-1,@INDEXR@ DIOCS 18060 BE DTFT16 DIOCS 18070 C LBL14-1,@WORKAR@ DIOCS 18080 BE DTFT18 DIOCS 18090 C LBL14-1,@RECFOR@ DIOCS 18100 BE DTFT19 DIOCS 18110 C LBL14-1,@BLOCKS@ DIOCS 18120 BE DTFT28 DIOCS 18130 C LBL14-1,@SIZERE@ DIOCS 18140 BE DTFT29 DIOCS 18150 C LBL14-1,@ALTTAP@ DIOCS 18160 BE DTFT30 DIOCS 18170 C LBL14-1,@TYPELA@ DIOCS 18180 BE DTFT31 DIOCS 18190 C LBL14-1,@REWIND@ DIOCS 18200 BE DTFT34 DIOCS 18210 C LBL14-1,@WLRADD@ DIOCS 18220 BE DTFT35 DIOCS 18230 C LBL14-1,DTFT90 TEST ADDR DIOCS 18240 CW - DIOCS 18250 C EX DIOCS 19010 BE DTFT36 DIOCS 19020 MLC CON1,OP360 DIOCS 19030 B CODEIT DIOCS 19040 DCW @Y/@ DIOCS 19050 B DTFT04&7 DIOCS 19060* DIOCS 19070DTFT05 B WRITED FILETYPE--OUTPUT DIOCS 19080 MLC @,@,OPR360&14 DIOCS 19090 MLC @OUTPUT@ DIOCS 19100 MLC @TYPEFLE#@ DIOCS 19110 MLC @B@,DTFT38 DIOCS 19120 B DTFT04 DIOCS 19130* DIOCS 19140DTFT06 MLC @N@,DTFT02 FILETYPE -- CHECKPOINT DIOCS 19150 B DTFT01 DIOCS 19160* DIOCS 19170 DCW @EX@ DIOCS 19180 DC @ @ DIOCS 19190DTFT90 DCW @ADD@ DIOCS 19200* DIOCS 19210DTFT07 SBR X1,OPR14 IOAREAS PARAMETER/S DIOCS 19220 SBR X2,OPR360 DIOCS 19230DTFT08 BCE DTFT09,0&X1,, Q. MULTIPLE I/O AREAS DIOCS 19240 BCE DTFT13,0&X1, Q. END OF PARAMETER DIOCS 19250 SBR X1,1&X1 DIOCS 20010 SBR X2,1&X2 DIOCS 20020 B DTFT08 DIOCS 20030DTFT09 MLC 0&X1,8&X2 DIOCS 20040 MLC @IOAREA1#@ DIOCS 20050 MLC @C@,CONT36 DIOCS 20060 B WRITED DIOCS 20070 SW 1&X1 DIOCS 20080 MLC 13&X1,OPR360&20 DIOCS 20090 MLC @IOAREA2#@ DIOCS 20100 CW 1&X1 DIOCS 20110DTFT10 SBR X1,OPR360&9 DIOCS 20120DTFT11 BCE DTFT12,0&X1, DIOCS 20130 SBR X1,1&X1 DIOCS 20140 B DTFT11 DIOCS 20150DTFT12 MLC @,@,0&X1 DIOCS 20160 B DTFT04 DIOCS 20170DTFT13 MLC OPR14&12,OPR360&20 DIOCS 20180 MLC @IOAREA1#@ DIOCS 20190 B DTFT10 DIOCS 20200* DIOCS 20210DTFT14 MLC OPR14,OPR360&13 CHANDRIVE DIOCS 20220 MLC @SYS00@ DIOCS 20230 MLC @DEVADDR#@ DIOCS 20240 MLC @,@,OPR360&14 DIOCS 20250 B DTFT04 DIOCS 21010* DIOCS 21020DTFT15 MLC OPR14&9,OPR360&17 EOFADDR DIOCS 21030 MLC @EOFADDR#@ DIOCS 21040 B DTFT10 DIOCS 21050* DIOCS 21060DTFT16 MLNS OPR14&1,OPR360&6 INDEXREG DIOCS 21070 MLC @IOREG#@ DIOCS 21080 MLC @,@,OPR360&7 DIOCS 21090 BCE DTFT17,OPR360&6,1 Q. INDEX REG 1 DIOCS 21100 B DTFT04 NO DIOCS 21110DTFT17 MLNS @4@,OPR360&6 YES DIOCS 21120 B DTFT04 DIOCS 21130* DIOCS 21140DTFT18 MLC @WORKA#YES,@,OPR360&9 WORKAREA DIOCS 21150 MLC @C@,CONT36 DIOCS 21160 B WRITED DIOCS 21170 B CODEIT DIOCS 21180 DCW @Y/@ DIOCS 21190 B DTFT13 DIOCS 21200* DIOCS 21210DTFT19 SBR X1,OP1400 RECFORM DIOCS 21220 SW SWRECF,SWRECB#1 DIOCS 21230 MLC @FIXUNB,@,OPR360&14 DIOCS 21240DTFT20 BCE DTFT26,1&X1,B Q. BLOCKED FORMAT DIOCS 21250 BCE DTFT27,1&X1,V Q. VARIABLE FORMAT DIOCS 22010DTFT22 SBR X1,1&X1 DIOCS 22020 BCE DTFT20,0&X1,, Q. MORE PARAMETERS DIOCS 22030 BCE DTFT23,0&X1, Q. LAST PARAMETER DIOCS 22040 B DTFT22 DIOCS 22050DTFT23 MLC @RECFORM#@,OPR360&7 DIOCS 22060 B DTFT04 DIOCS 22070DTFT26 MLC @BLK@,OPR360&13 DIOCS 22080 B DTFT22 DIOCS 22090DTFT27 MLC @VAR@,OPR360&10 DIOCS 22100 B DTFT22 DIOCS 22110* DIOCS 22120DTFT28 MLC OPR14&3,OPR360&11 BLOCKSIZE DIOCS 22130 MLC @BLKSIZE#@ DIOCS 22140 B DTFT10 DIOCS 22150* DIOCS 22160DTFT29 MLC OPR14&4,OPR360&12 SIZEREC DIOCS 22170 MLC @RECSIZE#@ DIOCS 22180 B DTFT10 DIOCS 22190* DIOCS 22200DTFT30 MLC @,@,OPR360&14 ALTTAPE DIOCS 22210 MLC OPR14 DIOCS 22220 MLC @SYS00@ DIOCS 22230 MLC @ALTTAPE#@ DIOCS 22240 B DTFT04 DIOCS 22250* DIOCS 23010DTFT31 BCE DTFT33,OPR14,N TYPELABEL DIOCS 23020 MLC @STD,@,OPR360&10 STANDARD LABELS DIOCS 23030DTFT32 MLC @FILABL#@,OPR360&6 DIOCS 23040 B DTFT04 DIOCS 23050DTFT33 MLC @NSTD,@,OPR360&11 NONSTANDARD LABELS DIOCS 23060 B DTFT32 DIOCS 23070* DIOCS 23080DTFT34 MLC OPR14&5,OPR360&12 REWIND OPTION DIOCS 23090 MLC @#@ DIOCS 23100 MLC LBL14-1 DIOCS 23110 B DTFT10 DIOCS 23120* DIOCS 23130DTFT35 MLC OPR14&9,OPR360&16 WLRADDR DIOCS 23140 MLC @WLRERR#@ DIOCS 23150 B DTFT10 DIOCS 23160* DIOCS 23170DTFT36 MLC OPR14&9,OPR360&17 EX-ADDR DIOCS 23180 MLC @LABADDR#@ DIOCS 23190 B DTFT10 DIOCS 23200* DIOCS 23210DTFT37 MLC @CONTROL#YES@,OPR360&10 DIOCS 23220 MCW BLANKS,IMAG14 BLANK OUT 1400 IMAGE DIOCS 23230 B CODEIT DIOCS 23240 DCW @1/@ DIOCS 23250 BW DTFT38,SWRECF Q. RECFORM ENTRY PROCESSED DIOCS 24010 MLC @,@,OPR360&11 NO DIOCS 24020 MLC @C@,CONT36 DIOCS 24030 B WRITED DIOCS 24040 MLC @FIXUNB@,OPR360&13 DIOCS 24050 MLC @RECFORM#@ DIOCS 24060 B CODEIT DIOCS 24070 DCW @1/@ DIOCS 24080DTFT38 NOP DTFUR2 BRANCH IF OUTPUT FILE DIOCS 24090 BW DTFT39,SWRECF DIOCS 24100 MLC @,@,OPR360&14 DIOCS 24110DTFT40 MLC @C@,CONT36 DIOCS 24120 B WRITED DIOCS 24130 MLC @ERROPT#IGNORE@,OPR360&12 DIOCS 24140 B CODEIT DIOCS 24150 DCW @1/@ DIOCS 24160 B DTFUR2 DIOCS 24170DTFT39 MLC @,@,OPR360&11 DIOCS 24180 B DTFT40 DIOCS 24190 SKIPN DIOCS 24200******************************************************************* DIOCS 24210************************ SEQUENTIAL DISK ************************** DIOCS 24220******************************************************************* DIOCS 24230DTFSD MLC DTFSV1,NAM360-1 DIOCS 24240 MLC @DTFSR@,OP360 DIOCS 24250 MLC @C@,CONT36 DIOCS 25010 B WRITED DIOCS 25020 MLC @DISK11,@,OPR360&13 DIOCS 25030 MLC @DEVICE#@ DIOCS 25040 MLC @C@,CONT36 DIOCS 25050 B WRITED DIOCS 25060 BW DTFS04,DTFSW1 DIOCS 25070 MLC @,@,OPR360&13 DIOCS 25080 MLC @INPUT@ DIOCS 25090 MLC @B@,DTFS34 SET TO BRANCH EQUAL DIOCS 25100 B DTFS05 DIOCS 25110DTFS04 MLC @,@,OPR360&14 DIOCS 25120 MLC @OUTPUT@ DIOCS 25130 MLC @N@,DTFS34 NOP EOFADDR TEST DIOCS 25140DTFS05 MLC @TYPEFLE#@,OPR360&7 DIOCS 25150DTFS06 MLC @C@,CONT36 DIOCS 25160 B WRITED DIOCS 25170 B GETCD DIOCS 25180 C BLANKS,OP1400 DIOCS 25190 BU DTFS07 DIOCS 25200 BCE DTFS07,LBL14-6,* Q. COMMENTS CARD DIOCS 25210 C LBL14-1,@IOAREA@ DIOCS 25220 BE DTFS08 DIOCS 25230 C LBL14-1,@SIZERE@ DIOCS 25240 BE DTFS12 DIOCS 25250 C LBL14-1,@EOFADD@ DIOCS 26010DTFS34 BE DTFS13 DIOCS 26020 C LBL14-1,@INDEXR@ DIOCS 26030 BE DTFS14 DIOCS 26040 C LBL14-1,@WORKAR@ DIOCS 26050 BE DTFS16 DIOCS 26060 C LBL14-1,@RECFOR@ DIOCS 26070 BE DTFS17 DIOCS 26080 C LBL14-1,@NRECOR@ DIOCS 26090 BE DTFS26 DIOCS 26100 MLC CON1,OP360 DIOCS 26110 B CODEIT DIOCS 26120 DCW @Y/@ DIOCS 26130 B DTFS06&7 DIOCS 26140* DIOCS 26150DTFS32 MLC @ERROPT#IGNORE@,OPR360&12 DIOCS 26160 B CODEIT DIOCS 26170 DCW @1/@ DIOCS 26180 B DTFUR2 DIOCS 26190* DIOCS 26200DTFS08 MLC OPR14&9,OPR360&17 IOAREAS DIOCS 26210 MLC @IOAREA1#@ DIOCS 26220DTFS09 SBR X1,OPR360&9 DIOCS 26230DTFS10 BCE DTFS11,0&X1, DIOCS 26240 SBR X1,1&X1 DIOCS 26250 B DTFS10 DIOCS 27010DTFS11 MLC @,@,0&X1 DIOCS 27020 B DTFS06 DIOCS 27030* DIOCS 27040DTFS12 MLC OPR14&4,OPR360&12 SIZEREC DIOCS 27050 MLC @RECSIZE#@ DIOCS 27060 MLC OPR14&4,SVRECS#5 SAVE FOR COMPUTING BLKSIZE DIOCS 27070 B DTFS09 DIOCS 27080* DIOCS 27090DTFS13 MLC OPR14&9,OPR360&17 EOFADDR DIOCS 27100 MLC @EOFADDR#@ DIOCS 27110 B DTFS09 DIOCS 27120* DIOCS 27130DTFS14 MLNS OPR14&1,OPR360&6 INDEXREG DIOCS 27140 MLC @IOREG#@ DIOCS 27150 MLC @,@,OPR360&7 DIOCS 27160 BCE DTFS15,OPR360&6,1 Q. INDEX REG 1 DIOCS 27170 B DTFS06 DIOCS 27180DTFS15 MLC @4@,OPR360&6 X1 - MAKE IOREG 4 DIOCS 27190 B DTFS06 DIOCS 27200* DIOCS 27210DTFS16 MLC @WORKA#YES,@,OPR360&9 WORKAREA DIOCS 27220 MLC @C@,CONT36 DIOCS 27230 B WRITED DIOCS 27240 MLC OPR14&12,OPR360&20 DIOCS 27250 MLC @IOAREA2#@ DIOCS 28010 B DTFS09 DIOCS 28020* DIOCS 28030DTFS17 SBR X1,OP1400 RECFORM DIOCS 28040 SW SWRECF DIOCS 28050 MLC @FIXUNB,@,OPR360&14 DIOCS 28060DTFS18 BCE DTFS24,1&X1,B Q. BLOCKED FORMAT DIOCS 28070 BCE DTFS25,1&X1,V Q. VARIABLE FORMAT DIOCS 28080DTFS20 SBR X1,1&X1 DIOCS 28090 BCE DTFS18,0&X1,, Q. MORE PARAMETERS DIOCS 28100 BCE DTFS21,0&X1, Q. LAST PARAMETER DIOCS 28110DTFS21 MLC @RECFORM#@,OPR360&7 DIOCS 28120 B DTFS06 DIOCS 28130DTFS24 MLC @BLK@,OPR360&13 DIOCS 28140 B DTFS20 DIOCS 28150DTFS25 MLC @VAR@,OPR360&10 DIOCS 28160 B DTFS20 DIOCS 28170* DIOCS 28180DTFS26 MLC CON1,OP360 NRECORDS DIOCS 28190 B CODEIT DIOCS 28200 DCW @Y/@ DIOCS 28210 SBR X1,OPR14 DIOCS 28220DTFS27 BCE DTFS28,1&X1, DIOCS 28230 SBR X1,1&X1 DIOCS 28240 B DTFS27 DIOCS 28250DTFS28 ZA 0&X1,SVNREC#3 SAVE NRECORDS FOR COMPUTING DIOCS 29010 B DTFS06&7 DIOCS 29020* DIOCS 29030DTFS07 SBR X1,SVRECS-4 COMPUTE BLKSIZE DIOCS 29040 MCW BLANKS,IMAG14 BLANK OUT 1400 IMAGE DIOCS 29050DTFS29 BCE DTFS30,1&X1, NRECORDS&1 X SIZEREC DIOCS 29060 SBR X1,1&X1 DIOCS 29070 B DTFS29 DIOCS 29080DTFS30 ZA 0&X1,SVREC#5 DIOCS 29090 MLCWASVREC,BLKSIZ#5 DIOCS 29100 A @1@,SVNREC DIOCS 29110 MLTPYSVNREC,3,0,SVREC,5,0,BLKSIZ,5,0 DIOCS 29120 SBR X1,BLKSIZ-4 DIOCS 29130 SBR X2,OPR360&12 DIOCS 29140DTFS31 BCE DTFS33,0&X1,0 DIOCS 29150 MLNS BLKSIZ,0&X2 DIOCS 29160 MLC DIOCS 29170 MLC @BLKSIZE#@,OPR360&7 DIOCS 29180 B CODEIT DIOCS 29190 DCW @1/@ DIOCS 29200 MLC @,@,1&X2 DIOCS 29210 MLC @C@,CONT36 DIOCS 29220 B WRITED DIOCS 29230 BW DTFS32,SWRECF Q. RECFORM ENTRY PROCESSED DIOCS 29240 MLC @FIXUNB,@,OPR360&14 NO DIOCS 29250 MLC @RECFORM#@ DIOCS 30010 B CODEIT DIOCS 30020 DCW @1/@ DIOCS 30030 MLC @C@,CONT36 DIOCS 30040 B WRITED DIOCS 30050 B DTFS32 DIOCS 30060DTFS33 SBR X1,1&X1 DIOCS 30070 SW 0&X1 DIOCS 30080 MA @I9I@,X2 DIOCS 30090 B DTFS31 DIOCS 30100 SKIPN DIOCS 30110******************************************************************* DIOCS 30120********************* CONTROL SEQUENTIAL DISK ********************* DIOCS 30130******************************************************************* DIOCS 30140DTFIS MLC DTFSV1,NAM360-1 DIOCS 30150 MLC @DTFIS@,OP360 DIOCS 30160 MLC @C@,CONT36 DIOCS 30170 B WRITED DIOCS 30180 MLC @IOROUT#RETRVE,@,OPR360&13 DIOCS 30190 MLC @C@,CONT36 DIOCS 30200 B WRITED DIOCS 30210 MLC @SEQNTL,@,OPR360&14 DIOCS 30220 MLC @TYPEFLE#@ DIOCS 30230DTFI01 MLC @C@,CONT36 DIOCS 30240 B WRITED DIOCS 30250 B GETCD DIOCS 31010 BCE DTFI17,LBL14-6,* Q. COMMENTS CARD DIOCS 31020 C BLANKS,OP1400 DIOCS 31030 BU DTFI17 DIOCS 31040 C LBL14-1,@IOAREA@ DIOCS 31050 BE DTFI02 DIOCS 31060 C LBL14-1,@SIZERE@ DIOCS 31070 BE DTFI06 DIOCS 31080 C LBL14-1,@EOFADD@ DIOCS 31090 BE DTFI07 DIOCS 31100 C LBL14-1,@INDEXR@ DIOCS 31110 BE DTFI08 DIOCS 31120 C LBL14-1,@WORKAR@ DIOCS 31130 BE DTFI10 DIOCS 31140 C LBL14-1,@NRECOR@ DIOCS 31150 BE DTFI11 DIOCS 31160 C LBL14-1,@UPDATE@ DIOCS 31170 BE DTFI16 DIOCS 31180 MLC CON1,OP360 DIOCS 31190 B CODEIT DIOCS 31200 DCW @Y/@ DIOCS 31210 B DTFI01&7 DIOCS 31220* DIOCS 31230DTFI02 MLC OPR14&9,OPR360&17 IOAREAS DIOCS 31240 MLC @IOAREAS#@ DIOCS 31250DTFI03 SBR X1,OPR360&9 DIOCS 32010DTFI04 BCE DTFI05,0&X1, DIOCS 32020 SBR X1,1&X1 DIOCS 32030 B DTFI04 DIOCS 32040DTFI05 MLC @,@,0&X1 DIOCS 32050 B DTFI01 DIOCS 32060* DIOCS 32070DTFI06 MLC OPR14&4,OPR360&12 SIZEREC DIOCS 32080 MLC @RECSIZE#@ DIOCS 32090 B DTFI03 DIOCS 32100* DIOCS 32110DTFI07 MLC OPR14&9,OPR360&17 EOFADDR DIOCS 32120 MLC @EOFADDR#@ DIOCS 32130 B DTFI03 DIOCS 32140* DIOCS 32150DTFI08 MLNS OPR14&1,OPR360&6 INDEXREG DIOCS 32160 MLC @IOREG#@ DIOCS 32170 MLC @,@,OPR360&7 DIOCS 32180 CW SWRECB INDICATE BLOCKED RECORDS DIOCS 32190 BCE DTFI09,OPR360&6,1 Q. INDEX REG 1 DIOCS 32200 B DTFI01 DIOCS 32210DTFI09 MLC @4@,OPR360&6 X1 REFERENCE -- MAKE REG 4 DIOCS 32220 B DTFI01 DIOCS 32230* DIOCS 32240DTFI10 MLC @WORKS#YES,@,OPR360&9 WORKAREA DIOCS 32250 B DTFI01 DIOCS 33010* DIOCS 33020DTFI11 SBR X1,OPR14 NRECORDS DIOCS 33030 MLCWASVREC-2,SVNREC DIOCS 33040DTFI12 BCE DTFI13,1&X1, DIOCS 33050 SBR X1,1&X1 DIOCS 33060 B DTFI12 DIOCS 33070DTFI13 ZA 0&X1,SVNREC DIOCS 33080 CW SWRECB INDICATE BLOCKED RECORDS DIOCS 33090 A @1@,SVNREC DIOCS 33100 SBR X1,SVNREC-2 DIOCS 33110 SBR X2,OPR360&9 DIOCS 33120DTFI14 BCE DTFI15,0&X1,0 DIOCS 33130 MLNS SVNREC,0&X2 DIOCS 33140 MLC DIOCS 33150 MLC @NRECDS#@,OPR360&6 DIOCS 33160 MLC @C@,CONT36 DIOCS 33170 MLC @,@,1&X2 DIOCS 33180 B WRITED DIOCS 33190 B CODEIT DIOCS 33200 DCW @1/@ DIOCS 33210 MLC @,@,OPR360&12 DIOCS 33220 MLC CON1 DIOCS 33230 MLC @KEYLOC#@ DIOCS 33240 B DTFI01 DIOCS 33250DTFI15 SBR X1,1&X1 DIOCS 34010 SW 0&X1 DIOCS 34020 MA @I9I@,X2 DIOCS 34030 B DTFI14 DIOCS 34040* DIOCS 34050DTFI16 MLC @#SEQNTL,@,OPR360&13 UPDATE DIOCS 34060 MLC @UPDATE@ DIOCS 34070 MLC @C@,CONT36 DIOCS 34080 B WRITED DIOCS 34090 B CODEIT DIOCS 34100 DCW @1/@ DIOCS 34110 MLC @VERIFY#YES,@,OPR360&10 DIOCS 34120 B DTFI01 DIOCS 34130* DIOCS 34140DTFI17 MLC @,@,OPR360&12 DIOCS 34150 MLC CON1 DIOCS 34160 MLC @DERREX#@ DIOCS 34170 MLC @C@,CONT36 DIOCS 34180 B CODEIT DIOCS 34190 DCW @1@ DIOCS 34200 DCW @2/@ DIOCS 34210 MLC BLANKS,IMAG14 BLANK OUT 1400 SOURCE IMAGE DIOCS 34220 B WRITED DIOCS 34230 B CODEIT DIOCS 34240 DCW @1@ DIOCS 34250 DCW @2/@ DIOCS 35010 MLC @C@,CONT36 DIOCS 35020 MLC @,@,OPR360&11 DIOCS 35030 MLC CON1-2 DIOCS 35040 MLC @DSKXTNT#@ DIOCS 35050 B WRITED DIOCS 35060 B CODEIT DIOCS 35070 DCW @1@ DIOCS 35080 DCW @2/@ DIOCS 35090 MLC @C@,CONT36 DIOCS 35100 MLC @,@,OPR360&10 DIOCS 35110 MLC CON1-2 DIOCS 35120 MLC @KEYLEN#@ DIOCS 35130 B WRITED DIOCS 35140 MLC @FIXUNB,@,OPR360&14 DIOCS 35150 MLC @RECFORM#@ DIOCS 35160 BW DTFI18,SWRECB Q. BLOCKED FILE DIOCS 35170 MLC @BLK@,OPR360&13 YES DIOCS 35180DTFI18 B CODEIT DIOCS 35190 DCW @1/@ DIOCS 35200 MLC @C@,CONT36 DIOCS 35210 B WRITED DIOCS 35220 MLC CON1,OPR360&11 DIOCS 35230 MLC @WLRERR#@ DIOCS 35240 B CODEIT DIOCS 35250 DCW @1@ DIOCS 36010 DCW @2/@ DIOCS 36020 B WRITED DIOCS 36030 MLC DTFSV1,OPR360&6 DIOCS 36040 SBR X1,OPR360 DIOCS 36050DTFI19 BCE DTFI20,0&X1, DIOCS 36060 SBR X1,1&X1 DIOCS 36070 B DTFI19 DIOCS 36080DTFI20 MLC @,BOF@,3&X1 DIOCS 36090 MLC @SETL@,OP360-1 DIOCS 36100 B CODEIT DIOCS 36110 DCW @1@ DIOCS 36120 DCW @O/@ DIOCS 36130 B WRITED DIOCS 36140 MLC DTFSV1,OPR360&6 DIOCS 36150 MLC @ESETL@,OP360 DIOCS 36160 B CODEIT DIOCS 36170 DCW @1@ DIOCS 36180 DCW @O/@ DIOCS 36190 B DTFUR2 DIOCS 36200 SKIPN DIOCS 36210******************************************************************* DIOCS 36220************************ RANDOM ACCESS DISK *********************** DIOCS 36230******************************************************************* DIOCS 36240DTFDA MLC DTFSV1,NAM360-1 DIOCS 36250 MLC @DTFDA@,OP360 DIOCS 37010 MLC @C@,CONT36 DIOCS 37020 B WRITED DIOCS 37030 MLC @DISK11,@,OPR360&13 DIOCS 37040 MLC @DEVICE#@ DIOCS 37050 MLC @C@,CONT36 DIOCS 37060 B WRITED DIOCS 37070 SBR X1,OP1400 DIOCS 37080DTFD01 BCE DTFD03,1&X1,I DIOCS 37090 BCE DTFD19,1&X1,O DIOCS 37100DTFD02 SBR X1,1&X1 DIOCS 37110 BCE DTFD01,0&X1,, DIOCS 37120 BCE DTFD03,0&X1, DIOCS 37130 B DTFD02 DIOCS 37140DTFD03 MLC @,@,OPR360&13 DIOCS 37150 MLC @INPUT@ DIOCS 37160 MLC @TYPEFLE#@ DIOCS 37170DTFD04 MLC @C@,CONT36 DIOCS 37180 B WRITED DIOCS 37190 B GETCD DIOCS 37200 BCE DTFD11,LBL14-6,* Q. COMMENTS CARD DIOCS 37210 C BLANKS,OP1400 DIOCS 37220 BU DTFD11 DIOCS 37230 C LBL14-1,@SIZERE@ DIOCS 37240 BE DTFD06 DIOCS 37250 C LBL14-1,@UPDATE@ DIOCS 38010 BE DTFD07 DIOCS 38020 C LBL14-1,@NRECOR@ DIOCS 38030 BE DTFD08 DIOCS 38040 C LBL14-1,@IOAREA@ DIOCS 38050 BE DTFD16 DIOCS 38060 C LBL14-1,@INDEXR@ DIOCS 38070 BE DTFD21 DIOCS 38080DTFD05 MLC CON1,OP360 DIOCS 38090 B CODEIT DIOCS 38100 DCW @Y/@ DIOCS 38110 B DTFD04&7 DIOCS 38120* DIOCS 38130DTFD06 MLCWAOPR14&4,SVRECS SIZEREC DIOCS 38140 B DTFD05 DIOCS 38150* DIOCS 38160DTFD07 MLC @VERIFY#YES,@,OPR360&10 UPDATE DIOCS 38170 B DTFD04 DIOCS 38180* DIOCS 38190DTFD08 SBR X1,OPR14 NRECORDS DIOCS 38200DTFD09 BCE DTFD10,1&X1, DIOCS 38210 SBR X1,1&X1 DIOCS 38220 B DTFD09 DIOCS 38230DTFD10 ZA 0&X1,SVNREC DIOCS 38240DTFD21 CW SWRECB DIOCS 38250 B DTFD05 DIOCS 39010* DIOCS 39020DTFD11 SBR X1,SVRECS-4 COMPUTE BLKSIZE DIOCS 39030 MLC BLANKS,IMAG14 BLANK OUT 1400 SOURCE IMAGE DIOCS 39040DTFD12 BCE DTFD13,1&X1, NRECORDS&1 X SIZEREC DIOCS 39050 SBR X1,1&X1 DIOCS 39060 B DTFD12 DIOCS 39070DTFD13 ZA 0&X1,SVREC DIOCS 39080 A @1@,SVNREC DIOCS 39090 MLTPYSVNREC,3,0,SVREC,5,0,BLKSIZ,5,0 DIOCS 39100 SBR X1,BLKSIZ-4 DIOCS 39110 SBR X2,OPR360&12 DIOCS 39120DTFD14 BCE DTFD15,0&X1,0 DIOCS 39130 MLNS BLKSIZ,0&X2 DIOCS 39140 MLC DIOCS 39150 MLC @BLKSIZE#@,OPR360&7 DIOCS 39160 B CODEIT DIOCS 39170 DCW @1/@ DIOCS 39180 MLC @,@,1&X2 DIOCS 39190 MLC @C@,CONT36 DIOCS 39200 B WRITED DIOCS 39210 MLC @FIXUNB,@,OPR360&14 DIOCS 39220 MLC @RECFORM#@ DIOCS 39230 BW DTFD20,SWRECB Q. BLOCKED FILE DIOCS 39240 MLC @BLK@,OPR360&13 DIOCS 39250DTFD20 B CODEIT DIOCS 40010 DCW @1/@ DIOCS 40020 MLC @C@,CONT36 DIOCS 40030 B WRITED DIOCS 40040 MLC @IDLOC#IOCADR,@,OPR360&12 DIOCS 40050 B CODEIT DIOCS 40060 DCW @1@ DIOCS 40070 DCW @2/@ DIOCS 40080 MLC @C@,CONT36 DIOCS 40090 B WRITED DIOCS 40100 MLC CON1-2,OPR360&10 DIOCS 40110 MLC @ERRBYTE#@ DIOCS 40120 B CODEIT DIOCS 40130 DCW @1@ DIOCS 40140 DCW @2/@ DIOCS 40150 B DTFUR2 DIOCS 40160DTFD15 SBR X1,1&X1 DIOCS 40170 SW 0&X1 DIOCS 40180 MA @I9I@,X2 DIOCS 40190 B DTFD14 DIOCS 40200* DIOCS 40210DTFD16 MLC OPR14&9,OPR360&17 IOAREAS DIOCS 40220 MLC @IOAREA1#@ DIOCS 40230 SBR X1,OPR360&9 DIOCS 40240DTFD17 BCE DTFD18,0&X1, DIOCS 40250 SBR X1,1&X1 DIOCS 41010 B DTFD17 DIOCS 41020DTFD18 MLC @,@,0&X1 DIOCS 41030 B DTFD04 DIOCS 41040DTFD19 MLC @,@,OPR360&14 DIOCS 41050 MLC @OUTPUT@ DIOCS 41060 MLC @TYPEFLE#@ DIOCS 41070 B DTFD04 DIOCS 41080DTFSW1 DC @ @ DIOCS 41090******************************************************************* DIOCS 41100 EX DIOCS DIOCS 01010 JOB DTF TRANSLATOR FOR DOS/TOS OUTPUT DOS 01020****** DOS 01030* TRANSLATES 14XX DIOCS/DTF,S TO S/360 DOS/TOS DTF,S DOS 01040****** DOS 01050 ORG DTF DOS 01060* * DOS 01070******************************************************************* DOS 01080* * * DOS 01090* DIOCS * ***** * DOS 01100*... ... * ***** * DOS 01110* * * DOS 01120* DTF CARDIN * ***** * DOS 01130*FILETYPE READER *CARDIN DTFCD C* DOS 01140* * DEVADDR#SYSIPT, C* DOS 01150*IOAREAS ICARD * IOAREA1#ICARD, C* DOS 01160*EOFADDR LASTCD * EOFADDR#LASTCD, C* DOS 01170*WORKAREA IWRKCD * WORKA#YES, C* DOS 01180* * IOAREA1#IWRKCD, C* DOS 01190*CARDPOC 2 * SSELECT#2, C* DOS 01200* * BLKSIZE#80 * DOS 01210* * * DOS 01220******************************************************************* DOS 01230* * * DOS 01240* DTF CRDOUT * ***** * DOS 01250*FILETYPE PUNCH *CRDOUT DTFCD C* DOS 02010* * DEVADDR#SYSPCH, C* DOS 02020* * TYPEFLE#OUTPUT, C* DOS 02030*IOAREAS OCARD * IOAREA1#OCARD, C* DOS 02040*WORKAREA OWRKCD * WORKA#YES, C* DOS 02050* * IOAREA1#OWRKCD, C* DOS 02060*CARDPOC 4 * SSELECT#1, C* DOS 02070* * CRDERR#RETRY, C* DOS 02080* * BLKSIZE#80 * DOS 02090* * * DOS 02100******************************************************************* DOS 02110* * * DOS 02120* DTF PRINTR * ***** * DOS 02130*FILETYPE PRINTER *PRINTR DTFPR C* DOS 02140* * DEVADDR#SYSLST, C* DOS 02150*IOAREAS OPRINT * IOAREA1#OPRINT, C* DOS 02160*OVERFLOW 9,CHANL9 * ***** * DOS 02170* * PRINTOV#YES, C* DOS 02180*WORKAREA OWRKPR * WORKA#YES, C* DOS 02190* * IOAREA1#OWRKPR, C* DOS 02200*FORMCNTL J * ***** * DOS 02210* * CONTROL#YES, C* DOS 02220* * BLKSIZE#132 * DOS 02230* * * DOS 02240******************************************************************* DOS 02250* * * DOS 03010* DTF TAPE * ***** * DOS 03020*FILETYPE TAPE,INPUT,CHECKPOI*TAPE DTFMT C* DOS 03030* * CKPTREC#YES, C* DOS 03040*FILETYPE TAPE,OUTPUT * DTFMT C* DOS 03050* * TYPEFLE#OUTPUT, C* DOS 03060*IOAREAS TAPE1,TAPE2 * IOAREA1#TAPE1, C* DOS 03070* * IOAREA2#TAPE2, C* DOS 03080*CHANDRIVE 3 * DEVADDR#SYS013, C* DOS 03090*EOFADDR TAPEND * EOFADDR#TAPEND, C* DOS 03100*INDEXREG X2 * IOREG#2, C* DOS 03110*WORKAREA TPWORK * WORKA#YES, C* DOS 03120* * IOAREA2#TPWORK, C* DOS 03130*RECFORM FIXED,BLOCKED * RECFORM#FIXBLK, C* DOS 03140*RECFORM VARIABLE * RECFORM#VARUNB, C* DOS 03150*BLOCKSIZE 333 * BLKSIZE#333, C* DOS 03160*SIZEREC 111 * RECSIZE#111, C* DOS 03170*ALTTAPE 4 * ***** * DOS 03180*MODEPAR LOAD * ***** * DOS 03190*OUTLIN YES * ***** * DOS 03200*TYPELABEL STANDARD,B,TM * FILABL#STD, C* DOS 03210*TYPELABEL NONSTANDARD * FILABL#NSTD, C* DOS 03220* * TPMARK#NO, C* DOS 03230*EX-ADDR EXIT- * LABADDR#EXIT-, C* DOS 03240*PADDING 9 * ***** * DOS 03250*REWIND UNLOAD * REWIND#UNLOAD, C* DOS 04010*WLAADDR TPWLR * WLRERR#TPWLR, C* DOS 04020* * ERROPT#***** * DOS 04030* * * DOS 04040******************************************************************* DOS 04050* * * DOS 04060* DTF CONSEC * ***** * DOS 04070*FILETYPE DISK,OUTPUT,CONSEC *CONSEC DTFSD C* DOS 04080* * TYPEFLE#OUTPUT, C* DOS 04090* * VERIFY#YES, C* DOS 04100*IOAREAS DISKIO * IOAREA1#DISKIO, C* DOS 04110*SIZEREC 100 * RECSIZE#100, C* DOS 04120*NAT-PACK - * ***** * DOS 04130*EOFADDR ENDISK * EOFADDR#ENDISK, C* DOS 04140*FILESTART 000000 * ***** * DOS 04150*INDEXREG X1 * IOREG#4, C* DOS 04160*WORKAREA DWORK * WORKA#YES, C* DOS 04170* * IOAREA2#DWORK, C* DOS 04180*RECFORM BLOCKED * RECFORM#FIXBLK, C* DOS 04190*NRECORDS 2 * BLKSIZE#300 * DOS 04200* * * DOS 04210******************************************************************* DOS 04220* * * DOS 04230* DTF CTLSEQ * ***** * DOS 04240*FILETYPE DISK,INPUT,CTLSEQ *CTLSEQ DTFIS C* DOS 04250* * IOROUT#RETRVE, C* DOS 05010* * TYPEFLE#SEQNTL, C* DOS 05020* * VERIFY#YES, C* DOS 05030*IOAREAS DISKIO * IOAREAS#DISKIO, C* DOS 05040*SIZEREC 200 * RECSIZE#200, C* DOS 05050*EOFADDR#ENDCTL * ***** * DOS 05060*FILEND 019979 * ***** * DOS 05070*INDEXREG X3 * IOREG#3, C* DOS 05080*WORKAREA DWORK * ***** * DOS 05090* * WORKS#YES, C* DOS 05100*NRECORDS 4 * NRECDS#5, C* DOS 05110* * RECFORM#FIXBLK, C* DOS 05120* * DSKXTNT#*****, C* DOS 05130* * KEYLEN#***** * DOS 05140* * * DOS 05150******************************************************************* DOS 05160* * * DOS 05170* DTF RANDOM * ***** * DOS 05180*FILETYPE DISK,OUTPUT,RANDOM *RANDOM DTFDA C* DOS 05190* * TYPEFLE#OUTPUT, C* DOS 05200* * VERIFY#YES, C* DOS 05210*IOAREAS DISKIO * IOAREA1#DISKIO, C* DOS 05220*SIZEREC 50 * ***** * DOS 05230*NRECORDS 5 * ***** * DOS 05240* * BLKSIZE#300, C* DOS 05250* * ERRBYTE#*****, C* DOS 06010* * SEEKADR#***** * DOS 06020* * * DOS 06030******************************************************************* DOS 06040 SKIPN DOS 06050DOS MLC OPR14&5,DTFSV1-1 SAVE DTF NAME DOS 06060 CW RECBSW#1 DOS 06070 SD IOCADR-7 REPOSITION DISK HEADS DOS 06080 BIN *-12,\ AFTER FETCH DOS 06090 MLC CON1,OP360 DTF NOT TRANSLATABLE DOS 06100 B CODEIT UNTIL FILETYPE KNOWN DOS 06110 DCW @Y/@ DOS 06120 B WRITED WRITE DISK RECORD DOS 06130 B GETCD READ NEXT CARD RECORD DOS 06140 C LBL14-1,@FILETY@ Q. FILETYPE PARAMETER DOS 06150 BU DIOCS5 NO--REJECT THE DTF DOS 06160 CW SWDTF1#1 YES DOS 06170 C OPR14&5,@READER@ Q. CARD READER DOS 06180 BE DOSRD YES DOS 06190 C OPR14&4,@PUNCH@ Q. CARD PUNCH DOS 06200 BE DOSPH YES DOS 06210 C OPR14&5,@PRINTE@ Q. PRINTER DOS 06220 BE DOSPR YES DOS 06230 C OPR14&3,@TAPE@ Q. TAPE DOS 06240 BE DOSTP YES DOS 06250 C OPR14&3,@DISK@ Q. DISK DOS 07010 BE DOSDK YES DOS 07020 B DIOCS1 NO--REJECT THE DTF DOS 07030 SKIPN DOS 07040********** DOS 07050* CARD READER DTF DOS 07060********** DOS 07070DOSRD MLC DTFSV1,NAM360-1 SET UP FILE NAME DOS 07080 MLC DTFSV1,RDDTF STORE FOR ANY STACKER/READ DOS 07090 CW RDRSW OPERATIONS DOS 07100 MLC @DTFCD@,OP360 DOS 07110DOSRD1 MLC @C@,CONT36 DOS 07120 B WRITED DOS 07130 B GETCD DOS 07140 C BLANKS,OP1400 Q. END OF DTF PARAMETERS DOS 07150 BU DOSRD2 YES DOS 07160 BCE DOSRD2,LBL14-6,* Q. COMMENTS CARD DOS 07170 C LBL14-1,@IOAREA@ Q. IOAREA%S) PARAMETER DOS 07180 BE DOSRD4 YES DOS 07190 C LBL14-1,@EOFADD@ Q. EOFADDR PARAMETER DOS 07200 BE DOSRD7 YES DOS 07210 C LBL14-1,@WORKAR@ Q. WORKAREA PARAMETER DOS 07220 BE DOSRD8 YES DOS 07230 C LBL14-1,@CARDPO@ Q. CARDPOC PARAMETER DOS 07240 BE DOSRD9 YES DOS 07250 MLC CON1,OP360 UNNECESSARY PARAMETER DOS 08010 B CODEIT DOS 08020 DCW @Y/@ DOS 08030 B DOSRD1&7 DOS 08040* COMPLETE DTFCD FOR READER FILE DOS 08050DOSRD2 MLC BLANKS,IMAG14 BLANK OUT 1400 SOURCE IMAGE DOS 08060 BW DOSRD3,RDRSS Q. READ STACKER SELECT USED DOS 08070 MLC @C@,CONT36 YES DOS 08080 B CODEIT DOS 08090 DCW @1/@ DOS 08100 MLC @CONTROL#YES,@,OPR360&11 DOS 08110 B WRITED WRITE CONTROL PARAMETER DOS 08120DOSRD3 MLC @IPT@,OPR360&13 DOS 08130 MLC @DEVADDR#SYS@ DOS 08140 B WRITED WRITE DEVADDR PARAMETER DOS 08150 MLC OPR14E,IMAG14 RESTORE 1400 SOURCE IMAGE DOS 08160 CHAIN3 DOS 08170 B DIOCS2 DOS 08180* DOS 08190DOSRD4 MLC OPR14&9,OPR360&17 IOAREAS PARAMETER DOS 08200 MLC @IOAREA1#@ DOS 08210 B CODEIT DOS 08220 DCW @Q/@ DOS 08230DOSRD5 SBR X1,OPR360&9 DOS 08240 BCE DOSRD6,0&X1, Q. END OF LABEL DOS 08250 SBR X1,1&X1 NOT YET DOS 09010 B DOSRD5&7 DOS 09020DOSRD6 MLC @,@,0&X1 DOS 09030 B DOSRD1 DOS 09040* DOS 09050DOSRD7 MLC OPR14&9,OPR360&17 EOFADDR PARAMETER DOS 09060 MLC @EOFADDR#@ DOS 09070 B DOSRD5 DOS 09080* DOS 09090DOSRD8 MLC OPR14&9,OPR360&17 WORKAREA PARAMETER DOS 09100 MLC @IOAREA1#@ DOS 09110 B DOSRD5 DOS 09120* DOS 09130DOSRD9 BCE DOSRDB,OPR14,1 CARDPOC PARAMETER - STKR 1 DOS 09140 MLC @3@,OPR360&8 NO--STACKER 2 DOS 09150DOSRDA MLC @SSELECT#@,OPR360&7 DOS 09160 SW RDRSS DOS 09170 B DOSRD5 DOS 09180DOSRDB MLC @2@,OPR360&8 STACKER 1 DOS 09190 B DOSRDA DOS 09200 SKIPN DOS 09210********** DOS 09220* CARD PUNCH DTF DOS 09230********** DOS 09240DOSPH MLC DTFSV1,NAM360-1 SET UP FILE NAME DOS 09250 MLC DTFSV1,PHDTF STORE FOR ANY STACKER/PUNCH DOS 10010 CW PCHSW OPERATIONS DOS 10020 MLC @DTFCD@,OP360 DOS 10030 MLC @C@,CONT36 DOS 10040 B WRITED DOS 10050 MLC @TYPEFLE#OUTPUT,@,OPR360&14 DOS 10060DOSPH1 MLC @C@,CONT36 DOS 10070 B WRITED DOS 10080 B GETCD DOS 10090 C BLANKS,OP1400 Q. END OF DTF PARAMETERS DOS 10100 BU DOSPH2 YES DOS 10110 BCE DOSPH2,LBL14-6,* Q. COMMENTS CARD DOS 10120 C LBL14-1,@IOAREA@ Q. IOAREA%S) PARAMETER DOS 10130 BE DOSPH4 YES DOS 10140 C LBL14-1,@WORKAR@ Q. WORKAREA PARAMETER DOS 10150 BE DOSPH5 YES DOS 10160 C LBL14-1,@CARDPO@ Q. CARDPOC PARAMETER DOS 10170 BE DOSPH8 YES DOS 10180 MLC CON1,OP360 DOS 10190 B CODEIT DOS 10200 DCW @Y/@ DOS 10210 B DOSPH1&7 DOS 10220* COMPLETE DTFCD FOR PUNCH FILE DOS 10230DOSPH2 MLC BLANKS,IMAG14 BLANK OUT 1400 SOURCE IMAGE DOS 10240 MLC @CRDERR#RETRY,@,OPR360&12 DOS 10250 B CODEIT DOS 11010 DCW @1/@ DOS 11020 B WRITED DOS 11030 BW DOSPH3,PCHSS Q. PUNCH STACKER SELECTION DOS 11040 MLC @C@,CONT36 YES DOS 11050 B CODEIT DOS 11060 DCW @1/@ DOS 11070 MLC @CONTROL#YES,@,OPR360&11 DOS 11080 B WRITED WRITE CONTROL PARAMETER DOS 11090DOSPH3 MLC @PCH@,OPR360&13 DOS 11100 MLC @DEVADDR#SYS@ DOS 11110 B WRITED WRITE DEVADDR PARAMETER DOS 11120 MLC OPR14E,IMAG14 RESTORE 1400 SOURCE IMAGE DOS 11130 CHAIN3 DOS 11140 B DIOCS2 DOS 11150* DOS 11160DOSPH4 B CODEIT IOAREA%S) PARAMETER DOS 11170 DCW @Q/@ DOS 11180DOSPH5 MLC OPR14&9,OPR360&17 WORKAREA PARAMETER DOS 11190 MLC @IOAREA1#@ DOS 11200 SBR X1,OPR360&9 DOS 11210DOSPH6 BCE DOSPH7,0&X1, Q. END OF LABEL DOS 11220 SBR X1,1&X1 NO DOS 11230 B DOSPH6 DOS 11240DOSPH7 MLC @,@,0&X1 DOS 11250 B DOSPH1 DOS 12010* DOS 12020DOSPH8 MCW @,@,OPR360&9 CARDPOC PARAMETER DOS 12030 BCE DOSPHA,OPR14,8 Q. POCKET 8 SELECTION DOS 12040 MLC @2@,OPR360&8 NO--POCKET 4 DOS 12050DOSPH9 MLC @SSELECT#@,OPR360&7 DOS 12060 B DOSPH1 DOS 12070DOSPHA MLC @3@,OPR360&8 STACKER 8 DOS 12080 B DOSPH9 DOS 12090 SKIPN DOS 12100********** DOS 12110* PRINTER DTF DOS 12120********** DOS 12130DOSPR MLC DTFSV1,PRDTF STORE FOR ANY WRITE/CONTROL DOS 12140 CW PRTSW CARRIAGE OPERATIONS DOS 12150 MLC DTFSV1,NAM360-1 DOS 12160 MLC @DTFPR@,OP360 DOS 12170DOSPR1 MLC @C@,CONT36 DOS 12180 B WRITED DOS 12190 B GETCD DOS 12200 C BLANKS,OP360 Q. NEW OPERATION CODE DOS 12210 BU DOSPR2 YES DOS 12220 BCE DOSPR2,LBL14-6,* Q. COMMENTS CARD DOS 12230 C LBL14-1,@IOAREA@ Q. IOAREA%S) PARAMETER DOS 12240 BE DOSPR4 YES DOS 12250 C LBL14-1,@OVERFL@ Q. OVERFLOW PARAMETER DOS 13010 BE DOSPR8 YES DOS 13020 C LBL14-1,@WORKAR@ Q. WORKAREA PARAMETER DOS 13030 BE DOSPR5 YES DOS 13040 C LBL14-1,@FORMCN@ Q. FORMCNTL PARAMETER DOS 13050 BE DOSPR9 YES DOS 13060 MLC CON1,OP360 UNNECESSARY PARAMETER DOS 13070 B CODEIT DOS 13080 DCW @Y/@ DOS 13090 B DOSPR1&7 DOS 13100* COMPLETE DTFPR FOR PRINT FILE DOS 13110DOSPR2 MLC BLANKS,IMAG14 BLANK OUT 1400 SOURCE IMAGE DOS 13120 BW DOSPR3,PRTCC Q. PRINTER CARRIAGE CONTROL DOS 13130 MLC @C@,CONT36 YES DOS 13140 B CODEIT DOS 13150 DCW @1/@ DOS 13160 MLC @CONTROL#YES,@,OPR360&11 DOS 13170 B WRITED WRITE CONTROL STATEMENT DOS 13180DOSPR3 MLC @C@,CONT36 DOS 13190 B CODEIT DOS 13200 DCW @1/@ DOS 13210 MLC @BLKSIZE#132,@,OPR360&11 DOS 13220 B WRITED WRITE BLKSIZE PARAMETER DOS 13230 MLC @LST@,OPR360&13 DOS 13240 MLC @DEVADDR#SYS@ DOS 13250 B WRITED WRITE DEVADDR PARAMETER DOS 14010 MLC OPR14E,IMAG14 DOS 14020 CHAIN3 DOS 14030 B DIOCS2 DOS 14040* DOS 14050DOSPR4 B CODEIT IOAREA%S) PARAMETER DOS 14060 DCW @Q/@ DOS 14070DOSPR5 MLC OPR14&9,OPR360&17 WORKAREA PARAMETER DOS 14080 MLC @IOAREA1#@ DOS 14090 SBR X1,OPR360&9 DOS 14100DOSPR6 BCE DOSPR7,0&X1, DOS 14110 SBR X1,1&X1 DOS 14120 B DOSPR6 DOS 14130DOSPR7 MLC @,@,0&X1 DOS 14140 B DOSPR1 DOS 14150* DOS 14160DOSPR8 B CODEIT OVERFLOW PARAMETER DOS 14170 DCW @D/@ DOS 14180 MLC CON1,OP360 DOS 14190 B WRITED DOS 14200 B CODEIT DOS 14210 DCW @1/@ DOS 14220 MLC @PRINTOV#YES,@,OPR360&11 DOS 14230 B DOSPR1 DOS 14240* DOS 14250DOSPR9 SW PRTCC FORMCNTL PARAMETER DOS 15010 B CODEIT DOS 15020 DCW @D/@ DOS 15030 MLC CON1,OP360 DOS 15040 B WRITED DOS 15050 B CODEIT DOS 15060 DCW @1/@ DOS 15070 MLC @CONTROL#YES,@,OPR360&11 DOS 15080 B DOSPR1 DOS 15090 SKIPN DOS 15100********** DOS 15110* TAPE DTF DOS 15120********** DOS 15130DOSTP MLC DTFSV1,NAM360-1 DOS 15140 MLC @DTFMT@,OP360 DOS 15150 MLC @C@,CONT36 DOS 15160 B WRITED WRITE DTFMT MACRO OPERATION DOS 15170 C OPR14&9,@INPUT@ Q. INPUT FILE DOS 15180 BE DOST04 DOS 15190 C OPR14&10,@OUTPUT@ Q. OUTPUT FILE DOS 15200 BE DOST01 DOS 15210 C OPR14&10,@CHECKP@ Q. INPUT FILE W/ CHECKPOINT DOS 15220 BE DOST05 YES DOS 15230 C OPR14&10,BLANKS-66 Q. BLANK OPERANDS AFTER DOS 15240 BU DIOCS1 TAPE-- BR NO & REJECT DTF DOS 15250 B DOST03 DOS 16010DOST01 MLC @TYPEFLE#OUTPUT,@,OPR360&14 DOS 16020DOST02 MLC @C@,CONT36 DOS 16030 B WRITED DOS 16040DOST03 B GETCD DOS 16050 C BLANKS,OP1400 Q. NEW OPERATION CODE DOS 16060 BU DOST06 YES DOS 16070 BCE DOST06,LBL14-6,* Q. COMMENTS CARD DOS 16080 C LBL14-1,@IOAREA@ Q. IOAREA%S) PARAMETER DOS 16090 BE DOST07 YES DOS 16100 C LBL14-1,@CHANDR@ Q. CHANDRIVE PARAMETER DOS 16110 BE DOST14 YES DOS 16120 C LBL14-1,@EOFADD@ Q. EOFADDR PARAMETER DOS 16130 BE DOST15 YES DOS 16140 C LBL14-1,@INDEXR@ Q. INDEXREG PARAMETER DOS 16150 BE DOST16 YES DOS 16160 C LBL14-1,@WORKAR@ Q. WORKAREA PARAMETER DOS 16170 BE DOST17 YES DOS 16180 C LBL14-1,@RECFOR@ Q. RECFORM PARAMETER DOS 16190 BE DOST18 YES DOS 16200 C LBL14-1,@BLOCKS@ Q. BLOCKSIZE PARAMETER DOS 16210 BE DOST23 YES DOS 16220 C LBL14-1,@SIZERE@ Q. SIZEREC PARAMETER DOS 16230 BE DOST24 YES DOS 16240 C LBL14-1,@TYPELA@ Q. TYPELABEL PARAMETER DOS 16250 BE DOST25 YES DOS 17010 C LBL14-1,DOST90 Q. EX DOS 17020 CW - DOS 17030 C ADDR PARAMETER DOS 17040 BE DOST28 YES DOS 17050 C LBL14-1,@REWIND@ Q. REWIND PARAMETER DOS 17060 BE DOST29 YES DOS 17070 C LBL14-1,@WLRADD@ Q. WLRADDR PARAMETER DOS 17080 BE DOST30 YES DOS 17090 MLC CON1,OP360 DOS 17100 B CODEIT DOS 17110 DCW @Y/@ DOS 17120 B DOST02 DOS 17130* DOS 17140DOST04 C OPR14&16,@CHECKP@ INPUT FILETYPE - Q. CHECKPO DOS 17150 BU DOST03 BR NO CHECKPOINT RECORDS DOS 17160DOST05 MLC @CKPTREC#YES,@,OPR360&11 CHECKPOINT RECORDS PRESENT DOS 17170 B DOST02 DOS 17180* COMPLETE DTFMT FOR TAPE FILES DOS 17190DOST06 MLC BLANKS,IMAG14 BLANK OUT 1400 SOURCE IMAGE DOS 17200 MLC CON1,OPR360&11 DOS 17210 MLC @ERROPT#@ DOS 17220 B CODEIT DOS 17230 DCW @1@ DOS 17240 DCW @2/@ DOS 17250 B WRITED WRITE ERROPT PARAMETER DOS 18010 MLC OPR14E,IMAG14 RESTORE 1400 SOURCE IMAGE DOS 18020 CHAIN3 DOS 18030 B DIOCS2 DOS 18040* DOS 18050DOST07 SBR X1,0 IOAREA%S) PARAMETER DOS 18060DOST08 BCE DOST09,OPR14&X1,, Q. END OF FIRST IOAREA DOS 18070 BCE DOST13,OPR14&X1, Q. END OF PARAMETER DOS 18080 SBR X1,1&X1 NO DOS 18090 B DOST08 DOS 18100DOST09 MLC OPR14&X1,OPR360&8&X1 MULTIPLE IOAREAS DOS 18110 MLC @IOAREA1#@ DOS 18120 MLC @C@,CONT36 DOS 18130 B WRITED DOS 18140 SW OPR14&1&X1 DOS 18150 MLC OPR14&13&X1,OPR360&20 DOS 18160 MLC @IOAREA2#@ DOS 18170 CW OPR14&1&X1 DOS 18180DOST10 SBR X1,OPR360&6 DOS 18190DOST11 BCE DOST12,0&X1, DOS 18200 SBR X1,1&X1 DOS 18210 B DOST11 DOS 18220DOST12 MLC @,@,0&X1 DOS 18230 B DOST02 DOS 18240* DOS 18250DOST13 MLC OPR14&X1,OPR360&8&X1 DOS 19010 MLC @IOAREA1#@ DOS 19020 B DOST10 DOS 19030* DOS 19040DOST14 MLC @,@,OPR360&14 CHANDRIVE PARAMETER DOS 19050 MLC OPR14 DOS 19060 MLC @01@ DOS 19070 MLC @DEVADDR#SYS@ DOS 19080 B DOST02 DOS 19090* DOS 19100DOST15 MLC OPR14&9,OPR360&17 EOFADDR PARAMETER DOS 19110 MLC @EOFADDR#@ DOS 19120 B DOST10 DOS 19130* DOS 19140 B DOST16 DOS 19150DOST16 MLNS OPR14&1,OPR360&6 INDEXREG PARAMETER DOS 19160 MLC @IOREG#@ DOS 19170 BCE *&5,OPR14&1,1 Q. X1 REFERENCE DOS 19180 B DOST10 NO DOS 19190 MLC @4@,OPR360&6 YES DOS 19200 B DOST10 DOS 19210* DOS 19220DOST17 MLC @WORKA#YES,@,OPR360&9 WORKAREA PARAMETER DOS 19230 MLC @C@,CONT36 DOS 19240 B CODEIT DOS 19250 DCW @D/@ DOS 20010 B WRITED DOS 20020 MLC OPR14&9,OPR360&17 DOS 20030 MLC @IOAREA2#@ DOS 20040 B DOST10 DOS 20050* DOS 20060DOST18 MLC @RECFORM#FIXUNB,@,OPR360&14 RECFORM PARAMETER DOS 20070 SBR X1,OP1400 DOS 20080DOST19 BCE DOST21,1&X1,B Q. BLOCKED FORMAT DOS 20090 BCE DOST22,1&X1,V Q. VARIABLE FORMAT DOS 20100DOST20 SBR X1,1&X1 DOS 20110 BCE DOST19,0&X1,, Q. MORE PARAMETERS DOS 20120 BCE DOST02,0&X1, Q. LAST PARAMETER HANDLED DOS 20130 B DOST20 DOS 20140DOST21 MLC @BLK@,OPR360&13 BLOCKED FILE DOS 20150 B DOST20 DOS 20160DOST22 MLC @VAR@,OPR360&10 VARIABLE LENGTH RECORDS DOS 20170 B DOST20 DOS 20180* DOS 20190DOST23 MLC OPR14&3,OPR360&11 BLOCKSIZE PARAMETER DOS 20200 MLC @BLKSIZE#@ DOS 20210 B DOST10 DOS 20220* DOS 20230DOST24 MLC OPR14&3,OPR360&11 SIZEREC PARAMETER DOS 20240 MLC @RECSIZE#@ DOS 20250 B DOST10 DOS 21010* DOS 21020DOST25 BCE DOST27,OPR14,N TYPELABEL PARAMETER DOS 21030 MLC @STD,@,OPR360&10 STANDARD LABELS DOS 21040DOST26 MLC @FILABL#@,OPR360&6 DOS 21050 B DOST02 DOS 21060DOST27 MLC @C@,CONT36 NONSTANDARD LABELS DOS 21070 MLC @TPMARK#NO,@,OPR360&9 ASSUME NO TAPE MARK AS DOS 21080 B CODEIT FIRST RECORD DOS 21090 DCW @1/@ DOS 21100 B WRITED DOS 21110 MLC @NSTD,@,OPR360&11 DOS 21120 B DOST26 DOS 21130* DOS 21140DOST28 MCW OPR14&9,OPR360&17 EX-ADDR PARAMETER DOS 21150 MCW @LABADDR#@ DOS 21160 B DOST10 DOS 21170* DOS 21180DOST29 MLC OPR14&5,OPR360&12 REWIND PARAMETER DOS 21190 MLC @#@ DOS 21200 MLC @REWIND@ DOS 21210 B DOST10 DOS 21220* DOS 21230DOST30 MLC OPR14&9,OPR360&16 WLRADDR PARAMETER DOS 21240 MLC @WLRERR#@ DOS 21250 B DOST10 DOS 22010* DOS 22020 DCW @EX@ DOS 22030 DC @ @ DOS 22040DOST90 DCW @ADDR@ DOS 22050 SKIPN DOS 22060********** DOS 22070* DISK DTF DOS 22080********** DOS 22090DOSDK SBR X1,OPR14&5 DOS 22100 C 4&X1,@INPUT@ Q. INPUT FILE DOS 22110 BE DOSDK2 YES DOS 22120 C 5&X1,@OUTPUT@ Q. OUTPUT FILE DOS 22130 BU DOSDK1 NO DOS 22140 SW SWDTF1 YES--TURN ON OUTPUT SWTCH DOS 22150 SBR X1,7&X1 DOS 22160DOSDK1 C 5&X1,@CONSEC@ Q. CONSECUTIVE FILE DOS 22170 BE DOSSD YES DOS 22180 C 5&X1,@CTLSEQ@ Q. CONTROL SEQUENTIAL FILE DOS 22190 BE DOSIS YES DOS 22200 C 5&X1,@RANDOM@ Q. RANDOM FILE DOS 22210 BE DOSDA YES DOS 22220 BCE DOSDA,0&X1, Q. IMPLIED RANDOM FILE DOS 22230 B DIOCS1 NO--REJECT THE DTF DOS 22240* DOS 22250DOSDK2 SBR X1,6&X1 DOS 23010 B DOSDK1 DOS 23020 SKIPN DOS 23030********** DOS 23040* CONSECUTIVE DISK FILE -- TRANSLATE TO SEQUENTIAL DISK FILE DOS 23050********** DOS 23060DOSSD MLC DTFSV1,NAM360-1 DOS 23070 MLC @DTFSD@,OP360 DOS 23080 MLC @C@,CONT36 DOS 23090 B WRITED DOS 23100 ZA *-6,DOS91#2 DOS 23110 BW DOSS01,SWDTF1 Q. OUTPUT FILE DOS 23120 B DOSS03 DOS 23130DOSS01 MLC @TYPEFLE#OUTPUT,@,OPR360&14 DOS 23140 MLC @C@,CONT36 DOS 23150 B WRITED DOS 23160 MLC @VERIFY#YES,@,OPR360&10 DOS 23170DOSS02 MLC @C@,CONT36 DOS 23180 B WRITED DOS 23190DOSS03 B GETCD DOS 23200 C BLANKS,OP1400 Q. NEW OPERATION CODE DOS 23210 BU DOSS04 YES DOS 23220 BCE DOSS04,LBL14-6,* Q. COMMENTS CARD DOS 23230 C LBL14-1,@IOAREA@ Q. IOAREA%S) PARAMETER DOS 23240 BE DOSS07 YES DOS 23250 C LBL14-1,@SIZERE@ Q. SIZEREC PARAMETER DOS 24010 BE DOSS11 YES DOS 24020 C LBL14-1,@EOFADD@ Q. EOFADDR PARAMETER DOS 24030 BE DOSS12 YES DOS 24040 C LBL14-1,@INDEXR@ Q. INDEXREG PARAMETER DOS 24050 BE DOSS13 YES DOS 24060 C LBL14-1,@WORKAR@ Q. WORKAREA PARAMETER DOS 24070 BE DOSS14 YES DOS 24080 C LBL14-1,@RECFOR@ Q. RECFORM PARAMETER DOS 24090 BE DOSS15 YES DOS 24100 C LBL14-1,@NRECOR@ Q. NRECORDS PARAMETER DOS 24110 BE DOSS20 YES DOS 24120DOSS25 MLC CON1,OP360 NO--PARAMETER NOT DOS 24130 B CODEIT REQUIRED DOS 24140 DCW @Y/@ DOS 24150 B DOSS02&7 DOS 24160* COMPLETE DTFSD FOR DISK FILE DOS 24170DOSS04 SBR X1,DOS92-3 COMPUTE BLKSIZE DOS 24180 MLC BLANKS,IMAG14 BLANK OUT 1400 SOURCE IMAGE DOS 24190DOSS05 BCE DOSS06,1&X1, DOS 24200 SBR X1,1&X1 DOS 24210 B DOSS05 DOS 24220DOSS06 ZA 0&X1,DOS93#3 DOS 24230 A *-6,DOS91 INCREASE NRECORDS BY 1 DOS 24240 MLTPYDOS91,2,0,DOS93,3,0,DOS94,4,0 DOS 24250 SBR X1,DOS94-3 DOS 25010 SBR X2,OPR360&11 DOS 25020DOSS24 BCE DOSS23,0&X1,0 DOS 25030 MLNS DOS94#4,0&X2 DOS 25040 MLC DOS 25050 MLC @BLKSIZE#@,OPR360&7 DOS 25060 B CODEIT DOS 25070 DCW @1/@ DOS 25080 B WRITED DOS 25090 MLC OPR14E,IMAG14 RESTORE 1400 SOURCE IMAGE DOS 25100 CHAIN3 DOS 25110 B DIOCS2 DOS 25120DOSS23 SBR X1,1&X1 DOS 25130 MA @I9I@,X2 DOS 25140 B DOSS24 DOS 25150* DOS 25160DOSS07 MLC OPR14&9,OPR360&17 IOAREA%S) PARAMETER DOS 25170 MLC @IOAREA1#@ DOS 25180DOSS08 SBR X1,OPR360&9 DOS 25190DOSS09 BCE DOSS10,0&X1, DOS 25200 SBR X1,1&X1 DOS 25210 B DOSS09 DOS 25220DOSS10 MLC @,@,0&X1 DOS 25230 B DOSS02 DOS 25240* DOS 25250DOSS11 MLC OPR14&4,OPR360&12 SIZEREC PARAMETER DOS 26010 MLC @RECSIZE#@ DOS 26020 MLC OPR14&2,DOS92-1 DOS 26030 B DOSS08 DOS 26040* DOS 26050DOSS12 BW DOSS25,SWDTF1 Q. OUTPUT FILE DOS 26060 MLC OPR14&9,OPR360&17 EOFADDR PARAMETER DOS 26070 MLC @EOFADDR#@ DOS 26080 B DOSS08 DOS 26090* DOS 26100DOSS13 MLNS OPR14&1,OPR360&6 INDEXREG PARAMETER DOS 26110 MLC @IOREG#@ DOS 26120 MLC @,@,OPR360&7 DOS 26130 BCE *&5,OPR14&1,1 Q. X1 REFERENCE DOS 26140 B DOSS02 NO DOS 26150 MCW @4@,OPR360&6 YES DOS 26160 B DOSS02 DOS 26170* DOS 26180DOSS14 B CODEIT WORKAREA PARAMETER DOS 26190 DCW @D/@ DOS 26200 MLC @WORKA#YES,@,OPR360&9 DOS 26210 B WRITED DOS 26220 MLC OPR14&9,OPR360&17 DOS 26230 MLC @IOAREA2#@ DOS 26240 B DOSS08 DOS 26250* DOS 27010DOSS15 SBR X1,OP1400 RECFORM PARAMETER DOS 27020 MLC @RECFORM#FIXUNB,@,OPR360&14 DOS 27030DOSS16 BCE DOSS18,1&X1,B Q. BLOCKED FORMAT DOS 27040 BCE DOSS19,1&X1,V Q. VARIABLE LENGTH RECORDS DOS 27050DOSS17 SBR X1,1&X1 DOS 27060 BCE DOSS16,0&X1,, Q. MORE PARAMETERS DOS 27070 BCE DOSS02,0&X1, Q. LAST PARAMETER HANDLED DOS 27080 B DOSS17 DOS 27090DOSS18 MLC @BLK@,OPR360&13 BLOCKED RECORDS DOS 27100 B DOSS17 DOS 27110DOSS19 MLC @VAR@,OPR360&10 VARIABLE LENGTH RECORDS DOS 27120 B DOSS17 DOS 27130* DOS 27140DOSS20 MLC CON1,OP360 NRECORDS PARAMETER DOS 27150 B CODEIT DOS 27160 DCW @Y/@ DOS 27170 SBR X1,OPR14 DOS 27180DOSS21 BCE DOSS22,1&X1, DOS 27190 SBR X1,1&X1 DOS 27200 B DOSS21 DOS 27210DOSS22 ZA 0&X1,DOS91 DOS 27220 B DOSS02&7 DOS 27230 SKIPN DOS 27240********** DOS 27250* CONTROL SEQUENTIAL DISK -- TRANSLATE TO INDEXED SEQUENTIAL DOS 28010********** DOS 28020DOSIS MLC DTFSV1,NAM360-1 DOS 28030 MLC @DTFIS@,OP360 DOS 28040 MLC @C@,CONT36 DOS 28050 B WRITED DOS 28060 MLC @IOROUT#RETRVE,@,OPR360&13 DOS 28070 MLC @C@,CONT36 DOS 28080 B WRITED DOS 28090 MLC @TYPEFLE#SEQNTL,@,OPR360&14 DOS 28100DOSI01 MLC @C@,CONT36 DOS 28110 B WRITED DOS 28120 B GETCD DOS 28130 C BLANKS,OP1400 Q. NEW OPERATION CODE DOS 28140 BU DOSI02 YES DOS 28150 BCE DOSI02,LBL14-6,* Q. COMMENTS CARD DOS 28160 C LBL14-1,@IOAREA@ Q. IOAREA%S) PARAMTERE DOS 28170 BE DOSI05 YES DOS 28180 C LBL14-1,@SIZERE@ Q. SIZEREC PARAMETER DOS 28190 BE DOSI09 YES DOS 28200 C LBL14-1,@INDEXR@ Q. INDEXREG PARAMETER DOS 28210 BE DOSI10 YES DOS 28220 C LBL14-1,@UPDATE@ Q. UPDATE PARAMETER DOS 28230 BE DOSI15 YES DOS 28240 C LBL14-1,@WORKAR@ Q. WORKAREA PARAMETER DOS 28250 BE DOSI11 YES DOS 29010 C LBL14-1,@NRECOR@ Q. NRECORDS PARAMETER DOS 29020 BE DOSI12 YES DOS 29030 MLC CON1,OP360 NO--PARAMETER UNNECESSARY DOS 29040 B CODEIT DOS 29050 DCW @Y/@ DOS 29060 B DOSI01&7 DOS 29070* COMPLETE DTFIS FOR DISK FILE DOS 29080DOSI02 MLC @RECFORM#FIXUNB,@,OPR360&14 DOS 29090 BW *&8,RECBSW Q. BLOCKED FILE DOS 29100 MLC @BLK@,OPR360&13 YES DOS 29110 MLC @C@,CONT36 DOS 29120 B CODEIT DOS 29130 DCW @1/@ DOS 29140 MCW BLANKS,IMAG14 BLANK OUT 1400 SOURCE IMAGE DOS 29150 B WRITED DOS 29160 MLC @,@,OPR360&13 DOS 29170 MLC CON1 DOS 29180 MLC @DSKXTNT#@ DOS 29190 B CODEIT DOS 29200 DCW @1@ DOS 29210 DCW @2/@ DOS 29220 B WRITED DOS 29230 MLC CON1,OPR360&11 DOS 29240 MLC @KEYLEN#@ DOS 29250 B CODEIT DOS 30010 DCW @1@ DOS 30020 DCW @2/@ DOS 30030 B WRITED DOS 30040* GENERATE SETL AND ESETL DOS 30050 MLC DTFSV1,OPR360&6 DOS 30060 SBR X1,OPR360 DOS 30070DOSI03 BCE DOSI04,0&X1, DOS 30080 SBR X1,1&X1 DOS 30090 B DOSI03 DOS 30100DOSI04 MLC @,BOF@,3&X1 DOS 30110 MLC @SETL@,OP360-1 DOS 30120 B CODEIT DOS 30130 DCW @1@ DOS 30140 DCW @O/@ DOS 30150 B WRITED DOS 30160 MLC DTFSV1,OPR360&6 DOS 30170 MLC @ESETL@,OP360 DOS 30180 B CODEIT DOS 30190 DCW @1@ DOS 30200 DCW @O/@ DOS 30210 B WRITED DOS 30220 MLC OPR14E,IMAG14 DOS 30230 CHAIN3 DOS 30240 B DIOCS2 DOS 30250* DOS 31010DOSI05 MLC OPR14&9,OPR360&17 IOAREA%S) PARAMETER DOS 31020 MLC @IOAREAS#@ DOS 31030DOSI06 SBR X1,OPR360&6 DOS 31040DOSI07 BCE DOSI08,0&X1, DOS 31050 SBR X1,1&X1 DOS 31060 B DOSI07 DOS 31070DOSI08 MCW @,@,0&X1 DOS 31080 B DOSI01 DOS 31090* DOS 31100DOSI09 MLC OPR14&4,OPR360&12 SIZEREC PARAMETER DOS 31110 MLC @RECSIZE#@ DOS 31120 B DOSI06 DOS 31130* DOS 31140DOSI10 MLNS OPR14&1,OPR360&6 INDEX REG PARAMETER DOS 31150 MLC @IOREG#@ DOS 31160 CW RECBSW ASSUME BLOCKED FILE DOS 31170 BCE *&5,OPR14&1,1 Q. X1 REFERENCE DOS 31180 B DOSI06 DOS 31190 MLC @4@,OPR360&6 DOS 31200 B DOSI06 DOS 31210* DOS 31220DOSI11 MLC @WORKS#YES,@,OPR360&9 WORKAREA PARAMETER DOS 31230 B CODEIT DOS 31240 DCW @D/@ DOS 31250 B DOSI01 DOS 32010* DOS 32020DOSI12 SBR X1,0 NRECORDS PARAMETER DOS 32030DOSI13 BCE DOSI14,OPR14&1&X1, DOS 32040 SBR X1,1&X1 DOS 32050 B DOSI13 DOS 32060DOSI14 CW RECBSW INDICATE FILE IS BLOCKED DOS 32070 A *-6,OPR14&X1 DOS 32080 MLC OPR14&X1,OPR360&7&X1 DOS 32090 MLC @NRECDS#@ DOS 32100 B DOSI06 DOS 32110* DOS 32120DOSI15 MLC @VERIFY#YES,@,OPR360&10 UPDATE PARAMETER DOS 32130 B CODEIT DOS 32140 DCW @Y/@ DOS 32150 B DOSI01 DOS 32160 SKIPN DOS 32170********** DOS 32180* RANDOM DISK FILE -- CONVERT TO DIRECT ACCESS FILE DOS 32190********** DOS 32200DOSDA MLC DTFSV1,NAM360-1 DOS 32210 MLC @DTFDA@,OP360 DOS 32220 MLC @C@,CONT36 DOS 32230 B WRITED DOS 32240 ZA *-6,DOS91 DOS 32250 BW *&5,SWDTF1 Q. OUTPUT FILE DOS 33010 B DOSD04 NO--INPUT FILE DOS 33020 MLC @TYPEFLE#OUTPUT,@,OPR360&14 YES DOS 33030 MLC @C@,CONT36 DOS 33040 B WRITED DOS 33050DOSD01 MLC @VERIFY#YES,@,OPR360&10 DOS 33060DOSD02 MLC @C@,CONT36 DOS 33070 B WRITED DOS 33080 B GETCD DOS 33090 C BLANKS,OP1400 Q. NEW OPERATION CODE DOS 33100 BU DOSD05 YES DOS 33110 BCE DOSD05,LBL14-6,* Q. COMMENTS CARD DOS 33120 C LBL14-1,@SIZERE@ Q. SIZEREC PARAMETER DOS 33130 BE DOSD10 YES DOS 33140 C LBL14-1,@NRECOR@ Q. NRECORDS PARAMETER DOS 33150 BE DOSD11 YES DOS 33160 C LBL14-1,@UPDATE@ Q. INPUT WITH UPDATE DOS 33170 BE DOSD01 YES DOS 33180 C LBL14-1,@IOAREA@ Q. IOAREA%S) PARAMETER DOS 33190 BE DOSD12 YES DOS 33200DOSD03 MLC CON1,OP360 DOS 33210 B CODEIT DOS 33220 DCW @Y/@ DOS 33230 B DOSD02&7 DOS 33240* DOS 33250DOSD04 MLC @TYPEFLE#INPUT,@,OPR360&13 INPUT FILE DOS 34010 B DOSD02 DOS 34020* COMPLETE DTFDA FOR DISK FILE DOS 34030DOSD05 SBR X1,DOS92-3 COMPUTE BLKSIZE DOS 34040 MLC BLANKS,IMAG14 BLANK OUT 1400 SOURCE IMAGE DOS 34050DOSD06 BCE DOSD07,1&X1, DOS 34060 SBR X1,1&X1 DOS 34070 B DOSD06 DOS 34080DOSD07 ZA 0&X1,DOS93 DOS 34090 A *-6,DOS91 INCREMENT NRECORDS BY 1 DOS 34100 MLTPYDOS91,2,0,DOS93,3,0,DOS94,4,0 DOS 34110 SBR X1,DOS94-3 DOS 34120 SBR X2,OPR360&12 DOS 34130DOSD08 BCE DOSD09,0&X1,0 DOS 34140 MLNS DOS94,0&X2 DOS 34150 MLC DOS 34160 MLC @BLKSIZE#@,OPR360&7 DOS 34170 MLC @,@,1&X2 DOS 34180 B CODEIT DOS 34190 DCW @1/@ DOS 34200 MLC @C@,CONT36 DOS 34210 B WRITED DOS 34220 MLC @,@,OPR360&13 DOS 34230 MLC CON1 DOS 34240 MLC @ERRBYTE#@ DOS 34250 B CODEIT DOS 35010 DCW @1@ DOS 35020 DCW @2/@ DOS 35030 B WRITED DOS 35040 MLC CON1,OPR360&12 DOS 35050 MLC @SEEKADR#@ DOS 35060 B CODEIT DOS 35070 DCW @1@ DOS 35080 DCW @2/@ DOS 35090 B WRITED DOS 35100 MLC OPR14E,IMAG14 DOS 35110 CHAIN3 DOS 35120 B DIOCS2 DOS 35130DOSD09 SBR X1,1&X1 DOS 35140 MA @I9I@,X2 DOS 35150 B DOSD08 DOS 35160* DOS 35170DOSD10 MLC OPR14&2,DOS92-1 SIZEREC PARAMETER DOS 35180 B DOSD03 DOS 35190* DOS 35200DOSD11 ZA OPR14,DOS91 NRECORDS PARAMETER DOS 35210 B DOSD03 DOS 35220* DOS 35230DOSD12 MLC OPR14&9,OPR360&17 IOAREA%S) PARAMETER DOS 35240 MLC @IOAREA1#@ DOS 35250 SBR X1,OPR360&9 DOS 36010DOSD13 BCE DOSD14,0&X1, DOS 36020 SBR X1,1&X1 DOS 36030 B DOSD13 DOS 36040DOSD14 MLC @,@,0&X1 DOS 36050 B DOSD02 DOS 36060 B DOSD02 DOS 36070 SKIPN DOS 36080DOS92 DCW #4 DOS 36090 EX DOS DOS 01010 JOB DTF GENERATOR FOR UNDEFINED FILES DTFGN 01020 ORG COMMON DTFGN 01030* DTFGN 01040*** THIS ROUTINE GENERATES DTFS FOR ALL DEVICES %OTHER THAN DISK) DTFGN 01050* WHICH HAVE NO DTF WHICH DEFINES THEM. IT SCANS A SET OF DTFGN 01060* TABLES CREATED DURING THE PHASE THAT FOLLOWS THE LOADING OF DTFGN 01070* THE AUTOCODER SOURCE ONTO DISK. DTFGN 01080* DTFGN 01090********** DTFGN 01100* GENERATE CARD READER DTF %IF NECESSARY). DTFGN 01110********** DTFGN 01120DTFGN MLC BLANKS,IMAG14 DTFGN 01130 SD IOCADR-7 RE-POSITION DISK HEADS DTFGN 01140 BIN *-12,\ AFTER FETCH DTFGN 01150 BW RDR00,RDRSW Q. RDR DTF ENTRY REQUIRED DTFGN 01160 B TSTPCH NO DTFGN 01170RDR00 MLC RDDTF,NAM360-1 YES DTFGN 01180 BSS RDR06,D Q. DOS/TOS OUTPUT DTFGN 01190 B WRP00 DTFGN 01200RDR07 MLC @READRIN@,OPR360&14 DTFGN 01210 MLC @IOAREA1#@ DTFGN 01220 MLC @,@,OPR360&15 DTFGN 01230 SBR WRP00X&3,*&5 DTFGN 01240 B WRP00C MOVE IN CONT, CODE & WRITE DTFGN 01250 B WRP001 PREPARE RECFORM ENTRY DTFGN 02010 MLC @INPUT,@,OPR360&13 DTFGN 02020 MLC @TYPEFLE#@ DTFGN 02030 SBR WRP00X&3,*&5 DTFGN 02040 B WRP00C DTFGN 02050 MLC @IPT,@,OPR360&14 MOVE IN DEVADDR,ETC & WRITE DTFGN 02060 B WRP002 DTFGN 02070 BSS RDR08,D Q. DOS/TOS OUTPUT DTFGN 02080 MLC @DEVICE#READ40,@,OPR360&13 DTFGN 02090 SBR WRP00X&3,*&5 DTFGN 02100 B WRP00C DTFGN 02110RDR08 MLC @EOFADDR#@,OPR360&7 DTFGN 02120 MLC RDREOF-3,OPR360&13 DTFGN 02130 SBR X1,OPR360&8 DTFGN 02140RDR04 BCE RDR05,0&X1, DTFGN 02150 SBR X1,1&X1 DTFGN 02160 B RDR04 DTFGN 02170RDR05 MLC @,@,0&X1 DTFGN 02180 BCE *&7,RDREOF, DTFGN 02190 B CODEIT DTFGN 02200 DCW @B/@ DTFGN 02210 MLC @B@,CODES DTFGN 02220 C BLANKS,RDREOF-3 DTFGN 02230 BU *&21 DTFGN 02240 B CODEIT DTFGN 02250 DCW @2/@ DTFGN 03010 MLC CON1,OPR360&12 DTFGN 03020 MLC @,@,OPR360&13 DTFGN 03030 SBR WRP00X&3,*&5 DTFGN 03040 B WRP00C DTFGN 03050 MLC @BLKSIZE#80,@,OPR360&10 DTFGN 03060 SBR WRP00X&3,*&5 DTFGN 03070 B WRP00C DTFGN 03080 MLC @WORKA#YES@,OPR360&8 DTFGN 03090 BW RDR01,RDRSS Q. READ STACKER SELECTION DTFGN 03100 MLC @,@,OPR360&9 YES DTFGN 03110 SBR WRP00X&3,*&5 DTFGN 03120 B WRP00C DTFGN 03130 MLC @CONTROL#YES@,OPR360&10 DTFGN 03140RDR01 B CODEIT DTFGN 03150 DCW @1/@ DTFGN 03160 B WRITED DTFGN 03170 MLC RDDTF,OPR360&6 DTFGN 03180 MLC @OPEN@,OP360-1 DTFGN 03190 B CODEIT DTFGN 03200 DCW @1@ DTFGN 03210 DCW @O/@ DTFGN 03220 B WRITED DTFGN 03230 MLC RDDTF,OPR360&6 DTFGN 03240 MLC @CLOSE@,OP360 DTFGN 03250 B CODEIT DTFGN 04010 DCW @1@ DTFGN 04020 DCW @O/@ DTFGN 04030 B WRITED DTFGN 04040 SKIPN DTFGN 04050********** DTFGN 04060* GENERATE CARD PUNCH DTF %IF NECESSARY). DTFGN 04070********** DTFGN 04080TSTPCH BW PCH00,PCHSW Q. PUNCH DTF ENTRY REQUIRED DTFGN 04090 B TSTPTR NO DTFGN 04100PCH00 MLC PHDTF,NAM360-1 YES DTFGN 04110 BSS PCH04,D Q. DOS/TOS OUTPUT DTFGN 04120 B WRP00 SET UP DTFSR DTFGN 04130PCH05 MLC @PNCHOUT@,OPR360&14 DTFGN 04140 MLC @IOAREA1#@ DTFGN 04150 MLC @,@,OPR360&15 DTFGN 04160 SBR WRP00X&3,*&5 DTFGN 04170 B WRP00C SET UP REST OF IOAREA1 DTFGN 04180 B WRP001 PREPARE RECFORM ENTRY DTFGN 04190 MLC @OUTPUT,@,OPR360&14 DTFGN 04200 MLC @TYPEFLE#@ DTFGN 04210 SBR WRP00X&3,*&5 DTFGN 04220 B WRP00C SET UP REST OF TYPEFLE DTFGN 04230 BSS *&5,D DTFGN 04240 B *&12 DTFGN 04250 MLC @PCH,@,OPR360&14 DTFGN 05010 B *&8 DTFGN 05020 MLC @OPT,@,OPR360&14 DTFGN 05030 B WRP002 SET UP REST OF DEVADDR DTFGN 05040 BSS PCH06,D Q. DOS/TOS OUTPUT DTFGN 05050 MLC @DEVICE#READ40,@,OPR360&13 DTFGN 05060 SBR WRP00X&3,*&5 DTFGN 05070 B WRP00C SET UP REST OF DEVICE DTFGN 05080PCH06 MLC @BLKSIZE#80,@,OPR360&10 DTFGN 05090 SBR WRP00X&3,*&5 DTFGN 05100 B WRP00C DTFGN 05110 MCW @WORKA#YES@,OPR360&8 DTFGN 05120 BW PCH01,PCHSS Q. PUNCH STACKER SELECTION DTFGN 05130 MLC @,@,OPR360&9 YES DTFGN 05140 SBR WRP00X&3,*&5 DTFGN 05150 B WRP00C SET UP REST OF BLKSIZE DTFGN 05160 MLC @CONTROL#YES@,OPR360&10 DTFGN 05170PCH01 B CODEIT DTFGN 05180 DCW @1/@ DTFGN 05190 B WRITED DTFGN 05200 MLC PHDTF,OPR360&6 DTFGN 05210 MLC @OPEN@,OP360-1 DTFGN 05220 B CODEIT DTFGN 05230 DCW @1@ DTFGN 05240 DCW @O/@ DTFGN 05250 B WRITED DTFGN 06010 MLC PHDTF,OPR360&6 DTFGN 06020 MLC @CLOSE@,OP360 DTFGN 06030 B CODEIT DTFGN 06040 DCW @1@ DTFGN 06050 DCW @O/@ DTFGN 06060 B WRITED DTFGN 06070 SKIPN DTFGN 06080********** DTFGN 06090* GENERATE PRINTER DTF %IF NECESSARY). DTFGN 06100********** DTFGN 06110TSTPTR BW PTR00,PRTSW Q. PRINT DTF ENTRY REQUIRED DTFGN 06120 B TSTPFR NO DTFGN 06130PTR00 MLC PRDTF,NAM360-1 YES DTFGN 06140 BSS PTR03,D Q. DOS/TOS OUTPUT DTFGN 06150 B WRP00 SET UP REST OF DTFSR DTFGN 06160PTR04 MLC @PRNTOUT@,OPR360&14 DTFGN 06170 MLC @IOAREA1#@ DTFGN 06180 MLC @,@,OPR360&15 DTFGN 06190 SBR WRP00X&3,*&5 DTFGN 06200 B WRP00C SET UP REST OF IOAREA1 DTFGN 06210 B WRP001 PREPARE RECFORM ENTRY DTFGN 06215 BSS PTR06,D Q. DOS/TOS OUTPUT DTFGN 06220 MLC @OUTPUT,@,OPR360&14 NO--TYPEFLE REQUIRED DTFGN 06230 MLC @TYPEFLE#@ DTFGN 06240 SBR WRP00X&3,*&5 DTFGN 06250 B WRP00C SET UP REST OF TYPEFLE DTFGN 07010PTR06 MLC @LST,@,OPR360&14 DTFGN 07020 B WRP002 SET UP REST OF DEVADDR DTFGN 07030 BSS PTR05,D Q. DOS/TOS OUTPUT DTFGN 07040 MLC @DEVICE#PRINTER,@,OPR360&14 DTFGN 07050 SBR WRP00X&3,*&5 DTFGN 07060 B WRP00C SET UP REST OF DEVICE DTFGN 07070PTR05 MLC @BLKSIZE#132,@,OPR360&11 DTFGN 07080 SBR WRP00X&3,*&5 DTFGN 07090 B WRP00C DTFGN 07100 MLC @WORKA#YES@,OPR360&8 DTFGN 07110 BW PTR01,PRTCC Q. PRINTER CARRIAGE CONTROL DTFGN 07120 MLC @,@,OPR360&9 YES DTFGN 07130 SBR WRP00X&3,*&5 DTFGN 07140 B WRP00C SET UP REST OF BLKSIZE DTFGN 07150 MLC @PRINTOV#YES,@,OPR360&11 DTFGN 07160 SBR WRP00X&3,*&5 DTFGN 07170 B WRP00C DTFGN 07180 MLC @CONTROL#YES@,OPR360&10 DTFGN 07190PTR01 B CODEIT DTFGN 07200 DCW @1/@ DTFGN 07210 B WRITED DTFGN 07220 MLC PRDTF,OPR360&6 DTFGN 07230 MLC @OPEN@,OP360-1 DTFGN 07240 B CODEIT DTFGN 07250 DCW @1@ DTFGN 08010 DCW @O/@ DTFGN 08020 B WRITED DTFGN 08030 MLC PRDTF,OPR360&6 DTFGN 08040 MLC @CLOSE@,OP360 DTFGN 08050 B CODEIT DTFGN 08060 DCW @1@ DTFGN 08070 DCW @O/@ DTFGN 08080 B WRITED DTFGN 08090 SKIPN DTFGN 08100********** DTFGN 08110* GENERATE PUNCH-FEED-READ DTF %IF NECESSARY). DTFGN 08120********** DTFGN 08130TSTPFR BW PFR00,RDFSW Q. PFR DTF ENTRY REQUIRED DTFGN 08140 B TSTAPE NO DTFGN 08150PFR00 MLC @PFRD360@,NAM360-1 YES DTFGN 08160 BSS PFR04,D Q. DOS/TOS OUTPUT DTFGN 08170 B WRP00 SET UP REST OF DTFSR DTFGN 08180PFR05 MLC CON1,OPR360&12 INDICATE EOFADDR NEEDS DTFGN 08190 MLC @EOFADDR#@ TO BE SUPPLIED DTFGN 08200 MLC @,@,OPR360&13 DTFGN 08210 B CODEIT DTFGN 08220 DCW @2/@ DTFGN 08230 SBR WRP00X&3,*&5 DTFGN 08240 B WRP00C SET UP REST OF EOFADDR DTFGN 08250 BSS PFR06,D Q. DOS/TOS OUTPUT DTFGN 09010 MLC @DEVICE#READ40,@,OPR360&13 DTFGN 09020 SBR WRP00X&3,PFR07 DTFGN 09030 B WRP00C SET UP REST OF DEVICE DTFGN 09040PFR06 MLC @PCH,@,OPR360&14 DTFGN 09050 B *&8 DTFGN 09060PFR07 MLC @OPT,@,OPR360&14 DTFGN 09070 B WRP002 SET UP REST OF DEVADDR DTFGN 09080 MLC RDRAR,OPR360&14 DTFGN 09090 MLC @IOAREA1#@ DTFGN 09100 MLC @,@,OPR360&15 DTFGN 09110 SBR WRP00X&3,*&5 DTFGN 09120 B WRP00C SET UP REST OF IOAREA1 DTFGN 09130 MLC PCHAR,OPR360&14 DTFGN 09140 MLC @IOAREA2#@ DTFGN 09150 MLC @,@,OPR360&15 DTFGN 09160 SBR WRP00X&3,*&5 DTFGN 09170 B WRP00C SET UP REST OF IOAREA2 DTFGN 09180 B WRP001 SET UP RECFORM DTFGN 09190 MLC @CMBND,@,OPR360&13 DTFGN 09200 MLC @TYPEFLE#@ DTFGN 09210 SBR WRP00X&3,*&5 DTFGN 09220 B WRP00C SET UP REST OF TYPEFLE DTFGN 09230 MLC @BLKSIZE#80@,OPR360&9 DTFGN 09240 BW PFR01,RDFSS Q. PUNCH STACKER SELECTION DTFGN 09250 MLC @,@,OPR360&10 YES DTFGN 10010 SBR WRP00X&3,*&5 DTFGN 10020 B WRP00C DTFGN 10030 MLC @CONTROL#YES@,OPR360&10 DTFGN 10040PFR01 B CODEIT DTFGN 10050 DCW @1/@ DTFGN 10060 B WRITED DTFGN 10070 MLC @PFRD360@,OPR360&6 DTFGN 10080 MLC @OPEN@,OP360-1 DTFGN 10090 B CODEIT DTFGN 10100 DCW @1@ DTFGN 10110 DCW @O/@ DTFGN 10120 B WRITED DTFGN 10130 MLC @PFRD360@,OPR360&6 DTFGN 10140 MLC @CLOSE@,OP360 DTFGN 10150 B CODEIT DTFGN 10160 DCW @1@ DTFGN 10170 DCW @O/@ DTFGN 10180 B WRITED DTFGN 10185 CW RDFSW DTFGN 10190 SKIPN DTFGN 10200********** DTFGN 10210* GENERATE TAPE DTF%S) %IF NECESSARY). DTFGN 10220********** DTFGN 10230TSTAPE SBR X1,0 DTFGN 10240TAP00 BCE TAP05,TPUNIT, Q. THIS TAPE BLOCK ACTIVE DTFGN 10250 MLC TPUNIT,NAM360-1 YES DTFGN 11010 MLC @TPFILE@ DTFGN 11020 BSS TAP07,D Q. DOS/TOS OUTPUT DTFGN 11030 B WRP00 SET UP REST OF DTFSR DTFGN 11040TAP08 MLC TPUNIT,OPR360&13 DTFGN 11050 MLC @01@ DTFGN 11060 BSS *&8,D Q. DOS/TOS OUTPUT DTFGN 11070 MLC @0@,OPR360&12 NO--BPS/BOS OUTPUT DTFGN 11080 B WRP002 SET UP REST OF DEVADDR DTFGN 11090 BSS TAP09,D Q. DOS/TOS OUTPUT DTFGN 11100 MLC @DEVICE#TAPE,@,OPR360&11 DTFGN 11110 SBR WRP00X&3,*&5 DTFGN 11120 B WRP00C SET UP REST OF DEVICE DTFGN 11130TAP09 MLC @,@,OPR360&13 DTFGN 11140 MLC CON1 DTFGN 11150 MLC @BLKSIZE#@ DTFGN 11160 B CODEIT DTFGN 11170 DCW @2/@ DTFGN 11180 SBR WRP00X&3,*&5 DTFGN 11190 B WRP00C SET UP REST OF BLKSIZE DTFGN 11200 B WRP001 SET UP RECFORM DTFGN 11210 MLC @,@,OPR360&13 DTFGN 11220 MLC CON1 DTFGN 11230 MLC @EOFADDR#@ DTFGN 11240 B CODEIT DTFGN 11250 DCW @2/@ DTFGN 12010 SBR WRP00X&3,*&5 DTFGN 12020 B WRP00C SET UP REST OF EOFADDR DTFGN 12030 MLC @FILABL#STD,@,OPR360&10 DTFGN 12040 SBR WRP00X&3,*&5 DTFGN 12050 B WRP00C SET UP REST OF FILABL DTFGN 12060 MLC @TYPEFLE#@,OPR360&7 DTFGN 12070 BCE TAP01,TPIO,W Q. OUTPUT FILE DTFGN 12080 MLC @INPUT,@,OPR360&13 NO--INPUT DTFGN 12090 B TAP02 DTFGN 12100TAP01 MLC @OUTPUT,@,OPR360&14 DTFGN 12110TAP02 SBR WRP00X&3,*&5 DTFGN 12120 B WRP00C SET UP REST OF TYPEFLE DTFGN 12130 MLC TPAREA-3,OPR360&13 DTFGN 12140 MLC @IOAREA1#@ DTFGN 12150 MLC X1,TAP90#3 SAVE X1 CONTENTS DTFGN 12160 C BLANKS,TPAREA-3 DTFGN 12170 BU *&14 DTFGN 12180 B CODEIT DTFGN 12190 DCW @2/@ DTFGN 12200 MLC CON1,OPR360&12 DTFGN 12210 SBR X1,OPR360&8 DTFGN 12220TAP10 BCE TAP11,0&X1, DTFGN 12230 SBR X1,1&X1 DTFGN 12240 B TAP10 DTFGN 12250TAP11 MLC @,@,0&X1 DTFGN 13010 MLC TAP90,X1 RESTORE X1 DTFGN 13020 BCE TAP03,TPAREA-2, Q. ADJUSTMENT DTFGN 13030 B CODEIT DTFGN 13040 DCW @B/@ DTFGN 13050TAP03 SBR WRP00X&3,*&5 DTFGN 13060 B WRP00C SET UP REST OF IOAREA1 DTFGN 13070 MLC @WLRERR#*****@,OPR360&11 DTFGN 13080 B CODEIT DTFGN 13090 DCW @2/@ DTFGN 13100 BW TAP04,TPCTL Q. TAPE CONTROL INSTRCTNS DTFGN 13110 MLC @,@,OPR360&12 DTFGN 13120 SBR WRP00X&3,*&5 DTFGN 13130 B WRP00C SET UP REST OF WLRERR DTFGN 13140 MLC @CONTROL#YES@,OPR360&10 DTFGN 13150TAP04 B CODEIT DTFGN 13160 DCW @1/@ DTFGN 13170 B WRITED DTFGN 13180 MLC TPUNIT,OPR360&6 DTFGN 13190 MLC @TPFILE@ DTFGN 13200 MLC @OPEN@,OP360-1 DTFGN 13210 B CODEIT DTFGN 13220 DCW @1@ DTFGN 13230 DCW @O/@ DTFGN 13240 B WRITED DTFGN 13250 MLC TPUNIT,OPR360&6 DTFGN 14010 MLC @TPFILE@ DTFGN 14020 MLC @CLOSE@,OP360 DTFGN 14030 B CODEIT DTFGN 14040 DCW @1@ DTFGN 14050 DCW @O/@ DTFGN 14060 B WRITED DTFGN 14065 MLC @ @,TPUNIT DTFGN 14070TAP05 SBR X1,12&X1 STEP X1 BY 12 DTFGN 14080 BCE TAP06,X1-1,7 Q. LOOPED 6 TIMES DTFGN 14090 B TAP00 NO DTFGN 14100TAP06 BSS PFR02,D Q. DOS/TOS OUTPUT DTFGN 14110 MLC @DTFEN@,OP360 NO DTFGN 14120 B CODEIT DTFGN 14130 DCW @1/@ DTFGN 14140 B WRITED DTFGN 14150 SKIPN DTFGN 14160* DTFGN 14170** GENERATE I/O AREA DEFINITION STATEMENT%S) DTFGN 14180* DTFGN 14190PFR02 BW PFR03,RDFSW Q. PUNCH FEED READ USED DTFGN 14200 B RDR02 NO DTFGN 14210PFR03 MLC RDRAR,NAM360-1 YES DTFGN 14220 MLC @DS@,OP360-3 DTFGN 14230 MLC @CL80@,OPR360&3 DTFGN 14240 B CODEIT DTFGN 14250 DCW @1/@ DTFGN 15010 B WRITED DTFGN 15020 CW RDRSW DTFGN 15030 MLC @READRIN@,NAM360-1 DTFGN 15040 MLC @DS@,OP360-3 DTFGN 15050 MLC @CL80@,OPR360&3 DTFGN 15060 B CODEIT DTFGN 15070 DCW @1/@ DTFGN 15080 B WRITED DTFGN 15090PCH03 MLC PCHAR,NAM360-1 DTFGN 15100 MLC @DC@,OP360-3 DTFGN 15110 MLC @CL80@ @@,OPR360&6 DTFGN 15120 B CODEIT DTFGN 15130 DCW @1/@ DTFGN 15140 B WRITED DTFGN 15150 CW PCHSW DTFGN 15160 MLC @PNCHOUT@,NAM360-1 DTFGN 15170 MLC @DS@,OP360-3 DTFGN 15180 MLC @CL80@,OPR360&3 DTFGN 15190 B CODEIT DTFGN 15200 DCW @1/@ DTFGN 15210 B WRITED DTFGN 15220 BW PTR02,PRTSW DTFGN 15230EXIT MLC OPR14E,IMAG14 DTFGN 15240 CHAIN3 DTFGN 15250 B PROCES DTFGN 16010* DTFGN 16020PTR02 MLC PRTAR,NAM360-1 DTFGN 16030 MLC @DC@,OP360-3 DTFGN 16040 MLC @CL132@ @@,OPR360&7 DTFGN 16050 B CODEIT DTFGN 16060 DCW @1/@ DTFGN 16070 B WRITED DTFGN 16080 CW PRTSW DTFGN 16090 MLC @PRNTOUT@,NAM360-1 DTFGN 16100 MLC @DS@,OP360-3 DTFGN 16110 MLC @CL132@,OPR360&4 DTFGN 16120 B CODEIT DTFGN 16130 DCW @1/@ DTFGN 16140 B WRITED DTFGN 16150RDR02 BW RDR03,RDRSW DTFGN 16160 B PCH02 DTFGN 16170RDR03 MLC RDRAR,NAM360-1 DTFGN 16180 MLC @DS@,OP360-3 DTFGN 16190 MLC @CL80@,OPR360&3 DTFGN 16200 B CODEIT DTFGN 16210 DCW @1/@ DTFGN 16220 CW RDRSW DTFGN 16230 B WRITED DTFGN 16240 MLC @READRIN@,NAM360-1 DTFGN 16250 MLC @DS@,OP360-3 DTFGN 17010 MLC @CL80@,OPR360&3 DTFGN 17020 B CODEIT DTFGN 17030 DCW @1/@ DTFGN 17040 B WRITED DTFGN 17050PCH02 BW PCH03,PCHSW DTFGN 17060 BW PTR02,PRTSW DTFGN 17070 B EXIT DTFGN 17080 SKIPN DTFGN 17090* DTFGN 17100** COMMON ENTRIES TO THE DTF,S DTFGN 17110* DTFGN 17120* SET UP DTFSR DTFGN 17130WRP00 SBR WRP00X&3 DTFGN 17140 MLC @DTFSR@,OP360 DTFGN 17150WRP00C B CODEIT DTFGN 17160 DCW @1/@ DTFGN 17170 MLC @C@,CONT36 DTFGN 17180 B WRITED DTFGN 17190WRP00X B 000 DTFGN 17200* SET UP RECFORM DTFGN 17210WRP001 SBR WRP00X&3 DTFGN 17220 MLC @RECFORM#FIXUNB,@,OPR360&14 DTFGN 17230 B WRP00C DTFGN 17240* SET UP DEVADDR DTFGN 17250WRP002 SBR WRP00X&3 DTFGN 18010 MLC @DEVADDR#SYS@,OPR360&10 DTFGN 18020 MLC @,@,OPR360&14 DTFGN 18030 B WRP00C DTFGN 18040* DTFGN 18050** DOS/TOS ENTRIES DTFGN 18060* DTFGN 18070RDR06 MLC @DTFCD@,OP360 DTFGN 18080 SBR WRP00X&3,RDR07 DTFGN 18090 B WRP00C DTFGN 18100PCH04 MLC @DTFCD@,OP360 DTFGN 18110 SBR WRP00X&3,PCH05 DTFGN 18120 B WRP00C DTFGN 18130PTR03 MLC @DTFPR@,OP360 DTFGN 18140 SBR WRP00X&3,PTR04 DTFGN 18150 B WRP00C DTFGN 18160PFR04 MLC @DTFCD@,OP360 DTFGN 18170 SBR WRP00X&3,PFR05 DTFGN 18180 B WRP00C DTFGN 18190TAP07 MLC @DTFMT@,OP360 DTFGN 18200 SBR WRP00X&3,TAP08 DTFGN 18210 B WRP00C DTFGN 18220 EX DTFGN DTFGN 01010 JOB PUNCH DTF TRANSLATOR DTFPH 01020 ORG COMMON DTFPH 01030******************************************************************* DTFPH 01040*************************** CARD PUNCH **************************** DTFPH 01050******************************************************************* DTFPH 01060DTFPH MLC DTFSV1,NAM360-1 DTFPH 01070 SD IOCADR-7 RE-POSITION DISK HEADS DTFPH 01080 BIN *-12,\ AFTER FETCH DTFPH 01090 MLC DTFSV1,PHDTF DTFPH 01100 CW PCHSW DTFPH 01110 MLC @DTFSR@,OP360 DTFPH 01120 MLC @C@,CONT36 DTFPH 01130 B WRITED WRITE DTFSR MACRO DTFPH 01140 MLC @READ40,@,OPR360&13 DTFPH 01150 MLC @DEVICE#@ DTFPH 01160 MLC @C@,CONT36 DTFPH 01170 B WRITED WRITE DEVICE PARAMETER DTFPH 01180 MLC @,@,OPR360&14 DTFPH 01190 MLC @OUTPUT@ DTFPH 01200 MLC @TYPEFLE#@ DTFPH 01210DTFPH1 MLC @C@,CONT36 DTFPH 01220 B WRITED WRITE TYPEFLE PARAMETER ETC DTFPH 01230 B GETCD DTFPH 01240 C BLANKS,OP1400 DTFPH 01250 BU DTFPH3 DTFPH 02010 BCE DTFPH3,LBL14-6,* Q. COMMENTS CARD DTFPH 02020 C LBL14-1,@IOAREA@ DTFPH 02030 BE DTFPH9 DTFPH 02040 C LBL14-1,@WORKAR@ DTFPH 02050 BE DTFPH7 DTFPH 02060 C LBL14-1,@CARDPO@ DTFPH 02070 BE DTFPH8 DTFPH 02080 MLC CON1,OP360 DTFPH 02090 B CODEIT DTFPH 02100 DCW @Y/@ DTFPH 02110 B DTFPH1&7 DTFPH 02120DTFPH3 MCW BLANKS,IMAG14 BLANK OUT 1400 IMAGE DTFPH 02130 MLC @SYSOPT,@,OPR360&14 DTFPH 02140 MLC @DEVADDR#@ DTFPH 02150 BW DTFPHA,PCHSS DTFPH 02160 B CODEIT DTFPH 02170 DCW @1/@ DTFPH 02180 MLC @C@,CONT36 DTFPH 02190 B WRITED DTFPH 02200 MLC @CONTROL#YES,@,OPR360&11 DTFPH 02210 B DTFPHA DTFPH 02220* DTFPH 02230DTFPH4 SBR X1,OPR360&9 DTFPH 02240DTFPH5 BCE DTFPH6,0&X1, DTFPH 02250 SBR X1,1&X1 DTFPH 03010 B DTFPH5 DTFPH 03020DTFPH6 MLC @,@,0&X1 DTFPH 03030 B DTFPH1 DTFPH 03040* DTFPH 03050DTFPH7 MLC @WORKA#YES,@,OPR360&9 WORKAREA PARAMETER DTFPH 03060 MLC @C@,CONT36 DTFPH 03070 B WRITED DTFPH 03080 MLC OPR14&9,OPR360&17 DTFPH 03090 MLC @IOAREA1#@ DTFPH 03100 B CODEIT DTFPH 03110 DCW @1/@ DTFPH 03120 B DTFPH4 DTFPH 03130* DTFPH 03140DTFPH9 B CODEIT IOAREAS PARAMETER DTFPH 03150 DCW @1@ DTFPH 03160 DCW @Q/@ DTFPH 03170 MLC OPR14&9,OPR360&17 DTFPH 03180 MLC @IOAREA1#@ DTFPH 03190 B DTFPH4 DTFPH 03200* DTFPH 03210DTFPH8 MLC CON1,OP360 CARDPOC PARAMETER DTFPH 03220 B CODEIT DTFPH 03230 DCW @Y/@ DTFPH 03240 B WRITED DTFPH 03250 MLC @CONTROL#YES,@,OPR360&11 DTFPH 04010 SW PCHSS DTFPH 04020 B DTFPH1 DTFPH 04030* DTFPH 04040DTFPHA MLC @C@,CONT36 DTFPH 04050 B CODEIT DTFPH 04060 DCW @1/@ DTFPH 04070 B WRITED DTFPH 04080 MLC @FIXUNB,@,OPR360&14 DTFPH 04090 MLC @RECFORM#@ DTFPH 04100 MLC @C@,CONT36 DTFPH 04110 B CODEIT DTFPH 04120 DCW @1/@ DTFPH 04130 B WRITED DTFPH 04140 MLC @80@,OPR360&9 DTFPH 04150 MLC @BLKSIZE#@ DTFPH 04160 B CODEIT DTFPH 04170 DCW @1/@ DTFPH 04180 B WRITED DTFPH 04190 MLC OPR14E,IMAG14 RESTORE 1400 SOURCE IMAGE DTFPH 04200 CHAIN3 DTFPH 04210 FETCH@DIOCS@ DTFPH 04220 EX DTFPH DTFPH 01010 JOB PRINTER DTF TRANSLATOR DTFPR 01020 ORG COMMON DTFPR 01030******************************************************************* DTFPR 01040***************************** PRINTER ***************************** DTFPR 01050******************************************************************* DTFPR 01060DTFPR MLC DTFSV1,NAM360-1 DTFPR 01070 SD IOCADR-7 RE-POSITION DISK HEADS DTFPR 01080 BIN *-12,\ AFTER FETCH DTFPR 01090 MLC DTFSV1,PRDTF DTFPR 01100 CW PRTSW DTFPR 01110 MLC @DTFSR@,OP360 DTFPR 01120 MLC @C@,CONT36 DTFPR 01130 B WRITED WRITE DTFSR MACRO DTFPR 01140 MLC @PRINTER,@,OPR360&14 DTFPR 01150 MLC @DEVICE#@ DTFPR 01160 MLC @C@,CONT36 DTFPR 01170 B WRITED WRITE DEVICE PARAMETER DTFPR 01180 MLC @,@,OPR360&14 DTFPR 01190 MLC @OUTPUT@ DTFPR 01200 MLC @TYPEFLE#@ DTFPR 01210DTFPR1 MLC @C@,CONT36 DTFPR 01220 B WRITED WRITE TYPEFLE PARAMETER ETC DTFPR 01230 B GETCD DTFPR 01240 C BLANKS,OP1400 DTFPR 01250 BU DTFPR2 DTFPR 02010 BCE DTFPR2,LBL14-6,* Q. COMMENTS CARD DTFPR 02020 C LBL14-1,@IOAREA@ DTFPR 02030 BE DTFPR3 DTFPR 02040 C LBL14-1,@OVERFL@ DTFPR 02050 BE DTFPR8 DTFPR 02060 C LBL14-1,@WORKAR@ DTFPR 02070 BE DTFPR7 DTFPR 02080 C LBL14-1,@FORMCN@ DTFPR 02090 BE DTFPR9 DTFPR 02100 MLC CON1,OP360 DTFPR 02110 B CODEIT DTFPR 02120 DCW @Y/@ DTFPR 02130 B DTFPR1&7 DTFPR 02140* DTFPR 02150DTFPR2 MCW BLANKS,IMAG14 BLANK OUT 1400 IMAGE DTFPR 02160 MLC @SYSLST,@,OPR360&14 DTFPR 02170 MLC @DEVADDR#@ DTFPR 02180 MLC @C@,CONT36 DTFPR 02190 B CODEIT DTFPR 02200 DCW @1/@ DTFPR 02210 B WRITED WRITE DEVADDR PARAMETER DTFPR 02220 MLC @FIXUNB,@,OPR360&14 DTFPR 02230 MLC @RECFORM#@ DTFPR 02240 MLC @C@,CONT36 DTFPR 02250 B CODEIT DTFPR 03010 DCW @1/@ DTFPR 03020 B WRITED WRITE RECFORM PARAMETER DTFPR 03030 MLC @132@,OPR360&10 DTFPR 03040 MLC @BLKSIZE#@ DTFPR 03050 B CODEIT DTFPR 03060 DCW @1/@ DTFPR 03070 BW DTFPRA,PRTCC DTFPR 03080 MLC @,@,OPR360&11 DTFPR 03090 MLC @C@,CONT36 DTFPR 03100 B WRITED DTFPR 03110 MLC @CONTROL#YES,@,OPR360&11 DTFPR 03120 MLC @ @,OPR360&11 DTFPR 03130 B DTFPRA DTFPR 03140* DTFPR 03150DTFPR3 B CODEIT DTFPR 03160 DCW @1@ DTFPR 03170 DCW @Q/@ DTFPR 03180 MLC OPR14&9,OPR360&17 DTFPR 03190 MLC @IOAREA1#@ DTFPR 03200* DTFPR 03210DTFPR4 SBR X1,OPR360&9 DTFPR 03220DTFPR5 BCE DTFPR6,0&X1, DTFPR 03230 SBR X1,1&X1 DTFPR 03240 B DTFPR5 DTFPR 03250DTFPR6 MLC @,@,0&X1 DTFPR 04010 B DTFPR1 DTFPR 04020* DTFPR 04030DTFPR7 MLC @WORKA#YES,@,OPR360&9 WORKAREA PARAMETER DTFPR 04040 MLC @C@,CONT36 DTFPR 04050 B WRITED DTFPR 04060 MLC OPR14&9,OPR360&17 DTFPR 04070 MLC @IOAREA1#@ DTFPR 04080 B CODEIT DTFPR 04090 DCW @1/@ DTFPR 04100 B DTFPR4 DTFPR 04110* DTFPR 04120DTFPR8 MLC CON1,OP360 OVERFLOW PARAMETER DTFPR 04130 B CODEIT DTFPR 04140 DCW @Y/@ DTFPR 04150 B WRITED DTFPR 04160 MLC @PRINTOV#YES,@,OPR360&11 DTFPR 04170 B DTFPR1 DTFPR 04180* DTFPR 04190DTFPR9 MLC CON1,OP360 FORMCNTL PARAMETER DTFPR 04200 B CODEIT DTFPR 04210 DCW @Y/@ DTFPR 04220 B WRITED DTFPR 04230 MLC @CONTROL#YES,@,OPR360&11 DTFPR 04240 SW PRTCC DTFPR 04250 B DTFPR1 DTFPR 05010* DTFPR 05020DTFPRA B WRITED DTFPR 05030 MLC OPR14E,IMAG14 RESTORE 1400 SOURCE IMAGE DTFPR 05040 CHAIN3 DTFPR 05050 FETCH@DIOCS@ DTFPR 05060 EX DTFPR DTFPR 01010 JOB INPUT/OUTPUT DEVICE INSTRUCTION TRANSLATION ROUTINES IODEV 01020 ORG COMMON IODEV 01030******************************************************************* IODEV 01040********************** I/O DEVICE OPERATIONS ********************** IODEV 01050******************************************************************* IODEV 01060* * * IODEV 01070* BSP 2 * CNTRL TPFILE2,BSR * IODEV 01080* RT 1,TAPEIN * GET TPFILE1,TAPEIN * IODEV 01090* RTB 3,TAPBIN * GET TPFILE3,TAPBIN * IODEV 01100* RTW 4,TPLOAD * GET TPFILE4,TPLOAD * IODEV 01110* RWD 5 * CNTRL TPFILE5,REW * IODEV 01120* RWU 6 * CNTRL TPFILE6,RUN * IODEV 01130* SKP 1 * CNTRL TPFILE1,ERG * IODEV 01140* WT 2,TAPOUT * PUT TPFILE2,TAPOUT * IODEV 01150* WTB 3,TAPBIN * PUT TPFILE3,TAPBIN * IODEV 01160* WTM 4 * CNTRL TPFILE4,WTM * IODEV 01170* WTW 5,TPLOAD * PUT TPFILE5,TPLOAD * IODEV 01180* SAME TRANSLATION FOR CU, MU AND LU WITH %U- OPERAND. * IODEV 01190* * * IODEV 01200* R * GET READ360 * IODEV 01210* R 1,CARDIN * GET READ360,CARDIN * IODEV 01220* P * PUT PNCH360 * IODEV 01230* PS 1,CDOUT * PUT PNCH360,CDOUT * IODEV 01240* W * PUT PRNT360 * IODEV 01250* WR * PUT PRNT360 * IODEV 02010* * GET READ360 * IODEV 02020* RP * GET READ360 * IODEV 02030* RF * PUT PFRD360 * IODEV 02040* * GET PFRD360 * IODEV 02050* WP * PUT PRNT360 * IODEV 02060* * PUT PNCH360 * IODEV 02070* WRF * PUT PRNT360 * IODEV 02080* * PUT PFRD360 * IODEV 02090* * GET PFRD360 * IODEV 02100* WRP * PUT PRNT360 * IODEV 02110* * GET READ360 * IODEV 02120* * PUT PNCH360 * IODEV 02130* WCP MSG1 * EXCP $$CCB01 * IODEV 02140* SAME FOR WCPW MSG1 * WAIT $$CCB01 * IODEV 02150* AND MU %T0,MSG1,W *$$CCB01 CCB SYSLOG,$$CCW01 * IODEV 02160* *$$CCW01 CCW 9,MSG1,0,10 * IODEV 02170* RCP INQRY * EXCP INQRY$CB * IODEV 02180* SAME FOR RCPW INQRY * WAIT INQRY$CB * IODEV 02190* AND MU %T0,INQRY,R *$$CCB02 CCB SYSLOG,$$CCW02 * IODEV 02200* *$$CCW02 CCW 2,INQRY,0,15 * IODEV 02210* PSK 4,CDOUT * PUT PNCH360 * IODEV 02220* * * IODEV 02230* GET INFILE * GET INFILE * IODEV 02240* GET INFILE,INWORK * GET INFILE,INWORK * IODEV 02250* GET INCARD,,2 * GET INCARD IODEV 03010* * CNTRL INCARD,PS,3 IODEV 03020* PUT ,OUTFIL * PUT OUTFIL * IODEV 03030* PUT OUTWRK,OUTFIL * PUT OUTFIL,OUTWRK * IODEV 03040* OPEN FILEA,D,INPUT * OPEN FILEA,D,INPUT * IODEV 03050* CLOSE FILEA,D,DSKOUT * CLOSE FILEA,D,DSKOUT * IODEV 03060* FEORL TAPOUT * FEOV TAPOUT * IODEV 03070* RELSE TAPEIN * RELSE TAPEIN * IODEV 03080* SEEK DSKIN * SEEK DSKIN * IODEV 03090* SPACE K * CNTRL PRNT360,SP,2 * IODEV 03100* SKIP 3 * CNTRL PRNT360,SK,3 * IODEV 03110* * * IODEV 03120******************************************************************* IODEV 03130 SKIPN IODEV 03140* IODEV 03150*** TRANSLATION FOR TAPE, CARD READER, CARD PUNCH, PRINTER, CONSOLE IODEV 03160* TYPEWRITER, AND IOCS INPUT/OUTPUT INSTRUCTIONS IODEV 03170* IODEV 03180IODEV SBR X1,0 IODEV 03190 SD IOCADR-7 RE-POSITION DISK HEADS IODEV 03200 BIN *-12,\ AFTER FETCH IODEV 03210IODEV1 C OP1400,IODEV8 IODEV 03220 BE IODEV2 IODEV 03230 SBR X1,8&X1 IODEV 03240 B IODEV1 IODEV 03250IODEV2 MLC IODEV9,*&4 IODEV 04010 B 000 IODEV 04020IODEV7 EQU *&1 IODEV 04030 DCW @BSP @ IODEV 04040 DSA BSP00 IODEV 04050 DCW @CLOSE@ IODEV 04060 DSA CLOPEN IODEV 04070 DCW @CU @ IODEV 04080 DSA CU00 IODEV 04090 DCW @FEORL@ IODEV 04100 DSA FEOV00 IODEV 04110 DCW @GET @ IODEV 04120 DSA GET00 IODEV 04130 DCW @LU @ IODEV 04140 DSA LU00 IODEV 04150 DCW @MU @ IODEV 04160 DSA LU00 IODEV 04170 DCW @OPEN @ IODEV 04180 DSA CLOPEN IODEV 04190 DCW @P @ IODEV 04200 DSA P00 IODEV 04210 DCW @PS @ IODEV 04220 DSA P00 IODEV 04230 DCW @PSK @ IODEV 04240 DSA P00 IODEV 04250 DCW @PUT @ IODEV 05010 DSA PUT00 IODEV 05020 DCW @R @ IODEV 05030 DSA R00 IODEV 05040 DCW @RCP @ IODEV 05050 DSA RCP00 IODEV 05060 DCW @RCPW @ IODEV 05070 DSA RCP00 IODEV 05080 DCW @RELSE@ IODEV 05090 DSA MACRO IODEV 05100 DCW @RF @ IODEV 05110 DSA RF00 IODEV 05120 DCW @RP @ IODEV 05130 DSA R00 IODEV 05140 DCW @RT @ IODEV 05150 DSA RT00 IODEV 05160 DCW @RTB @ IODEV 05170 DSA RT00 IODEV 05180 DCW @RTW @ IODEV 05190 DSA RT00 IODEV 05200 DCW @RWD @ IODEV 05210 DSA RWD00 IODEV 05220 DCW @RWU @ IODEV 05230 DSA RWU00 IODEV 05240 DCW @SEEK @ IODEV 05250 DSA SEEK IODEV 06010 DCW @SKIP @ IODEV 06020 DSA SKPSPC IODEV 06030 DCW @SKP @ IODEV 06040 DSA SKP00 IODEV 06050 DCW @SPACE@ IODEV 06060 DSA SKPSPC IODEV 06070 DCW @W @ IODEV 06080 DSA W00 IODEV 06090 DCW @WCP @ IODEV 06100 DSA WCP00 IODEV 06110 DCW @WCPW @ IODEV 06120 DSA WCP00 IODEV 06130 DCW @WP @ IODEV 06140 DSA W00 IODEV 06150 DCW @WR @ IODEV 06160 DSA W00 IODEV 06170 DCW @WRF @ IODEV 06180 DSA WRF00 IODEV 06190 DCW @WRP @ IODEV 06200 DSA W00 IODEV 06210 DCW @WT @ IODEV 06220 DSA WT00 IODEV 06230 DCW @WTB @ IODEV 06240 DSA WT00 IODEV 06250 DCW @WTM @ IODEV 07010 DSA WTM00 IODEV 07020 DCW @WTW @ IODEV 07030 DSA WT00 IODEV 07040 DCW @RCB @ IODEV 07050 DSA RCBWM IODEV 07060 DCW @WM @ IODEV 07070 DSA RCBWM IODEV 07080 DCW @PCB @ IODEV 07090 DSA RCBWM IODEV 07100 ORG IODEV7 IODEV 07110 DA 43X8,X1 IODEV 07120IODEV8 1,5 IODEV 07130IODEV9 6,8 IODEV 07140* GENERATE BRANCH INSTRUCTION FOR I/O AND BRANCH INSTRUCTIONS. IODEV 07150IODEV3 MLC @BAL@,OP360-2 IODEV 07160 MLC @11,@,OPR360&2 IODEV 07170 BCE IODEV5,TYPE-3,* Q. ASTERISK ADJUSTMENT IODEV 07180 BCE IODEV4,AADJ, Q. ADDRESS ADJUSTMENT IODEV 07190 B CODEIT YES IODEV 07200 DCW @P/@ IODEV 07210IODEV4 MLC AOPRND,OPR360&9 IODEV 07220 B REV19 IODEV 07230 BCE IODEV6,AOPRND,* Q. ACTUAL ADDRESS IODEV 07240 BWZ IODEV6,AOPRND-6,2 IODEV 07250 BCE *&5,AOPRND, IODEV 08010 B IODEV6 IODEV 08020 B PUTD IODEV 08030IODEV5 MLC @$$$@,OPR360&5 IODEV 08040 A *-6,GENLBL IODEV 08050 MLC GENLBL,OPR360&8 IODEV 08060 B REV19 IODEV 08070 B WRITED IODEV 08080 B CODEIT IODEV 08090 DCW @1@ IODEV 08100 DCW @U/@ IODEV 08110 MLC @EQU *@,OPR360 IODEV 08120 MLC IODEV 08130 MLC GENLBL,NAM360-2 IODEV 08140 MLC @$$$@,NAM360-5 IODEV 08150 B PUTD IODEV 08160* IODEV 08170IODEV6 B CODEIT IODEV 08180 DCW @2/@ IODEV 08190 B PUTD IODEV 08200 SKIPN IODEV 08210* IODEV 08220** TAPE CONTROL OPERATION ENTRIES IODEV 08230* IODEV 08240BSP00 MLC @,BSR@,OPR360&10 BACKSPACE IODEV 08250TPCTL1 MLNS OPR14,OPR360&6 IODEV 09010 MLC @TPFILE@ IODEV 09020 MLC @CNTRL@,OP360 IODEV 09030 B CODEIT IODEV 09040 DCW @G/@ IODEV 09050 B REV19 IODEV 09060 B PUTD IODEV 09070* IODEV 09080RWD00 MLC @,REW@,OPR360&10 REWIND IODEV 09090 B TPCTL1 IODEV 09100* IODEV 09110RWU00 MLC @,RUN@,OPR360&10 REWIND AND UNLOAD IODEV 09120 B TPCTL1 IODEV 09130* IODEV 09140SKP00 MLC @,ERG@,OPR360&10 ERASE FORWARD IODEV 09150 B TPCTL1 IODEV 09160* IODEV 09170WTM00 MLC @,WTM@,OPR360&10 WRITE TAPE MARK IODEV 09180 B TPCTL1 IODEV 09190 SKIPN IODEV 09200* IODEV 09210** CLOSE/OPEN ENTRY IODEV 09220* IODEV 09230CLOPEN B CODEIT WARN ABOUT D/T DISK IOCS IODEV 09240 DCW @H/@ PARAMETERS IODEV 09250* IODEV 10010** MACRO WHICH HAS SAME FORMAT AS A S/360 MACRO IODEV 10020* IODEV 10030MACRO MLC OP1400,OP360 IODEV 10040MACRO1 SBR X1,0 IODEV 10050MACRO2 BCE MACRO3,OPR14&1&X1, IODEV 10060 SBR X1,1&X1 IODEV 10070 B MACRO2 IODEV 10080MACRO3 BCE MACRO4,OPR14&X1,, Q. CONTINUED MACRO IODEV 10090 MLC OPR14&X1,OPR360&X1 IODEV 10100 B REV19 IODEV 10110 B PUTD IODEV 10120MACRO4 MLC @C@,CONT36 IODEV 10130 B REV19 IODEV 10140 B WRITED IODEV 10150 B GETCD IODEV 10160 BCE MACRO5,LBL14-6,* Q. COMMENTS CARD IODEV 10170 C OP1400,@ @ CONTINUED BUT NOT IODEV 10180 BE MACRO1 NO. IODEV 10190MACRO5 B CODEIT IODEV 10200 DCW @H/@ IODEV 10210 B REV19 IODEV 10220 B WRITED IODEV 10230 B PROCES PROCESS NEW INSTRUCTION IODEV 10240* IODEV 10250SEEK BSS NOTRAN,D Q. DOS/TOS OUTPUT IODEV 11010 B MACRO IODEV 11020* IODEV 11030** CONTROL INSTRUCTION IODEV 11040* IODEV 11050CU00 BCE CU02,OPR14,% IODEV 11060CU01 B NOTRAN IODEV 11070CU02 BCE CU03,OPR14&1,U IODEV 11080 B CU01 IODEV 11090CU03 MLNS OPR14&2,OPR14 IODEV 11100 BCE BSP00,DMOD,B IODEV 11110 BCE RWD00,DMOD,R IODEV 11120 BCE RWU00,DMOD,U IODEV 11130 BCE SKP00,DMOD,E IODEV 11140 BCE WTM00,DMOD,M IODEV 11150 B CU01 IODEV 11160* IODEV 11170** FORCE END OF REEL ENTRY IODEV 11180* IODEV 11190FEOV00 MLC @FEOV @,OP360 IODEV 11200 B MACRO1 IODEV 11210 SKIPN IODEV 11220* IODEV 11230** LOAD/MOVE UNIT ENTRIES IODEV 11240* IODEV 11250LU00 C OPR14&2,@%T0@ Q. CONSOLE TYPEWRITER OPER. IODEV 12010 BE LU03 IODEV 12020 C OPR14&1,@@U@ Q. OVERLAPPED OPERATION IODEV 12030 BE LU09 IODEV 12040 C OPR14&1,@%U@ IODEV 12050 BE LU09 IODEV 12060 C OPR14&1,@%B@ Q. BINARY TAPE IODEV 12070 BE LU09 IODEV 12080 C OPR14&1,@@B@ IODEV 12090 BU CU01 IODEV 12100LU09 BCE LU02,DMOD,W TAPE I/O COMMAND IODEV 12110 MLC @GET@,OP360-2 IODEV 12120LU01 MLNS OPR14&2,OPR360&6 IODEV 12130 MLC @TPFILE@ IODEV 12140 MLC BOPRND,OPR360&14 IODEV 12150 MLC @,@ IODEV 12160 B CODEIT IODEV 12170 DCW @B/@ IODEV 12180 B REV19 IODEV 12190 B PUTD IODEV 12200LU02 MLC @PUT@,OP360-2 IODEV 12210 B LU01 IODEV 12220* IODEV 12230LU03 BCE LU08,DMOD,W IODEV 12240 MLC @2@,LU93 IODEV 12250LU04 MLC @EXCP@,OP360-1 EXCP $$CCB-- IODEV 13010 A *-6,LU90 IODEV 13020 MLC LU90,LU92 IODEV 13030 MLC LU90,LU91 IODEV 13040 MLC LU91,OPR360&6 IODEV 13050 B REV19 IODEV 13060 B CODEIT IODEV 13070 DCW @1/@ IODEV 13080 B WRITED IODEV 13090 MLC @WAIT@,OP360-1 WAIT $$CCB-- IODEV 13100 MLC LU91,OPR360&6 IODEV 13110 B CODEIT IODEV 13120 DCW @1/@ IODEV 13130 B WRITED IODEV 13140 MLC @B@,OP360-4 B $$$-- IODEV 13150 MLC LU90,LU94 IODEV 13160 MLC LU94,OPR360&4 IODEV 13170 B CODEIT IODEV 13180 DCW @1/@ IODEV 13190 B WRITED IODEV 13200 MLC LU91,NAM360-1 $$CCB-- CCB SYSLOG,$$CCW-- IODEV 13210 MLC @CCB@,OP360-2 IODEV 13220 MLC LU92,OPR360&13 IODEV 13230 B CODEIT IODEV 13240 DCW @1/@ IODEV 13250 B WRITED IODEV 14010 MLC LU92,NAM360-1 $$CCW-- CCW -,XXXX,0,YY IODEV 14020 MLC @CCW@,OP360-2 IODEV 14030 MLC LU93,OPR360 IODEV 14040 MLC @,@,OPR360&1 IODEV 14050 MLC BOPRND-1,OPR360&7 IODEV 14060 SBR X1,OPR360&3 IODEV 14070LU05 BCE LU06,0&X1, IODEV 14080 SBR X1,1&X1 IODEV 14090 B LU05 IODEV 14100LU06 MLC @,0,@,2&X1 IODEV 14110 B SEARCH IODEV 14120 BW *&5,SRCH95 Q. B-OPERAND UNDEFINED IODEV 14130 B LU07 IODEV 14140 MLC SRCH92,5&X1 IODEV 14150 B CODEIT IODEV 14160 DCW @1/@ IODEV 14170LU10 B WRITED IODEV 14180 MLC @EQU@,OP360-2 IODEV 14190 MLC LU94,NAM360-3 IODEV 14200 MLC @&8@,OPR360&8 IODEV 14210 MLC LU92 IODEV 14220 B CODEIT IODEV 14230 DCW @1/@ IODEV 14240 B PUTD IODEV 14250LU07 B CODEIT IODEV 15010 DCW @1@ IODEV 15020 DCW @5/@ IODEV 15030 MLC @1@,3&X1 IODEV 15040 B LU10 IODEV 15050LU08 MLC @9@,LU93 IODEV 15060 B LU04 IODEV 15070LU91 DCW @$$CCB--@ IODEV 15080LU92 DCW @SYSLOG,$$CCW--@ IODEV 15090LU93 DCW #1 IODEV 15100LU94 DCW @$$$ @ IODEV 15110 SKIPN IODEV 15120* IODEV 15130** UNIT RECORD %CARD/PRINT) OPERATION ENTRIES. IODEV 15140* IODEV 15150R00 MLC @GET@,OP360-2 IODEV 15160 MLC RDDTF,OPR360&6 IODEV 15170 BCE *&5,BOPRND-6, Q. B-OPERAND PRESENT IODEV 15180 B W01 YES IODEV 15190 SBR X1,OPR360 NO--SET UP WORK AREA IODEV 15200 BCE *&12,0&X1, IODEV 15210 SBR X1,1&X1 IODEV 15220 B *-18 IODEV 15230 MLC @,READARE@,7&X1 IODEV 15240WRP01 MLC OP1400-2,WRP90 IODEV 15250 MLC WRP90&1,OP1400-2 IODEV 16010 BCE WRP03,OP1400-4, IODEV 16020 B REV19 IODEV 16030 BCE *&5,CODES-3,2 IODEV 16040 B *&8 IODEV 16050 MLC @ @,CODES-3 IODEV 16060 B WRITED IODEV 16070WRP02 BCE R00,OP1400-4,R IODEV 16080 BCE P00,OP1400-4,P IODEV 16090 BCE W00,OP1400-4,W IODEV 16100WRP03 B REV19 IODEV 16110 BCE *&5,CODES-3,2 IODEV 16120 B *&8 IODEV 16130 MLC @ @,CODES-3 IODEV 16140 BCE PUTD,OPR14, Q. NOT I/O AND BRANCH IODEV 16150 B WRITED IODEV 16160 B IODEV3 IODEV 16170* IODEV 16180P00 MLC @PUT@,OP360-2 IODEV 16190 MLC PHDTF,OPR360&6 IODEV 16200 BCE *&5,BOPRND-6, Q. B-OPERAND PRESENT IODEV 16210 B W01 YES IODEV 16220 SBR X1,OPR360 NO--SET UP WORK AREA IODEV 16230 BCE *&12,0&X1, IODEV 16240 SBR X1,1&X1 IODEV 16250 B *-18 IODEV 17010 MLC @,PCHAREA@,7&X1 IODEV 17020 B WRP01 IODEV 17030* IODEV 17040W00 MLC @PUT@,OP360-2 IODEV 17050 MLC PRDTF,OPR360&6 IODEV 17060 BCE *&5,OP1400-3, Q. WRITE ONLY IODEV 17070 B W00A IODEV 17080 MLC AADJ,BADJ IODEV 17090 CHAIN2 IODEV 17100W00A B SEARCH IODEV 17110 BW W01,SRCH95 Q. LABEL IN DATA NAME TABLE IODEV 17120 SBR X1,OPR360 NO--ASSUME 1401/1460 WRT IODEV 17130 BCE *&12,0&X1, IODEV 17140 SBR X1,1&X1 IODEV 17150 B *-18 IODEV 17160 MLC @,PRTAREA@,7&X1 IODEV 17170 B WRP01 IODEV 17180W01 SBR X1,OPR360&1 1440 WRITE IODEV 17190W02 BCE W03,0&X1, IODEV 17200 SBR X1,1&X1 IODEV 17210 B W02 IODEV 17220W03 MLC @,@,0&X1 IODEV 17230 MLC BOPRND,7&X1 IODEV 17240 B REV19 IODEV 17250 B PUTD IODEV 18010WRP90 DCW #2 IODEV 18020 DC #1 IODEV 18030 SKIPN IODEV 18040* IODEV 18050** PUT ENTRY IODEV 18060* IODEV 18070PUT00 SBR X1,OPR14 IODEV 18080 S PUT90 RESET COUNTER TO ZERO IODEV 18090PUT01 BCE PUT03,0&X1,, Q. END OF OPERAND IODEV 18100 BCE PUT04,0&X1, Q. END OF INSTRUCTION IODEV 18110PUT02 SBR X1,1&X1 IODEV 18120 B PUT01 IODEV 18130PUT03 A *-6,PUT90 COUNT NUMBER OF OPERANDS IODEV 18140 B PUT02 IODEV 18150* IODEV 18160PUT04 BCE NOTRAN,PUT90,? Q. INVALID PUT IODEV 18170 BCE PUT22,PUT90,A Q. ONLY TWO PARAMETERS USED IODEV 18180 SBR X1,0 IODEV 18190PUT05 BCE PUT06,OPR14&X1,, Q. END OF WORK AREA IODEV 18200 SBR X1,1&X1 IODEV 18210 B PUT05 IODEV 18220PUT06 MLC X2,PUT91 SAVE X2 CONTENTS IODEV 18230 SBR X2,0 IODEV 18240PUT07 SBR X1,1&X1 IODEV 18250 BCE PUT08,OPR14&1&X1,, Q. END OF FILENAME IODEV 19010 SBR X2,1&X2 IODEV 19020 B PUT07 IODEV 19030PUT08 MLC OPR14&X1,OPR360&X2 IODEV 19040 MLC @CNTRL@,OP360 IODEV 19050 C OPR14&X1,PRDTF-6&X2 Q. PUT TO THE PRINTER IODEV 19060 BU PUT19 NO--PUNCH IODEV 19070* IODEV 19080 BWZ PUT09,OPR14&2&X1,B Q. DELAYED SKIP IODEV 19090 BWZ PUT10,OPR14&2&X1,K Q. IMMEDIATE SPACE IODEV 19100 BWZ PUT11,OPR14&2&X1,S Q. DELAYED SPACE IODEV 19110 MLNS OPR14&2&X1,OPR360&5&X2 IMMEDIATE SKIP IODEV 19120 MLC @,SK,@ IODEV 19130 B PUT12 IODEV 19140PUT09 MLNS OPR14&2&X1,OPR360&6&X2 DELAYED SKIP IODEV 19150 MLC @,SK,,@ IODEV 19160 B PUT12 IODEV 19170PUT10 MLNS OPR14&2&X1,OPR360&5&X2 IMMEDIATE SPACE IODEV 19180 MLC @,SP,@ IODEV 19190 B PUT12 IODEV 19200PUT11 MLNS OPR14&2&X1,OPR360&6&X2 DELAYED SPACE IODEV 19210 MLC @,SP,,@ IODEV 19220PUT12 MLC X1,PUT92 SET UP PUT IODEV 19230 MLC X2,PUT93 IODEV 19240 B REV19 IODEV 19250 B WRITED IODEV 20010 MLC PUT92,X1 IODEV 20020 MLC PUT93,X2 IODEV 20030 MLC OPR14&X1,OPR360&X2 IODEV 20040 MLC OP1400,OP360 IODEV 20050 BCE PUT15,OPR14,, Q. NO WORKAREA IODEV 20060 SBR X2,2&X2 IODEV 20070 SBR X1,0 IODEV 20080PUT13 BCE PUT14,OPR14&1&X1,, Q. END OF WORKAREA IODEV 20090 SBR X1,1&X1 IODEV 20100 SBR X2,1&X2 IODEV 20110 B PUT13 IODEV 20120PUT14 MLC OPR14&X1,OPR360&X2 IODEV 20130 MLC @,@ IODEV 20140PUT15 MLC PUT92,X1 POINT X1 TO END OF FILENAME IODEV 20150 BCE PUT18A,OPR14&4&X1, Q. ADDITIONAL SKIP/SPACE IODEV 20160 B WRITED YES IODEV 20170 MLC OPR14&X1,OPR360&X2 IODEV 20180 MLC @CNTRL@,OP360 IODEV 20190 MLC PUT93,X2 IODEV 20200 BWZ PUT16,OPR14&4&X1,B Q. DELAYED SKIP IODEV 20210 BWZ PUT17,OPR14&4&X1,K Q. IMMEDIATE SPACE IODEV 20220 BWZ PUT18,OPR14&4&X1,S Q. DELAYED SPACE IODEV 20230 MLNS OPR14&4&X1,OPR360&5&X2 IMMEDIATE SKIP IODEV 20240 MLC @,SK,@ IODEV 20250 B PUT18A IODEV 21010PUT16 MLNS OPR14&4&X1,OPR360&6&X2 DELAYED SKIP IODEV 21020 MLC @,SK,,@ IODEV 21030 B PUT18A IODEV 21040PUT17 MLNS OPR14&4&X1,OPR360&5&X2 IMMEDIATE SPACE IODEV 21050 MLC @,SP,@ IODEV 21060 B PUT18A IODEV 21070PUT18 MLNS OPR14&4&X1,OPR360&6&X2 DELAYED SPACE IODEV 21080 MLC @,SP,,@ IODEV 21090PUT18A MLC PUT91,X2 RESTORE X2 IODEV 21100 B PUTD EXIT IODEV 21110* IODEV 21120PUT19 MLC @,PS,@,OPR360&4&X2 PUNCH WITH STACKER SELECT IODEV 21130 BCE PUT20,OPR14&2&X1,4 IODEV 21140 BCE PUT21,OPR14&2&X1,8 IODEV 21150 B NOTRAN IODEV 21160PUT20 MLC @1@,OPR360&5&X2 IODEV 21170 B PUT12 IODEV 21180PUT21 MLC @2@,OPR360&5&X2 IODEV 21190 B PUT12 IODEV 21200********** IODEV 21210PUT22 BCE PUT27,OPR14,, Q. WORK AREA AS OPERAND IODEV 21220 SBR X1,0 YES IODEV 21230PUT23 BCE PUT24,OPR14&1&X1,, Q. END OF WORK AREA IODEV 21240 SBR X1,1&X1 IODEV 21250 B PUT23 IODEV 22010PUT24 MCW X2,PUT91 SAVE X2 CONTENTS IODEV 22020 MCW X1,X2 IODEV 22030 SW 2&X2 WORDMARK FOR FILENAME IODEV 22040 SBR X1,2&X1 IODEV 22050PUT25 BCE PUT26,OPR14&1&X1, Q. END OF INSTRUCTION IODEV 22060 SBR X1,1&X1 IODEV 22070 B PUT25 IODEV 22080PUT26 MLC OPR14&X2,OPR360&X1 IODEV 22090 MLC @,@ IODEV 22100 MLC OPR14&X1 IODEV 22110 MLC OP1400,OP360 IODEV 22120 CW 2&X2 IODEV 22130 MLC PUT91,X2 RESTORE X2 IODEV 22140 B REV19 IODEV 22150 B PUTD EXIT IODEV 22160* IODEV 22170PUT27 SBR X1,1 NO WORKAREA IODEV 22180PUT28 BCE PUT29,OPR14&2&X1, IODEV 22190 SBR X1,1&X1 IODEV 22200 B PUT28 IODEV 22210PUT29 MLC OPR14&1&X1,OPR360&X1 IODEV 22220 MLC OP1400,OP360 IODEV 22230 B REV19 IODEV 22240 B PUTD EXIT IODEV 22250* IODEV 23010PUT90 DCW &0 COUNTER FOR NO. OPERANDS IODEV 23020PUT91 DCW #3 X2 SAVE AREA IODEV 23030PUT92 DCW #3 X1 SAVE AREA IODEV 23040PUT93 DCW #3 MODIFIED X2 SAVE AREA IODEV 23050 SKIPN IODEV 23060* IODEV 23070** GET ENTRY IODEV 23080* IODEV 23090GET00 SBR X1,0 IODEV 23100GET01 BCE GET02,OPR14&1&X1,, IODEV 23110 BCE MACRO,OPR14&1&X1, IODEV 23120 SBR X1,1&X1 IODEV 23130 B GET01 IODEV 23140GET02 BCE GET03,OPR14&2&X1,, Q. THIRD OPERAND IODEV 23150 BCE MACRO,OPR14&2&X1, IODEV 23160 SBR X1,1&X1 IODEV 23170 B GET02 IODEV 23180GET03 MLC OPR14&1&X1,OPR360&1&X1 THREE OPERANDS -- CARD READ IODEV 23190 MLC OP1400,OP360 WITH STACKER SELECTION IODEV 23200 BCE *&5,OPR360&1&X1,, Q. NO WORK AREA DEFINED IODEV 23210 B *&8 NO--WORK AREA IS DEFINED IODEV 23220 MLC @ @,OPR360&1&X1 YES--ELIMINATE COMMA IODEV 23230 MLC X1,GET91 IODEV 23240 B REV19 IODEV 23250 MLC GET91,X1 IODEV 24010 BCE GET04,OPR14&3&X1,1 IODEV 24020 BCE GET04,OPR14&3&X1,2 IODEV 24030 B PUTD IODEV 24040GET04 B WRITED IODEV 24050 MLC OPR14&3&X1,GET90 IODEV 24060 MLC RDDTF,OPR360&6 IODEV 24070 SBR X1,OPR360 IODEV 24080GET05 BCE GET06,0&X1, IODEV 24090 SBR X1,1&X1 IODEV 24100 B GET05 IODEV 24110GET06 MLC GET90,4&X1 IODEV 24120 MLC @,PS,@ IODEV 24130 MLC @CNTRL@,OP360 IODEV 24140 B PUTD IODEV 24150GET90 DCW #1 IODEV 24160GET91 DCW #3 IODEV 24170 SKIPN IODEV 24180* IODEV 24190** CONSOLE TYPEWRITER INSTRUCTION ENTRIES IODEV 24200* IODEV 24210* SET UP FOR LU-- ENTRIES IODEV 24220* IODEV 24230RCP00 MLC AADJ,BADJ IODEV 24240 CHAIN2 IODEV 24250 B LU03 IODEV 25010WCP00 MLC AADJ,BADJ IODEV 25020 CHAIN2 IODEV 25030 B LU08 IODEV 25040* IODEV 25050** READ FROM PUNCH FEED ENTRY IODEV 25060* IODEV 25070RF00 MLC @PUT@,OP360-2 IODEV 25080 B CODEIT IODEV 25090 DCW @I/@ IODEV 25100RF01 MLC @PFRD360@,OPR360&6 IODEV 25110 B REV19 IODEV 25120 BCE WRP03,OP360-4,G IODEV 25130 B WRITED IODEV 25140 MLC @GET@,OP360-2 IODEV 25150 B RF01 IODEV 25160* IODEV 25170WRF00 MLC @PUT@,OP360-2 IODEV 25180 MLC PRDTF,OPR360&6 IODEV 25190 B REV19 IODEV 25200 B WRITED IODEV 25210 B RF00 IODEV 25220* IODEV 25230** TAPE I/O COMMANDS IODEV 25240* IODEV 25250RT00 MLC @GET@,OP360-2 IODEV 26010TPIO00 MLC BOPRND,OPR360&14 IODEV 26020 MLC @,@ IODEV 26030 MLNS OPR14,OPR360&6 IODEV 26040 MLC @TPFILE@ IODEV 26050 B CODEIT IODEV 26060 DCW @ /@ IODEV 26070 B PUTD IODEV 26080WT00 MLC @PUT@,OP360-2 IODEV 26090 B TPIO00 IODEV 26100* IODEV 26110** PRINTER CONTROL MACRO ENTRIES IODEV 26120* IODEV 26130SKPSPC MLC @CC @,OP1400 PROCESS AS CARRIAGE IODEV 26140* CONTROL ENTRY IODEV 26150 MLC OPR14,DMOD MOVE IN D-MODIFIER FOR MISC IODEV 26160 FETCH@MISC @ IODEV 26170* IODEV 26180** UNTRANSLATABLE I/O INSTRUCTION IODEV 26190* IODEV 26200RCBWM B CODEIT IODEV 26210 DCW @1@ IODEV 26220 DCW @D/@ IODEV 26230 BCE *&5,BOPRND-6, Q. 1440 RCB/PCB IODEV 26240 B *&13 YES IODEV 26250 BCE *&5,AOPRND-6, IODEV 27010 B IODEV3 IODEV 27020 MLC @ @,CODES IODEV 27030 B NOTRAN IODEV 27040******************************************************************* IODEV 27050 EX IODEV IODEV 01010 JOB LOGIC INSTRUCTION TRANSLATION ROUTINES LOGIC 01020 ORG COMMON LOGIC 01030******************************************************************* LOGIC 01040************************* LOGIC OPERATIONS ************************ LOGIC 01050******************************************************************* LOGIC 01060* * * LOGIC 01070* B PROG * BAL 11,PROG * LOGIC 01080* BAV PROG * BC 14,*&8 * LOGIC 01090* * BAL 11,PROG * LOGIC 01100* BBE PROG,AFLD,S * TM AFLD,C@S@ * LOGIC 01110* * BC 14,*&8 * LOGIC 01120* * BAL 11,PROG * LOGIC 01130* BCE PROG,PACKED,6 * CLI PACKED,C@6C@ * LOGIC 01140* * BNE *&8 * LOGIC 01150* * BAL 11,PROG * LOGIC 01160* BCE PROG,ZONED,6 * CLI ZONED,C@6@ * LOGIC 01170* * BNE *&8 * LOGIC 01180* * BAL 11,PROG * LOGIC 01190* BCV PROG * PRTOV PRNT360,12,PROG * LOGIC 01200* BC9 PROG * PRTOV PRNT360,9,PROG * LOGIC 01210* BE PROG * BNE *&8 * LOGIC 01220* * BAL 11,PROG * LOGIC 01230* BH PROG * BNH *&8 * LOGIC 01240* * BAL 11,PROG * LOGIC 01250* BIN PROG,Q * STXIT 11,,,PROG * LOGIC 02010* BIN PROG,% * STXIT 11,PROG * LOGIC 02020* BIN PROG,@ * PRTOV PRNT360,12,PROG * LOGIC 02030* BIN PROG,9 * PRTOV PRNT360,9,PROG * LOGIC 02040* BIN PROG,S * BNE *&8 * LOGIC 02050* * BAL 11,PROG * LOGIC 02060* BIN PROG,T * BNL *&8 * LOGIC 02070* * BAL 11,PROG * LOGIC 02080* BIN PROG,U * BNH *&8 * LOGIC 02090* * BAL 11,PROG * LOGIC 02100* BIN PROG,C * COMRG * LOGIC 02110* * TM 23%1),X@20@ * LOGIC 02120* * BC 14,*&8 * LOGIC 02130* * BAL 11,PROG * LOGIC 02140* BIN PROG,/ * BE *&8 * LOGIC 02150* * BAL 11,PROG * LOGIC 02160* BL PROG * BNL *&8 * LOGIC 02170* * BAL 11,PROG * LOGIC 02180* BM PROG,PACKED * TM PACKED,X@02@ * LOGIC 02190* * BO *&16 * LOGIC 02200* * TM PACKED,X@0D@ * LOGIC 02210* * BC 14,*&8 * LOGIC 02220* * BAL 11,PROG * LOGIC 02230* BM PROG,ZONED * TM ZONED,X@20@ * LOGIC 02240* * BO *&16 * LOGIC 02250* * TM ZONED,X@D0@ * LOGIC 03010* * BC 14,*&8 * LOGIC 03020* * BAL 11,PROG * LOGIC 03030* BSS PROG,B * COMRG * LOGIC 03040* * TM 23%1),X@40@ * LOGIC 03050* * BC 14,*&8 * LOGIC 03060* * BAL 11,PROG * LOGIC 03070* BSS PROG,D * COMRG * LOGIC 03080* * TM 23%1),X@10@ * LOGIC 03090* * BC 14,*&8 * LOGIC 03100* * BAL 11,PROG * LOGIC 03110* BU PROG * BE *&8 * LOGIC 03120* * BAL 11,PROG * LOGIC 03130* BW PROG,SW1 * TM SW1,X@01@ * LOGIC 03140* * BC 14,*&8 * LOGIC 03150* * BAL 11,PROG * LOGIC 03160* BWZ PROG,PACKED,B * TM PACKED,X@03@ * LOGIC 03170* * BC 7,*&16 * LOGIC 03180* * TM PACKED,X@0C@ * LOGIC 03190* * BC 14,*&8 * LOGIC 03200* * BAL 11,PROG * LOGIC 03210* BWZ PROG,ZONED,S * TM ZONED,X@10@ * LOGIC 03220* * BO *&16 * LOGIC 03230* * TM ZONED,X@E0@ * LOGIC 03240* * BC 14,*&8 * LOGIC 03250* * BAL 11,PROG * LOGIC 04010* BWZ PROG,ZONED,2 * TM ZONED,X@F0@ * LOGIC 04020* * BC 14,*&8 * LOGIC 04030* * BAL 11,PROG * LOGIC 04040* C ZONED,ZONEDA * CLC ZONEDA,ZONED * LOGIC 04050* C PACKED,PACK * CP PACK,PACKED * LOGIC 04060* * * LOGIC 04070******************************************************************* LOGIC 04080 SKIPN LOGIC 04090* LOGIC 04100** TRANSLATION FOR BRANCH, BRANCH IF ARITHMETIC OVERFLOW, BRANCH LOGIC 04110* IF BIT EQUAL, BRANCH IF CHARACTER EQUAL, BRANCH IF FORMS LOGIC 04120* CONDITION, BRANCH HIGH COMPARE, BRANCH IF EQUAL COMPARE, LOGIC 04130* BRANCH IF INDICATOR ON, BRANCH IF LOW COMPARE, BRANCH IF WORD LOGIC 04140* MARK OR ZONE, BRANCH IF SENSE SWITCH ON, BRANCH IF UNEQUAL LOGIC 04150* COMPARE, AND COMPARE. LOGIC 04160* LOGIC 04170LOGIC SBR X1,0 LOGIC 04180 SD IOCADR-7 RE-POSITION DISK HEADS LOGIC 04190 BIN *-12,\ AFTER FETCH LOGIC 04200 BCE NOBR,AOPRND-6, Q. FULL CHAIN LOGIC 04210 BCE *&5,CODES-3,2 LOGIC 04220 B LOGIC1 LOGIC 04230 MLC @ @,CODES-3 LOGIC 04240LOGIC1 C OP1400,LOGIC8 LOGIC 04250 BE LOGIC2 LOGIC 05010 SBR X1,8&X1 LOGIC 05020 B LOGIC1 LOGIC 05030LOGIC2 MLC LOGIC9,*&4 LOGIC 05040 B 000 LOGIC 05050LOGIC7 EQU *&1 LOGIC 05060 DCW @B @ LOGIC 05070 DSA BR00 LOGIC 05080 DCW @BAV @ LOGIC 05090 DSA BAV00 LOGIC 05100 DCW @BBE @ LOGIC 05110 DSA BBE00 LOGIC 05120 DCW @BCE @ LOGIC 05130 DSA BCE00 LOGIC 05140 DCW @BCV @ LOGIC 05150 DSA BCV00 LOGIC 05160 DCW @BC9 @ LOGIC 05170 DSA BC900 LOGIC 05180 DCW @BE @ LOGIC 05190 DSA BE00 LOGIC 05200 DCW @BH @ LOGIC 05210 DSA BH00 LOGIC 05220 DCW @BIN @ LOGIC 05230 DSA BIN00 LOGIC 05240 DCW @BL @ LOGIC 05250 DSA BL00 LOGIC 06010 DCW @BM @ LOGIC 06020 DSA BM00 LOGIC 06030 DCW @BSS @ LOGIC 06040 DSA BSS00 LOGIC 06050 DCW @BU @ LOGIC 06060 DSA BU00 LOGIC 06070 DCW @BW @ LOGIC 06080 DSA BW00 LOGIC 06090 DCW @BWZ @ LOGIC 06100 DSA BWZ00 LOGIC 06110 DCW @C @ LOGIC 06120 DSA C00 LOGIC 06130 ORG LOGIC7 LOGIC 06140 DA 16X8,X1 LOGIC 06150LOGIC8 1,5 LOGIC 06160LOGIC9 6,8 LOGIC 06170 SKIPN LOGIC 06180* LOGIC 06190** BRANCH/COMPARE NOT TRANSLATABLE LOGIC 06200* LOGIC 06210NOBR B CODEIT LOGIC 06220 DCW @4/@ LOGIC 06230 B NOTRAN&6 LOGIC 06240* LOGIC 06250** BRANCH UNCONDITIONAL ENTRY LOGIC 07010* LOGIC 07020BR00 MLC @BAL@,OP360-2 LOGIC 07030 MLC @11,@,OPR360&2 LOGIC 07040 BCE BR02,TYPE-3,* Q. ASTERISK ADJUSTMENT LOGIC 07050 BCE BR01,AADJ, Q. NO ADJUSTMENT LOGIC 07060 B BR03 LOGIC 07070BR01 MLC AOPRND,OPR360&9 LOGIC 07080 B REV19 LOGIC 07090 BCE BR04,AOPRND,* Q. ACTUAL ADDRESS LOGIC 07100 BWZ BR04,AOPRND-6,2 LOGIC 07110 BCE PUTD,AOPRND, LOGIC 07120* LOGIC 07130BR04 B CODEIT LOGIC 07140 DCW @2/@ LOGIC 07150 B PUTD LOGIC 07160BR02 MLC @$$$@,OPR360&5 INSERT GENERATED LABEL LOGIC 07170 A *-6,GENLBL LOGIC 07180 MLC GENLBL,OPR360&8 LOGIC 07190 MLC OPR360&9,AOPRND LOGIC 07200BR05 B REV19 LOGIC 07210 B WRITED LOGIC 07220 B CODEIT LOGIC 07230 DCW @1@ LOGIC 07240 DCW @U/@ LOGIC 07250 MLC @EQU *@,OPR360 LOGIC 08010 MLC LOGIC 08020 MLC GENLBL,NAM360-2 LOGIC 08030 MLC @$$$@,NAM360-5 LOGIC 08040 B PUTD LOGIC 08050BR03 B CODEIT LOGIC 08060 DCW @P/@ LOGIC 08070 B BR01 LOGIC 08080* LOGIC 08090** BRANCH IF ARITHMETIC OVERFLOW ENTRY LOGIC 08100* LOGIC 08110BAV00 MLC @14,*&8@,OPR360&5 LOGIC 08120 MLC @BC@,OP360-3 LOGIC 08130 B REV19 LOGIC 08140 B WRITED LOGIC 08150 B BR00 UTILIZE B EXPANSION LOGIC 08160 SKIPN LOGIC 08170* LOGIC 08180** BRANCH IF BIT EQUAL ENTRY LOGIC 08190* LOGIC 08200BBE00 BCE NOBR,BOPRND-6, Q. CHAINING LOGIC 08210 MLC @TM@,OP360-3 LOGIC 08220 MLC AADJ,SVIADR#11 STORE I-OPERAND LOGIC 08230 CHAIN2 LOGIC 08240 MLC @ @,AADJ LOGIC 08250 CHAIN2 LOGIC 09010 B SEARCH SCAN DATA NAME TABLE LOGIC 09020 BW *&5,SRCH95 Q. B-OPERAND UNDEFINED LOGIC 09030 B BBE03 YES LOGIC 09040 BCE BBE04,SRCH97,P Q. B-OPERAND PACKED DECIMAL LOGIC 09050BBE01 MLC @C@ @@,AOPRND-3 LOGIC 09060 MLC DMOD,AOPRND-4 LOGIC 09070BBE02 ZA BADJ,BBE90#3 LOGIC 09075 A &000,BBE90 LOGIC 09080 BCE *&15,SRCH97,D Q. B-OPERAND NAME REFERS TO LOGIC 09090* HIGH-ORDER LOCATION LOGIC 09100 A SRCH92,BBE90 NO LOGIC 09110 S @1@,BBE90 LOGIC 09120 MLC BOPRND,OPR360&6 LOGIC 09130 SBR X1,OPR360&1 LOGIC 09140BBE05 BCE BBE06,0&X1, LOGIC 09150 SBR X1,1&X1 LOGIC 09160 B BBE05 LOGIC 09170BBE06 C BBE90,&000 LOGIC 09180 BE BBE07 LOGIC 09190 MZ BBE90,0&X1 LOGIC 09200 MLNS BBE90,3&X1 LOGIC 09210 MLC LOGIC 09220 SBR X1,4&X1 LOGIC 09230BBE07 BCE BBE08,BIND, Q. B-OPERAND INDEXED LOGIC 09240 B BBE09 YES LOGIC 09250BBE08 MLC @,@,0&X1 NO LOGIC 10010 MLC AOPRND,7&X1 LOGIC 10020 B REV19 LOGIC 10030 B WRITED LOGIC 10040 MLC SVIADR,AADJ RESTORE I-OPERAND LOGIC 10050 CHAIN2 LOGIC 10060 B BAV00 UTILIZE BAV EXPANSION LOGIC 10070* LOGIC 10080BBE03 B CODEIT UNDEFINED B-OPERAND LOGIC 10090 DCW @5/@ LOGIC 10100 B BBE01 TREAT AS ZONED DECIMAL LOGIC 10110* LOGIC 10120BBE04 MLC @X@ 0@@,AOPRND-2 PACKED DECIMAL OPERAND LOGIC 10130 MLNS DMOD,AOPRND-4 LOGIC 10140 B BBE02 LOGIC 10150* LOGIC 10160BBE09 MLC 0&X1,2&X1 INDEXED OPERAND LOGIC 10170 MLC @5,@,OPR360&1 LOGIC 10180 MLC @LA @,OP360 LOGIC 10190 B REV19 LOGIC 10200 B CODEIT LOGIC 10210 DCW @1/@ LOGIC 10220 B WRITED LOGIC 10230 MLC BIND,OPR360&2 LOGIC 10240 BCE *&5,BIND,1 Q. X1 REFERENCE LOGIC 10250 B *&8 NO LOGIC 11010 MLC @4@,OPR360&2 YES LOGIC 11020 MLC @5,@,OPR360&1 LOGIC 11030 MLC @AR@,OP360-3 LOGIC 11040 B CODEIT LOGIC 11050 DCW @1/@ LOGIC 11060 B WRITED LOGIC 11070 MLC @0%5)@,OPR360&3 LOGIC 11080 SBR X1,OPR360&4 LOGIC 11090 MLC @TM@,OP360-3 LOGIC 11100 B BBE08 LOGIC 11110 SKIPN LOGIC 11120* LOGIC 11130** BRANCH IF CHARACTER EQUAL ENTRY LOGIC 11140* LOGIC 11150BCE00 BCE NOBR,BOPRND-6, Q. CHAINING LOGIC 11160 MLC @CLI@,OP360-2 LOGIC 11170 MLC AADJ,SVIADR STORE I-OPERAND LOGIC 11180 CHAIN2 LOGIC 11190 MCW @ @,AADJ LOGIC 11200 CHAIN2 LOGIC 11210 B SEARCH SCAN DATA NAME TABLE LOGIC 11220 BW *&5,SRCH95 Q. B-OPERAND UNDEFINED LOGIC 11230 B BCE03 YES LOGIC 11240 BCE BCE04,SRCH97,P Q. B-OPERAND PACKED DECIMAL LOGIC 11250BCE01 MLC @C@ @@,AOPRND-3 LOGIC 12010 MLC DMOD,AOPRND-4 LOGIC 12020 MLC @D@,REV79 LOGIC 12030BCE02 ZA BADJ,BCE90#3 LOGIC 12035 A &000,BCE90 LOGIC 12040 BCE *&15,SRCH97,D Q. B-OPERAND REFERS TO LOGIC 12050* HIGH-ORDER LOCATION LOGIC 12060 A SRCH92,BCE90 NO LOGIC 12070 S @1@,BCE90 LOGIC 12080 MLC BOPRND,OPR360&6 LOGIC 12090 SBR X1,OPR360&1 LOGIC 12100BCE05 BCE BCE06,0&X1, LOGIC 12110 SBR X1,1&X1 LOGIC 12120 B BCE05 LOGIC 12130BCE06 C BCE90,&000 LOGIC 12140 BE BCE07 LOGIC 12150 MLZS BCE90,0&X1 LOGIC 12160 MLNS BCE90,3&X1 LOGIC 12170 MLC LOGIC 12180 SBR X1,4&X1 LOGIC 12190BCE07 BCE BCE08,BIND, Q. B-OPERAND INDEXED LOGIC 12200 B BCE09 YES LOGIC 12210BCE08 MLC @,@,0&X1 NO LOGIC 12220 MLC AOPRND,7&X1 LOGIC 12230 B REV19 LOGIC 12240 B WRITED LOGIC 12250 MLC @ @,REV79 LOGIC 13010 MLC SVIADR,AADJ LOGIC 13020 CHAIN2 LOGIC 13030 MLC @*&8@,OPR360&2 LOGIC 13040 MLC @BNE@,OP360-2 LOGIC 13050 B WRITED LOGIC 13060 B BR00 UTILIZE B EXPANSION LOGIC 13070* LOGIC 13080BCE09 MLC 0&X1,2&X1 INDEXED OPERAND LOGIC 13090 MLC @5,@,OPR360&1 LOGIC 13100 MLC @LA @,OP360 LOGIC 13110 B REV19 LOGIC 13120 B CODEIT LOGIC 13130 DCW @1/@ LOGIC 13140 B WRITED LOGIC 13150 MLC BIND,OPR360&2 LOGIC 13160 BCE *&5,BIND,1 Q. X1 REFERENCE LOGIC 13170 B *&8 NO LOGIC 13180 MLC @4@,OPR360&2 YES LOGIC 13190 MLC @5,@,OPR360&1 LOGIC 13200 MLC @AR@,OP360-3 LOGIC 13210 B CODEIT LOGIC 13220 DCW @1/@ LOGIC 13230 B WRITED LOGIC 13240 MLC @0%5)@,OPR360&3 LOGIC 13250 SBR X1,OPR360&4 LOGIC 14010 MLC @CLI@,OP360-2 LOGIC 14020 B BCE08 LOGIC 14030* LOGIC 14040BCE03 B CODEIT UNDEFINED B-OPERAND LOGIC 14050 DCW @5/@ LOGIC 14060 B BCE01 TREAT AS ZONED DECIMAL LOGIC 14070* LOGIC 14080BCE04 MLC @X@ C@@,AOPRND-2 PACKED OPERAND LOGIC 14090 MLNS DMOD,AOPRND-4 LOGIC 14100 B BCE02 LOGIC 14110 SKIPN LOGIC 14120* LOGIC 14130** BRANCH IF CARRIAGE CONTROL INDICATOR ON ENTRY LOGIC 14140* LOGIC 14150BCV00 MLC PRDTF,OPR360&6 CHANNEL 12 TEST LOGIC 14160 SBR X1,OPR360 LOGIC 14170BCV01 BCE BCV02,0&X1, LOGIC 14180 SBR X1,1&X1 LOGIC 14190 B BCV01 LOGIC 14200BCV02 MLC AOPRND-1,9&X1 LOGIC 14210 MLC @,12,@ LOGIC 14220BCV03 MLC @PRTOV@,OP360 LOGIC 14230 BCE *&7,AADJ, LOGIC 14240 B CODEIT LOGIC 14250 DCW @9/@ LOGIC 15010 BCE BCV04,TYPE-3,* Q. ASTERISK ADJUSTMENT LOGIC 15020 B REV19 LOGIC 15030 B PUTD LOGIC 15040* LOGIC 15050BCV04 MLC @$$$@,6&X1 LOGIC 15060 A *-6,GENLBL LOGIC 15070 MLC GENLBL,9&X1 LOGIC 15080 B BR05 LOGIC 15090* LOGIC 15100BC900 MLC PRDTF,OPR360&6 CHANNEL 9 TEST LOGIC 15110 SBR X1,OPR360 LOGIC 15120BC901 BCE BC902,0&X1, LOGIC 15130 SBR X1,1&X1 LOGIC 15140 B BC901 LOGIC 15150BC902 MLC AOPRND-1,8&X1 LOGIC 15160 MLC @,9,@ LOGIC 15170 MLC @PRTOV@,OP360 LOGIC 15180 BCE *&7,AADJ, LOGIC 15190 B CODEIT LOGIC 15200 DCW @9/@ LOGIC 15210 BCE BC903,TYPE-3,* Q. ASTERISK ADJUSTMENT LOGIC 15220 B REV19 LOGIC 15230 B PUTD LOGIC 15240* LOGIC 15250BC903 MLC @$$$@,5&X1 LOGIC 16010 A *-6,GENLBL LOGIC 16020 MLC GENLBL,8&X1 LOGIC 16030 B BR05 LOGIC 16040 SKIPN LOGIC 16050* LOGIC 16060** BRANCH EQUAL COMPARE ENTRY LOGIC 16070* LOGIC 16080BE00 MLC @*&8@,OPR360&2 LOGIC 16090 MLC @BNE@,OP360-2 LOGIC 16100 B REV19 LOGIC 16110 B WRITED LOGIC 16120 B BR00 UTILIZE B EXPANSION LOGIC 16130* LOGIC 16140** BRANCH HIGH COMPARE ENTRY LOGIC 16150* LOGIC 16160BH00 MLC @*&8@,OPR360&2 LOGIC 16170 MLC @BNH@,OP360-2 LOGIC 16180 B REV19 LOGIC 16190 B WRITED LOGIC 16200 B BR00 UTILIZE B EXPANSION LOGIC 16210* LOGIC 16220** BRANCH LOW COMPARE ENTRY LOGIC 16230* LOGIC 16240BL00 MLC @BNL@,OP360-2 LOGIC 16250 MLC @*&8@,OPR360&2 LOGIC 17010 B REV19 LOGIC 17020 B WRITED LOGIC 17030 B BR00 UTILIZE B EXPANSION LOGIC 17040* LOGIC 17050** BRANCH UNEQUAL COMPARE ENTRY LOGIC 17060* LOGIC 17070BU00 MLC @BE@,OP360-3 LOGIC 17080 MLC @*&8@,OPR360&2 LOGIC 17090 B REV19 LOGIC 17100 B WRITED LOGIC 17110 B BR00 UTILIZE B EXPANSION LOGIC 17120 SKIPN LOGIC 17130* LOGIC 17140** BRANCH IF INDICATOR ON ENTRY LOGIC 17150* LOGIC 17160BIN00 BCE BC900,DMOD,9 Q. CARRIAGE CHANNEL 9 TEST LOGIC 17170 BCE BCV00,DMOD,@ Q. CARRIAGE CHANNEL 12 TEST LOGIC 17180 MLC DMOD,*&8 LOGIC 17190 BCE BSS00,@BCDEFG@, Q. BRANCH IF SENSE SWITCH LOGIC 17200 CHAIN5 LOGIC 17210 BCE BNQ00,DMOD,Q Q. INQUIRY TEST LOGIC 17220 BCE BPROC,DMOD,% Q. PROCESS ERROR TEST LOGIC 17230 BCE BE00,DMOD,S Q. EQUAL COMPARE TEST LOGIC 17240 BCE BH00,DMOD,U Q. HIGH COMPARE TEST LOGIC 17250 BCE BL00,DMOD,T Q. LOW COMPARE TEST LOGIC 18010 BCE BU00,DMOD,/ Q. UNEQUAL COMPARE TEST LOGIC 18020 B NOTRAN LOGIC 18030 SKIPN LOGIC 18040* LOGIC 18050** BRANCH IF SENSE SWITCH ON ENTRY LOGIC 18060* LOGIC 18070BSS00 BCE BSS02,DMOD,B LOGIC 18080 BCE BSS03,DMOD,C LOGIC 18090 BCE BSS04,DMOD,D LOGIC 18100 BCE BSS05,DMOD,E LOGIC 18110 BCE BSS06,DMOD,F LOGIC 18120 MLC @02@,BSS90-1 SENSE SWITCH G LOGIC 18130 BCE *&5,DMOD,G LOGIC 18140 B NOTRAN LOGIC 18150BSS01 MLC @COMRG@,OP360 LOGIC 18160 B REV19 LOGIC 18170 B WRITED LOGIC 18180 MLC @TM@,OP360-3 LOGIC 18190 MLC BSS90,OPR360&10 LOGIC 18200 B WRITED LOGIC 18210 B BAV00 USE BAV EXPANSION LOGIC 18220* LOGIC 18230BSS02 MLC @40@,BSS90-1 SENSE SWITCH B LOGIC 18240 B BSS01 LOGIC 18250BSS03 MLC @20@,BSS90-1 SENSE SWITCH C LOGIC 19010 B BSS01 LOGIC 19020BSS04 MLC @10@,BSS90-1 SENSE SWITCH D LOGIC 19030 B BSS01 LOGIC 19040BSS05 MLC @08@,BSS90-1 SENSE SWITCH E LOGIC 19050 B BSS01 LOGIC 19060BSS06 MLC @04@,BSS90-1 SENSE SWITCH F LOGIC 19070 B BSS01 LOGIC 19080* LOGIC 19090BSS90 DCW @23%1),X@ @@ LOGIC 19100 SKIPN LOGIC 19110* LOGIC 19120** BRANCH IF CONSOLE REQUEST ENTRY LOGIC 19130* LOGIC 19140BNQ00 SBR X1,0 LOGIC 19150 BSS STXIT1,D Q. DOS/TOS OUTPUT LOGIC 19160BNQ01 BCE BNQ02,OPR14&1&X1,, Q. END OF OPERAND LOGIC 19170 SBR X1,1&X1 LOGIC 19180 B BNQ01 LOGIC 19190BNQ02 MLC OPR14&X1,OPR360&5&X1 LOGIC 19200 MLC @11,,,@ LOGIC 19210 MLC @STXIT@,OP360 LOGIC 19220 B REV19 LOGIC 19230 B PUTD LOGIC 19240* LOGIC 19250** BRANCH IF PROCESS CHECK TEST ENTRY LOGIC 20010* LOGIC 20020BPROC SBR X1,0 LOGIC 20030 BSS STXIT2,D Q. DOS/TOS OUTPUT LOGIC 20040BPR00 BCE BPR01,OPR14&1&X1,, LOGIC 20050 SBR X1,1&X1 LOGIC 20060 B BPR00 LOGIC 20070BPR01 MLC OPR14&X1,OPR360&3&X1 LOGIC 20080 MLC @11,@ LOGIC 20090 MLC @STXIT@,OP360 LOGIC 20100 B REV19 LOGIC 20110 B PUTD LOGIC 20120* LOGIC 20130** DOS STXIT ROUTINES LOGIC 20140* LOGIC 20150STXIT1 MLC @OC,@,OPR360&2 INQUIRY REQUEST ENTRY LOGIC 20160 B *&8 LOGIC 20170STXIT2 MLC @PC,@,OPR360&2 PROCESS ERROR ENTRY LOGIC 20180STXIT3 BCE STXIT4,OPR14&1&X1,, LOGIC 20190 SBR X1,1&X1 LOGIC 20200 B STXIT3 LOGIC 20210STXIT4 MLC CON1,OPR360&9&X1 LOGIC 20220 MLC @,@ LOGIC 20230 MLC OPR14&X1 LOGIC 20240 B CODEIT LOGIC 20250 DCW @2/@ LOGIC 21010 MLC @STXIT@,OP360 LOGIC 21020 B REV19 LOGIC 21030 B PUTD LOGIC 21040 SKIPN LOGIC 21050* LOGIC 21060** BRANCH IF MINUS ZONE ENTRY LOGIC 21070* LOGIC 21080BM00 BCE NOBR,BOPRND-6, Q. CHAINED LOGIC 21090 B SEARCH SCAN DATA NAME TABLE LOGIC 21100 BW *&5,SRCH95 Q. B-OPERAND UNDEFINED LOGIC 21110 B BM04 YES LOGIC 21120 BCE BM05,SRCH97,P Q. B-OPERAND PACKED DECIMAL LOGIC 21130BM01 MLC @20@,BZN91-1 LOGIC 21140BM02 MLC BM90&3,BZN04&3 MODIFY BRANCH AT BZN04 LOGIC 21150 B BZN00 LOGIC 21160BM03 MLC @N@,BZN04 LOGIC 21170 MLC @*&16@,OPR360&3 LOGIC 21180 B REV19 LOGIC 21190 MLC @BO@,OP360-3 LOGIC 21200 B WRITED LOGIC 21210 BCE BM06,SRCH97,P LOGIC 21220 MLC @D@,BZN91-2 LOGIC 21230 B BZN00 LOGIC 21240* LOGIC 21250BM04 B CODEIT UNDEFINED B-OPERAND LOGIC 22010 DCW @5/@ LOGIC 22020 B BM01 TREAT AS ZONED DECIMAL LOGIC 22030* LOGIC 22040BM05 MLC @02@,BZN91-1 PACKED DECIMAL B-OPERAND LOGIC 22050 B BM02 LOGIC 22060BM06 MLC @D@,BZN91-1 LOGIC 22070 B BZN00 LOGIC 22080BM90 B BM03 LOGIC 22090 SKIPN LOGIC 22100* LOGIC 22110** BRANCH IF WORD MARK ENTRY LOGIC 22120* LOGIC 22130BW00 BCE NOBR,BOPRND-6, Q. CHAINED LOGIC 22140 B SEARCH SCAN DATA NAME TABLE LOGIC 22150 BW *&5,SRCH95 Q. B-OPERAND UNDEFINED LOGIC 22160 B BW02 YES LOGIC 22170BW01 MLC @01@,BZN91-1 LOGIC 22180 B CODEIT WORD MARK CAUTION LOGIC 22190 DCW @A/@ LOGIC 22200 B BZN00 LOGIC 22210* LOGIC 22220BW02 B CODEIT UNDEFINED B-OPERAND LOGIC 22230 DCW @5/@ LOGIC 22240 B BW01 LOGIC 22250* LOGIC 23010** BRANCH IF WORD MARK OR ZONE ENTRY LOGIC 23020* LOGIC 23030BWZ00 BCE BW00,DMOD,1 Q. WORD-MARK TEST LOGIC 23040 BCE BM00,DMOD,K Q. MINUS TEST LOGIC 23050 BCE BWZ01,DMOD,S Q. ZERO-ZONE TEST LOGIC 23060 BCE BWZ06,DMOD,B Q. TWELVE-ZONE TEST LOGIC 23070 BCE BWZ13,DMOD,2 Q. NO-ZONE TEST LOGIC 23080 BCE NOBR,BOPRND-6, Q. B-OPERAND PRESENT LOGIC 23090 B SEARCH YES LOGIC 23100 BW *&7,SRCH95 Q. B-OPERAND DEFINED LOGIC 23110 B CODEIT NO--ISSUE WARNING LOGIC 23120 DCW @5/@ LOGIC 23130 MLC @01@,BZN91-1 LOGIC 23140 B CODEIT LOGIC 23150 DCW @A/@ LOGIC 23160 MLC BWZ92&3,BZN04&3 SET UP RETURN FROM BZN00 LOGIC 23170 B BZN00 LOGIC 23180BWZ16 MLC @N@,BZN04 LOGIC 23190 MLC @14,*&20@,OPR360&6 LOGIC 23200 MLC @BC@,OP360-3 LOGIC 23210 BCE *&5,DMOD,3 Q. WORD-MARK & NO-ZONE TEST LOGIC 23220 B BWZ17 NO LOGIC 23230 MLC @12@,OPR360&6 LOGIC 23240 B WRITED LOGIC 23250 B BWZ13 LOGIC 24010* LOGIC 24020BWZ17 B WRITED LOGIC 24030 BCE BWZ01,DMOD,T Q. ZERO-ZONE OR WD/MRK TEST LOGIC 24040 BCE BWZ06,DMOD,C Q. 12-ZONE OR WORD MRK TEST LOGIC 24050 BCE BWZ13,DMOD,3 Q. NO-ZONE OR WORD MRK TEST LOGIC 24060 BCE BM00,DMOD,L Q. MINUS OR WORD MARK TEST LOGIC 24070 B NOTRAN LOGIC 24080* LOGIC 24090BWZ01 BCE NOBR,BOPRND-6, BRANCH IF ZERO-ZONE LOGIC 24100 B SEARCH LOGIC 24110 BW *&5,SRCH95 Q. B-OPERAND DEFINED LOGIC 24120 B BWZ05 NO LOGIC 24130 BCE NOBR,SRCH97,P Q. B-OPERAND TYPE DECIMAL LOGIC 24140BWZ02 MLC @10@,BZN91-1 NO LOGIC 24150BWZ03 MLC BWZ90&3,BZN04&3 MODIFY BRANCH AT BZN04 LOGIC 24160 B BZN00 LOGIC 24170BWZ04 MLC @N@,BZN04 NOP BZN04 LOGIC 24180 MLC @*&16@,OPR360&3 LOGIC 24190 MLC @BO@,OP360-3 LOGIC 24200 B WRITED LOGIC 24210 MLC @E@,BZN91-2 LOGIC 24220 B BZN00 LOGIC 24230BWZ05 B CODEIT LOGIC 24240 DCW @5/@ LOGIC 24250 B BWZ02 LOGIC 25010* LOGIC 25020BWZ06 BCE NOBR,BOPRND-6, BRANCH IF TWELVE-ZONE LOGIC 25030 B SEARCH LOGIC 25040 BW *&5,SRCH95 Q. B-OPERAND DEFINED LOGIC 25050 B BWZ10 NO LOGIC 25060 BCE BWZ11,SRCH97,P Q. B-OPERAND TYPE DECIMAL LOGIC 25070BWZ07 MLC @30@,BZN91-1 NO LOGIC 25080BWZ08 MLC BWZ91&3,BZN04&3 MODIFY BRANCH AT BZN04 LOGIC 25090 B BZN00 LOGIC 25100BWZ09 MLC @N@,BZN04 LOGIC 25110 MLC @7,*&16@,OPR360&5 LOGIC 25120 MLC @BC@,OP360-3 LOGIC 25130 B WRITED LOGIC 25140 BCE BWZ12,SRCH97,P LOGIC 25150 MLC @C@,BZN91-2 LOGIC 25160 B BZN00 LOGIC 25170BWZ10 B CODEIT UNDEFINED B-OPERAND LOGIC 25180 DCW @5/@ LOGIC 25190 B BWZ07 TREAT AS ZONED DECIMAL LOGIC 25200BWZ11 MLC @03@,BZN91-1 PACKED DECIMAL B-OPERAND LOGIC 25210 B BWZ08 LOGIC 25220BWZ12 MLC @C@,BZN91-1 LOGIC 25230 B BZN00 LOGIC 25240* LOGIC 25250BWZ13 BCE NOBR,BOPRND-6, NO-ZONE TEST LOGIC 26010 B SEARCH LOGIC 26020 BW *&5,SRCH95 Q. B-OPERAND DEFINED LOGIC 26030 B BWZ15 NO LOGIC 26040 BCE NOBR,SRCH97,P Q. B-OPERAND TYPE DECIMAL LOGIC 26050BWZ14 MLC @F0@,BZN91-1 NO LOGIC 26060 MLC @N@,BZN04 LOGIC 26070 B BZN00 LOGIC 26080BWZ15 B CODEIT LOGIC 26090 DCW @5/@ LOGIC 26100 B BWZ14 LOGIC 26110* LOGIC 26120BWZ90 B BWZ04 LOGIC 26130BWZ91 B BWZ09 LOGIC 26140BWZ92 B BWZ16 LOGIC 26150 SKIPN LOGIC 26160* LOGIC 26170** COMMON BRANCH IF ZONE ENTRY LOGIC 26180* LOGIC 26190BZN07 MLC SRCH92,BZN90 LOGIC 26200 S @1@,BZN90 LOGIC 26210 A BADJ,BZN90 LOGIC 26220 MLC BOPRND,OPR360&8 LOGIC 26230 MLC @5,@ LOGIC 26240 MLC @LA @,OP360 LOGIC 26250 SBR X1,OPR360 LOGIC 27010BZN08 BCE BZN09,0&X1, LOGIC 27020 SBR X1,1&X1 LOGIC 27030 B BZN08 LOGIC 27040BZN09 C BZN90,&00 LOGIC 27050 BE *&16 LOGIC 27060 MLZS BZN90,0&X1 LOGIC 27070 MLNS BZN90,2&X1 LOGIC 27080 MLNS LOGIC 27090 B REV19 LOGIC 27100 B CODEIT LOGIC 27110 DCW @1/@ LOGIC 27120 B WRITED LOGIC 27130 MLC BIND,OPR360&2 LOGIC 27140 BCE *&5,BIND,1 Q. X1 REFERENCE LOGIC 27150 B *&8 NO LOGIC 27160 MLC @4@,OPR360&2 YES LOGIC 27170 MLC @5,@,OPR360&1 LOGIC 27180 MLC @AR@,OP360-3 LOGIC 27190 B CODEIT LOGIC 27200 DCW @1/@ LOGIC 27210 B WRITED LOGIC 27220 MLC BLANKS,BADJ LOGIC 27230 CHAIN2 LOGIC 27240 MLC @0%5)@,BOPRND-3 LOGIC 27250BZN00 BCE *&12,BIND, Q. B-OPERAND INDEXED LOGIC 28010 MLC @D@,SRCH97 LOGIC 28020 B BZN07 YES LOGIC 28030 MLC BOPRND,OPR360&6 NO LOGIC 28040 SBR X1,OPR360 LOGIC 28050BZN01 BCE BZN02,0&X1, FIND RIGHT END OF B-LABEL LOGIC 28060 SBR X1,1&X1 LOGIC 28070 B BZN01 LOGIC 28080BZN02 BW *&5,SRCH95 Q. NO B-OPERAND DEFINED LOGIC 28090 B BZN05 YES LOGIC 28100 BCE BZN10,SRCH97,D Q. B-OPERAND REFERS TO LOGIC 28110* HIGH-ORDER LOCATION LOGIC 28120 MLC SRCH92,BZN90 COMPUTE LOGIC 28130 S @1@,BZN90 OPERAND LOGIC 28140 A BADJ,BZN90 ADJUSTMENT LOGIC 28150BZN11 C BZN90,&00 LOGIC 28160 BE BZN06 LOGIC 28170 BM BZN06,BZN90 LOGIC 28180 MLZS *-4,BZN90 LOGIC 28190 MLC BZN91,8&X1 LOGIC 28200 CHAIN3 LOGIC 28210BZN03 MLC @TM@,OP360-3 LOGIC 28220 B REV19 LOGIC 28230 B WRITED LOGIC 28240BZN04 NOP BM03 BM EXIT FOR DOUBLE TM LOGIC 28250 MLC @14,*&8@,OPR360&5 LOGIC 29010 MLC @BC@,OP360-3 LOGIC 29020 B REV19 LOGIC 29030 B WRITED LOGIC 29040 B BR00 UTILIZE B EXPANSION LOGIC 29050* LOGIC 29060BZN05 B CODEIT LOGIC 29070 DCW @B/@ LOGIC 29080BZN06 MLC BZN91,5&X1 LOGIC 29090 MLC LOGIC 29100 B BZN03 LOGIC 29102* LOGIC 29104BZN10 A @0@,BADJ LOGIC 29106 ZA BADJ,BZN90 LOGIC 29108 B BZN11 LOGIC 29110* LOGIC 29120 DCW @&@ LOGIC 29130BZN90 DCW 00 LOGIC 29140 DCW @,@ LOGIC 29150BZN91 DCW @X@ @@ LOGIC 29160 SKIPN LOGIC 29170* LOGIC 29180** COMPARE ENTRY LOGIC 29190* LOGIC 29200C00 BCE NOBR,BOPRND-6, Q. CHAINING LOGIC 29210 BCE C11,BOPRND-6,X Q. POSSIBLE INDEX REG REFER LOGIC 29220C10 EQU *&1 LOGIC 29230 B SEARCH SCAN DATA NAME TABLE LOGIC 29240 BW C03,SRCH90 Q. UNDEFINED OPERAND LOGIC 29250 BW C04,SRCH93 Q. OPERANDS OF DIFF CLASSES LOGIC 30010 BCE C05,SRCH94,P Q. DECIMAL COMPARE LOGIC 30020C01 BCE *&13,SRCH94,D Q. A-OPERAND REFERS TO LOGIC 30030* HIGH-ORDER LOCATION LOGIC 30040 BCE *&5,AADJ, LOGIC 30050 B C17 LOGIC 30060 BCE *&13,SRCH97,D Q. B-OPERAND REFERS TO LOGIC 30070* HIGH-ORDER LOCATION LOGIC 30080 BCE *&5,BADJ, LOGIC 30090 B C19 LOGIC 30100C16 MLC @CLC@,OP360-2 LOGIC 30110 ZA SRCH92,REV92 LOGIC 30120 C SRCH91,SRCH92 LOGIC 30130 BH C08 B-OPERAND LONGER LOGIC 30140 BL C22 B-OPERAND SHORTER LOGIC 30150C15 BCE C02,SRCH97,D Q. B-OPERAND REFERS TO LOGIC 30160* HIGH-ORDER LOCATION LOGIC 30170 BCE C02,BADJ, LOGIC 30180 A BADJ,REV92 LOGIC 30190 SW REV80 LOGIC 30200C02 B REVERS LOGIC 30210 B PUTD LOGIC 30220* LOGIC 30230C03 B CODEIT INDICATE UNDEFINED OPERAND LOGIC 30240 DCW @5/@ LOGIC 30250 MLC @CLC@,OP360-2 LOGIC 31010 BW C15,SRCH95 Q. B-OPERAND DEFINED LOGIC 31020 ZA SRCH91,REV92 NO--USE A-OPERAND LENGTH LOGIC 31030 SW REV80 LOGIC 31040 B C15 LOGIC 31050* LOGIC 31060C04 B CODEIT INDICATE CLASS DIFFERENCE LOGIC 31070 DCW @6/@ LOGIC 31080 B C01 TREAT AS ZONED LOGIC 31090* LOGIC 31100C05 MLC @CP@,OP360-3 LOGIC 31110 BCE C07,AADJ, LOGIC 31120C06 B CODEIT LOGIC 31130 DCW @C/@ LOGIC 31140 B C16 LOGIC 31150C07 BCE *&5,BADJ, LOGIC 31160 B C06 LOGIC 31170 SW REV95 LOGIC 31180 B C02 LOGIC 31190C08 ZA SRCH92,REV93 B-OPERAND LONGER LOGIC 31200 S SRCH91,REV93 COMPUTE OPRND-1 ADJUSTMNT LOGIC 31210 MLC SRCH91,REV92 MOVE IN OPERAND-1 LENGTH LOGIC 31220 SW REV80,REV90 LOGIC 31230 BCE C15,BADJ, LOGIC 31240 CW REV90 LOGIC 31250 B C15 LOGIC 32010* LOGIC 32020C22 BCE C15,SRCH94,D Q. A-OPERAND REFERS TO LOGIC 32030* HIGH-ORDER LOCATION LOGIC 32040C09 ZA SRCH91,REV91 A-OPERAND LONGER LOGIC 32050 S SRCH92,REV91 COMPUTE OPRND-2 ADJUSTMNT LOGIC 32060 SW REV94 LOGIC 32070 B C15 LOGIC 32080* LOGIC 32090C11 C BOPRND-4,@X3 @ LOGIC 32100 BE C12 LOGIC 32110 C BOPRND-4,@X2 @ LOGIC 32120 BE C12 LOGIC 32130 C BOPRND-4,@X1 @ LOGIC 32140 BU C10 NOT A REGISTER REFERENCE LOGIC 32150 MLC @4@,BOPRND-5 LOGIC 32160C12 C AOPRND-4,@X3 @ LOGIC 32170 BE C13 LOGIC 32180 C AOPRND-4,@X2 @ LOGIC 32190 BE C13 LOGIC 32200 C AOPRND-4,@X1 @ LOGIC 32210 BU C14 LOGIC 32220 MLC @4@,AOPRND-5 LOGIC 32230C13 MLC @CR@,OP360-3 REGISTER TO REGISTER COMPAR LOGIC 32240 MLNS BOPRND-5,OPR360 LOGIC 32250 MLC @,@,OPR360&1 LOGIC 33010 MLNS AOPRND-5,OPR360&2 LOGIC 33020 B REVERS LOGIC 33030 B PUTD LOGIC 33040C14 MLC @C@,OP360-4 REGISTER TO STORAGE COMPARE LOGIC 33050 MLC BOPRND-5,C90#1 LOGIC 33060 MLC BLANKS,BADJ LOGIC 33070 CHAIN2 LOGIC 33080 MLC C90,BOPRND-6 LOGIC 33090 B REVERS LOGIC 33100 B CODEIT LOGIC 33110 DCW @F/@ LOGIC 33120 B PUTD LOGIC 33130* LOGIC 33140C17 A AADJ,SRCH91 LOGIC 33150 MLC @ @,AADJ LOGIC 33160 BM C18,SRCH91 LOGIC 33170 C SRCH91,&000 LOGIC 33180 BU *&8 LOGIC 33190C18 MLC @001@,SRCH91 LOGIC 33200 MLZS *-4,SRCH91 LOGIC 33210 BCE *&5,BOPRND, LOGIC 33220 B C21 LOGIC 33230C19 A BADJ,SRCH92 LOGIC 33240 MLC @ @,BADJ LOGIC 33250 BM C20,SRCH92 LOGIC 34010 C SRCH92,&000 LOGIC 34020 BU *&8 LOGIC 34030C20 MLC @001@,SRCH92 LOGIC 34040 MLZS *-4,SRCH92 LOGIC 34050C21 SW REV80 LOGIC 34060 MLC SRCH92,REV92 LOGIC 34070 B C16 LOGIC 34080******************************************************************* LOGIC 34090 EX LOGIC LOGIC 01010 JOB MISCELLANEOUS INSTRUCTION TRANSLATION ROUTINES MISC 01020 ORG COMMON MISC 01030******************************************************************* MISC 01040********************* MISCELLANEOUS OPERATIONS ******************** MISC 01050******************************************************************* MISC 01060* * * MISC 01070* CC 1 * CNTRL PRNT360,SK,1 * MISC 01080* CC S * CNTRL PRNT360,SP,,2 * MISC 01090* CCB PROG,L * CNTRL PRNT360,SP,3 * MISC 01100* * BAL 11,PROG * MISC 01110* CS 320 * MVI PRTAREA,C@ @ * MISC 01120* * MVC PRTAREA&1%119),PRTA* MISC 01130* CS PROG,172 * MVI PCHAREA,C@ @ * MISC 01140* * MVC PCHAREA&1%71),PCHAR* MISC 01150* * BAL 11,PROG * MISC 01160* CW SW1,SW2 * NI SW1,X@FE@ * MISC 01170* * NI SW2,X@FE@ * MISC 01180* CW 20 * NI READ360&019,X@FE@ * MISC 01190* H * MSG HLT1,REPLY * MISC 01200* H PROG * MSG HLT2,REPLY * MISC 01210* * CLI *-1,C@R@ * MISC 01220* * BE *&8 * MISC 01230* * BAL 11,PROG * MISC 01240* H 111,111 * MSG H111,REPLY * MISC 01250* H *-3 * EOJ * MISC 02010*PROG H PROG *PROG EOJ * MISC 02020* MA @010@,PROG&3 * ***** * MISC 02030* MA @010@,X1 * LA 4,010%4) * MISC 02040* MA CON1,X2 * A 2,CON1 * MISC 02050* MA X1,X3 * AR 3,4 * MISC 02060* NOP * NOP 0 * MISC 02070* NOP PROG * NOP PROG * MISC 02080* NOP AFLD,BFLD * ***** * MISC 02090* SAR PROG&6 * ***** * MISC 02100* SBR PROG&3 * ST 11,$$PROG * MISC 02110* *PROG L 11,$$PROG * MISC 02120* * BR 11 * MISC 02130* *$$PROG DS F * MISC 02140* SBR PROG&3,PROG1 * LA 11,PROG1 * MISC 02150* * ST 11,$$PROG * MISC 02160* *PROG L 11,$$PROG * MISC 02170* * BR 11 * MISC 02180* *$$PROG DS F * MISC 02190* SBR X1,PROG * LA 4,PROG * MISC 02200* SBR PROG&3,CONST1 * ***** * MISC 02210* SBR X2,0 * LA 2,0 * MISC 02220* SBR X3,9&X3 * LA 3,9%3) * MISC 02230* SS 4 * CNTRL PNCH360,PS,2 * MISC 02240* SSB PROG,2 * CNTRL READ360,PS,2 * MISC 02250* * BAL 11,PROG * MISC 03010* SW SW1,SW2 * OI SW1,X@01@ * MISC 03020* * OI SW2,X@01@ * MISC 03030* * * MISC 03040******************************************************************* MISC 03050 SKIPN MISC 03060* MISC 03070*** TRANSLATION FOR CARRIAGE CONTROL, CLEAR STORAGE, CLEAR WORD MISC 03080* MARK, HALT, MODIFY ADDRESS, NO OPERATION, STORE B-ADDRESS MISC 03090* REGISTER, SELECT STACKER, AND SET WORD MARK. MISC 03100* MISC 03110MISC SBR X1,0 MISC 03120 SD IOCADR-7 RE-POSITION DISK HEADS MISC 03130 BIN *-12,\ AFTER FETCH MISC 03140MISC01 C OP1400,MISC91 MISC 03150 BE MISC02 MISC 03160 SBR X1,8&X1 MISC 03170 B MISC01 MISC 03180MISC02 MLC MISC92,*&4 MISC 03190 B 000 MISC 03200MISC90 EQU *&1 MISC 03210 DCW @CC @ MISC 03220 DSA CC00 MISC 03230 DCW @CCB @ MISC 03240 DSA CC00 MISC 03250 DCW @CS @ MISC 04010 DSA CS00 MISC 04020 DCW @CW @ MISC 04030 DSA CW00 MISC 04040 DCW @H @ MISC 04050 DSA H00 MISC 04060 DCW @MA @ MISC 04070 DSA MA00 MISC 04080 DCW @NOP @ MISC 04090 DSA NOP00 MISC 04100 DCW @SBR @ MISC 04110 DSA SBR00 MISC 04120 DCW @SS @ MISC 04130 DSA SS00 MISC 04140 DCW @SSB @ MISC 04150 DSA SS00 MISC 04160 DCW @SW @ MISC 04170 DSA SW00 MISC 04180 ORG MISC90 MISC 04190 DA 11X8,X1 MISC 04200MISC91 1,5 MISC 04210MISC92 6,8 MISC 04220* GENERATE BRANCH INSTRUCTION FOR INSTRUCTION/BRANCH COMBINATIONS. MISC 04230MISC10 MLC @BAL@,OP360-2 MISC 04240 MLC @11,@,OPR360&2 MISC 04250 BCE MISC12,TYPE-3,* Q. ASTERISK ADJUSTMENT MISC 05010 BCE MISC11,AADJ, Q. NO ADJUSTMENT MISC 05020 B CODEIT MISC 05030 DCW @P/@ MISC 05040MISC11 MLC AOPRND,OPR360&9 MISC 05050 B REV19 MISC 05060 BWZ MISC13,AOPRND-6,2 Q. ACTUAL ADDRESS MISC 05070 BCE MISC13,AOPRND,* Q. ACTUAL ADDRESS MISC 05080 BCE *&5,AOPRND, MISC 05090 B MISC13 MISC 05100 B PUTD MISC 05110MISC12 MLC @$$$@,OPR360&5 MISC 05120 A *-6,GENLBL MISC 05130 MLC GENLBL,OPR360&8 MISC 05140 B REV19 MISC 05150 B WRITED MISC 05160 B CODEIT MISC 05170 DCW @1@ MISC 05180 DCW @U/@ MISC 05190 MLC @EQU *@,OPR360 MISC 05200 MLC MISC 05210 MLC GENLBL,NAM360-2 MISC 05220 MLC @$$$@,NAM360-5 MISC 05230 B PUTD MISC 05240* MISC 05250MISC13 B CODEIT MISC 06010 DCW @2/@ MISC 06020 B PUTD MISC 06030 SKIPN MISC 06040* MISC 06050** CARRIAGE CONTROL ENTRY MISC 06060* MISC 06070CC00 MLC @CNTRL@,OP360 MISC 06080 BCE *&5,CODES-3,2 MISC 06090 B *&8 MISC 06100 MLC @ @,CODES-3 MISC 06110 MLC PRDTF,OPR360&6 MISC 06120 SBR X1,OPR360 MISC 06130CC01 BCE CC02,0&X1, MISC 06140 SBR X1,1&X1 MISC 06150 B CC01 MISC 06160CC02 BWZ CC06,DMOD,B Q. DELAYED SKIP MISC 06170 BWZ CC07,DMOD,2 Q. IMMEDIATE SKIP MISC 06180 BWZ CC05,DMOD,S Q. DELAYED SPACE MISC 06190 MLNS DMOD,4&X1 IMMEDIATE SPACE MISC 06200 MLC @,SP,@ MISC 06210CC03 B REV19 MISC 06220 BCE CC04,OP1400-2,B Q. CCB MISC 06230 B PUTD NO--EXIT MISC 06240CC04 B WRITED YES MISC 06250 B MISC10 MISC 07010* MISC 07020CC05 MLNS DMOD,5&X1 DELAYED SPACE MISC 07030 MLC @,SP,,@ MISC 07040 B CC03 MISC 07050* MISC 07060CC06 MLNS DMOD,5&X1 DELAYED SKIP MISC 07070 MLC @,SK,,@ MISC 07080 B CC03 MISC 07090* MISC 07100CC07 MLNS DMOD,4&X1 IMMEDIATE SKIP MISC 07110 MLC @,SK,@ MISC 07120 B CC03 MISC 07130 SKIPN MISC 07140* MISC 07150** CLEAR STORAGE ENTRY MISC 07160* MISC 07170CS00 BCE CS02,BOPRND-6, Q. CS AND BRANCH - BR NOT MISC 07180 BCE *&5,CODES-3,2 MISC 07190 B *&8 MISC 07200 MLC @ @,CODES-3 MISC 07210 BCE CS03,BOPRND, Q. GENERATED LABEL - BR NOT MISC 07220CS01 MLC BOPRND,OPR360&6 MISC 07230 MLC @,C@ @@,OPR360&11 MISC 07240 MLC @MVI@,OP360-2 MISC 07250 B SEARCH MISC 08010 BW *&5,SRCH95 MISC 08020 B CS06 MISC 08030 B REV19 MISC 08040 C BLANKS,BADJ MISC 08050 BE CC04 MISC 08060 B WRITED MISC 08070 MLC BOPRND,OPR360&6 MISC 08080 MLNS BADJ,CS90-2 MISC 08090 MLC MISC 08100 MLC CS90,OPR360&14 MISC 08110 MLC BOPRND,OPR360&21 MISC 08120 MLC @MVC@,OP360-2 MISC 08130 B CC04 MISC 08140* MISC 08150CS02 BCE NOTRAN,AOPRND-6, Q. CHAINED CLEAR STORAGE MISC 08160 BCE CS07,AOPRND, Q. GENERATED LABEL - BR NOT MISC 08170 MLC @,C@ @@,OPR360&11 MISC 08180 MLC AOPRND MISC 08190 MLNS AADJ,CS90-2 MISC 08200 MLC MISC 08210 MLC @MVI@,OP360-2 MISC 08220 B REV19 MISC 08230 C BLANKS,AADJ MISC 08240 BE PUTD MISC 08250 B WRITED MISC 09010 MLC AOPRND,OPR360&21 MISC 09020 MLC CS90 MISC 09030 MLC AOPRND MISC 09040 MLC @MVC@,OP360-2 MISC 09050 B PUTD EXIT MISC 09060* MISC 09070CS03 B SEARCH ACTUAL LABEL MISC 09080 BW *&5,SRCH95 Q. B-OPERAND UNDEFINED MISC 09090 B NOTRAN NO MISC 09100 BCE CS01,SRCH97,D Q. B-OPERAND NAME REFERS TO MISC 09110* HIGH-ORDER LOCATION MISC 09120 C BLANKS,BADJ MISC 09130 BE CS14 MISC 09140 S @1@,BADJ MISC 09150 MLNS BADJ,CS90-2 MISC 09160 MLC MISC 09170 A @1@,BADJ MISC 09180 MLC BOPRND-1,OPR360&5 MISC 09190CS14 SBR X1,OPR360 MISC 09200CS04 BCE CS05,0&X1, MISC 09210 SBR X1,1&X1 MISC 09220 B CS04 MISC 09230CS05 MLC @,C@ @@,4&X1 MISC 09240 MLC @MVI@,OP360-2 MISC 09250 B REV19 MISC 10010 C BLANKS,BADJ MISC 10020 BE CC04 MISC 10030 B WRITED MISC 10040 MLC BOPRND-1,OPR360&5 MISC 10050 SBR X1,OPR360 MISC 10060CS12 BCE CS13,0&X1, MISC 10070 SBR X1,1&X1 MISC 10080 B CS12 MISC 10090CS13 MLC CS90,7&X1 MISC 10100 MLC BOPRND-1,13&X1 MISC 10110 MLC @ @,BADJ MISC 10120 CHAIN2 MISC 10130 MLC @MVC@,OP360-2 MISC 10140 B CC04 MISC 10150* MISC 10160CS06 B CODEIT UNDEFINED B-OPERAND MISC 10170 DCW @5/@ MISC 10180 B NOTRAN MISC 10190* MISC 10200CS07 B SEARCH MISC 10210 BW *&5,SRCH98 Q. A-OPERAND DEFINED MISC 10220 B CS06 NO MISC 10230 C BLANKS,AADJ MISC 10240 BE CS15 MISC 10250 S @1@,AADJ MISC 11010 MLNS AADJ,CS90-2 MISC 11020 MLC MISC 11030 A @1@,AADJ MISC 11040CS15 MLC AOPRND-1,OPR360&5 MISC 11050 SBR X1,OPR360 MISC 11060CS08 BCE CS09,0&X1, MISC 11070 SBR X1,1&X1 MISC 11080 B CS08 MISC 11090CS09 MLC @,C@ @@,4&X1 MISC 11100 MLC @MVI@,OP360-2 MISC 11110 B REV19 MISC 11120 C BLANKS,AADJ MISC 11130 BE PUTD MISC 11140 B WRITED MISC 11150 MLC AOPRND-1,OPR360&5 MISC 11160 SBR X1,OPR360 MISC 11170CS10 BCE CS11,0&X1, MISC 11180 SBR X1,1&X1 MISC 11190 B CS10 MISC 11200CS11 MLC CS90,7&X1 MISC 11210 MLC AOPRND-1,13&X1 MISC 11220 MLC @MVC@,OP360-2 MISC 11230 B PUTD EXIT MISC 11240* MISC 11250CS90 DCW @&1% ),@ MISC 12010 SKIPN MISC 12020* MISC 12030** CLEAR AND SET WORD MARK ENTRIES MISC 12040* MISC 12050CW00 MLC @NI@,WM90 MISC 12060 MLC @FE@,WM92-1 MISC 12070 B WM00 MISC 12080* MISC 12090SW00 MLC @OI@,WM90 MISC 12100 MLC @01@,WM92-1 MISC 12110* COMMON WORD MARK PROCESSOR MISC 12120WM00 B CODEIT MISC 12130 DCW @E/@ MISC 12140 SW REV84 MISC 12150 B SEARCH MISC 12160 BCE WM06,BOPRND-6, Q. ONE OPERAND MISC 12170 BW *&5,SRCH98 Q. A-OPERAND DEFINED MISC 12180 B WM04 NO MISC 12190WM08 ZA SRCH91,REV93 MISC 12200 S @1@,REV93 MISC 12210 SW REV90 MISC 12220WM01 MLC BADJ,WM91 MISC 12230 CHAIN2 MISC 12240 MLC @ @,BADJ MISC 12250 CHAIN2 MISC 13010WM02 MLC AADJ,BADJ MISC 13020 CHAIN2 MISC 13030 MLC @ @,AADJ MISC 13040 CHAIN2 MISC 13050 MLC WM92,AOPRND-2 MISC 13060 MLC WM90,OP360-3 MISC 13070 B REVERS MISC 13080 BCE PUTD,WM91-10, Q. NO B-OPERAND MISC 13090 B WRITED MISC 13100 BW *&5,SRCH95 Q. B-OPERAND UNDEFINED MISC 13110 B WM05 YES MISC 13120 ZA SRCH92,REV93 MISC 13130 S @1@,REV93 MISC 13140 SW REV90 MISC 13150WM03 MLC WM91,BADJ MISC 13160 CHAIN2 MISC 13170 MLC WM92,AOPRND-2 MISC 13180 MLC WM90,OP360-3 MISC 13190 B REVERS MISC 13200 B CODEIT MISC 13210 DCW @E/@ MISC 13220 B PUTD EXIT MISC 13230* MISC 13240WM04 B CODEIT MISC 13250 DCW @5/@ MISC 14010 B WM01 MISC 14020* MISC 14030WM05 B CODEIT MISC 14040 DCW @5/@ MISC 14050 B WM03 MISC 14060* MISC 14070WM06 BCE WM07,AOPRND-6, Q. FULL CHAIN MISC 14080 BW WM08,SRCH98 Q. A-OPERAND DEFINED MISC 14090 B WM04 NO MISC 14100WM07 B CODEIT CHAINING--NOT TRANSLATABLE MISC 14110 DCW @4/@ MISC 14120 B NOTRAN&6 MISC 14130* MISC 14140WM90 DCW @-I@ MISC 14150WM91 DCW #11 MISC 14160WM92 DCW @X@01@@ MISC 14170 SKIPN MISC 14180* MISC 14190** HALT ENTRY MISC 14200* MISC 14210H00 MLC @MSG@,OP360-2 MISC 14220 MLC @ @,CODES-1 MISC 14230 BCE H01,BOPRND-6, Q. CODED HALT MISC 14240 BSS NOTRAN,D Q. DOS/TOS OUTPUT MISC 14250 SBR X1,OPR14&1 YES MISC 15010H02 BCE H03,0&X1,, Q. START OF SECOND OPERAND MISC 15020 SBR X1,1&X1 NO MISC 15030 B H02 MISC 15040H03 SBR X1,1&X1 MISC 15050 MLC X2,H92 MISC 15060 SBR X2,BOPRND-5 MISC 15070H04 SW 0&X2 MISC 15080 MLC 0&X1,0&X2 MISC 15090 CW 0&X2 MISC 15100 BCE H05,1&X1, Q. END OF CODED OPERAND MISC 15110 SBR X2,1&X2 NO MISC 15120 SBR X1,1&X1 MISC 15130 B H04 MISC 15140H05 MLC @H@,BOPRND-6 MISC 15150 SW 1&X2 MISC 15160 MLC BLANKS,BOPRND MISC 15170 CW 1&X2 MISC 15180 MLC H92,X2 RESTORE X2 MISC 15190 MLC @ @,AADJ MISC 15200 CHAIN2 MISC 15210 MLC @REPLY@,AOPRND-2 MISC 15220 B REVERS REVERSE OPERANDS MISC 15230 B PUTD EXIT MISC 15240* MISC 15250H01 A *-6,H90 MISC 16010 BCE H08,AOPRND-6,* MISC 16020 C AOPRND,LBL14 Q. LOCKED IN HALT MISC 16030 BE H09 YES MISC 16040H07 BSS NOTRAN,D Q. DOS/TOS OUTPUT MISC 16050 MLC AADJ,H91 NO-- BOS OUTPUT MISC 16060 CHAIN2 MISC 16070 MLC @ @,AADJ MISC 16080 CHAIN2 MISC 16090 MLC @REPLY @,AOPRND MISC 16100 MLC H90,BOPRND-3 MISC 16110 MLC @HLT@,BOPRND-4 MISC 16120 B REVERS MISC 16130 BCE PUTD,H91-10, Q. NO BRANCH MISC 16140 B WRITED MISC 16150H06 MLC @CLI@,OP360-2 MISC 16160 MLC @*-1,C@R@@,OPR360&7 MISC 16170 MLC @TEST START RESET@,OPR360&25 MISC 16180 B WRITED MISC 16190 MLC @BE@,OP360-3 MISC 16200 MLC @*&8@,OPR360&2 MISC 16210 B WRITED MISC 16220 MLC H91,AADJ MISC 16230 CHAIN2 MISC 16240 B MISC10 MISC 16250* MISC 17010H08 C AADJ,-003 MISC 17020 BU H07 MISC 17030 BCE *&5,CODES-3,2 MISC 17040 B H09 MISC 17050 MLC @ @,CODES-3 MISC 17060H09 BCE H07,AOPRND-6, Q. NO OPERAND MISC 17070 MLC @EOJ@,OP360-2 OPERAND PRESENT -- LOCKED MISC 17080 B CODEIT MISC 17090 DCW @V/@ MISC 17100 B REV19 MISC 17110 B PUTD MISC 17120H92 DCW #3 MISC 17130H91 DCW #11 MISC 17140 SKIPN MISC 17150* MISC 17160** MODIFY ADDRESS ENTRY MISC 17170* MISC 17180MA00 BCE MA01,BOPRND-6, Q. CHAINING MISC 17190 C BOPRND-4,@X1 @ MISC 17200 BE MA02 MISC 17210 C BOPRND-4,@X2 @ MISC 17220 BE MA03 MISC 17230 C BOPRND-4,@X3 @ MISC 17240 BE MA03 MISC 17250 B NOTRAN MISC 18010MA01 B CODEIT CHAINING--NOT TRANSLATABLE MISC 18020 DCW @4/@ MISC 18030 B NOTRAN&6 MISC 18040* MISC 18050MA02 MLC @4@,BOPRND-5 MISC 18060MA03 MLNS BOPRND-5,OPR360 MISC 18070 BCE MA06,AOPRND-6,@ Q. LITERAL MISC 18080 C AOPRND-4,@X1 @ MISC 18090 BE MA04 MISC 18100 C AOPRND-4,@X2 @ MISC 18110 BE MA05 MISC 18120 C AOPRND-4,@X3 @ MISC 18130 BE MA05 MISC 18140 MLC @A@,OP360-4 MISC 18150 B CODEIT MISC 18160 DCW @F/@ MISC 18170 MLNS BOPRND-5,OPR360 MISC 18180 MLC @,@,OPR360&1 MISC 18190 MLC AOPRND-1,OPR360&7 MISC 18200 B REV19 MISC 18210 B PUTD EXIT MISC 18220* MISC 18230MA06 MLC @% )@,OPR360&7 MISC 18240 MLNS BOPRND-5,OPR360&6 MISC 18250 MLC OPR14&3,OPR360&4 MISC 19010 MLC @,@,OPR360&1 MISC 19020 MLNS BOPRND-5,OPR360 MISC 19030 MLC @LA@,OP360-3 MISC 19040 B REV19 MISC 19050 B PUTD EXIT MISC 19060* MISC 19070MA04 MLC @4@,AOPRND-5 MISC 19080MA05 MLC @AR@,OP360-3 MISC 19090 MLNS AOPRND-5,OPR360&2 MISC 19100 MLC @,@,OPR360&1 MISC 19110 MLNS BOPRND-5,OPR360 MISC 19120 B REV19 MISC 19130 B PUTD EXIT MISC 19140 SKIPN MISC 19150* MISC 19160** NO OPERATION ENTRY MISC 19170* MISC 19180NOP00 BCE NOP01,BOPRND-6, Q. ONE OPERAND MISC 19190 B NOTRAN MISC 19200* MISC 19210NOP01 MLC OP1400,OP360 MISC 19220 BCE NOP02,AOPRND-6, MISC 19230 B SEARCH MISC 19240 BW NOTRAN,SRCH98 Q. A-OPERAND DEFINED MISC 19250* NO--ASSUME PROGRAM LABEL MISC 20010 C AOPRND,@*******@ Q. ACTUAL ADDRESS MISC 20020 BE NOTRAN YES MISC 20030 B REVERS MISC 20040 B PUTD EXIT MISC 20050* MISC 20060NOP02 MLC @0@,OPR360 MISC 20070 B REV19 MISC 20080 B PUTD MISC 20090 SKIPN MISC 20100* MISC 20110** STORE B-ADDRESS REGISTER ENTRY MISC 20120* MISC 20130SBR00 BCE *&5,CODES-3,2 MISC 20140 B *&8 MISC 20150 MLC @ @,CODES-3 MISC 20160 BCE SBR08,BOPRND-6, Q. B-OPERAND PRESENT MISC 20170 C AOPRND-4,@X1 @ B-OPERAND PRESENT MISC 20180 BE SBR02 MISC 20190 C AOPRND-4,@X2 @ MISC 20200 BE SBR03 MISC 20210 C AOPRND-4,@X3 @ MISC 20220 BE SBR03 MISC 20230 C AADJ,&003 MISC 20240 BU NOTRAN MISC 20250 B SEARCH MISC 21010 BW NOTRAN,SRCH95 Q. B-OPERAND DEFINED MISC 21020 C AOPRND,@*******@ Q. ACTUAL ADDRESS MISC 21030 BE SBR10 YES MISC 21040SBR11 MLC @LA@,OP360-3 MISC 21050 MLC @11,@,OPR360&2 MISC 21060 MLC BOPRND,OPR360&9 MISC 21070 BCE *&7,BADJ, MISC 21080 B CODEIT MISC 21090 DCW @B/@ MISC 21100 B REV19 MISC 21110 B WRITED MISC 21120 B SBR08 MISC 21130SBR02 MLNS @4@,AOPRND-5 MISC 21140SBR03 MLNS AOPRND-5,OPR360 MISC 21150 BCE SBR04,BADJ, Q. NO B-OPERAND ADJUSTMENT MISC 21160 MLC @ @,OPR360 ADJUSTMENT PRESENT MISC 21170 BCE NOTRAN,BOPRND, ADJUSTMENT OF GENER IO AREA MISC 21180SBR04 MLC BOPRND,OPR360&8 MISC 21190 MLC @,@ MISC 21200 MLC @LA@,OP360-3 MISC 21210 BCE SBR09,BIND, Q. NO INDEXING MISC 21220 SBR X1,OPR360&2 B-OPERAND INDEXED MISC 21230SBR05 BCE SBR06,0&X1, MISC 21240 SBR X1,1&X1 MISC 21250 B SBR05 MISC 22010SBR06 MLC @% )@,2&X1 MISC 22020 MLNS BIND,1&X1 MISC 22030 BCE SBR07,BIND,1 Q. X1 MISC 22040SBR09 B REV19 MISC 22050 B PUTD EXIT MISC 22060SBR07 MLNS @4@,1&X1 MISC 22070 B REV19 MISC 22080 B PUTD EXIT MISC 22090* MISC 22100SBR08 C AADJ,&003 MISC 22110 BU NOTRAN MISC 22120 MLC @ST@,OP360-3 MISC 22130 MLC @11,$$@,OPR360&4 MISC 22140 MLC AOPRND-1,OPR360&10 MISC 22150 B REV19 MISC 22160 B WRITED MISC 22170 MLC @L@,OP360-4 MISC 22180 MLC @11,$$@,OPR360&4 MISC 22190 MLC AOPRND-1,OPR360&10 MISC 22200 MLC AOPRND-1,NAM360-2 MISC 22210 B CODEIT MISC 22220 DCW @1@ MISC 22230 DCW @U/@ MISC 22240 B WRITED MISC 22250 MLC @11@,OPR360&1 MISC 23010 B CODEIT MISC 23020 DCW @1@ MISC 23030 DCW @U/@ MISC 23040 MLC @BR@,OP360-3 MISC 23050 B WRITED MISC 23060 MLC AOPRND-1,NAM360 MISC 23070 MLC @$$@ MISC 23080 MLC @F@,OPR360 MISC 23090 MLC @DS@,OP360-3 MISC 23100 B CODEIT MISC 23110 DCW @1@ MISC 23120 DCW @U/@ MISC 23130 B PUTD MISC 23140* MISC 23150SBR10 SBR X1,OPR14 MISC 23160 BCE *&12,0&X1,, Q. END OF A-OPERAND MISC 23170 SBR X1,1&X1 NOT YET MISC 23180 B *-18 MISC 23190 SW 1&X1 MISC 23200 MLC 7&X1,BOPRND MISC 23210 CW 1&X1 MISC 23220 B SBR11 MISC 23230 SKIPN MISC 23240* MISC 23250** STACKER SELECTION ENTRY MISC 24010* MISC 24020SS00 MLC @CNTRL@,OP360 MISC 24030 BCE *&5,CODES-3,2 MISC 24040 B *&8 MISC 24050 MLC @ @,CODES-3 MISC 24060 MLC PHDTF,OPR360&6 MISC 24070 SBR X1,OPR360 MISC 24080 BCE SS09,DMOD,8 MISC 24090 BCE SS09,DMOD,4 MISC 24100 MLC RDDTF,OPR360&6 MISC 24110SS01 BCE SS02,0&X1, MISC 24120 SBR X1,1&X1 MISC 24130 B SS01 MISC 24140SS02 MLC @,PS,@,3&X1 MISC 24150 BCE SS04,DMOD,1 MISC 24160 BCE SS07,DMOD,2 MISC 24170 BCE SS04,DMOD,4 MISC 24180 BCE SS08,DMOD,8 MISC 24190 MLC @ @,OPR360&10 MISC 24200 BCE SS10,OP1400-2,B Q. BRANCH ASSOCIATED MISC 24210 B NOTRAN NO MISC 24220SS10 B CODEIT MISC 24230 DCW @1@ MISC 24240 DCW @D/@ MISC 24250SS03 MLC BLANKS,OP360 MISC 25010 B MISC10 MISC 25020SS04 MLC @2@,4&X1 MISC 25030SS05 B REV19 MISC 25040 BCE SS06,OP1400-2,B Q. SSB MISC 25050 B PUTD MISC 25060SS06 B WRITED MISC 25070 MLC BLANKS,OP360 MISC 25080 B MISC10 MISC 25090* MISC 25100SS07 EQU *&1 MISC 25110SS08 MLC @3@,4&X1 MISC 25120 B SS05 MISC 25130* MISC 25140SS09 B CODEIT MISC 25150 DCW @Z/@ MISC 25160 B SS01 MISC 25160 B SS01 MISC 25170******************************************************************* MISC 25180 EX MISC MISC 01010 JOB DATA CONTROL INSTRUCTION TRANSLATION ROUTINES MOVES 01020******************************************************************* MOVES 01030********************* DATA CONTROL OPERATIONS ********************* MOVES 01040* MOVES 01050* AFLD SAME LENGTH AS BFLD. MOVES 01060* AFLD SHORTER THAN CFLD. MOVES 01070* AFLD LONGER THAN DFLD. MOVES 01080* MOVES 01090******************************************************************* MOVES 01100* * * MOVES 01110* MLC AFLD,BFLD * MVC BFLD,AFLD * MOVES 01120* MLC AFLD,CFLD * MVC CFLD&LC-LA%LA),AFLD* MOVES 01130* MLC AFLD,DFLD * MVC DFLD,AFLD&LD-LA * MOVES 01140* MLCWA AFLD,BFLD * MVC BFLD,AFLD * MOVES 01150* MLCWA AFLD,CFLD * MVC CFLD&LC-LA%LA),AFLD* MOVES 01160* MLCWA AFLD,DFLD * MVC DFLD&LC-LA%LA),AFLD* MOVES 01170* MRCM AFLD,BFLD * MVC BFLD,AFLD * MOVES 01180* MRCM AFLD,CFLD * MVC CFLD,AFLD * MOVES 01190* MRCM AFLD,DFLD * MVC DFLD,AFLD * MOVES 01200* MLNS AFLD,BFLD * MVN BFLD&LB-1%1),AFLD&LA MOVES 01210* MLZS AFLD,BFLD * MVZ BFLD&LB-1%1),AFLD&LA MOVES 01220* MCE AFLD,BFLD * ED BFLD,AFLD * MOVES 01230* MCS AFLD,BFLD * MVC BFLD,#X@40202021@ * MOVES 01240* * ED BFLD,AFLD * MOVES 01250******************************************************************* MOVES 02010 ORG COMMON MOVES 02020 SKIPN MOVES 02030* MOVES 02040*** TRANSLATION FOR MOVE, LOAD, MOVE NUMERIC, MOVE ZONE, MOVE- MOVES 02050* RECORD, MOVE AND EDIT, MOVE AND SUPPRESS ZEROES. MOVES 02060* MOVES 02070MOVES SBR X1,0 MOVES 02080 SD IOCADR-7 RE-POSITION DISK HEADS MOVES 02090 BIN *-12,\ AFTER FETCH MOVES 02100MOVE01 C OP1400,MOVE91 MOVES 02110 BE MOVE02 MOVES 02120 SBR X1,8&X1 MOVES 02130 B MOVE01 MOVES 02140MOVE02 MLC MOVE92,*&4 MOVES 02150 B 000 MOVES 02160MOVE90 EQU *&1 MOVES 02170 DCW @MLC @ MOVES 02180 DSA MOVE MOVES 02190 DCW @MCW @ MOVES 02200 DSA MOVE MOVES 02210 DCW @MLCWA@ MOVES 02220 DSA LOAD MOVES 02230 DCW @LCA @ MOVES 02240 DSA LOAD MOVES 02250 DCW @MLNS @ MOVES 03010 DSA MVNUM MOVES 03020 DCW @MN @ MOVES 03030 DSA MVNUM MOVES 03040 DCW @MLZS @ MOVES 03050 DSA MVZONE MOVES 03060 DCW @MZ @ MOVES 03070 DSA MVZONE MOVES 03080 DCW @MRCM @ MOVES 03090 DSA MVREC MOVES 03100 DCW @MCM @ MOVES 03110 DSA MVREC MOVES 03120 DCW @MCE @ MOVES 03130 DSA MVEDIT MOVES 03140 DCW @MCS @ MOVES 03150 DSA MVSUPR MOVES 03160 ORG MOVE90 MOVES 03170 DA 12X8,X1 MOVES 03180MOVE91 1,5 MOVES 03190MOVE92 6,8 MOVES 03200 SKIPN MOVES 03210* MOVES 03220** MOVE ENTRY MOVES 03230* MOVES 03240MOVE BCE MLC09,AOPRND-6,% Q. MISC I/O COMMAND MOVES 03250 BCE MLC03,BOPRND-6, Q. FULL OR PARTIAL CHAIN MOVES 04010 BCE MLC11,AOPRND-6,X Q. POSSIBLE INDEX REG REFER MOVES 04020MLC10 BCE MLC15,BOPRND-6,X Q. POSSIBLE INDEX REG REFER MOVES 04030MLC17 MLC @MVC@,OP360-2 MOVES 04040 B SEARCH MOVES 04050 MLC SRCH92,REV92 MOVES 04060 BW MLC04,SRCH90 Q. ONE OR BOTH LABELS NOT MOVES 04070* IN DATA NAME TABLE MOVES 04080MLC00 BW MLC06,SRCH93 Q. OPERANDS OF DIFF CLASSES MOVES 04090 BCE *&13,SRCH94,D Q. A-OPR REFERS TO HI-ORDER MOVES 04100 BCE *&5,AADJ, Q. A-OPERAND ADJUSTED MOVES 04110 B MLC19 YES MOVES 04120 BCE *&13,SRCH97,D Q. B-OPR REFERS TO HI-ORDER MOVES 04130 BCE *&5,BADJ, Q. B-OPERAND ADJUSTED MOVES 04140 B MLC21 YES MOVES 04150MLC01 C SRCH91,SRCH92 COMP A-LENGTH TO B-LENGTH MOVES 04160 BH MLC07 B-OPERAND LONGER MOVES 04170 BL MLC24 MOVES 04180MLC02 BCE MLC18,BADJ, Q. B-OPERAND ADJUSTED MOVES 04190 A BADJ,REV92 YES--MODIFY LENGTH ATTRIB MOVES 04200 SW REV80 MOVES 04210MLC18 B REVERS MOVES 04220 B PUTD MOVES 04230* MOVES 04240MLC03 B CODEIT NOT TRANSLATABLE MOVES 04250 DCW @4/@ MOVES 05010 B NOTRAN&6 MOVES 05020* MOVES 05030MLC04 B CODEIT ONE OR BOTH NAMES UNDEFINED MOVES 05040 DCW @5/@ MOVES 05050 BW MLC02,SRCH95 Q. B-OPERAND DEFINED MOVES 05060 MLC SRCH91,REV92 NO--USE A-OPERAND LENGTH MOVES 05070 SW REV80 MOVES 05080 B MLC02 MOVES 05090* MOVES 05100MLC05 MLC @UNPK@,OP360-1 PACKED A-OPERAND MOVES 05110 A SRCH91 DOUBLE A-LENGTH AND COMPUTE MOVES 05120 S @1@,SRCH91 UNPACKED LENGTH MOVES 05130 MLZS *-4,SRCH91 MOVES 05140 B MLC02 MOVES 05150* MOVES 05160MLC06 BCE MLC05,SRCH97,C Q. B-OPERAND TYPE CHARACTER MOVES 05170 BCE MLC05,SRCH97,D Q. B-OPERAND TYPE DA MOVES 05180 MLC @PACK@,OP360-1 B-OPERAND PACKED MOVES 05190 B MLC18 MOVES 05200* MOVES 05210MLC07 ZA SRCH92,REV93 B-OPERAND LONGER THAN A- MOVES 05220 S SRCH91,REV93 COMPUTE OPERAND-1 ADJUST MOVES 05230 MLC SRCH91,REV92 MOVE IN OPRND-1 LENGTH MOVES 05240 SW REV90,REV80 MOVES 05250 BCE MLC18,BADJ, Q. B-OPERAND ADJUSTED MOVES 06010 CW REV90 YES--DON,T DO IT AGAIN MOVES 06020 B MLC18 IN REVERS MOVES 06030* MOVES 06040MLC24 BCE MLC02,SRCH94,D Q. A-OPR REFERS TO HI-ORDER MOVES 06050MLC08 ZA SRCH91,REV91 A-OPERAND LONGER THAN B- MOVES 06060 S SRCH92,REV91 COMPUTE OPERAND-2 ADJUST MOVES 06070 SW REV94 MOVES 06080 B MLC02 MOVES 06090* MOVES 06100MLC09 MLC @MU @,OP1400 MOVES 06110 FETCH@IODEV@ FETCH I/O DEVICE HANDLER MOVES 06120* MOVES 06130MLC11 C AOPRND-4,@X3 @ A-OPERAND MAY BE INDEX REG MOVES 06140 BE MLC12 MOVES 06150 C AOPRND-4,@X2 @ MOVES 06160 BE MLC12 MOVES 06170 C AOPRND-4,@X1 @ MOVES 06180 BU MLC10 NOT A REGISTER REFERENCE MOVES 06190 MLC @4@,AOPRND-5 MOVES 06200MLC12 C BOPRND-4,@X3 @ MOVES 06210 BE MLC13 MOVES 06220 C BOPRND-4,@X2 @ MOVES 06230 BE MLC13 MOVES 06240 C BOPRND-4,@X1 @ MOVES 06250 BU MLC14 MOVES 07010 MLC @4@,BOPRND-5 MOVES 07020MLC13 MLC @LR@,OP360-3 REGISTER TO REGISTER MOVE MOVES 07030 MLNS BOPRND-5,OPR360 MOVES 07040 MLC @,@,OPR360&1 MOVES 07050 MLNS AOPRND-5,OPR360&2 MOVES 07060 B REV19 MOVES 07070 B PUTD MOVES 07080* MOVES 07090MLC14 MLC BADJ,AADJ SAVING REGISTER MOVES 07100 CHAIN2 MOVES 07110 MLC BLANKS,BADJ MOVES 07120 CHAIN2 MOVES 07130 MLNS OPR14&1,BOPRND-6 MOVES 07140 BCE *&5,BOPRND-6,1 Q. X1 REFERENCE MOVES 07150 B *&8 NO MOVES 07160 MLC @4@,BOPRND-6 YES MOVES 07170 MLC @ST@,OP360-3 MOVES 07180 B REVERS MOVES 07190 B CODEIT MOVES 07200 DCW @F/@ MOVES 07210 B PUTD MOVES 07220* MOVES 07230MLC15 C BOPRND-4,@X3 @ B-OPERAND MAY BE INDEX REG MOVES 07240 BE MLC16 MOVES 07250 C BOPRND-4,@X2 @ MOVES 08010 BE MLC16 MOVES 08020 C BOPRND-4,@X1 @ MOVES 08030 BU MLC17 NOT A REGISTER REFERENCE MOVES 08040 MLC @4@,BOPRND-5 MOVES 08050MLC16 MLC @L@,OP360-4 LOADING A REGISTER MOVES 08060 MLC BOPRND-5,MLC90#1 MOVES 08070 MLC BLANKS,BADJ MOVES 08080 CHAIN2 MOVES 08090 MLC MLC90,BOPRND-6 MOVES 08100 B REVERS MOVES 08110 B CODEIT MOVES 08120 DCW @F/@ MOVES 08130 B PUTD MOVES 08140* MOVES 08150MLC19 A AADJ,SRCH91 MOVES 08160 MLC @ @,AADJ MOVES 08170 BM MLC20,SRCH91 MOVES 08180 C SRCH91,&000 MOVES 08190 BU *&8 MOVES 08200MLC20 MLC @001@,SRCH91 MOVES 08210 MLZS *-4,SRCH91 MOVES 08220 BCE MLC23,SRCH97,D Q. B-OPR REFERS TO HI-ORDER MOVES 08230MLC21 A BADJ,SRCH92 MOVES 08240 MLC @ @,BADJ MOVES 08250 BM MLC22,SRCH92 MOVES 09010 C SRCH92,&000 MOVES 09020 BU *&8 MOVES 09030MLC22 MLC @001@,SRCH92 MOVES 09040 MLZS *-4,SRCH92 MOVES 09050MLC23 SW REV80 MOVES 09060 MLC SRCH92,REV92 MOVES 09070 B MLC01 MOVES 09080 SKIPN MOVES 09090* MOVES 09100** LOAD ENTRY MOVES 09110* MOVES 09120LOAD BCE LCA07,AOPRND-6,% Q. MISC. I/O COMMAND MOVES 09130 BCE LCA03,BOPRND-6, Q. FULL OR PARTIAL CHAINING MOVES 09140 BCE LCA10,AOPRND-6,X Q. POSSIBLE INDEX REG REFER MOVES 09150LCA08 BCE LCA14,BOPRND-6,X Q. POSSIBLE INDEX REG REFER MOVES 09160LCA09 MLC @MVC@,OP360-2 MOVES 09170 B SEARCH MOVES 09180 MLC SRCH91,REV92 MOVES 09190 BW LCA04,SRCH90 Q. ONE OR BOTH LABELS NOT MOVES 09200* IN DATA NAME TABLE MOVES 09210LCA00 BW LCA06,SRCH93 Q. OPERANDS OF DIFF CLASSES MOVES 09220 BCE *&5,AOPRND, MOVES 09230 B *&13 MOVES 09240 BCE *&5,AADJ, MOVES 09250 B LCA17 MOVES 10010 BCE *&5,BOPRND, MOVES 10020 B *&13 MOVES 10030 BCE *&5,BADJ, MOVES 10040 B LCA19 MOVES 10050LCA01 C SRCH91,SRCH92 MOVES 10060 BE LCA02 MOVES 10070 BCE LCA02,SRCH94,D Q. A-OPR REFERS TO HI-ORDER MOVES 10080 BCE LCA02,SRCH97,D Q. B-OPR REFERS TO HI-ORDER MOVES 10090LCA23 ZA SRCH92,REV93 COMPUTE OPERAND-1 ADJUSTMNT MOVES 10100 S SRCH91,REV93 MOVES 10110 MLC SRCH91,REV92 MOVES 10120 SW REV80,REV90 MOVES 10130 BCE LCA16,AADJ, Q. A-OPERAND ADJUSTED MOVES 10140 CW REV90 YES--DON,T DO IT AGAIN MOVES 10150 B LCA16 IN REVERS MOVES 10160LCA02 BCE LCA16,BADJ, Q. B-OPERAND ADJUSTED MOVES 10170 SW REV80 INDICATE NEED LENGTH ATTRIB MOVES 10180LCA16 B REVERS MOVES 10190 B PUTD MOVES 10200* MOVES 10210LCA03 B CODEIT CHAINING--NOT TRANSLATABLE MOVES 10220 DCW @4/@ MOVES 10230 B NOTRAN&6 MOVES 10240* MOVES 10250LCA04 B CODEIT ONE OR BOTH NAMES UNDEFINED MOVES 11010 DCW @5/@ MOVES 11020 BW LCA02,SRCH95 Q. B-OPERAND DEFINED MOVES 11030 MLC SRCH91,REV92 NO--USE A-OPERAND LENGTH MOVES 11040 SW REV80 MOVES 11050 B LCA02 MOVES 11060* MOVES 11070LCA05 MLC @UNPK@,OP360-1 PACKED A-OPERAND MOVES 11080 A SRCH91 MOVES 11090 S @1@,SRCH91 MOVES 11100 MLZS *-4,SRCH91 MOVES 11110 B LCA02 MOVES 11120* MOVES 11130LCA06 BCE LCA05,SRCH97,C Q. B-OPERAND TYPE CHARACTER MOVES 11140 BCE LCA05,SRCH97,D Q. B-OPERAND TYPE DA MOVES 11150 MLC @PACK@,OP360-1 B-OPERAND PACKED MOVES 11160 B LCA16 MOVES 11170* MOVES 11180LCA07 MLC @LU @,OP1400 MOVES 11190 FETCH@IODEV@ MOVES 11200* MOVES 11210LCA10 C AOPRND-4,@X3 @ A-OPERAND MAY BE INDEX REG MOVES 11220 BE LCA11 MOVES 11230 C AOPRND-4,@X2 @ MOVES 11240 BE LCA11 MOVES 11250 C AOPRND-4,@X1 @ MOVES 12010 BU LCA08 NOT A REGISTER REFERENCE MOVES 12020 MLC @4@,AOPRND-5 MOVES 12030LCA11 C BOPRND-4,@X3 @ MOVES 12040 BE LCA12 MOVES 12050 C BOPRND-4,@X2 @ MOVES 12060 BE LCA12 MOVES 12070 C BOPRND-4,@X1 @ MOVES 12080 BU LCA13 MOVES 12090 MLC @4@,BOPRND-5 MOVES 12100LCA12 MLC @LR@,OP360-3 REGISTER TO REGISTER LOAD MOVES 12110 MLNS BOPRND-5,OPR360 MOVES 12120 MLC @,@,OPR360&1 MOVES 12130 MLNS AOPRND-5,OPR360&2 MOVES 12140 B REVERS MOVES 12150 B PUTD MOVES 12160LCA13 MLC AOPRND-5,LCA90#1 STORING INDEX REGISTER MOVES 12170 MLC BADJ,AADJ MOVES 12180 CHAIN2 MOVES 12190 MLC BLANKS,BADJ MOVES 12200 CHAIN2 MOVES 12210 MLC LCA90,BOPRND-6 MOVES 12220 MLC @ST@,OP360-3 MOVES 12230 B REVERS MOVES 12240 B CODEIT MOVES 12250 DCW @F/@ MOVES 13010 B PUTD MOVES 13020* MOVES 13030LCA14 C BOPRND-4,@X3 @ MOVES 13040 BE LCA15 MOVES 13050 C BOPRND-4,@X2 @ MOVES 13060 BE LCA15 MOVES 13070 C BOPRND-4,@X1 @ MOVES 13080 BU LCA09 NOT A REGISTER OPERATION MOVES 13090 MLC @4@,BOPRND-5 MOVES 13100LCA15 MLC BOPRND-5,LCA90 LOADING A REGISTER MOVES 13110 MLC @L@,OP360-4 MOVES 13120 MLC BLANKS,BADJ MOVES 13130 CHAIN2 MOVES 13140 MLC LCA90,BOPRND-6 MOVES 13150 B REVERS MOVES 13160 B CODEIT MOVES 13170 DCW @F/@ MOVES 13180 B PUTD MOVES 13190* MOVES 13200LCA17 A AADJ,SRCH91 MOVES 13210 MLC @ @,AADJ MOVES 13220 BM LCA18,SRCH91 MOVES 13230 C SRCH91,&000 MOVES 13240 BU *&8 MOVES 13250LCA18 MLC @001@,SRCH91 MOVES 14010 MLZS *-4,SRCH91 MOVES 14020 BCE *&5,BOPRND, MOVES 14030 B LCA21 MOVES 14040LCA19 A BADJ,SRCH92 MOVES 14050 MLC @ @,BADJ MOVES 14060 BM LCA20,SRCH92 MOVES 14070 C SRCH92,&000 MOVES 14080 BU *&8 MOVES 14090LCA20 MLC @001@,SRCH92 MOVES 14100 MLZS *-4,SRCH92 MOVES 14110LCA21 SW REV80 MOVES 14120 MLC SRCH91,REV92 MOVES 14130 B LCA01 MOVES 14140 SKIPN MOVES 14150* MOVES 14160** MOVE NUMERIC ENTRY MOVES 14170* MOVES 14180MVNUM MLC @MVN@,OP360-2 MOVES 14190 B MZN00 MOVES 14200* MOVES 14210** MOVE ZONE ENTRY MOVES 14220* MOVES 14230MVZONE MLC @MVZ@,OP360-2 MOVES 14240 C AOPRND,@@ @ @ MOVES 14250 BE MVZ02 MOVES 15010 BCE MVZ01,AOPRND-6,* MOVES 15020MZN00 BCE MZN04,BOPRND-6, Q. FULL OR PARTIAL CHAINING MOVES 15030 B SEARCH SCAN DATA NAME TABLE MOVES 15040 BCE MZN09,SRCH94,P Q. A-OPERAND TYPE DECIMAL MOVES 15050 BCE MZN09,SRCH97,P Q. B-OPERAND TYPE DECIMAL MOVES 15060MZN10 BW MZN05,SRCH90 Q. ONE OR BOTH DATA NAMES MOVES 15070* NOT IN DATA NAME TABLE MOVES 15080 BW MZN06,SRCH93 Q. OPERANDS OF DIFF CLASSES MOVES 15090MZN01 C SRCH91,@001@ Q. OPRND-1 ADJ REQUIRED MOVES 15100 BL MZN07 YES MOVES 15110MZN02 C SRCH92,@001@ Q. OPRND-2 ADJ REQUIRED MOVES 15120 BL MZN08 YES MOVES 15130MZN03 BCE *&5,SRCH94,D Q. A-OPR REFERS TO HI-ORDER MOVES 15140 B MZN12 NO MOVES 15150 MLC AADJ,REV91 YES--USE ADJUSTMENT AS MOVES 15160 MLC @ @,AADJ IT IS GENERATED MOVES 15170 SW REV94 MOVES 15180MZN12 BCE *&5,SRCH97,D Q. B-OPR REFERS TO HI-ORDER MOVES 15190 B MZN13 NO MOVES 15200 MLC BADJ,REV93 YES--USE ADJUSTMENT AS MOVES 15210 MLC @ @,BADJ IT IS GENERATED MOVES 15220 SW REV90 MOVES 15230MZN13 B REVERS MOVES 15240 B PUTD EXIT MOVES 15250* MOVES 16010MZN04 B CODEIT CHAINING--NOT TRANSLATABLE MOVES 16020 DCW @4/@ MOVES 16030 B NOTRAN&6 MOVES 16040* MOVES 16050MZN05 B CODEIT ONE OR BOTH NAMES UNDEFINED MOVES 16060 DCW @5/@ MOVES 16070 B MZN03 MOVES 16080* MOVES 16090MZN06 B CODEIT CLASSES ARE DIFFERENT MOVES 16100 DCW @6/@ MOVES 16110 B MZN01 MOVES 16120* MOVES 16130MZN07 BCE *&5,AADJ, Q. A-OPERAND ADJUSTED MOVES 16140 B MZN02 YES MOVES 16150 ZA SRCH91,REV91 NO MOVES 16160 S @1@,REV91 MOVES 16170 SW REV90 MOVES 16180 SW REV94 MOVES 16190 B MZN02 MOVES 16200* MOVES 16210MZN08 BCE *&5,BADJ, Q. B-OPERAND ADJUSTED MOVES 16220 B MZN11 MOVES 16230 ZA SRCH92,REV93 NO MOVES 16240 S @1@,REV93 MOVES 16250 SW REV90 MOVES 17010MZN11 MLC @001@,REV92 MOVE IN EXPLICIT LENGTH MOVES 17020 BCE MZN03,OP360-4,O Q. IS /360 OP-CODE OI MOVES 17030 SW REV80 INDICATE NEED LENGTH MOVES 17040 B MZN03 MOVES 17050MZN09 B CODEIT WARN ABOUT POSSIBLE MISUSE MOVES 17060 DCW @T/@ MOVES 17065 MLC @MVN@,OP360-2 MOVES 17070 B MZN10 MOVES 17080* MOVES 17090MVZ01 C AADJ,-004 MOVES 17100 BU MZN00 MOVES 17110 BCE *&5,CODES-3,2 MOVES 17120 B MVZ02 MOVES 17130 MLC @ @,CODES-3 MOVES 17140MVZ02 B SEARCH CLEARING ZONE MOVES 17150 MLC @ @,TYPE-2 CLEAR LITERAL INDICATOR MOVES 17160 BW MVZ03,SRCH95 Q. B-OPERAND DEFINED MOVES 17170 MLC @#X@F0@ @,AOPRND NO MOVES 17180 MLC BLANKS,AADJ MOVES 17190 B MZN05 MOVES 17200MVZ03 BCE MVZ04,SRCH97,C Q. B-OPERAND TYPE CHARACTER MOVES 17210 BCE MVZ06,SRCH97,P Q. B-OPERAND TYPE DECIMAL MOVES 17220 B MZN05 MOVES 17230MVZ04 MLC @X@F0@ @,AOPRND MOVES 17240MVZ05 MLC BLANKS,AADJ MOVES 17250 MLC @OI @,OP360-2 MOVES 18010 ZA BADJ,REV93 MOVES 18020 BCE *&5,SRCH97,D Q. B-OPR REFERD TO HI-ORDER MOVES 18030 A SRCH92,REV93 MOVES 18040 S @1@,REV93 MOVES 18050 MLC &000,BADJ MOVES 18060 SW REV90 MOVES 18070 B MZN01 MOVES 18080MVZ06 MLC @X@0F@ @,AOPRND MOVES 18090 BCE MVZ05,BADJ, MOVES 18100 B CODEIT MOVES 18110 DCW @9/@ MOVES 18120 B MVZ05 MOVES 18130 SKIPN MOVES 18140* MOVES 18150** MOVE RECORD ENTRY MOVES 18160* MOVES 18170MVREC MLC @MVC@,OP360-2 MOVES 18180 BCE MRCM02,BOPRND-6, Q. FULL OR PARTIAL CHAINING MOVES 18190 B SEARCH SCAN DATA ANME TABLE MOVES 18200 BW MRCM03,SRCH90 Q. ONE OR BOTH LABELS NOT MOVES 18210* IN DATA NAME TABLE MOVES 18220 BW MRCM04,SRCH93 Q. OPERANDS OF DIFF CLASSES MOVES 18230MRCM00 C SRCH91,SRCH92 Q. OPERANDS SAME LENGTH MOVES 18240 BE MRCM01 YES MOVES 18250 MLC @000@,REV91 MOVES 19010 ZA SRCH91,REV92 MOVES 19020 SW REV90 MOVES 19030MRCM01 B REVERS MOVES 19040 B CODEIT WARN ABOUT POSSIBLE TRUNCAT MOVES 19050 DCW @R/@ MOVES 19060 B PUTD EXIT MOVES 19070* MOVES 19080MRCM02 B CODEIT CHAINING--NOT TRANSLATABLE MOVES 19090 DCW @4/@ MOVES 19100 B NOTRAN&6 MOVES 19110* MOVES 19120MRCM03 B CODEIT ONE OR BOTH NAMES UNDEFINED MOVES 19130 DCW @5/@ MOVES 19140 B MRCM01 MOVES 19150* MOVES 19160MRCM04 B CODEIT OPERAND CLASSES DIFFER MOVES 19170 DCW @6/@ MOVES 19180 B MRCM00 MOVES 19190 SKIPN MOVES 19200* MOVES 19210** MOVE AND EDIT ENTRY MOVES 19220* MOVES 19230MVEDIT MLC @ED@,OP360-3 MOVES 19240 BCE MCE04,BOPRND-6, Q. FULL OR PARTIAL CHAINING MOVES 19250 B SEARCH SCAN DATA NAME TABLE MOVES 20010 BW MCE05,SRCH90 Q. ONE OR BOTH LABELS NOT MOVES 20020* IN DATA NAME TABLE MOVES 20030 BW MCE00,SRCH93 Q. OPERAND CLASSES DIFFER MOVES 20040 B CODEIT NO--ISSUE WARNING MOVES 20050 DCW @7/@ MOVES 20060MCE00 BCE MCE07,SRCH94,P Q. AOPERAND PACKED MOVES 20070 B CODEIT NO--ISSUE WARNING MOVES 20080 DCW @3@ MOVES 20090 DCW @7/@ MOVES 20100MCE01 C SRCH91,SRCH92 Q. OPERANDS SAME LENGTH MOVES 20110 BE MCE03 YES MOVES 20120 B CODEIT MOVES 20130 DCW @8/@ MOVES 20140 SW REV80 MOVES 20150 MLC SRCH91,REV92 MOVES 20160MCE03 B REVERS MOVES 20170 B PUTD EXIT MOVES 20180* MOVES 20190MCE04 B CODEIT CHAINING--NOT TRANSLATABLE MOVES 20200 DCW @4/@ MOVES 20210 B NOTRAN&6 MOVES 20220* MOVES 20230MCE05 B CODEIT DATA NAME NOT DEFINED MOVES 20240 DCW @5/@ MOVES 20250 B MCE00 MOVES 21010* MOVES 21020MCE07 A SRCH91 COMPUTE PACKED LENGTH MOVES 21030 S @1@,SRCH91 MOVES 21040 MLZS *-4,SRCH91 MOVES 21050 B MCE01 MOVES 21060 SKIPN MOVES 21070* MOVES 21080** MOVE AND SUPPRESS ZEROES ENTRY MOVES 21090* MOVES 21100MVSUPR MLC @MVC@,OP360-2 MOVES 21110 BCE MCS06,BOPRND-6, Q. FULL OR PARTIAL CHAINING MOVES 21120 B SEARCH SCAN DATA NAME TABLE MOVES 21130 BW MCS07,SRCH90 Q. ONE OR BOTH LABELS NOT MOVES 21140* IN DATA NAME TABLE MOVES 21150 BW MCS00,SRCH93 Q. OPERAND CLASSES DIFFER MOVES 21160 B CODEIT NO--ISSUE WARNING MOVES 21170 DCW @7/@ MOVES 21180MCS00 BCE MCS08,SRCH94,P Q. AOPRND PACKED MOVES 21190 B CODEIT NO--ISSUE WARNING MOVES 21200 DCW @3@ MOVES 21210 DCW @7/@ MOVES 21220MCS01 MLNS SRCH91,*&8 MOVES 21230 BCE MCS14,@13579@, Q. ODD LENGTH MOVES 21240 CHAIN4 MOVES 21250 A *-6,SRCH91 NO--MAKE IT ODD LENGTH MOVES 22010MCS14 ZA SRCH91,REV92 MOVES 22020 A *-6,REV92 MOVES 22030 SW REV80 MOVES 22040 C SRCH91,SRCH92 Q. OPERANDS SAME LENGTH MOVES 22050 BE MCS02 YES MOVES 22060 ZA SRCH91,REV91 NO--ASSUME REQUIRED MOVES 22070 S SRCH92,REV91 PRINT AREA AVAILABLE MOVES 22080MCS02 C REV92,&017 Q. LENGTH LESS THAN OR MOVES 22090 BH *&8 EQUAL TO 16 %MAX. SIZE). MOVES 22100 MLC &016,REV92 NO--SET IT EQUAL TO 16 MOVES 22110 B CODEIT MOVES 22120 DCW @R/@ MOVES 22130 B REVERS MOVES 22140 S @1@,REV92 MOVES 22150 SBR X2,OPR360 MOVES 22160MCS09 BCE MCS15,0&X2,, MOVES 22170 BCE MCS13,0&X2,% MOVES 22180 SBR X2,1&X2 MOVES 22190 B MCS09 MOVES 22200MCS10 MLC @#X@40@,5&X2 MOVES 22210 SBR X2,7&X2 MOVES 22220MCS03 S @1@,REV92 MOVES 22230 MCS REV92,MCS90 MOVES 22240 BCE MCS04,MCS90, MOVES 22250 MLC @20@,0&X2 MOVES 23010 SBR X2,2&X2 MOVES 23020 C X2,MCS91 MOVES 23030 BH MCS03 MOVES 23040MCS04 MLC @21@ @,2&X2 MOVES 23050 CW REV89 MOVES 23060 B REV19 MOVES 23070 MLC CODES,MCS90 MOVES 23080 MLC BLANKS,CODES MOVES 23090 B WRITED MOVES 23100 MLC MCS90,CODES MOVES 23110 MLC @ED@,OP360-3 MOVES 23120 C SRCH91,SRCH92 MOVES 23130 BE MCS05 MOVES 23140 ZA SRCH91,REV91 MOVES 23150 S SRCH92,REV91 MOVES 23160MCS05 ZA SRCH91,REV92 MOVES 23170 A *-6,REV92 MOVES 23180 SW REV80 MOVES 23190 B REVERS MOVES 23200 B PUTD MOVES 23210MCS15 SW 1&X2 MOVES 23220 MCW BLANKS,CONT36-1 MOVES 23230 CW 1&X2 MOVES 23240 B MCS10 MOVES 23250* MOVES 24010MCS06 B CODEIT CHAINING--NOT TRANSLATABLE MOVES 24020 DCW @4/@ MOVES 24030 B NOTRAN&6 MOVES 24040* MOVES 24050MCS07 BW MCS11,SRCH95 Q. B-OPERAND DEFINED-BR YES MOVES 24060 BW MCS12,SRCH98 Q. A-OPERAND DEFINED-BR YES MOVES 24070 B CODEIT NEITHER OPERAND DEFINED MOVES 24080 DCW @5/@ MOVES 24090 B NOTRAN MOVES 24100MCS11 ZA @1@,SRCH91 A-OPERAND MISSING MOVES 24110 MLZS *-4,SRCH91 MOVES 24120 B CODEIT MOVES 24130 DCW @3@ MOVES 24140 DCW @5/@ MOVES 24150 B MCS14 MOVES 24160MCS12 B CODEIT MOVES 24170 DCW @5/@ MOVES 24180 ZA *-6,SRCH92 MOVES 24190 MLZS *-4,SRCH92 MOVES 24200 B MCS00 MOVES 24210* MOVES 24220MCS08 A SRCH91 COMPUTE PACKED LENGTH & 1 MOVES 24230 S @1@,SRCH91 MOVES 24240 B MCS01 MOVES 24250* MOVES 25010MCS13 SBR X2,1&X2 MOVES 25020 BCE MCS09,0&X2,) MOVES 25030 B MCS13 MOVES 25040* MOVES 25050MCS90 DCW #4 MOVES 25060MCS91 DSA CONT36-6 MOVES 25070******************************************************************* MOVES 25080 END MOVES MOVES