ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:11 2020
Source File: \zcpdumpp.asm
PAPER-TAPE CONSOLE PRINTER DUMP
2 | *************************************************** ZDP00020
3 | *STATUS-VERSION 2, MODIFICATION 000 * ZDP00030
4 | *FUNCTION/OPERATION-THIS IS A STAND-ALONE DUMP * ZDP00040
5 | *PROGRAM WRITTEN EXPRESSLY FOR THE PAPER TAPE USER* ZDP00050
6 | *IT COMES IN THE FORM OF A PAPER-TAPE STRIP * ZDP00060
7 | *PUNCHED IN PAPER-TAPE IPL FORMAT(4 BITS PER * ZDP00070
8 | *FRAME).THE PROGRAM IS LOADED STARTING AT LOCATION* ZDP00080
9 | *ZERO AND EXECUTES FROM LOW-CORE. THE PROGRAM * ZDP00090
10 | *DUMPS MEMORY IN HEX.FORMAT,8 WORDS PER LINE ON * ZDP00100
11 | *THE CONSOLE PRINTER. THE STARTING ADDRESS OF THE * ZDP00110
12 | *DUMP IS READ FROM THE BIT SWITCHES. * ZDP00120
13 | * * ZDP00130
14 | *ENTRY POINTS- * ZDP00140
15 | * *START-AFTER THE TAPE IS LOADED BY IPL, * ZDP00150
16 | * CONTROL IS PASSED TO LOC. ZERO(START) * ZDP00160
17 | * *INTRP-THIS IS THE TYPEWRITER INTERRUPT * ZDP00170
18 | * SERVICE ENTRY POINT. * ZDP00180
19 | * * ZDP00190
20 | *INPUT- STARTING ADDRESS THROUGH BIT SWITCHES * ZDP00200
21 | * * ZDP00210
22 | *OUTPUT- PRINTED OUTPUT ON THE TYPEWRITER * ZDP00220
23 | * * ZDP00230
24 | *EXTERNAL REFERENCES- NONE * ZDP00240
25 | * * ZDP00250
26 | *EXITS-NORMAL NONE, PROGRAM EXECUTES CONTINUOUSLY * ZDP00260
27 | *UNTIL EITHER IMM STOP OR PROG.STOP IS PRESSED. * ZDP00270
28 | * * ZDP00280
29 | *TABLES/WORKAREA .BUF. ONE WORD LOCATION FROM * ZDP00290
30 | *WHICH EACH CHARACTER IS PRINTED, .TABLE. A TABLE * ZDP00300
31 | *CONTAINING 16 R/T CHARACTERS,0-F,PACKED 2 PER WD.* ZDP00310
32 | * * ZDP00320
33 | *ATTRIBUTES-REUSABLE * ZDP00330
34 | * * ZDP00340
35 | *NOTES--WAITS WITH /2000 IN ACC ON TYPEWRITER * ZDP00350
36 | *NOT READY.ALSO WAITS AT LOC /54 WHEN PROGRAM * ZDP00360
37 | *STOP KEY IS PRESSED. * ZDP00370
38 | *************************************************** ZDP00380
39 | ABS ZDP00390
40 | *PAPER TAPE STRIP DUMP ON TYPEWRITER. STARTING ZDP00400
41 | *ADDRESS ENTERED FROM BIT SWITCHES. ZDP00410
0000 42 | ORG 0 ZDP00420
0000 0841 43 | START XIO BITSW READ STARTING ADDRESS ZDP00430
0001 C042 44 | LD ADDR ADDRESS FROM BIT SWITCHES ZDP00440
0002 E042 45 | AND FFF0 EXTRACT ADDRESS MOD 16 ZDP00450
0003 D040 46 | STO ADDR ADDRESS OF LINE ZDP00460
0004 6310 47 | LINE LDX 3 16 WDS PER LINE COUNT ZDP00470
0005 4012 48 | BSI PRINT PRINT LINE ADDRESS ZDP00480
0006 402B 49 | BSI RDYTS READY TEST ZDP00490
0007 0838 50 | XIO WRITE PRINT ADDITIONAL SPACE ZDP00500
0008 C480 0044 51 | NEXT LD I ADDR WORD TO PRINT ZDP00510
000A 400D 52 | BSI PRINT GO TYPE ONE WORD ZDP00520
000B 7002 53 | MDX OVER SKIP OVER INTERRUPT WORDS ZDP00530
000C 003A 54 | DC INTRP LEVEL 4 INTERRUPT ZDP00540
000D 0053 55 | DC PSTOP PROGRAM STOP INTERRUPT ZDP00550
000E 7401 0044 56 | OVER MDX L ADDR,1 NEXT ADDRESS ZDP00560
0010 73FF 57 | MDX 3 -1 DECREMENT LINE COUNT ZDP00570
0011 70F6 58 | MDX NEXT NEXT WD IF LINE NOT DONE ZDP00580
0012 C033 59 | LD CRTN CARRIER RETURN CODE TO ZDP00590
0013 D034 60 | STO BUF *OUTPUT BUFFER ZDP00600
0014 401D 61 | BSI RDYTS READY TEST ZDP00610
0015 082A 62 | XIO WRITE CARRIER RETURN ZDP00620
0016 C02D 63 | LD ADDR ADDRESS OF LINE ZDP00630
0017 70EC 64 | MDX LINE PRINT ADDRESS OF NEXT LINE ZDP00640
65 | * ZDP00650
66 | *SUBROUTINE TO CONVERT A WORD TO 4 HEX CHARACTERS ZDP00660
67 | *AND TYPE THEN ON THE CONSOLE PRINTER ZDP00670
68 | * ZDP00680
0018 0000 69 | PRINT DC 0 ZDP00690
0019 18D0 70 | RTE 16 SAVE WORD IN EXTENSION ZDP00700
001A 6104 71 | LDX 1 4 XR1 IS 4-CHAR-COUNTER ZDP00710
001B 6200 72 | STAR2 LDX 2 0 XR2 IS ODD/EVEN SWITCH. ZDP00720
001C 1010 73 | SLA 16 CLEAR ACC ZDP00730
001D 1084 74 | SLT 4 BRING IN ONE CHAR ZDP00740
001E 4804 75 | BSC E IS CHAR EVEN,YES,SKIP ZDP00750
001F 7208 76 | MDX 2 8 NO,SET XR2 TO SHIFT 8 ZDP00760
0020 1801 77 | SRA 1 DIVIDE BY 2 ZDP00770
0021 801C 78 | A TBLAD CREATE ADDR OF CHAR IN TABL ZDP00780
0022 D002 79 | STO LOAD+1 ZDP00790
0023 400E 80 | READY BSI RDYTS READY TEST ZDP00800
0024 C400 0000 81 | LOAD LD L *-* LD 2 R/T CHARS FROM TABLE ZDP00810
0026 1200 82 | SLA 2 0 LEFT JUSTIFY IF NECESSARY ZDP00820
0027 D020 83 | STO BUF STORE CHARECTER ZDP00830
0028 0817 84 | XIO WRITE TYPE ONE CHARACTER ZDP00840
0029 71FF 85 | MDX 1 -1 CHK IF 4 CHARS,1 WD,DONE ZDP00850
002A 70F0 86 | MDX STAR2 NO,GO GET NEXT CHARACTER ZDP00860
002B C01D 87 | LD TABLE-1 SPACE CHARACTER ZDP00870
002C 901B 88 | S BUF ZDP00880
002D 4C98 0018 89 | BSC I PRINT,+- EXIT IF LAST CHAR WAS SPACE ZDP00890
002F 6200 90 | LDX 2 0 SET XR2 FOR NO SHIFT ZDP00900
0030 C016 91 | LD MINUS POINT TO SPACE CHAR IN TABL ZDP00910
0031 70EF 92 | MDX READY-2 PRINT SPACE ZDP00920
93 | * ZDP00930
94 | *TEST TYPEWRITER FOR READY ZDP00940
95 | * ZDP00950
0032 0000 96 | RDYTS DC *-* ZDP00960
0033 080A 97 | XIO SENSE-1 SENSE TYPEWRITER ZDP00970
0034 1005 98 | SLA 5 ZDP00980
0035 4C90 0032 99 | BSC I RDYTS,- EXIT IF READY ZDP00990
0037 C01A 100 | LD H2000 NOT READY,LOAD ERROR CODE ZDP01000
0038 3000 101 | WAIT WAIT FOR OPERATOR ZDP01010
0039 70F9 102 | MDX RDYTS+1 TRY AGAIN ZDP01020
103 | * ZDP01030
104 | * TYPEWRITER INTERRUPT SERVICE ZDP01040
105 | * ZDP01050
003A 0000 106 | INTRP DC *-* ZDP01060
003B 0802 107 | XIO SENSE-1 SENSE WITH RESET ZDP01070
003C 4CC0 003A 108 | BOSC I INTRP TURN OFF INTRP LVL AND EXIT ZDP01080
109 | * ZDP01090
003E 110 | BSS E 0 ZDP01100
003E 004A 111 | TBLAD DC TABLE ADDRESS OF CHARACTER TABLE ZDP01110
003F 0F03 112 | SENSE DC /0F03 SENSE/RESET IOCC ZDP01120
0040 0048 113 | WRITE DC BUF PRINT ZDP01130
0041 0902 114 | DC /0902 *IOCC ZDP01140
0042 0044 115 | BITSW DC ADDR ADDR. OF BIT SW READ-IN ZDP01150
0043 3A00 116 | DC /3A00 BIT SWITCH IOCC ZDP01160
0044 0000 117 | ADDR DC *-* ZDP01170
0045 FFF0 118 | FFF0 DC /FFF0 LINE ADDRESS MASK ZDP01180
0046 8100 119 | CRTN DC /8100 CARRIER RETURN CODE ZDP01190
0047 FFFF 120 | MINUS DC -1 CONST USED FOR SPACING ZDP01200
0048 0000 121 | BUF DC 0 WD USED TO TYPE CHAR FROM ZDP01210
0049 2100 122 | DC /2100 SPACE ZDP01220
004A C4FC 123 | TABLE DC /C4FC *ROT./TILT CHARACTERS 01 ZDP01230
004B D8DC 124 | DC /D8DC *ROT./TILT CHARACTERS 23 ZDP01240
004C F0F4 125 | DC /F0F4 *ROT./TILT CHARACTERS 45 ZDP01250
004D D0D4 126 | DC /D0D4 *ROT./TILT CHARACTERS 67 ZDP01260
004E E4E0 127 | DC /E4E0 *ROT./TILT CHARACTERS 89 ZDP01270
004F 3C18 128 | DC /3C18 *ROT./TILT CHARACTERS AB ZDP01280
0050 1C30 129 | DC /1C30 *ROT./TILT CHARACTERS CD ZDP01290
0051 3410 130 | DC /3410 *ROT./TILT CHARACTERS EF ZDP01300
131 | * ZDP01310
0052 2000 132 | H2000 DC /2000 NOT READY ERROR CODE ZDP01320
133 | * ZDP01330
134 | * PROGRAM STOP INTERRUPT SERVICE ZDP01340
135 | * ZDP01350
0053 0000 136 | PSTOP DC *-* ZDP01360
0054 3000 137 | WAIT WAIT OPERATOR ACTION ZDP01370
0055 4CC0 0053 138 | BOSC I PSTOP TURN OFF LEVEL AND EXIT ZDP01380
139 | * ZDP01390
0057 140 | END START ZDP01400
There were no errors in this assembly
Program transfer address = 0000
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
ADDR 0044 117 44 46 51 56 63 115
BITSW 0042 115 43
BUF 0048 121 60 83 88 113
CRTN 0046 119 59
FFF0 0045 118 45
H2000 0052 132 100
INTRP 003A 106 54 108
LINE 0004 47 64
LOAD 0024 81 79
MINUS 0047 120 91
NEXT 0008 51 58
OVER 000E 56 53
PRINT 0018 69 48 52 89
PSTOP 0053 136 55 138
RDYTS 0032 96 49 61 80 99 102
READY 0023 80 92
SENSE 003F 112 97 107
STAR2 001B 72 86
START 0000 43 140
TABLE 004A 123 87 111
TBLAD 003E 111 78
WRITE 0040 113 50 62 84