ibm:ibm1130-lib:dmsr2v12:zcpdumpc_lst
ZCPDUMPC
| Table Of Contents |
|---|
|
- zcpdumpc.lst
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
ibm/ibm1130-lib/dmsr2v12/zcpdumpc_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator