*A06000 01 0103 R. RAGAN OCTAL LISTER WITH MNEMONICS 100 JOB OCTAL LISTING OF COLUMN BINARY CARDS *CB01 101 * 102 * STORAGE REQUIREMENTS, NAMES AND LOCATIONS OF ENTRY POINTS, AND 103 * TRANSFER VECTOR NAMES ARE LISTED FOR EACH PROGRAM. UNLESS 104 * SENSE SWITCH 'B' IS UP, INSTRUCTIONS AND DATA WORDS WILL ALSO 105 * BE LISTED IN OCTAL, ALONG WITH THE RELATIVE ORIGIN OF EACH CARD. 106 * 106 XR1 EQU 89 DEFINE SYMBOLIC 107 XR2 EQU 94 NAMES FOR 107 XR3 EQU 99 INDEX REGISTERS. ADDR EQU INSTRN+X3 HOLD EQU INSTRN-8+X3 XXX EQU 0 INST EQU 4000 108 * 109 * EXECUTION BEGINS AND ENDS HERE. 110 * 111 START SW 1 INITIALISE WORD MARK 112 MZ START, TESTA+7 AND A-BIT TEST. BSS CH3,C IF SENSE SWITCH C IS UP B CH4 MNEMONICS WILL NOT APPEAR. CH3 MCW 'N',MNEC .. CH4 NOP .. 113 B READ * GO READ FIRST CARD. 114 * 115 STOP CC 1 EJECT PAGE. 116 MCW 'END OF DECK. LOAD MORE CARDS AND PRESS START.',280 117 W 118 CS 280 EJECT PAGE AGAIN, 119 CC 1 STOP, THEN 120 H READ * GO READ NEXT CARD. 1205 NOP 121 * 200 * DEFINITION OF WORK AREAS. 201 * 202 ORG 401 203 INBUF DA 1X180 BINARY READ-PUNCH AREA. ORG 601 WRITE1 DA 1X117 MNEMONIC PRINT STORAGE AREA. 205 OCTAL DA 24X12 OCTAL VERSION OF CARD. 206 * 207 * BEGIN MAIN LOOP. 208 * READ BLC STOP JUMP OUT IF NO MORE CARDS RCB READ A COLUMN BINARY CARD. 211 BCE COLBIN, 501, 5 * IS IT COLUMN BINARY - YES. 212 CC L NO. 213 MCW 80, 300 SKIP A 214 PRINT W LINE, 215 CS 332 PRINT 216 CS CARD, BW PRNT,HOLD5,1 B NOPRNT PRNT MLC WRITE1+116,326 MOVE MNEMONIC PRINT STORAGE W AREA TO PRINT AREA AND PRINT. CS WRITE1+116 CLEAR MNEMONIC PRINT CS STORAGE AREA. CS 332 CS SW WRITE1 CW HOLD5 NOPRNT NOP 217 BCV EJECT AND 218 CCB READ, K * GO READ 219 EJECT CCB READ, 1 * NEXT CARD. 220 * 300 * CARD IS COLUMN BINARY. 301 * CONVERT TO OCTAL. 302 * 303 COLBIN BWZ CB1, INBUF, S * IF RELOCATABLE, BYPASS TESTS. 3031 BWZ ABSLUT, INBUF, 2 *JUMP OUT FOR ABSOLUTE CARD. 3032 BWZ SYMTAB, INBUF, B *JUMP OUT FOR SYMBOL TABLE CARD. 3033 CW SKPSW=2 PROGRAM CARD. RESET SKIP SWITCH. 3034CB1 LCA '000', XR1 CLEAR INDEX 304 LCA '000', XR2 REGISTERS. 305 LCA '000', XR3 MERGE UPPER AND LOWER TESTB MLC '0',OCTAL+X2 BBE BITB,INBUF+X1,- TESTA BBE BITA,INBUF+X1, TEST8 BBE BIT8,INBUF+X1,8 TEST4 MLC '0',OCTAL+1+X2 BBE BIT4,INBUF+X1,4 TEST2 BBE BIT2,INBUF+X1,2 TEST1 BBE BIT1,INBUF+X1,1 TEST0 A '2',XR2 BCE LOWER,XR1-2,1 MLC '1',XR1-2 B TESTB LOWER A '1',XR1 MLC '0',XR1-2 C XR1,'72' BU TESTB B GETWC YES, CONTINUE BITB A '4',OCTAL+X2 B TESTA BITA A '2',OCTAL+X2 B TEST8 BIT8 A '1',OCTAL+X2 B TEST4 BIT4 A '4',OCTAL+1+X2 B TEST2 BIT2 A '2',OCTAL+1+X2 B TEST1 BIT1 A '1',OCTAL+1+X2 B TEST0 323 * 336 * 342 * 400 * DEFINITIONS OF FIELDS IN CARD IMAGE. 401 * 402 LOADPT EQU OCTAL+11 REL. LOAD POINT OF CARD. 403 TRVCT EQU OCTAL+29 NUMBER OF TRANSFER VECTORS. 404 WDCNT EQU OCTAL+5 NUMBER OF WORDS IN CARD. 405 STORAG EQU OCTAL+35 NUMBER OF WORDS, LOWER STORAGE. 406 COMMON EQU OCTAL+47 FIRST LOC. BELOW COMMON. 407 EPNAME EQU OCTAL+59 FIRST ENTRY POINT NAME. 408 EPLOCN EQU OCTAL+71 ITS RELATIVE LOCATION. 409 INSTRN EQU OCTAL+59 FIRST INSTRUCTION-WORD OF CARD. 410 * 500 * GET WORD COUNT AND DETERMINE TYPE OF CARD. 501 * 502 GETWC MZ WC8, WDCNT SET AB ZONE BITS FOR COMPARE. 503 BCE GOTWC, WDCNT-1, 0 LESS THAN 8, NICHTS ZU TUN. MN WDCNT-1,CHAR=1 OTHERWISE, 505 MCW '0', WDCNT-1 CONVERT 2-DIGIT 506 BCE WC8, CHAR, 1 OCTAL 507 A '08', WDCNT NUMBER TO 508 WC8 A '08', WDCNT DECIMAL. 509 GOTWC BBE RELOC, OCTAL, 2 * IS IT RELOCATABLE - YES. 510 BBE PRGRM, OCTAL, 4 * NO. IS IT PROGRAM CARD - YES. 511 CC L NO. MUST BE ABSOLUTE. 512 MCW 'ABSOLUTE CARD.', 250 513 W WRITE 514 CS 250 MESSAGE, 515 CC L STOP, THEN 516 H READ * GO READ NEXT CARD. 517 * 600 * CARD IS PROGRAM CARD. 601 * 602 PRGRM CC 1 EJECT PAGE. 603 SW 219 604 MCW ' LOCATION NOT USED BY THIS PROGRAM.', 272 605 MCW ' IS THE FIRST' 606 MCW STORAG 607 W 608 MCW ' IS THE LAST ', 237 609 MCW COMMON 610 W 6105 S '02', WDCNT DONT COUNT THESE TWO WORDS. 611 CS 272 612 CC J 613 MCW 'ENTRY POINT(S)', 251 614 W 6145 CS 251 615 CC J 615 ZA TRVCT, TVCNT=2 GET NUMBER OF 616 BCE ENTPTS, TVCNT-1, 0 TRANSFER VECTORS 617 MCW '0', TVCNT-1 (BA BITS FOR COMPARE), 618 BCE TV8, TRVCT-1, 1 AND CONVERT 619 A '08', TVCNT OCTAL TO 620 TV8 A '08', TVCNT DECIMAL. 621 * 622 ENTPTS C EPNAME+X3, '000000' IS THIS A MAIN PROGRAM. 623 BE MAINPR * YES, SPECIAL TREATMENT. 624 MCW EPNAME+X3, OCTWD=12 NO. 625 B OCTBCD $ CONVERT THIS NAME TO BCD. 626 MCW BCDWD=6, 243 MOVE NAME TO PRINT AREA. 627 SW 247 MOVE ITS RELATIVE 628 MCW EPLOCN+X3, 251 ADDRESS TO PRINT AREA. 629 W PRINT THE LINE. 630 EPTS1 A '024', XR3 BUMP INDEX. 631 S '02', WDCNT BUMP WORD COUNT. 632 C WDCNT, '0?' IS CARD FINISHED. 633 BU ENTPTS * NO, GO GET NEXT NAME. 634 CS PRINT, 251 * YES, GO START NEXT CARD. 635 * 636 MAINPR MCW 'MAIN PROGRAM', 244 637 SW 247 NAME IS ALL ZEROS. 638 MCW EPLOCN+X3, 251 PRINT ENTRY 639 W ADDRESS AND 640 CS EPTS1, 251 * CONTINUE WITH CARD. 641 * 700 * CARD IS RELOCATABLE INSTRUCTION OR DATA CARD. 701 * 702 RELOC SW LOADPT-4 MOVE RELATIVE LOADING ADDRESS 703 MCW LOADPT, 206 OF CARD TO PRINT AREA. 704 RELOC1 MCW '000', XR2 BEGINNING A NEW LINE. 705 RELOC2 C TVCNT, '0?' IS TRANSFER VECTOR DONE. 706 BU TRAVEC * NO. 707 BSS SKIP, B * YES, IS SENSE SWITCH B UP - YES. 708 MCW INSTRN+X3, 221+X2 NO, MOVE OCTAL WORD TO PRINT AREA MNEC B MNEM 709 B TEOL * AND CONTINUE. 710 TRAVEC MCW INSTRN+X3, OCTWD WORD IS TRANSFER VECTOR NAME. 711 B OCTBCD $ CONVERT OCTAL TO BCD. 712 MCW BCDWD, 215+X2 MOVE NAME TO PRINT AREA. 713 S '01', TVCNT BUMP TRANSFER VECTOR COUNT. 714 TEOL S '01', WDCNT TEST FOR END OF LINE. 716 A '012', XR3 BUMP WORD COUNT AND 717 A '015', XR2 INDEX REGISTERS. 718 C XR2, '120' IS LINE FINISHED. 719 BE EOL * YES. 720 C WDCNT, '0?' NO, IS CARD FINISHED. SW HOLD5=1 721 BE PRINT * YES, PRINT LAST LINE. 722 B RELOC2 * NO, CONTINUE WITH NEXT WORD. 723 EOL C WDCNT, '0?' END OF LINE. IS CARD FINISHED. SW HOLD5 724 BE PRINT * YES, PRINT LAST LINE. 725 W NO, 726 CS 332 PRINT 727 CS THIS MLC WRITE1+116,326 MOVE MNEMONIC PRINT STORAGE W AREA TO PRINT AREA AND PRINT. CS WRITE1+116 CLEAR MNEMONIC PRINT CS STORAGE AREA CS 332 CS SW WRITE1 CW HOLD5 728 BCV EOLJ LINE 729 CCB RELOC1, J * AND 730 EOLJ CCB RELOC1, 1 * CONTINUE. 800 * SKIP REMAINDER OF CARD. 801 * 802 SKIP SW SKPSW SET SWITCH. 803 SKIP1 W PRINT HANGING LINE. 804 CS 332 .. 805 CS .. MLC WRITE1+116,326 MOVE MNEMONIC PRINT STORAGE W AREA TO PRINT AREA AND PRINT. CS WRITE1+116 CLEAR MNEMONIC PRINT CS CS 332 CS SW WRITE1 806 BCV SKIPJ .. 807 B READ * GO READ 808 SKIPJ CCB READ, 1 * NEXT CARD. 809 * 810 * IGNORE ABSOLUTE CARDS. 811 * 812 ABSLUT CC 1 EJECT PAGE. 813 MCW '001', IGCNT=3 RESET COUNT OF IGNORED CARDS. 814 MCW 'ABSOLUTE CARD.', 250 PRINT 815 W MESSAGE. 816 ABSRD RCB READ NEXT CARD. 817 BCE ABSCB, 501, 5 IS IT COLUMN BINARY. 818 B ABCMT * NO, GO PRINT COMMENT CARD. 819 ABSCB BWZ ABSCT, INBUF, 2 * YES, IS IT ABSOLUTE - YES. 820 IGCMT CC L NO, DON'T IGNORE IT. 821 MCW ' CARDS IGNORED.', 255 WRITE NUMBER 822 MCS IGCNT OF IGNORED CARDS. 823 B PRINT * CONTINUE. 824 ABCMT B COMNT $ PRINT COMMENT CARD. 825 B ABSRD * GO READ NEXT CARD. 826 ABSCT A '001', IGCNT BUMP COUNT OF IGNORED CARDS. 827 B ABSRD * GO READ NEXT CARD. 828 * 829 * IGNORE SYMBOL TABLE CARDS. 830 * 831 SYMTAB CC 1 EJECT PAGE. 832 MCW '001', IGCNT RESET COUNT OF IGNORED CARDS. 833 MCW 'SYMBOL TABLE.', 250 PRINT 834 W MESSAGE. 835 SYMRD RCB READ NEXT CARD. 836 BCE SYMCB, 501, 5 IS IT COLUMN BINARY. 837 B SMCMT * NO, GO PRINT COMMENT CARD. 838 SYMCB BWZ SYMCT, INBUF, B * YES, IS IT SYMBOL TABLE - YES. 839 B IGCMT * NO, GO TERMINATE IGNORING. 840 SMCMT B COMNT $ PRINT COMMENT CARD. 841 B SYMRD * GO READ NEXT CARD. 842 SYMCT A '001', IGCNT BUMP COUNT OF IGNORED CARDS. 843 B SYMRD * GO READ NEXT CARD. 844 * 845 * PRINT COMMENT CARDS. 846 * 847 COMNT SBR COMTX+3 SAVE RETURN ADDRESS. 848 CC L PRINT 849 MCW 80, 299 THE 850 W CARD. 851 BCV COMTJ .. 852 CCB COMTX, K .. 853 COMTJ CC 1 .. 854 COMTX B 0 * RETURN TO CALLER. 855 * 900 * OCTBCD.. SUBROUTINE FOR OCTAL TO BCD CONVERSION. 901 * ROUTINE FINDS 12 OCTAL DIGITS IN 'OCTWD' 902 * AND LEAVES 6 BCD CHARACTERS IN 'BCDWD'. 903 * 904 OCTBCD SBR OBEXIT+3 SAVE RETURN ADDRESS. 905 SBR OBXR2+6, 0+X2 SAVE INDEX 906 SBR OBXR3+6, 0+X3 REGISTERS. 907 MCW '000', XR1 INITIALISE 908 MCW '000', XR2 SUBSCRIPTS. 909 OB1 MCW OCTWD-10+X1, XR3 USE TWO OCTAL DIGITS 910 MCW '0', XR3-2 AS BCD TABLE SUBSCRIPT. 911 MZ BCD+X3, BCDWD-5+X2 MOVE THE 912 MN BCD+X3, BCDWD-5+X2 CHARACTER. 913 A '002', XR1 BUMP 914 A '001', XR2 COUNTERS. 915 BCE OBXR2, XR2, 6 * JUMP OUT IF DONE. 916 B OB1 * OTHERWISE GO GET NEXT CHARACTER. 917 OBXR2 SBR XR2, 0 RESTORE INDEX 918 OBXR3 SBR XR3, 0 REGISTERS. 919 OBEXIT B 0 * RETURN TO CALLER. * * ROUTINE TO SET UP MNEMONICS * MNEM SBR OUT+3 SET UP RETURN ADDRESS. MLC HOLD,HOLD1=5 C HOLD1-3,'4' BH POS S '4',HOLD1-3 MZ ' ',HOLD1-3 MLC '-',HOLD1-4 B ON POS MLC '+',HOLD1-4 * ON C HOLD1-1,'011' BE ONEONE YES, GO TO SPECIAL ROUTINE. B NOELEV NO, SKIP TO NEXT TEST. * ONEONE MCW '0114',HOLD1 MOVE IN B DIFR SKIP REST OF TESTS. * NOELEV C HOLD1-1,'015' BE ONEFIV YES, GO TO SEECIAL ROUTINE. B NOFIF NO, GO TO NEXT TEST * ONEFIV MCW '0154',HOLD1 MOVE IN B DIFR SKIP REST OF TESTS. * NOFIF C HOLD1,'0999' BL REST B OHSEV REST C HOLD1,'000' BE BIG B CONBCD GO CONVERT TO DECIMAL. OHSEV C HOLD1,'0760' BE SEVSIX YES, GO TO SPECIAL ROUTINE * DIFR MZ HOLD1-4,HOLD1 MAKE SIGNED MACHINE MCW ' ',HOLD1-4 NUMBER OUT OF OP CODE ZA '4',MODA-6 MULTIPLY OP CODE M HOLD1,MODA BY FOUR BWZ NEG,MODA,K IF OP CODE NEGATIVE, GO TO NEG. * BACK1 MZ ' ',MODA WIPE OUT ZONE BIT IN UNITS POSN BCE ZONE1,MODA-3,1 BRANCH TO ROUTINE BCE ZONE2,MODA-3,2 TO MAKE NUMBER INTO BCE ZONE3,MODA-3,3 ADDRESS IF NECESSARY * BACK4 SW MODA-2 .. MCW XR1,SAVE1=3 SAVE INDEX REGISTER. MCW MODA,XR1 PUT CALCULATED NUMBER IN XR. MCW INST+X1,HOLD2=3 GET INDICATOR WHICH POINTS MCW ' ',HOLD2-2 TO LOCATION IN WHICH CW MODA-2 MNEMONIC IS STORED. * C HOLD2,'0' IF INDICATOR BH ZONE4 NEEDS DECODING C HOLD2-1,'0' GO TO DECODING BH ZONE4 ROUTINE * BACK5 MCW HOLD2,XR1 GET MNEMONIC AND PUT SW WRITE1+X2 SET WORDMARK FOR MOVE. MLC INST+X1,WRITE1+3+X2 MOVE MNEM TO PRINT STOR AREA. CW WRITE1+X2 CLEAR WORDMARK AFTER MOVE. BCE ERASE,WRITE1+2+X2, CHECK FOR BCE GARBAGE IN BCE MNEMONIC FIELD B CONBCD GO CONVERT TO DECIMAL. ERASE MCW ' ',WRITE1+3+X2 WIPE OUT GARBAGE. * B CONBCD GO CONVERT TO DECIMAL. * BIG MCW HOLD1-3,HOLD1 MCW ' ',HOLD1-2 CALCULATE ADDRESS MZ HOLD1-1,HOLD1 OF INDICATOR. MCW ' ',HOLD1-1 .. ZA '4',MODA-6 .. M HOLD1,MODA .. BWZ NEG1,MODA,K .. BACK2 A '964',MODA .. MZ ' ',MODA .. B BACK4 .. * SEVSIX MCW ADDR,HOLD1 FOR OP CODE 0760 C HOLD1,'14' CALCULATE ADDRESS BL BLANK OF INDICATOR. B FTN,HOLD1,4 )) B NOF )) FTN B FTEN,HOLD1-1,1 )) B NOF )) FTEN S '1',HOLD1 )) NOF ZA '4',MODA-6 )) M HOLD1,MODA )) BWZ NEG2,HOLD-4,K )) BACK3 A '984',MODA )) B BACK4 )) BLANK ZA '980',MODA .. BWZ NEG3,HOLD-4,K .. BACK6 B BACK4 .. * NEG2 A '2',MODA ADD 2 TO B BACK3 ADDRESS NEG3 A '2',MODA OF INDICATOR B BACK4 IF OPCODE NEG MZ ' ',MODA IS A '2',MODA NEGATIVE. B BACK1 .. * ZONE1 MZ 'S',MODA-2 MAKE ADDRESS MCW ' ',MODA-3 OF NUMBER B BACK4 CALCULATED ZONE2 MZ 'J',MODA-2 FROM OP CODE MCW ' ',MODA-3 TO FIND B BACK4 INDICATOR. ZONE3 MZ 'A',MODA-2 .. MCW ' ',MODA-3 .. B BACK4 .. * ZONE4 BWZ NO,HOLD2,2 DECODE INDICATOR. BWZ A,HOLD2,S HUNDREDS DIGIT IS IN ZONE BITS. BWZ B,HOLD2,K DIGIT TENS UNITS ZA '3',DIGIT=1 0 NO NO B SECOND 1 NO A NO ZA '0',DIGIT 2 NO B B SECOND 3 A NO A ZA '1',DIGIT 4 A A B SECOND 5 A B B ZA '2',DIGIT 6 B NO SECOND BWZ CHANGE,HOLD2-1,2 7 B A BWZ A1,HOLD2-1,S 8 B B A '6',DIGIT 9 B BA B CHANGE .. A1 A '3',DIGIT .. CHANGE MCW DIGIT,HOLD2-2 .. MZ ' ',HOLD2 .. MZ ' ',HOLD2-1 .. MZ ' ',HOLD2-2 .. B BACK5 .. * NEG1 MZ ' ',MODA .. A '2',MODA .. B BACK2 .. * * CONBCD MLC 'N',BRAN1 REMOVE OP AT BRAN1 MLC 'N',CLRWM REMOVE OP AT CLRWM. MLC ADDR,HOLBIN=12 MOVE OCTAL WORD TO WORK AREA. MLC XR2,SAVE2=3 SAVE INDEX MLC XR3,SAVE3=3 REGISTERS. LCA '000',XR1 ZERO INDEX LCA '000',XR2 REGISTERS. * BINCON SW HOLDEC+X1 SET WORDMARK FOR DIGIT MOVE. MLC HOLBIN-10+X2,XR3 USE TWO DIGITS OF OCTAL WORD MLC ' ',XR3-2 TO FIND BCD CONVERSION AND MLC BCD+X3,HOLDEC+X1 PUT DIGIT IN DECIMAL WORD. CLRWM CW HOLDEC+X1 CLEAR WORDMARK AFTER MOVE. C XR1,'5' IS DECIMAL WORD FINISHED. BE FIN YES, FINISH ROUTINE AND GET OUT A '1',XR1 NO, STEP INDEX REGISTERS A '2',XR2 AND GO BACK TO CONVERT BRAN1 B BINCON ANOTHER DIGIT. * MLC 'B',BRAN1 RESTORE BRANCH AT BRAN1. MLC ')',CLRWM RESTORE CLEAR WM AT CLRWM. B BINCON GO BACK TO CONVERT 2ND DIGIT. * FIN MLC SAVE1,XR1 RESTORE ALL MLC SAVE2,XR2 INDEX MLC SAVE3,XR3 REGISTERS. MLC HOLDEC=6,WRITE1+12+X2 MOVE DECIMAL WORD TO OUT B XXX PRINT STORAGE AREA AND RETURN. * MODA DCW =7 920 * 921 BCD DCW '0' TABLE. 922 DC '1234567**89*='*****+ABCDEFG**HI*.)*****-' 923 DC 'JKLMNOP**QR*$****** /STUVWX**YZ*,(******' 924 DC '********************' 925 * 1000 * 1001 * 4000 DCW '04' 4004 DCW 'HTR ' 4008 DCW 'TRA ' 4012 DCW 'TTR ' 4016 DCW 'ESNT' 4020 DCW 'TRCA' 4024 DCW 'TRCB' 4028 DCW 'TRCC' 4032 DCW 'TRCD' 4036 DCW 'TRCE' 4040 DCW 'TRCF' 4044 DCW 'TEFA' 4048 DCW 'TEFB' 4052 DCW 'TEFC' 4056 DCW 'TEFD' 4060 DCW 'TEFE' 4064 DCW 'TEFF' 4068 DCW 'TLQ ' 4072 DCW 'TIO ' 4076 DCW 'TIF ' 4080 DCW '08' 4084 DCW '12' 4086 DCW '16' 4088 DCW '20' 4090 DCW '24' 4094 DCW 'TCNA' 4096 DCW '28' 4098 DCW '32' 4102 DCW 'TCNB' 4104 DCW '36' 4106 DCW '40' 4110 DCW 'TCNC' 4114 DCW 'TCND' 4118 DCW 'TCNF' 4120 DCW '44' 4122 DCW '48' 4124 DCW '52' 4126 DCW '56' 4128 DCW '60' 4130 DCW '64' 4134 DCW 'TCNF' 4138 DCW 'TCOA' 4142 DCW 'TCOB' 4146 DCW 'TCOC' 4152 DCW 'TCOD' 4156 DCW 'TCOE' 4160 DCW '68' 4164 DCW 'QY' 4168 DCW '72' 4170 DCW 'RS' 4172 DCW 'RW' 4176 DCW '!O' (11-0 PUNCH) 4180 DCW 'TCOF' 4184 DCW '76' 4186 DCW 'J!' (11-0 PUNCH) 4190 DCW 'TZE ' 4194 DCW 'TNZ ' 4198 DCW 'TPL ' 4202 DCW 'TMI ' 4204 DCW 'PQ' 4206 DCW 'QQ' 4210 DCW 'TOV ' 4214 DCW 'TNO ' 4216 DCW 'RK' 4218 DCW '!D' (11-0 PUNCH) 4220 DCW '!H' (11-0 PUNCH) 4222 DCW 'JB' 4224 DCW 'JF' 4226 DCW 'K?' (12-0 PUNCH) 4228 DCW 'KD' 4230 DCW 'KH' 4234 DCW 'TQO ' 4238 DCW 'TQP ' 4240 DCW '3Y' 4242 DCW '94' 4244 DCW '4S' 4246 DCW 'OS' 4248 DCW '4W' 4250 DCW '1|' (0-2-8 PUNCH) 4252 DCW '5S' 4254 DCW '1U' 4256 DCW '5W' 4258 DCW '1Y' 4260 DCW '8|' (0-2-8 PUNCH) 4262 DCW '3U' 4266 DCW 'MPY ' 4270 DCW 'MPR ' 4274 DCW 'DVH ' 4278 DCW 'DVP ' 4282 DCW 'FDH ' 4286 DCW 'FDP ' 4290 DCW 'FMP ' 4294 DCW 'UFM ' 4296 DCW 'Q8' 4300 DCW 'FAD ' 4304 DCW 'UFA ' 4308 DCW 'FSB ' 4312 DCW 'UFS ' 4316 DCW 'FAM ' 4320 DCW 'UAM ' 4324 DCW 'FSM ' 4328 DCW 'USM ' 4332 DCW 'ANS ' 4336 DCW 'ANA ' 4342 DCW 'ERA ' 4346 DCW 'CAS ' 4350 DCW 'LAS ' 4354 DCW 'ACL ' 4360 DCW 'ADD ' 4364 DCW 'SBM ' 4368 DCW 'ADM ' 4372 DCW 'SUB ' 4376 DCW 'IIS ' 4380 DCW 'LDI ' 4384 DCW 'OSI ' 4388 DCW 'OFT ' 4392 DCW 'RIS ' 4396 DCW 'ONT ' 4400 DCW '9|' (0-2-8 PUNCH) 4402 DCW '9U' 4406 DCW 'LDA ' 4410 DCW 'CLA ' 4414 DCW 'CAL ' 4418 DCW 'ORA ' 4422 DCW 'CLS ' 4426 DCW 'ZET ' 4430 DCW 'NZT ' 4434 DCW 'XEC ' 4438 DCW 'RCHA' 4442 DCW 'RCHB' 4446 DCW 'RCHC' 4450 DCW 'RCHD' 4452 DCW 'RCHE' 4456 DCW 'LB' 4458 DCW 'LF' 4462 DCW 'RCHF' 4466 DCW 'LCHA' 4470 DCW 'LCHB' 4474 DCW 'LCHC' 4478 DCW 'LCHD' 4480 DCW '9Y' 4482 DCW '0K' 4486 DCW 'LCHE' 4490 DCW 'LCHF' 4494 DCW 'LDQ ' 4498 DCW 'ENB ' 4504 DCW 'STQ ' 4508 DCW 'STO ' 4512 DCW 'SLW ' 4516 DCW 'ORS ' 4520 DCW 'STI ' 4522 DCW 'JM' 4524 DCW 'K!' (11-0 PUNCH) 4528 DCW 'SLQ ' 4532 DCW 'STA ' 4536 DCW 'STD ' 4540 DCW 'STT ' 4544 DCW 'STL ' 4548 DCW 'STP ' 4552 DCW 'SCHA' 4556 DCW 'SCHB' 4560 DCW '1!' (11-0 PUNCH) 4562 DCW '1M' 4566 DCW 'SCHC' 4570 DCW 'SCHD' 4574 DCW 'SCHE' 4578 DCW 'SCHF' 4582 DCW 'PSE ' 4586 DCW 'MSE ' 4590 DCW 'CLM ' 4594 DCW 'LBT ' 4598 DCW 'PBT ' 4602 DCW 'CHS ' 4606 DCW 'EFTM' 4610 DCW 'SSP ' 4614 DCW 'SSM ' 4618 DCW 'M?' (12-0 PUNCH) 4622 DCW 'ENK ' 4626 DCW 'LFTM' 4630 DCW 'IOT ' 4634 DCW 'ESTM' 4638 DCW 'COM ' 4642 DCW 'ECTM' 4644 DCW '3M' 4648 DCW '3Q' 4652 DCW 'ETM ' 4656 DCW 'LTM ' 4660 DCW 'RND ' 4664 DCW 'LSNM' 4668 DCW 'FRN ' 4672 DCW 'DCT ' 4676 DCW 'RCT ' 4680 DCW 'BTT ' 4684 DCW 'ETT ' 4688 DCW 'TSX ' 4692 DCW 'LXA ' 4696 DCW 'LXD ' 4700 DCW 'LAC ' 4704 DCW 'LDC ' 4708 DCW 'SXA ' 4712 DCW 'SXD ' 4716 DCW 'CPY ' 4720 DCW 'CAD ' 4724 DCW 'RDS ' 4728 DCW 'LLS ' 4732 DCW 'LGL ' 4736 DCW 'BSR ' 4740 DCW 'BSF ' 4744 DCW 'LRS ' 4748 DCW 'LGR ' 4752 DCW 'WRS ' 4756 DCW 'ALS ' 4760 DCW 'WEF ' 4764 DCW 'ARS ' 4768 DCW 'REW ' 4772 DCW 'RQL ' 4776 DCW 'AXT ' 4780 DCW 'AXC ' 4784 DCW 'STR ' 4788 DCW 'IIA ' 4792 DCW 'RIA ' 4796 DCW 'OAI ' 4800 DCW '6O' 4802 DCW '7!' (11-0 PUNCH) 4806 DCW 'PAI ' 4810 DCW 'PIA ' 4814 DCW 'XCL ' 4816 DCW 'MD' 4820 DCW 'XCA ' 4824 DCW 'HPR ' 4828 DCW 'NOP ' 4832 DCW 'TXI ' 4836 DCW 'TIX ' 4840 DCW 'TNX ' 4844 DCW 'TXH ' 4848 DCW 'TXL ' 4852 DCW 'PAX ' 4856 DCW 'PDX ' 4860 DCW 'PAC ' 4864 DCW 'PDC ' 4868 DCW 'PXA ' 4872 DCW 'PXD ' 4876 DCW 'IIR ' 4880 DCW '7M' 4884 DCW '7Q' 4888 DCW 'IIL ' 4892 DCW 'RFT ' 4896 DCW 'MH' 4900 DCW 'NB' 4904 DCW 'LFT ' 4908 DCW 'SIR ' 4912 DCW 'SIL ' 4916 DCW 'RNT ' 4920 DCW 'LNT ' 4924 DCW 'RIR ' 4928 DCW 'RIL ' 4932 DCW 'CVR ' 4936 DCW 'CAQ ' 4940 DCW 'CRQ ' 4944 DCW 'VLM ' 4948 DCW 'VDH ' 4952 DCW 'VDP ' 4956 DCW 'STZ ' 4960 DCW '8K' 4964 DCW '8O' 4968 DCW 'LK' 4970 DCW 'QU' 4972 DCW 'LO' 4974 DCW 'M!' (11-0 PUNCH) 4976 DCW 'MM' 4978 DCW 'MQ' 4980 DCW 'YK' 4982 DCW 'YO' 4984 DCW 'Z!' (11-0 PUNCH) 4988 DCW 'ZM' 4990 DCW 'ZQ' 4992 DCW '!2' (11-0 PUNCH) 4994 DCW '!6' (11-0 PUNCH) 4996 DCW 'J0' 4998 DCW 'J4' 5000 DCW 'K2' 5002 DCW 'K6' 5004 DCW 'L0' 5006 DCW 'L4' 5008 DCW 'L8' 5010 DCW 'M2' 5012 DCW 'N2' 5014 DCW 'N6' 5024 DCW 'O0' 5026 DCW 'O4' 5028 DCW 'O8' 5032 DCW 'P2' 5036 DCW 'P6' 5040 DCW '9!' (11-0 PUNCH) 5042 DCW '9M' 5044 DCW 'Q0' 5046 DCW 'Q4' 5200 DCW '|0' (0-2-8 PUNCH) 5202 DCW '|4' (0-2-8 PUNCH) 5208 DCW '|8' (0-2-8 PUNCH) 5210 DCW '/2' 5216 DCW '/6' 5218 DCW 'S0' 5224 DCW 'S4' 5226 DCW 'S8' 5280 DCW 'T2' 5282 DCW 'T6' 5288 DCW 'U2' 5360 DCW 'U6' 5362 DCW 'V0' 5444 DCW 'V4' 5600 DCW 'W0' 5602 DCW 'W4' 5604 DCW 'W8' 5608 DCW 'X2' 5680 DCW 'KM' 5760 DCW 'X6' 5764 DCW 'Y0' 5768 DCW 'Y4' 5776 DCW 'Y8' 5780 DCW 'Z2' 5784 DCW 'Z6' 5840 DCW '|W' (0-2-8 PUNCH) 6000 DCW '/|' (0-2-8 PUNCH) 6002 DCW '/U' 6006 DCW '/Y' 6008 DCW 'SS' 6080 DCW 'SW' 6082 DCW 'T|' (0-2-8 PUNCH) 6088 DCW 'TU' 6136 DCW 'R2' 6138 DCW 'R6' 6140 DCW '!|' (11-0,0-2-8 PUNCHES) 6142 DCW '!U' (11-0 PUNCH) 6160 DCW 'TY' 6162 DCW 'US' 6164 DCW 'UW' 6166 DCW 'V|' (0-2-8 PUNCH) 6168 DCW 'VS' 6170 DCW 'WS' 6176 DCW 'WW' 6178 DCW 'X|' (0-2-8 PUNCH) 6180 DCW 'XU' 6182 DCW 'XY' 6184 DCW 'YW' 6186 DCW 'Z|' (0-2-8 PUNCH) 6240 DCW 'ZU' 6256 DCW 'ZY' 6400 DCW 'NF' 6402 DCW '|M' (0-2-8 PUNCH) 6404 DCW '|Q' (0-2-8 PUNCH) 6408 DCW '/K' 6410 DCW '/O' 6416 DCW 'S!' (11-0 PUNCH) 6482 DCW 'SQ' 6484 DCW 'TK' 6488 DCW 'TO' 6500 DCW 'U!' (11-0 PUNCH) 6502 DCW 'UM' 6520 DCW 'UQ' 6536 DCW '!Y' (11-0 PUNCH) 6538 DCW 'JS' 6560 DCW 'VK' 6562 DCW 'VO' 6566 DCW 'X!' (11-0 PUNCH) 6568 DCW 'XM' 6570 DCW 'XQ' 6800 DCW 'JW' 6802 DCW 'K|' (0-2-8 PUNCH) 6936 DCW 'NK' 6938 DCW 'NO' 6948 DCW 'O!' (11-0 PUNCH) 6950 DCW 'OM' 7016 DCW 'OQ' 7018 DCW 'PK' 7044 DCW 'KQ' 7048 DCW 'KU' 7052 DCW 'KY' 7054 DCW 'LS' 7056 DCW 'LW' 7058 DCW 'M|' (0-2-8 PUNCH) 7060 DCW 'MU' 7062 DCW 'MY' 7064 DCW 'NS' 7068 DCW 'NW' 7080 DCW 'O|' (0-2-8 PUNCH) 7084 DCW 'OU' 7088 DCW 'OY' 7094 DCW 'PS' 7096 DCW 'PW' 7098 DCW 'Q|' (0-2-8 PUNCH) 1002 END START