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