ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:11 2020 Source File: \zptrep.asm 1130 PAPER TAPE REPRODUCER 2 | *************************************************** ZPR00020 3 | *STATUS-VERSION 2,MODIFICATION 000 * ZPR00030 4 | * * ZPR00040 5 | *FUNCTION/OPERATION- THIS IS A STAND-ALONE UTILITY* ZPR00050 6 | *PROGRAM TO REPRODUCE PAPER-TAPE. THIS IS A FRAME-* ZPR00060 7 | *FOR-FRAME REPRODUCER WITH OUT CONVERSION OF ANY * ZPR00070 8 | *KIND. * ZPR00080 9 | *THIS IS A SELF LOADING PAPER TAPE STRIP AVAILABLE* ZPR00090 10 | *ONLY WITH THE PAPERTAPE SYSTEM. * ZPR00100 11 | * * ZPR00110 12 | *ENTRY POINTS- * ZPR00120 13 | * *START- THIS IS THE ONLY ENTRY TO THE PROG. * ZPR00130 14 | * UPON ENTRY WAITS WITH 1111 IN THE ACC, * ZPR00140 15 | * WAITING FOR THE USER TO LOAD THE PAPER TAPE * ZPR00150 16 | * READER AND PAPER TAPE PUNCH. * ZPR00160 17 | * * ZPR00170 18 | *INPUT- PROVIDED BY THE PAPER TAPE READER * ZPR00180 19 | *OUTPUT- PUNCHED OUTPUT ON PAPER TAPE PUNCH * ZPR00190 20 | * * ZPR00200 21 | *EXTERNAL REFERENCES- NONE * ZPR00210 22 | * * ZPR00220 23 | *EXITS-NORMAL NONE, CONTINUOUSLY ALTERNATING * ZPR00230 24 | *READING ONE FRAME AND PUNCHING ONE FRAME. * ZPR00240 25 | * * ZPR00250 26 | *TABLES,WORK AREAS- .SENSE. USED AS A 1 WD BUFFER * ZPR00260 27 | * * ZPR00270 28 | *ATTRIBUTES- REUSABLE * ZPR00280 29 | * * ZPR00290 30 | *NOTES- STAND ALONE STRIP OF PAPER TAPE * ZPR00300 31 | *WILL REPRODUCE MANY CONSECTITIVE TAPES WITHOUT * ZPR00310 32 | *REQUIRING RELOADING OF ITSELF. * ZPR00320 33 | *WAITS WITH VARIOUS ACC SETTINGS AS FOLLOWS * ZPR00330 34 | * *1111- OPERATOR SHOULD READY READER AND PNCH* ZPR00340 35 | * *2222- OPERATOR SHOULD READY READER * ZPR00350 36 | * *3333- OPERATOR SHOULD READY PUNCH * ZPR00360 37 | * * ZPR00370 38 | *************************************************** ZPR00380 39 | * * ZPR00390 1130 PAPER TAPE REPRODUCER 41 | * 1130 IPL MODE PROGRAM ZPR00410 42 | * TO REPRODUCE PAPER TAPE ZPR00420 43 | * ZPR00430 0000 C033 44 | START LD H1111 ZPR00440 0001 3000 45 | WAIT LET OPERATOR READY JOB ZPR00450 46 | * * ZPR00460 47 | *************************************************** ZPR00470 48 | * * ZPR00480 49 | * THE FOLLOWING INST IS USED ONLY ONCE AND THEN * ZPR00490 50 | * USED AS A 1 WORD BUFFER FOR READ AND PUNCHING * ZPR00500 51 | * * ZPR00510 0002 701D 52 | SENSE MDX GO START REPRODUCING ZPR00520 0003 1F01 53 | DC /1F01 IOCC TO SENSE WITH RESET ZPR00530 0004 0002R 54 | READ DC SENSE IOCC TO READ ONE ZPR00540 0005 1A00 55 | DC /1A00 * FRAME ZPR00550 0006 0002R 56 | PUNCH DC SENSE IOCC TO WRITE ONE ZPR00560 0007 1900 57 | DC /1900 * FRAME ZPR00570 0008 0012R 58 | DC LEV4 THESE FIVE CONSTANTS ZPR00580 0009 0012R 59 | DC LEV4 * FORCE ALL INTERRUPTS ZPR00590 000A 0012R 60 | DC LEV4 * ON LEVELS ZERO THRU ZPR00600 000B 0012R 61 | DC LEV4 * FOUR TO BRANCH TO LEVEL ZPR00610 000C 0012R 62 | DC LEV4 * FOUR INTERRUPT PROCESSING ZPR00620 000D 001CR 63 | DC LEV5 PROGRAM STOP KEY INTERRUPT ZPR00630 000E 0000 64 | SENS DC 0 IOCC TO SENSE DSW ZPR00640 000F 1F00 65 | DC /1F00 ZPR00650 0010 0000 66 | CONT DC 0 IOCC TO START RDR. ZPR00660 0011 1C00 67 | DC /1C00 ZPR00670 0012 0000 68 | LEV4 DC 0 ENTRY WORD ZPR00680 0013 08EE 69 | XIO SENSE SENSE DSW ZPR00690 0014 1002 70 | SLA 2 ZPR00700 0015 4802 71 | BSC C TEST FOR READ RESP. ZPR00710 0016 7003 72 | MDX OUT YES, RETURN TO MAINLINE ZPR00720 0017 1001 73 | SLA 1 ZPR00730 0018 4810 74 | BSC - TEST FOR PUNCH RESP. ZPR00740 0019 1000 75 | NOP ZPR00750 001A 4CC0 0012R 76 | OUT BOSC I LEV4 YES, RETURN TO MAINLINE ZPR00760 001C 0000 77 | LEV5 DC 0 PROGRAM STOP ENTRY ZPR00770 001D 3000 78 | WAIT ZPR00780 001E 4CC0 001CR 79 | BOSC I LEV5 ZPR00790 0020 08ED 80 | GO XIO SENS SENSE WITHOUT RESET ZPR00800 0021 1005 81 | SLA 5 ZPR00810 0022 4828 82 | BSC +Z TEST FOR RDR. READY ZPR00820 0023 700A 83 | MDX WAIT STOP IF NOT READY ZPR00830 0024 08EB 84 | XIO CONT START READER ZPR00840 0025 3000 85 | WAIT ZPR00850 0026 08DD 86 | XIO READ READ CHARACTER ZPR00860 0027 08E6 87 | SPRDY XIO SENS ZPR00870 0028 1007 88 | SLA 7 ZPR00880 0029 4828 89 | BSC +Z TEST FOR PCH. READY ZPR00890 002A 7006 90 | MDX PCHNR ZPR00900 002B 08DA 91 | XIO PUNCH PUNCH CHARACTER ZPR00910 002C 3000 92 | WAIT WAIT FOR PUNCH INTERRUPT ZPR00920 002D 70F2 93 | MDX GO GO READ NEXT FRAME ZPR00930 002E C006 94 | WAIT LD H2222 READER NOT READY ZPR00940 002F 3000 95 | WAIT ZPR00950 0030 70EF 96 | MDX GO RETRY READING PAPER TAPE ZPR00960 0031 C004 97 | PCHNR LD H3333 PUNCH NOT READY ZPR00970 0032 3000 98 | WAIT ZPR00980 0033 70F3 99 | MDX SPRDY RETRY PUNCHING PAPER TAPE ZPR00990 100 | *************************************************** ZPR01000 101 | * * ZPR01010 102 | * DISPLAY CONSTANTS SIGNIFYING OPERATOR ACTION * ZPR01020 103 | * * ZPR01030 104 | * * ZPR01040 0034 1111 105 | H1111 DC /1111 MAKE READER AND PNCH READY ZPR01050 0035 2222 106 | H2222 DC /2222 MAKE READER READY ZPR01060 0036 3333 107 | H3333 DC /3333 MAKE PUNCH READY ZPR01070 0037 108 | END START ZPR01080 There were no errors in this assembly Program transfer address = 0000 === CROSS REFERENCES ========================================================== Name Val Defd Referenced CONT 0010R 66 84 GO 0020R 80 52 93 96 H1111 0034R 105 44 H2222 0035R 106 94 H3333 0036R 107 97 LEV4 0012R 68 58 59 60 61 62 76 LEV5 001CR 77 63 79 OUT 001AR 76 72 PCHNR 0031R 97 90 PUNCH 0006R 56 91 READ 0004R 54 86 SENS 000ER 64 80 87 SENSE 0002R 52 54 56 69 SPRDY 0027R 87 99 START 0000R 44 108 WAIT 002ER 94 83