ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:11 2020
Source File: \zcpdumpc.asm
CARD CONSOLE PRINTER DUMP
2 | *************************************************** ZDC00020
3 | *STATUS-VERSION 2,MODIFICATION 000 * ZDC00030
4 | * * ZDC00040
5 | *FUNCTION/OPERATION- THIS IS A ONE CARD DUMP ON * ZDC00050
6 | *THE TYPEWRITER.THE CARD IS LOADED BY PRESSING * ZDC00060
7 | *PROGRAM LOAD.THE PROGRAM IS PUNCHED IN THE CARD * ZDC00070
8 | *IN 1130 IPL FORMAT,THUS THE PROGRAM WHEN LOADED * ZDC00080
9 | *CONTAINS NO LONG OR INDEXED INSTRUCTIONS.SUCH * ZDC00090
10 | *INSTRUCTIIONS HAVE TO BE BUILT UP BEFORE THE DUMP* ZDC00100
11 | *PORTION OF THE PROGRAM CAN BE EXECUTED. THIS * ZDC00110
12 | *PROGRAM GETS ITS STARTING ADDRESS FROM THE BIT- * ZDC00120
13 | *SWITCHES AND DUMPS 4 CHARACTERS PER WORD WITH A * ZDC00130
14 | *SPACE SEPARATING EACH WORD,THE NO. OF WORDS TYPED* ZDC00140
15 | *DEPENDS ON THE MARGIN SETTING OF THE TYPEWRITER. * ZDC00150
16 | *ENTRY POINTS- * ZDC00160
17 | * *START- THIS IS THE ONLY NORMAL ENTRY TO THE* ZDC00170
18 | * PROGRAM,.INTRP. IS THE ENTRY WHICH SERVICES * ZDC00180
19 | * THE TYPEWRITER INTERRUPTS. * ZDC00190
20 | * * ZDC00200
21 | *INPUT- THE STARTING ADDRESS PROVIDED BY THE USER * ZDC00210
22 | *IN THE BIT SWITCHES. * ZDC00220
23 | *OUTPUT- PRINTED CHARACTERS 4 PER WORD WITH A * ZDC00230
24 | *SEPARATING SPACE ON THE 1053 TYPEWRITER. * ZDC00240
25 | * * ZDC00250
26 | *EXTERNAL REFERENCES- NONE * ZDC00260
27 | * * ZDC00270
28 | *EXITS NORMAL- NONE. THE PROGRAM TYPES * ZDC00280
29 | *CONTINUOUSLY ON THE TYPEWRITER UNTIL IMM.STOP IS * ZDC00290
30 | *PRESSED. * ZDC00300
31 | * * ZDC00310
32 | *TABLES/WORK-AREAS. .TABLE. IS THE BEGINNING OF 4 * ZDC00320
33 | *16-WORD TABLE OF RT-JUSTIFIED TYPEWRITER CODE * ZDC00330
34 | *CHARACTERS 0 THRU F. * ZDC00340
35 | * * ZDC00350
36 | *ATTRIBUTES- REUSABLE * ZDC00360
37 | * * ZDC00370
38 | *NOTES-PORTIONS OF THE PROGRAM WHICH EXECUTE ONE- * ZDC00380
39 | *TIME INITIALIZATIONS ARE USED AS WORK-AREAS,.BUF.* ZDC00390
40 | *.ONE.,.SAVE.,.COUNT. * ZDC00400
41 | * * ZDC00410
42 | *************************************************** ZDC00420
CARD CONSOLE PRINTER DUMP
44 | ABS ZDC00440
0000 45 | ORG 0 ZDC00450
46 | *ONE CARD DUMP ON TYPEWRITER ZDC00460
47 | * ZDC00470
0000 C805 48 | START LDD INTRP-1 MAKE WDS AT INTRP-1 AND ZDC00480
0001 10C9 49 | SLC 9 *INTRP BOSC L *-* ZDC00490
0002 D003 50 | STO INTRP-1 ZDC00500
0003 C037 51 | LD SENSE+1 SET UP IOCC ZDC00510
0004 1804 52 | SRA 4 FOR SENSE ZDC00520
0005 7007 53 | MDX GO BRANCH AROUND ZDC00530
54 | * ZDC00540
55 | *THE NEXT TWO WORDS BECOME BOSC L 0000 ZDC00550
56 | * ZDC00560
0006 0026 57 | DC /0026 /4C40 BOSC L ZDC00570
0007 2000 58 | INTRP DC /2000 /0000 *-* . INTRUPT RTN. ZDC00580
0008 D0F9 59 | STO SAVE SAVE ACC ZDC00590
0009 0830 60 | XIO SENSE TURN OFF INTRRUPT ZDC00600
000A C0F7 61 | LD SAVE RESTORE ACC ZDC00610
000B 70FA 62 | MDX INTRP-1 EXIT ZDC00620
000C 0007 63 | DC INTRP LEVEL 4 INTERRUPT WORD ZDC00630
000D D02D 64 | GO STO SENSE+1 ZDC00640
000E C00C 65 | LD STAR SET UP LONG LOAD ZDC00650
000F 1008 66 | LUCK SLA 8 *INSTRUCTIONS AT * ZDC00660
0010 D00A 67 | STO STAR *.STAR. AND ZDC00670
0011 D012 68 | STO STAR3 *.STAR3. ZDC00680
69 | * ZDC00690
0012 C835 70 | LDD BITSW SET - UP IOCC TO READ FROM ZDC00700
0013 18CA 71 | RTE 10 * BIT SWITCHES INTO LOCN 1C ZDC00710
0014 D833 72 | STD BITSW * WHICH IS STAR+1 ZDC00720
73 | * ZDC00730
0015 C039 74 | SWIT LD WRITE+1 SET UP IOCC* ZDC00740
0016 1804 75 | SRA 4 *TO TYPE ONE* ZDC00750
0017 D037 76 | STO WRITE+1 *CHARACTER * ZDC00760
77 | * ZDC00770
0018 082F 78 | XIO BITSW READ STARTING ADDRESS ZDC00780
0019 C002 79 | LD STAR+1 INITIALIZE TO TYPE STARTING ZDC00790
001A 7002 80 | MDX STAR+2 *ADDRESS ZDC00800
81 | * ZDC00810
82 | *THE NEXT TWO WORDS WERE PREVIOUSLY INITIALIZED ZDC00820
83 | * TO LD L *-* ZDC00830
84 | * ZDC00840
001B 00C4 85 | STAR DC /00C4 LOAD WORD TO ZDC00850
001C 0000 86 | DC *-* *BE DUMPED ZDC00860
001D 18D0 87 | RTE 16 SAVE WORD IN EXT ZDC00870
001E C02A 88 | LD CONST INIT COUNTER TO ZDC00880
001F D0E3 89 | STO COUNT *60 HEX ZDC00890
0020 1010 90 | STAR2 SLA 16 CLEAR ACC ZDC00900
0021 10C4 91 | SLC 4 BRING IN ONE CHARACTER ZDC00910
0022 8023 92 | A TYTAB COMPUTE ADDRESS OF CHAR ZDC00920
0023 D001 93 | STO *+1 ZDC00930
94 | * ZDC00940
95 | *THE NEXT TWO WORDS WERE PREVIOUSLY SET UP ZDC00950
96 | *TO BE A LONG LOAD INSTRUCTION LD L *-* ZDC00960
97 | * ZDC00970
0024 0000 98 | STAR3 DC *-* LOAD REQUIRED CHARACTER ZDC00980
0025 0000 99 | DC *-* *FROM TABLE ZDC00990
0026 1008 100 | SLA 8 LEFT-JUSTIFY ZDC01000
0027 D0D9 101 | STO BUF ST IN 1ST WD OF WRITE IOCC ZDC01010
0028 0825 102 | WRT XIO WRITE TYPE ONE CHARACTER ZDC01020
0029 0010 103 | DC /0010 WAIT FOR INTERRUPT ZDC01030
002A C0D8 104 | CHNG2 LD COUNT CHECK IF ZDC01040
002B 90E3 105 | S LUCK *FOUR CHARACTERS ZDC01050
002C D0D6 106 | STO COUNT *HAVE BEEN TYPED ZDC01060
002D 4830 107 | BSC Z- *SKIP IF YES ZDC01070
002E 70F1 108 | MDX STAR2 *NO,GO GET NEXT CHARACTER ZDC01080
002F C003 109 | LD SPACE *YES,TYPE ONE ZDC01090
0030 1008 110 | SLA 8 *SPACE ZDC01100
0031 D0CF 111 | STO BUF *CHARACTER ZDC01110
0032 081B 112 | XIO WRITE *TYPE SPACE CHARACTER ZDC01120
113 | * ZDC01130
114 | *THE FOLLOWING WORD SERVES BOTH AS A WAIT-FOR - ZDC01140
115 | *INTERRUPT AND ALSO A CONSTANT FOR A ROTATE/TILT ZDC01150
116 | *SPACE CHARACTER ZDC01160
117 | * ZDC01170
0033 0021 118 | SPACE DC /0021 ZDC01180
0034 C0E0 119 | LD SWIT CHK.IF THIS IS ADDR. WORD ZDC01190
0035 4820 120 | BSC Z THAT WAS JUST TYPED,YES,GO ZDC01200
0036 7014 121 | MDX LUCK2 TURN OFF SWITCH ZDC01210
0037 C0E4 122 | LD STAR+1 MODIFY ADDRESS TO PICK ZDC01220
0038 8015 123 | A ONE UP NEXT WD. TO BE DUMPED. ZDC01230
0039 D0E2 124 | STO STAR+1 ZDC01240
003A 70E0 125 | SENSE MDX STAR GO DO NEXT WORD ZDC01250
003B F010 126 | DC /F010 SENSE IOCC ZDC01260
127 | * ZDC01270
128 | *TABLE OF ROTATE/TILT CHARACTERS ,0 THROUGH F ZDC01280
129 | * ZDC01290
003C 00C4 130 | TABLE DC /00C4 0 ZDC01300
003D 00FC 131 | DC /00FC 1 ZDC01310
003E 00D8 132 | DC /00D8 2 ZDC01320
003F 00DC 133 | DC /00DC 3 ZDC01330
0040 00F0 134 | DC /00F0 4 ZDC01340
0041 00F4 135 | DC /00F4 5 ZDC01350
0042 00D0 136 | DC /00D0 6 ZDC01360
0043 00D4 137 | DC /00D4 7 ZDC01370
0044 00E4 138 | DC /00E4 8 ZDC01380
0045 00E0 139 | DC /00E0 9 ZDC01390
0046 003C 140 | TYTAB DC /003C A ZDC01400
0047 0018 141 | DC /0018 B ZDC01410
0048 70E8 142 | BITSW DC /70E8 C ALSO 1ST WD OF BIT SW IO ZDC01420
0049 C000 143 | CONST DC /C000 D ALSO 2ND WD OF BIT SW IO ZDC01430
004A 0034 144 | DC /0034 E ZDC01440
004B 1810 145 | LUCK2 DC /1810 F ALSO SRA 16 INSTRUCTION ZDC01450
004C D0C8 146 | STO SWIT *TELLS US THAT ADDRESS IS * ZDC01460
004D 70CD 147 | MDX STAR *TYPED * ZDC01470
004E 0001 148 | WRITE DC BUF CONSTANT 1 ZDC01480
004F 9010 149 | DC /9010 WRITE IOCC ZDC01490
0001 150 | BUF EQU START+1 LOC. OF BUF IS 0001 ZDC01500
004E 151 | ONE EQU WRITE CONSTANT ONE ZDC01510
0002 152 | SAVE EQU START+2 WORD TO SAVE ACC ZDC01520
0003 153 | COUNT EQU START+3 CONST TO COUNT 4 CHARACTERS ZDC01530
0050 154 | END START ZDC01540
There were no errors in this assembly
Program transfer address = 0000
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
BITSW 0048 142 70 72 78
BUF 0001 150 101 111 148
CHNG2 002A 104
CONST 0049 143 88
COUNT 0003 153 89 104 106
GO 000D 64 53
INTRP 0007 58 48 50 62 63
LUCK 000F 66 105
LUCK2 004B 145 121
ONE 004E 151 123
SAVE 0002 152 59 61
SENSE 003A 125 51 60 64
SPACE 0033 118 109
STAR 001B 85 65 67 79 80 122 124 125 147
STAR2 0020 90 108
STAR3 0024 98 68
START 0000 48 150 152 153 154
SWIT 0015 74 119 146
TABLE 003C 130
TYTAB 0046 140 92
WRITE 004E 148 74 76 102 112 151
WRT 0028 102