User Tools

Site Tools


ibm:ibm1130-lib:dmsr2v12:zcpdumpp_lst

ZCPDUMPP

Table Of Contents
  • [00004] PAPER-TAPE CONSOLE PRINTER DUMP
zcpdumpp.lst
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
ibm/ibm1130-lib/dmsr2v12/zcpdumpp_lst.txt ยท Last modified: 2023/08/06 13:34 by Site Administrator