User Tools

Site Tools


ibm:ibm1130-lib:dmsr2v12:zcpdumpc_lst

ZCPDUMPC

Table Of Contents
  • [00004] CARD CONSOLE PRINTER DUMP
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