,008015,022029,033034L0722891001 .8L070E6OM%F0061RL%F1E5PRB268\B251YBG0JMONITOR1 ,035260,268276,281286,042060/I9R//L060H3P,049061,0562531001" MONITOR2 /008F9R/015E9RB253 0000010003 MONITOR3 CALL ASALT EXECUTE ASALT 01010********** SAMPL **************** DIOCS SAMPLES ************************************ 01030********** SAMPL 01040 DIOCS SAMPL 01050DIOCSORG 500 SAMPL 01060IODEVICES READER,PUNCH,DISK,TAPE,PRINTER SAMPL 01070FEATURES DIRECT,SCAN,RELEASE,OVERLAP SAMPL 01080RDLIN DISK,TAPE SAMPL 01090DLABDEF CHECK SAMPL 01100OVLAYLBL YES SAMPL 01110DISKDRIVES 0,2,4,6,8 SAMPL 01120DUPPACKS YES SAMPL 01130PROCESTYPE RANDOM,CONSEC,CTLSEQ SAMPL 01140CYLDOVFLW YES SAMPL 01150CSLINKAGE 6,7,8 SAMPL 01160ALTDRIVE YES SAMPL 01170LABELDEF STANDARD,B SAMPL 01180EXITS YES SAMPL 01190WLRCHECK YES SAMPL 01200READERROR SCAN SAMPL 01210CHECKPOINT YES SAMPL 01220* SAMPL 01230* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * SAMPL 01240* SAMPL * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 01250********** SAMPL ******************** CARD READER DTF ****************************** 02020********** SAMPL 02030 DTF CARDIN SAMPL 02050WORKAREA INCARD SAMPL 02040FILETYPE READER SAMPL 02060EOFADDR LASTCD SAMPL 02070CARDPOC 1 SAMPL * 02080********** SAMPL ********************* CARD PUNCH DTF ****************************** 02100********** SAMPL 02110 DTF CRDOUT SAMPL 02120FILETYPE PUNCH SAMPL 02130WORKAREA OUTCRD SAMPL 02140CARDPOC 4 SAMPL 07150********** SAMPL ********************** PRINTER DTF ******************************** 07170********** SAMPL 07180 DTF PRINT SAMPL 07190FILETYPE PRINTER SAMPL 07200WORKAREA PRINTW SAMPL 07210* SAMPL 07220* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * SAMPL 07230* SAMPL 02150* SAMPL 02160* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * SAMPL 02170* SAMPL 02180********** SAMPL *********** CONSECUTIVE DISK INPUT - UNBLOCKED ******************** 02200********** SAMPL 02210 DTF SEQIND SAMPL 02220FILETYPE DISK,INPUT,CONSEC SAMPL 02230IOAREAS INDISK SAMPL 02240WORKAREA WKDISK SAMPL 02250RECFORM FIXED,UNBLOCKED SAMPL 03010NSECTORS 3 SAMPL 03020TRACKFORM SECTOR SAMPL 03030SIZEREC 275 SAMPL 03040NAT0PACK 0 SAMPL 03050EOFADDR ENDISK SAMPL 03060FILESTART 000000 SAMPL 03070FILEND 019979 SAMPL 03080CHECKLABEL ALL SAMPL 03090FILSEQ 0001 SAMPL 03100SERIALNUM 00001 SAMPL 03110PACKSERIAL 00001 SAMPL 03120HEADER DISK-INPUT,67097,0005 SAMPL * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 03130********** SAMPL *********** CONSECUTIVE DISK OUTPUT - BLOCKED ********************* 03150********** SAMPL 03160 DTF SEQOUD SAMPL 03170FILETYPE DISK,OUTPUT,CONSEC SAMPL 03180IOAREAS OUDISK SAMPL 03190INDEXREG X1 SAMPL 03200RECFORM BLOCKED,FIXED SAMPL 03210NSECTORS 10 SAMPL 03220SIZEREC 100 SAMPL 03230NAT2PACK 2 SAMPL 03240EOFADDR TROUBL SAMPL 03250NRECORDS 9 SAMPL 04010FILESTART 020000 SAMPL 04020FILEND 039979 SAMPL 04030CHECKLABEL ALL SAMPL 04040FILSEQ 0001 SAMPL 04050SERIALNUM 00002 SAMPL 04060PACKSERIAL 00002 SAMPL 04070HEADER DISKOUTPUT,0002 SAMPL * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 04080********** SAMPL ************* RANDOM DISK INPUT - UNBLOCKED *********************** 04100********** SAMPL 04110 DTF RANDIN SAMPL 04120FILETYPE DISK SAMPL 04130IOAREAS INDISK SAMPL 04140NSECTORS 2 SAMPL 04150SIZEREC 200 SAMPL 04160NAT0PACK 2 SAMPL 04170UPDATE YES SAMPL 04180FILESTART 000000 SAMPL 04190FILEND 019979 SAMPL 04200CHECKLABEL IDENT SAMPL 04210HEADER RANDOMDISK SAMPL * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 04220********** SAMPL ************** RANDOM DISK OUTPUT - BLOCKED *********************** 04240********** SAMPL 04250 DTF RANOUT SAMPL 05010FILETYPE DISK,OUTPUT,RANDOM SAMPL 05020IOAREAS OUDISK SAMPL 05030INDEXREG X2 SAMPL 05040RECFORM FIXED,BLOCKED SAMPL 05050NSECTORS 5 SAMPL 05060SIZEREC 100 SAMPL 05070NAT2PACK 4 SAMPL 05080NRECORDS 4 SAMPL * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 05090********** SAMPL **************** CONTROL SEQUENTIAL DISK ************************** 05110********** SAMPL 05120 DTF CTLIN SAMPL 05130FILETYPE DISK,INPUT,CTLSEQ,RM SAMPL 05140IOAREAS INDISK SAMPL 05150WORKAREA WKDISK SAMPL 05160EOFADDR ENDCTL SAMPL 05170NSECTORS 5 SAMPL 05180SIZEREC 250 SAMPL 05190NAT8PACK 8 SAMPL 05200NRECORDS 1 SAMPL 05210UPDATE YES SAMPL 05220FILESTART 080080 SAMPL 05230FILEND 099979 SAMPL 05240* SAMPL 05250* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * SAMPL 06010* SAMPL 06020********** SAMPL ***** TAPE INUPT - BLOCKED - TWO I/O AREAS %OVERLAP) ************** 06040********** SAMPL 06050 DTF TAPEIN SAMPL 06060FILETYPE TAPE,INPUT,CHECKPOINT SAMPL 06070IOAREAS INTAP1,INTAP2 SAMPL 06080INDEXREG X3 SAMPL 06090RECFORM BLOCKED,FIXED SAMPL 06100BLOCKSIZE 999 SAMPL 06110SIZEREC 37 SAMPL 06120CHANDRIVE 1 SAMPL 06130ALTTAPE 5 SAMPL 06140EOFADDR TAPEND SAMPL 06150MODEPAR MOVE SAMPL 06160OUTLIN YES SAMPL 06170TYPELABEL STANDARD,B,TM SAMPL 06180CHECKLABEL ALL SAMPL 06190SERIALNUM 00010 SAMPL 06200REELSEQ 001 SAMPL 06210HEADER TAPE INPUT,67094,010 SAMPL 06220TOTALS RECORD SAMPL 06230EX6ADDR EXIT6 SAMPL 06240REWIND UNLOAD SAMPL 06250WLRADDR TAPWLR SAMPL * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 07010********** SAMPL *********** TAPE OUTPUT - VARIABLE - UNBLOCKED ******************** 07030********** SAMPL 07040 DTF TAPOUT SAMPL 07050FILETYPE TAPE,OUTPUT SAMPL 07060IOAREAS OUTAPE SAMPL 07070RECFORM VARIABLE SAMPL 07080SIZEREC 1 SAMPL 07090CHANDRIVE 2 SAMPL 07100ALTTAPE 6 SAMPL 07110REWIND NORWD SAMPL SKIPN 07120* SAMPL 07130* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * SAMPL 07140* SAMPL 07240********** SAMPL ******************* IOCS MACRO SAMPLES **************************** 08010********** SAMPL 08020 GET TAPEIN SAMPL * * * * * 08030 GET TAPEIN,WORKAR SAMPL * * * * * 08040 GET CARDIN,CDWORK,1 SAMPL * * * * * 08050 GET CARDIN,,2 SAMPL * * * * * 08060 GET DISKIN SAMPL * * * * * 08070* SAMPL * * * * * 08090 PUT ,SEQOUT SAMPL * * * * * 08100 PUT WORKAR,RANOUT SAMPL * * * * * 08110 PUT WORKA,CTLIN SAMPL * * * * * 08120 PUT ,TAPOUT SAMPL * * * * * 08130 PUT ,CRDOUT,4 SAMPL * * * * * 08140 PUT ,PRINT,3,S SAMPL * * * * * 08150* SAMPL * * * * * 08160 SCAN SEQIND,SEARCH,50,EQUAL SAMPL * * * * * 08170 SEEK SEQIND SAMPL * * * * * 08180 RELSETAPEIN SAMPL * * * * * 08080* SAMPL * * * * * 08190 SPACE2 SAMPL * * * * * 08200 SKIP 3 SAMPL * * * * * 08210 SKIP L SAMPL * * * * * 08220 RDLIND,SEQIND,SEQOUD,CTLIN SAMPL * * * * * 08230 RDLINT,TAPEIN,TAPOUT SAMPL * * * * * 08240 RDLINTAPEIN,D,SEQIND SAMPL * * * * * 08250 OPEN D,SEQIND,SEQOUD,CTLIN SAMPL * * * * * 09010 OPEN T,TAPEIN,TAPOUT SAMPL * * * * * 09020 OPEN TAPEIN,D,SEQIND SAMPL * * * * * CLOSED,SEQIND,SEQOUD,CTLIN * * * * * CLOSET,TAPEIN,TAPOUT * * * * * CLOSETAPEIN,D,SEQIND * * * * * 09030 FEORLTAPOUT SAMPL * * * * * 09040 DCLOSREWIND,UNLOAD SAMPL * * * * * 09050********** SAMPL ************** ASSEMBLER CONTROL STATEMENTS *********************** 09070********** SAMPL 09080 CTL 311 0PPP11 SAMPL * * * * * 09090 CTL 661 SAMPL * * * * * 09100 ENT SPS SAMPL * * * * * 09110 ENT BASIC SAMPL * * * * * 09120 EX START SAMPL * * * * * 09130 LTORG* SAMPL * * * * * 09140 LTORGLABEL1 SAMPL * * * * * 09150 LIST SAMPL * * * * * 09160 SPCE 2 SAMPL * * * * * 09170 SPCE 1 SAMPL * * * * * 09180 ULST SAMPL * * * * * 09190 ORG *&X00&1 SAMPL * * * * * 09200LABEL2 ORG LABEL1 SAMPL * * * * * 09210 ORG LABEL2 SAMPL * * * * * 09220 XFR START SAMPL * * * * * 09230 SFX A SAMPL * * * * * 09240 JOB STATEMENT RUN SAMPL PROG EQU *&1 * * * * * 09245* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 09260* ********** ************** ARITHMETIC OPERATION SAMPLES *********************** ********** * 10045* ADD SAMPLES. * 10010 A *-6,DECML1 SAMPL * * * * * 10030 A *-6,ZONED1 SAMPL * * * * * 10050 A ZONED1,ZONED2 SAMPL * * * * * 10060 A ZONED1 SAMPL * * * * * 10070 A ZONED1,ZONED3 SAMPL * * * * * 10080 A ZONED1,ZONED4 SAMPL * * * * * 10090 A DECML1,DECML2 SAMPL * * * * * 10100 A DECML1 SAMPL * * * * * 10110 A DECML1,DECML3 SAMPL * * * * * 10120 A DECML1,DECML4 SAMPL * * * * * 10130 A ZONED1,DECML1 SAMPL * * * * * 10140 A DECML1,ZONED2 SAMPL * * * * * 10150 A ZONED2,DECML2 SAMPL * * * * * 10160 A SAMPL * * SUBTRACT SAMPLES. * 10170 S ZONED1,ZONED2 SAMPL * * * * * 10180 S ZONED1 SAMPL * * * * * 10190 S ZONED1,ZONED3 SAMPL * * * * * 10200 S ZONED1,ZONED4 SAMPL * * * * * 10210 S DECML1,DECML2 SAMPL * * * * * 10220 S DECML1 SAMPL * * * * * 10230 S DECML1,DECML3 SAMPL * * * * * 10240 S DECML1,DECML4 SAMPL * * * * * 10250 S ZONED1,DECML1 SAMPL * * * * * 11010 S DECML1,ZONED2 SAMPL * * * * * 11020 S ZONED2,DECML2 SAMPL * * * * * 11030 S SAMPL * 10165* ZERO AND ADD SAMPLES. * 10020 ZA *-6,DECML1 SAMPL * * * * * 10040 ZA *-6,ZONED1 SAMPL * * * * * 11040 ZA ZONED1,ZONED2 SAMPL * * * * * 11050 ZA ZONED1 SAMPL * * * * * 11060 ZA ZONED1,ZONED3 SAMPL * * * * * 11070 ZA ZONED1,ZONED4 SAMPL * * * * * 11080 ZA DECML1,DECML2 SAMPL * * * * * 11090 ZA DECML1,DECML3 SAMPL * * * * * 11100 ZA DECML1,DECML4 SAMPL * * * * * 11110 ZA DECML1 SAMPL * * * * * 11120 ZA ZONED1,DECML1 SAMPL * * * * * 11130 ZA DECML1,ZONED2 SAMPL * * * * * 11140 ZA ZONED2,DECML2 SAMPL * * * * * 11150 ZA SAMPL * 11045* ZERO AND SUBTRACT SAMPLES. * 11160 ZS ZONED1,ZONED2 SAMPL * * * * * 11170 ZS ZONED1 SAMPL * * * * * 11180 ZS ZONED1,ZONED3 SAMPL * * * * * 11190 ZS ZONED1,ZONED4 SAMPL * * * * * 11200 ZS DECML1,DECML2 SAMPL * * * * * 11210 ZS DECML1 SAMPL * * * * * 11220 ZS DECML1,DECML3 SAMPL * * * * * 11230 ZS DECML1,DECML4 SAMPL * * * * * 11240 ZS ZONED1,DECML1 SAMPL * * * * * 11250 ZS DECML1,ZONED2 SAMPL * * * * * 12010 ZS ZONED2,DECML2 SAMPL * * * * * 12020 ZS SAMPL * 12025* MULTIPLY SAMPLES. * 12030 M ZONED1,ZONED2 SAMPL * * * * * 12040 M ZONED1 SAMPL * * * * * 12050 M ZONED1,ZONED3 SAMPL * * * * * 12060 M ZONED1,ZONED4 SAMPL 12070 M DECML1,DECML2 SAMPL * * * * * 12080 M DECML1 SAMPL * * * * * 12090 M DECML1,DECML3 SAMPL * * * * * 12100 M DECML1,DECML4 SAMPL * * * * * 12110 M ZONED1,DECML1 SAMPL * * * * * 12120 M DECML1,ZONED2 SAMPL * * * * * 12130 M ZONED2,DECML2 SAMPL * * * * * 12140 M SAMPL * 12145* DIVIDE SAMPLES. * 12150 D ZONED1,ZONED2 SAMPL * * * * * 12160 D ZONED1 SAMPL * * * * * 12170 D ZONED1,ZONED3 SAMPL * * * * * 12180 D ZONED1,ZONED4 SAMPL * * * * * 12190 D DECML1,DECML2 SAMPL * * * * * 12200 D DECML1 SAMPL * * * * * 12210 D DECML1,DECML3 SAMPL * * * * * 12220 D DECML1,DECML4 SAMPL * * * * * 12230 D ZONED1,DECML1 SAMPL * * * * * 12240 D DECML1,ZONED2 SAMPL * * * * * 12250 D ZONED2,DECML2 SAMPL * * * * * 13010 D SAMPL * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 13020********** SAMPL ************* DATA CONTROL OPERATION SAMPLES ********************** 13040********** SAMPL * 13045* BINARY MOVE SAMPLES. * 13050 MBC ZONED1,ZONED2 SAMPL 13060 MBD ZONED1,ZONED2 SAMPL * 13065* MOVE CHARACTERS AND EDIT SAMPLES. * 13070 MCE ZONED1,ZONED2 SAMPL * * * * * 13080 MCE ZONED1,ZONED3 SAMPL * * * * * 13090 MCE ZONED1,ZONED4 SAMPL * * * * * 13100 MCE DECML1,DECML2 SAMPL * * * * * 13110 MCE DECML1,DECML3 SAMPL * * * * * 13120 MCE DECML1,DECML4 SAMPL * * * * * 13130 MCE ZONED1,DECML1 SAMPL * * * * * 13140 MCE DECML1,ZONED2 SAMPL * * * * * 13150 MCE ZONED2,DECML2 SAMPL * * * * * 13160 MCE ZONED1 SAMPL * * * * * 13170 MCE DECML1 SAMPL * * * * * 13180 MCE SAMPL * 13185* MOVE CHARACTERS AND SUPPRESS ZEROES SAMPLES. * 13190 MCS ZONED1,ZONED2 SAMPL * * * * * 13200 MCS ZONED1,ZONED3 SAMPL * * * * * 13210 MCS ZONED1,ZONED4 SAMPL * * * * * 13220 MCS DECML1,DECML2 SAMPL * * * * * 13230 MCS DECML1,DECML3 SAMPL * * * * * 13240 MCS DECML1,DECML4 SAMPL * * * * * 13250 MCS ZONED1,DECML1 SAMPL * * * * * 14010 MCS DECML1,ZONED2 SAMPL * * * * * 14020 MCS ZONED2,DECML2 SAMPL * * * * * 14030 MCS ZONED1 SAMPL * * * * * 14040 MCS DECML1 SAMPL * * * * * 14050 MCS SAMPL * * * * * 14060 MCS DECML1,300 SAMPL * * * * * 14070 MCS DECML2,300 SAMPL * 14075* MOVE AND INSERT ZEROES %7070 COMPRESSED TAPE) SAMPLE. * 14080 MIZ ZONED1,ZONED2 SAMPL * * * * * * 14085* MOVE LEFT CHARACTERS TO WORD MARK SAMPLES. * 14090 MLC X1,X2 SAMPL * * * * * 14100 MLC X1,SAVEX1 SAMPL * * * * * 14110 MLC SAVEX1,X1 SAMPL * * * * * 14120 MLC ZONED1,ZONED3 SAMPL * * * * * 14130 MLC ZONED1,ZONED4 SAMPL * * * * * 14140 MLC DECML1,DECML2 SAMPL * * * * * 14150 MLC DECML1,DECML3 SAMPL * * * * * 14160 MLC DECML1,DECML4 SAMPL * * * * * 14170 MLC ZONED1,DECML1 SAMPL * * * * * 14180 MLC DECML1,ZONED2 SAMPL * * * * * 14190 MLC ZONED2,DECML2 SAMPL * * * * * 14200 MLC ZONED1,ZONED2 SAMPL * * * * * 14210 MLC ZONED1 SAMPL * * * * * 14220 MLC DECML1 SAMPL * * * * * 14230 MLC SAMPL * * * * * 14240 MCW ZONED1,ZONED2 SAMPL * * * * * 14250 MCW ZONED1,ZONED3 SAMPL * * * * * 15010 MCW ZONED1,ZONED4 SAMPL * * * * * 15020 MCW DECML1,DECML2 SAMPL * * * * * 15030 MCW DECML1,DECML3 SAMPL * * * * * 15040 MCW DECML1,DECML4 SAMPL * * * * * 15050 MCW ZONED1,DECML1 SAMPL * * * * * 15060 MCW DECML1,ZONED2 SAMPL * * * * * 15070 MCW ZONED2,DECML2 SAMPL * 15075* MOVE LEFT CHARACTERS TO A-FIELD WORD MARK SAMPLES. * 15080 MLCWAZONED1,ZONED2 SAMPL * * * * * 15090 MLCWAZONED1,ZONED3 SAMPL * * * * * 15100 MLCWAZONED1,ZONED4 SAMPL * * * * * 15110 MLCWADECML1,DECML2 SAMPL * * * * * 15120 MLCWADECML1,DECML3 SAMPL * * * * * 15130 MLCWADECML1,DECML4 SAMPL * * * * * 15140 MLCWAZONED1,DECML1 SAMPL * * * * * 15150 MLCWADECML1,ZONED2 SAMPL * * * * * 15160 MLCWAZONED2,DECML2 SAMPL * * * * * 15170 MLCWADECML1 SAMPL * * * * * 15180 MLCWAZONED1 SAMPL * * * * * 15190 MLCWA SAMPL * * * * * 15200 MLCWA@$ , 0. CR@,238 SAMPL * * * * * 15210 MLCWA@ 0. @,321 SAMPL * * * * * 15220 LCA ZONED1,ZONED2 SAMPL * * * * * 15230 LCA ZONED1,ZONED3 SAMPL * * * * * 15240 LCA ZONED1,ZONED4 SAMPL * * * * * 15250 LCA DECML1,DECML2 SAMPL * * * * * 16010 LCA DECML1,DECML3 SAMPL * * * * * 16020 LCA DECML1,DECML4 SAMPL * * * * * 16030 LCA ZONED1,DECML1 SAMPL * * * * * 16040 LCA DECML1,ZONED2 SAMPL * * * * * 16050 LCA ZONED2,DECML2 SAMPL * 16045* MOVE NUMERIC SAMPLES. * 16060 MLNS ZONED1,ZONED2 SAMPL * * * * * 16070 MLNS ZONED1,ZONED3 SAMPL * * * * * 16080 MLNS ZONED1,ZONED4 SAMPL * * * * * 16090 MLNS DECML1,DECML2 SAMPL * * * * * 16100 MLNS DECML1,DECML3 SAMPL * * * * * 16110 MLNS DECML1,DECML4 SAMPL * * * * * 16120 MLNS ZONED1,DECML1 SAMPL * * * * * 16130 MLNS DECML1,ZONED2 SAMPL * * * * * 16140 MLNS ZONED2,DECML2 SAMPL * * * * * 16150 MLNS ZONED1 SAMPL * * * * * 16160 MLNS DECML1 SAMPL * * * * * 16170 MLNS SAMPL * * * * * 16180 MN ZONED1,ZONED2 SAMPL * * * * * 16190 MN ZONED1,ZONED3 SAMPL * * * * * 16200 MN ZONED1,ZONED4 SAMPL * * * * * 16210 MN DECML1,DECML2 SAMPL * * * * * 16220 MN DECML1,DECML3 SAMPL * * * * * 16230 MN DECML1,DECML4 SAMPL * * * * * 16240 MN ZONED1,DECML1 SAMPL * * * * * 16250 MN DECML1,ZONED2 SAMPL * * * * * 17010 MN ZONED2,DECML2 SAMPL * 17015* MOVE ZONE SAMPLES. * 17020 MLZS @ @,DECML1 SAMPL * * * * * 17030 MLZS @ @,ZONED1 SAMPL * * * * * 17040 MLZS *-4,DECML1 SAMPL * * * * * 17050 MLZS *-4,ZONED2 SAMPL * * * * * 17060 MLZS ZONED1,ZONED2 SAMPL * * * * * 17070 MLZS ZONED1,ZONED3 SAMPL * * * * * 17080 MLZS ZONED1,ZONED4 SAMPL * * * * * 17090 MLZS DECML1,DECML2 SAMPL * * * * * 17100 MLZS DECML1,DECML3 SAMPL * * * * * 17110 MLZS DECML1,DECML4 SAMPL * * * * * 17120 MLZS ZONED1,DECML1 SAMPL * * * * * 17130 MLZS DECML1,ZONED2 SAMPL * * * * * 17140 MLZS ZONED2,DECML2 SAMPL * * * * * 17150 MLZS DECML1 SAMPL * * * * * 17160 MLZS ZONED1 SAMPL * * * * * 17170 MLZS SAMPL * * * * * 17180 MZ ZONED1,ZONED2 SAMPL * * * * * 17190 MZ ZONED1,ZONED3 SAMPL * * * * * 17200 MZ ZONED1,ZONED4 SAMPL * * * * * 17210 MZ DECML1,DECML2 SAMPL * * * * * 17220 MZ DECML1,DECML3 SAMPL * * * * * 17230 MZ DECML1,DECML4 SAMPL * * * * * 17240 MZ ZONED1,DECML1 SAMPL * * * * * 17250 MZ DECML1,ZONED2 SAMPL * * * * * 18010 MZ ZONED2,DECML2 SAMPL * 18015* MOVE RECORD SAMPLES. 18020 MRCM ZONED1,ZONED2 SAMPL * * * * * * 18030 MRCM ZONED1,ZONED3 SAMPL * * * * * 18040 MRCM ZONED1,ZONED4 SAMPL * * * * * 18050 MRCM DECML1,DECML2 SAMPL * * * * * 18060 MRCM DECML1,DECML3 SAMPL * * * * * 18070 MRCM DECML1,DECML4 SAMPL * * * * * 18080 MRCM ZONED1,DECML1 SAMPL * * * * * 18090 MRCM DECML1,ZONED2 SAMPL * * * * * 18100 MRCM ZONED2,DECML2 SAMPL * * * * * 18110 MRCM ZONED1 SAMPL * * * * * 18120 MRCM DECML1 SAMPL * * * * * 18130 MRCM SAMPL * * * * * 18140 MCM ZONED1,ZONED2 SAMPL * * * * * 18150 MCM ZONED1,ZONED3 SAMPL * * * * * 18160 MCM ZONED1,ZONED4 SAMPL * * * * * 18170 MCM DECML1,DECML2 SAMPL * * * * * 18180 MCM DECML1,DECML3 SAMPL * * * * * 18190 MCM DECML1,DECML4 SAMPL * * * * * 18200 MCM ZONED1,DECML1 SAMPL * * * * * 18210 MCM DECML1,ZONED2 SAMPL * * * * * 18220 MCM ZONED2,DECML2 SAMPL * * * * * 18230 MRCWGZONED1,ZONED2 SAMPL * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 18240********** SAMPL **************** LOGIC OPERATION SAMPLES ************************** 19010********** SAMPL 19020 B PROG SAMPL * * * * * 19030 BAV PROG SAMPL * * * * * 19040 BBE PROG,OUFLD1,W SAMPL * * * * * 19050 BCE PROG,AREA1,3 SAMPL * * * * * 19060 BCV PROG SAMPL * * * * * 19070 BC9 PROG SAMPL * * * * * 19080 BE PROG SAMPL * * * * * 19090 BEF PROG SAMPL * * * * * 19100 BER PROG SAMPL * * * * * 19110 BH PROG SAMPL * * * * * 19120 BIN PROG,N SAMPL * * * * * 19130 BIN PROG,V SAMPL * * * * * 19140 BIN PROG,W SAMPL * * * * * 19150 BIN PROG,X SAMPL * * * * * 19160 BIN PROG,Y SAMPL * * * * * 19170 BIN PROG,? SAMPL * * * * * 19180 BIN PROG,! SAMPL * * * * * 19190 BIN PROG,` SAMPL * * * * * 19200 BIN PROG,% SAMPL * * * * * 19210 BIN PROG,\ SAMPL * * * * * 19220 BIN PROG,* SAMPL * * * * * 19230 BIN PROG,Q SAMPL * * * * * 19240 BIN PROG,H SAMPL * * * * * 19250 BIN PROG,I SAMPL * * * * * 20010 BIN PROG,J SAMPL * * * * * 20020 BIN PROG,Z SAMPL * * * * * 20030 BIN PROG,@ SAMPL * * * * * 20040 BIN PROG,9 SAMPL * * * * * 20050 BIN PROG,K SAMPL * * * * * 20060 BIN PROG,L SAMPL * * * * * 20070 BIN PROG,S SAMPL * * * * * 20080 BIN PROG,T SAMPL * * * * * 20090 BIN PROG,U SAMPL * * * * * 20100 BIN PROG,/ SAMPL * * * * * 20110 BIN PROG,A SAMPL * * * * * 20120 BIN PROG,B SAMPL * * * * * 20130 BL PROG SAMPL * * * * * 20140 BLC PROG SAMPL * * * * * 20150 BLC2 PROG SAMPL * * * * * 20160 BM PROG,ZONED1 SAMPL * * * * * 20170 BM PROG,DECML2 SAMPL * * * * * 20180 BPB PROG SAMPL * * * * * 20190 BPCB PROG SAMPL * * * * * 20200 BSS PROG,C SAMPL * * * * * 20210 BSS PROG,G SAMPL * * * * * 20220 BU PROG SAMPL * * * * * 20230 BW PROG,SW2 SAMPL * * * * * 20240 BWZ PROG,SW2,1 SAMPL * * * * * 20250 BWZ PROG,INFLD1,2 SAMPL * * * * * 21010 BWZ PROG,INFLD1,3 SAMPL * * * * * 21020 BWZ PROG,INFLD1,B SAMPL * * * * * 21030 BWZ PROG,INFLD1,C SAMPL * * * * * 21040 BWZ PROG,INFLD1,K SAMPL * * * * * 21050 BWZ PROG,INFLD1,L SAMPL * * * * * 21060 BWZ PROG,INFLD1,S SAMPL * * * * * 21070 BWZ PROG,INFLD1,T SAMPL * 21075* COMPARE SAMPLES. * 21080 C ZONED1,ZONED2 SAMPL * * * * * 21090 C ZONED1,ZONED3 SAMPL * * * * * 21100 C ZONED1,ZONED4 SAMPL * * * * * 21110 C ZONED1 SAMPL * * * * * 21120 C DECML1,DECML2 SAMPL * * * * * 21130 C DECML1,DECML3 SAMPL * * * * * 21140 C DECML1,DECML4 SAMPL * * * * * 21150 C ZONED1,DECML1 SAMPL * * * * * 21160 C DECML1,ZONED2 SAMPL * * * * * 21170 C ZONED2,DECML2 SAMPL * * * * * 21180 C DECML1 SAMPL * * * * * 21190 C SAMPL * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 21200********** SAMPL ************ MISCELLANEOUS OPERATION SAMPLES ********************** 21220********** SAMPL * 21225* CONTROL CARRIAGE SAMPLES. * 21230 CC S SAMPL * * * * * 21240 CC L SAMPL * * * * * 21250 CC A SAMPL * * * * * 22010 CC 3 SAMPL * * * * * 22020 CCB PROG,1 SAMPL * * * * * 22030 CCB PROG,B SAMPL * * * * * 22040 CCB PROG,K SAMPL * * * * * 22050 CCB PROG,T SAMPL * 22055* CLEAR STORAGE SAMPLES. * 22060 CS 201 SAMPL * * * * * CS PRINTA&15 * * * * * 22080 CS PROG,180 SAMPL * * * * * 22090 CS PROG,LABEL1 SAMPL * 22095* CLEAR WORD MARK SAMPLES. * 22100 CW SW1 SAMPL * 22110 CW SW1,SW2 SAMPL * 22115* HALT SAMPLES. * 22120 H SAMPL * * * * * 22130 H PROG SAMPL * * * * * 22140 H 999,999 SAMPL * * * * * 22150 H *-3 SAMPL * * * * * 22160STOP H STOP SAMPL * 22165* MODIFY ADDRESS SAMPLES. * 22170 MA @010@,X1 SAMPL * * * * * 22180 MA X1,X3 SAMPL * * * * * 22190 MA @011@,PROG&3 SAMPL * * * * * 22200 MA CON1,X2 SAMPL * * * * * 22210 MA CONST1,PROG&6 SAMPL * 22215* NO OPERATION SAMPLES * 22220 NOP SAMPL * * * * * 22230 NOP PROG SAMPL * * * * * 22240 NOP ZONED1,ZONED2 SAMPL * 22245* STORE A- OR B-ADDRESS REGISTER SAMPLES.. * 22250 SAR PROG&3 SAMPL * * * * * 23010 SBR PROG&3 SAMPL * * * * * 23020 SBR X1,0 SAMPL * * * * * 23030 SBR X1,PROG SAMPL * * * * * 23040 SBR PROG&3,CONST1 SAMPL * * * * * 23050 SBR PROG&3,PROG1 SAMPL * * * * * 23060 SBR X1,10&X1 SAMPL * 23065* SELECT STACKER SAMPLES. * 23070 SS 1 SAMPL * * * * * 23080 SS 4 SAMPL * * * * * 23090 SS $ SAMPL * * * * * 23100 SSB PROG,1 SAMPL * * * * * 23110 SSB PROG,8 SAMPL * * * * * 23120 SSB PROG,$ SAMPL * 23125* SET WORD MARK SAMPLES. * 23130 SW SW1 SAMPL * * * * * 23140 SW SW1,SW2 SAMPL * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 23150********** SAMPL ********* INPUT/OUTPUT DEVICE OPERATION SAMPLES ******************* 23170********** SAMPL 23180 R 1,INCARD SAMPL * * * * * 23190 R SAMPL * * * * * 23200 R PROG SAMPL * * * * * 23210 RCB PROG SAMPL * * * * * 23220 P SAMPL * * * * * 23230 P PROG SAMPL * * * * * 23240 PCB SAMPL * * * * * 23250 RP SAMPL * * * * * 24010 RP PROG SAMPL * * * * * 24020 RF SAMPL * * * * * 24030 RF PROG SAMPL * * * * * 24040 SRF SAMPL * * * * * 24050 SPF SAMPL * * * * * 24060 RCP INAREA SAMPL * * * * * 24070 RCPW INAREA SAMPL * * * * * 24080 LU %T0,MSG1,W SAMPL * * * * * 24090 MU %T0,MSG1,R SAMPL * * * * * 24100 MU %S1,INAREA,R SAMPL * * * * * 24110 PS 1,OUCARD SAMPL * * * * * 24120 PSK 1,OUCARD SAMPL * * * * * 24130 W SAMPL * * * * * 24140 W PROG SAMPL * * * * * 24150 W PRINTA SAMPL * * * * * 24160 WP SAMPL * * * * * 24170 WP PROG SAMPL * * * * * 24180 WR SAMPL * * * * * 24190 WR PROG SAMPL * * * * * 24200 WRF SAMPL * * * * * 24210 WRF PROG SAMPL * * * * * 24220 WRP SAMPL * * * * * 24230 WRP PROG SAMPL * * * * * 24240 WS PRINT SAMPL * * * * * 24250 WM SAMPL * * * * * 25010 WCP MSG1 SAMPL * * * * * 25020 WCPW OUTARE SAMPL * * * * * 25030 CU %U1,B SAMPL * * * * * 25040 CU %U2,M SAMPL * * * * * 25050 CU %U3,R SAMPL * * * * * 25060 CU %U4,U SAMPL * * * * * 25070 CU %U5,M SAMPL * * * * * 25080 CU %S1,E SAMPL * * * * * 25090 BSP 1 SAMPL * * * * * 25100 RWD 5 SAMPL * * * * * 25110 RWU 6 SAMPL * * * * * 25120 SKP 2 SAMPL * * * * * 25130 WTM 5 SAMPL * * * * * 25140 RT 2,INTAPE SAMPL * * * * * 25150 RTB 3,INTAPE SAMPL * * * * * 25160 RTW 4,INTAPE SAMPL * * * * * 25170 WT 3,OUTAPE SAMPL * * * * * 25180 WTB 3,OUTAPE SAMPL * * * * * 25190 WTW 3,OUTAPE SAMPL * * * * * 25200 MU %U1,INTAPE,R SAMPL * * * * * 25210 MU %U2,OUTAPE,W SAMPL * * * * * 25220 LU %U3,INTAPE,R SAMPL * * * * * 25230 LU %U4,OUTAPE,W SAMPL * * * * * 25240 MU @U5,INTAPE,R SAMPL * * * * * 25250 MU @U6,OUTAPE,W SAMPL * * * * * 26010 MCW %U1,INTAPE,R SAMPL * * * * * 26020 LCA %U2,OUTAPE,W SAMPL * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 26030********** SAMPL ************* DECLARATIVE OPERATION SAMPLES *********************** 26050********** SAMPL 26060INTAPE DA 2X100,X1,G SAMPL 26070INFLD1 1,10 SAMPL 26080INFLD2 16,20 SAMPL 26090INFLD3 21 SAMPL 26100INFLD4 24,24 SAMPL 26110INFLD5 21,25 SAMPL 26120OUTAPE DA 2X99,`,G SAMPL 26130OUFLD1 1,10 SAMPL 26140OUFLD2 16,20 SAMPL 26260 MSG1 DCW @SAMPLE CONSOLE TYPEWRITER MESSAGE.@ 26270INAREA DA 1X100,G 26280OUTARE DA 1X20,G 26150PRINTA DA 1X144,G SAMPL 26160CONST1 DC @ @ SAMPL 26170CONST2 DC 123456 SAMPL 26180CONST3 DC #1 SAMPL 26190CONST4 DC &INFLD1 SAMPL 26200CONST5 DC INFLD2 SAMPL 26210CONST6 DCW @ @ SAMPL 26220CONST7 DCW #21 SAMPL 26230CONST8 DCW -123465 SAMPL 26240CONST9 DCW &ZONED1 SAMPL 26250 INDENT DCW #8 SAMPL 27010AREA1 DS 10 SAMPL 27020AREA2 DS 18 SAMPL 27030ADCON1 DSA TAPE1 SAMPL 27040ADCON2 DSA INFLD5 SAMPL 27050TAPE1 EQU %U1 SAMPL 27060LABEL1 EQU INFLD4 SAMPL 27070ZONED1 DCW #5 SAMPL 27080ZONED2 DCW @ABCDEF@ SAMPL 27090ZONED3 DCW @123456@ SAMPL 27100ZONED4 DCW @12345@ SAMPL 27110DECML1 DCW -12345 SAMPL 27120DECML2 DCW 123456 SAMPL 27130DECML3 DCW 000000 SAMPL 27140DECML4 DCW &12345 SAMPL 27150EDIT1 DCW @ 0. @ SAMPL 27160EDIT2 DCW @$ , 0. @ SAMPL 27170EDIT3 DCW @ . 0@ SAMPL 27180EDIT4 DCW @$ , 0. CR@ SAMPL * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ********** ********** EXAMPLES OF ADJUSTMENT GENERATION. ******************* ********** * MLC A,B * MLC A,C * MLC C,A * MLC A-1,B * MLC A-1,C * MLC A&1,C * MLC A&1,B * MLC C&1,A * MLC C,A&1 * MLC A,C&1 * MLC A,B&1 * MLC C,A-1 * MLC A,C-1 * MLC A,B-1 * MLC A-1,C&1 * MLC C-1,A&1 * MLC B-1,A&1 * ******************************************************************* ******************************************************************* * MLCWAA,B * MLCWAA,C * MLCWAC,A * MLCWAA-1,B * MLCWAA-1,C * MLCWAA&1,C * MLCWAA&1,B * MLCWAC&1,A * MLCWAC,A&1 * MLCWAA,C&1 * MLCWAA,B&1 * MLCWAC,A-1 * MLCWAA,C-1 * MLCWAA,B-1 * MLCWAA-1,C&1 * MLCWAC-1,A&1 * MLCWAB-1,A&1 ******************************************************************* ******************************************************************* * C A,B * C A,C * C C,A * C A-1,B * C A-1,C * C A&1,C * C A&1,B * C C&1,A * C C,A&1 * C A,C&1 * C A,B&1 * C C,A-1 * C A,C-1 * C A,B-1 * C A-1,C&1 * C C-1,A&1 * C B-1,A&1 * ******************************************************************* ******************************************************************* A DCW #3 B DCW #3 C DCW #2 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ********** ************** EXAMPLES OF INDEXED OPERANDS *********************** ********** A D&X1,E A D,E&X2 A D&X1,E&X2 * ZS D,E&X2 ZS D&X1,E ZS D&X1,E&X2 * MLC A&X2,B MLC A,B&X3 MLC A&X2,B&X3 * MLCWAA&X2,B MLCWAA,B&X3 MLCWAA&X2,B&X3 * MCE A&X2,B MCE A,B&X3 MCE A&X2,B&X3 * MCS A&X2,B MCS A,B&X3 MCS A&X2,B&X3 * MLNS A&X2,B MLNS A,B&X3 MLNS A&X2,B&X3 * MLZS A&X2,B 7 MLZS A,B&X3 MLZS A&X2,B&X3 * MRCM A&X2,B MRCM A,B&X3 MRCM A&X2,B&X3 * * BBE PROG,B&X2,W BCE PROG,B&X2,3 BM PROG,B&X2 BW PROG,B&X2 BWZ PROG,B&X2,1 BWZ PROG,B&X2,2 BWZ PROG,B&X2,3 BWZ PROG,B&X2,B BWZ PROG,B&X2,C BWZ PROG,B&X2,K BWZ PROG,B&X2,L BWZ PROG,B&X2,S BWZ PROG,B&X2,T * C A,B&X3 C A&X1,B&X2 C A&X2,B * CW A&X1 CW A&X2,B CW A,B&X3 * D DCW 123456 E DCW 456 ******************************************************************* 27190 END START SAMPL