CARD80 Assembly Listing

                                                                                                               PAGE    2

  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 17.10 08/19/11

                                      1 **********************************************************************  00010000
                                      2 * CARD80                                                                00020000
                                      3 *                                                                       00030000
                                      4 * PUNCH OUT A CARD DECK THAT WILL IPL AND THEN READ REMAINDING CARD     00040000
                                      5 * IN CARD READER AND LIST THEM TO A PRINTER                             00050000
                                      6 *                                                                       00060000
                                      7 **********************************************************************  00070000
000000                                8 CARD80   CSECT ,                                                        00080000
000000 90EC D00C      0000C           9          STM   R14,R12,12(R13)    SAVE CALLERS REGISTERS                00090000
000004 18CF                          10          LR    R12,R15            R12 IS PROGRAM BASE                   00100000
                            00000    11          USING CARD80,R12                                               00110000
                                     12 *                                                                       00120000
000006 4110 C128      00128          13          LA    R1,SAVEA           POINT TO NEW SAVE AREA                00130000
00000A 5010 D008      00008          14          ST    R1,8(,R13)         CHAIN                                 00140000
00000E 50D0 1004      00004          15          ST    R13,4(,R1)              ON                               00150000
000012 18D1                          16          LR    R13,R1                    SAVEAREA                       00160000
                                     17 *                                                                       00170000
                                     18 *                                                                       00180000
                                     19          OPEN  (PUNCH,OUTPUT)     OPEN OUTPUT FILE                      00190000
000014                               20+         CNOP  0,4                               ALIGN LIST TO FULLWORD 01740001
000014 4510 C01C      0001C          21+         BAL   1,*+8                             LOAD REG1 W/LIST ADDR. 01780000
000018 8F                            22+         DC    AL1(143)                          OPTION BYTE            01900000
000019 000170                        23+         DC    AL3(PUNCH)                        DCB ADDRESS            01920000
00001C 0A13                          24+         SVC   19                                ISSUE OPEN SVC         04000000
                                     25 **********************************************************************  00200000
                                     26 *  WRITE FIRST IPL CARD WITH 24 BYTES OF DATA (PSW,CCW,CCW)             00210000
                                     27 **********************************************************************  00220000
                                     28          PUT   PUNCH,CARD0        WRITE INITIAL IPL RECORD              00230000
00001E 4110 C170      00170          29+         LA    1,PUNCH                           LOAD PARAMETER REG 1   01900002
000022 4100 C1D0      001D0          30+         LA    0,CARD0                           LOAD PARAMETER REG 0   02500002
000026 58F0 1030      00030          31+         L     15,48(0,1)               LOAD PUT ROUTINE ADDR           00550000
00002A 05EF                          32+         BALR  14,15                    LINK TO PUT ROUTINE             00600000
                                     33 **********************************************************************  00240000
                                     34 *  WRITE SECOND IPL CARD WITH ADDITIONAL READ CCW'S                     00250000
                                     35 **********************************************************************  00260000
                                     36          PUT   PUNCH,CARD1        WRITE SECOND IPL RECORD               00270000
00002C 4110 C170      00170          37+         LA    1,PUNCH                           LOAD PARAMETER REG 1   01900002
000030 4100 C220      00220          38+         LA    0,CARD1                           LOAD PARAMETER REG 0   02500002
000034 58F0 1030      00030          39+         L     15,48(0,1)               LOAD PUT ROUTINE ADDR           00550000
000038 05EF                          40+         BALR  14,15                    LINK TO PUT ROUTINE             00600000
                                     41 **********************************************************************  00280000
                                     42 *  WRITE 3 CARDS CONTAINING EXECUTABLE CODE                             00290000
                                     43 **********************************************************************  00300000
                                     44          PUT   PUNCH,CARD2        WRITE DATA                            00310000
                                                                                                               PAGE    3

  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 17.10 08/19/11

00003A 4110 C170      00170          45+         LA    1,PUNCH                           LOAD PARAMETER REG 1   01900002
00003E 4100 C270      00270          46+         LA    0,CARD2                           LOAD PARAMETER REG 0   02500002
000042 58F0 1030      00030          47+         L     15,48(0,1)               LOAD PUT ROUTINE ADDR           00550000
000046 05EF                          48+         BALR  14,15                    LINK TO PUT ROUTINE             00600000
                                     49          PUT   PUNCH,CARD2+80     WRITE DATA                            00320000
000048 4110 C170      00170          50+         LA    1,PUNCH                           LOAD PARAMETER REG 1   01900002
00004C 4100 C2C0      002C0          51+         LA    0,CARD2+80                        LOAD PARAMETER REG 0   02500002
000050 58F0 1030      00030          52+         L     15,48(0,1)               LOAD PUT ROUTINE ADDR           00550000
000054 05EF                          53+         BALR  14,15                    LINK TO PUT ROUTINE             00600000
                                     54          PUT   PUNCH,CARD2+160    WRITE DATA                            00330000
000056 4110 C170      00170          55+         LA    1,PUNCH                           LOAD PARAMETER REG 1   01900002
00005A 4100 C310      00310          56+         LA    0,CARD2+160                       LOAD PARAMETER REG 0   02500002
00005E 58F0 1030      00030          57+         L     15,48(0,1)               LOAD PUT ROUTINE ADDR           00550000
000062 05EF                          58+         BALR  14,15                    LINK TO PUT ROUTINE             00600000
                                     59 **********************************************************************  00340000
                                     60 *                                                                       00350000
                                     61 *        NOW WRITE SOME TEST DATA CARDS BECHIND IPL PROGRAM             00360000
                                     62 *                                                                       00370000
                                     63 **********************************************************************  00380000
000064 4130 000A      0000A          64          LA    R3,10              TIMES TO REPEAT LOOP                  00390000
000068 4140 C0B8      000B8          65          LA    R4,=C'01020304050607080910'                              00400000
00006C 4150 C0CC      000CC          66          LA    R5,=C'*+@#$%-() '                                        00410000
000070                               67 LOOP     DS    0H                                                       00420000
000070 D200 C0D6 5000 000D6 00000    68          MVC   BUF(1),0(R5)       CHAR TO REPEAT                        00430000
000076 D24E C0D7 C0D6 000D7 000D6    69          MVC   BUF+1(79),BUF      FILL BUFFER                           00440000
00007C D201 C0D6 4000 000D6 00000    70          MVC   BUF(2),0(R4)       CARD NUMBER                           00450000
000082 9240 C0D8      000D8          71          MVI   BUF+2,C' '         AND A SPACE                           00460000
                                     72          PUT   PUNCH,BUF                                                00470000
000086 4110 C170      00170          73+         LA    1,PUNCH                           LOAD PARAMETER REG 1   01900002
00008A 4100 C0D6      000D6          74+         LA    0,BUF                             LOAD PARAMETER REG 0   02500002
00008E 58F0 1030      00030          75+         L     15,48(0,1)               LOAD PUT ROUTINE ADDR           00550000
000092 05EF                          76+         BALR  14,15                    LINK TO PUT ROUTINE             00600000
000094 4140 4002      00002          77          LA    R4,2(,R4)          INCREMENT                             00480000
000098 4150 5001      00001          78          LA    R5,1(,R5)                                                00490000
00009C 4630 C070      00070          79          BCT   R3,LOOP            LOOP BACK                             00500000
                                     80 *                                                                       00510000
                                     81          CLOSE (PUNCH)                                                  00520000
0000A0                               82+         CNOP  0,4                               ALIGN LIST TO FULLWORD 02420002
0000A0 4510 C0A8      000A8          83+         BAL   1,*+8                             LOAD REG1 W/LIST ADDR  02460002
0000A4 80                            84+         DC    AL1(128)                          OPTION BYTE            02580000
0000A5 000170                        85+         DC    AL3(PUNCH)                        DCB ADDRESS            02600000
0000A8 0A14                          86+         SVC   20                                ISSUE CLOSE SVC        01640000
                                     87 *                                                                       00530000
                                     88 *                                                                       00540000
                                                                                                               PAGE    4

  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 17.10 08/19/11

0000AA 58D0 D004      00004          89          L     R13,4(,R13)        PREV SAVE AREA                        00550000
0000AE 98EC D00C      0000C          90          LM    R14,R12,12(R13)    RESTORE CALLERS REGISTERS             00560000
0000B2 1FFF                          91          SLR   R15,R15            RC=0                                  00570000
0000B4 07FE                          92          BR    R14                                                      00580000
                                     93 *                                                                       00590000
0000B8                               94          LTORG ,                                                        00600000
0000B8 F0F1F0F2F0F3F0F4              95                =C'01020304050607080910'
0000CC 5C4E7C7B5B6C604D              96                =C'*+@#$%-() '
                                     97 *                                                                       00610000
0000D6                               98 BUF      DS    CL80               CARD BUFFER                           00620000
                                     99 *                                                                       00630000
000128                              100 SAVEA    DS    18F                SAVEA AREA                            00640000
                                    101 *                                                                       00650000
                                    102 *                                                                       00660000
                                    103          PRINT NOGEN                                                    00670000
                                    104 PUNCH    DCB   DSORG=PS,MACRF=PM,BLKSIZE=80,LRECL=80,RECFM=F,          +00680000
                                                       DDNAME=PUNCH                                             00690000
                                    158          PRINT GEN                                                      00700000
                                    159 *                                                                       00710000
                                    160 *                                                                       00720000
                                    161          DROP  R12                                                      00730000
                                    162 **********************************************************************  00740000
                                    163 **********************************************************************  00750000
                                    164 ** FRIST CARD OF OUR IPL DECK                                           00760000
                                    165 **    IT CONTAINS 24 BYTES - PSW AND TWO CCW'S                          00770000
                                    166 **********************************************************************  00780000
                                    167 **********************************************************************  00790000
                                    168 *                                                                       00800000
0001D0                              169          DS    0D                                                       00810000
0001D0 0000000000000000             170 CARD0    DC    80XL1'00'          INITIAL IPL CARD                      00820000
000220                      001D0   171          ORG   CARD0                                                    00830000
                                    172 *                                                                       00840000
                                    173 **********************************************************************  00850000
                                    174 *        PSW                                                            00860000
                                    175 **********************************************************************  00870000
                                    176 *                                                                       00880000
0001D0 00                           177 IPLPSW   DC    X'00'              I/O & EXT INTERRUPTS DISABLED         00890000
0001D1 00                           178          DC    X'00'              KEY=0; BC; EXT INT DISABLED; SUP      00900000
0001D2 0000                         179          DC    X'0000'                                                  00910000
0001D4 00                           180          DC    X'00'              PROG INT DISABLED                     00920000
0001D5 000400                       181          DC    AL3(1024)          INITIAL EXECUTION ADDRESS             00930000
                                    182 *                                                                       00940000
                                    183 **********************************************************************  00950000
                                    184 *        CCW                                                            00960000
                                                                                                               PAGE    5

  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 17.10 08/19/11

                                    185 **********************************************************************  00970000
                                    186 *                                                                       00980000
0001D8 02                           187 CCW1     DC    X'02'              READ                                  00990000
0001D9 000200                       188          DC    AL3(512)           ADDRESS FOR DATA                      01000000
0001DC 60                           189          DC    X'60'              CC + SLI                              01010000
0001DD 00                           190          DC    X'00'                                                    01020000
0001DE 0050                         191          DC    AL2(80)            LENGTH                                01030000
                                    192 *                                                                       01040000
                                    193 **********************************************************************  01050000
                                    194 *        CCW                                                            01060000
                                    195 **********************************************************************  01070000
                                    196 *                                                                       01080000
0001E0 08                           197 CCW2     DC    X'08'              TIC                                   01090000
0001E1 000200                       198          DC    AL3(512)           NEXT CCW ADDRESS                      01100000
0001E4 00                           199          DC    X'00'              CC + SLI                              01110000
0001E5 00                           200          DC    X'00'                                                    01120000
0001E6 0000                         201          DC    AL2(0)             LENGTH                                01130000
                                    202 *                                                                       01140000
                                    203 *                                                                       01150000
0001E8                      00220   204          ORG   ,                  RESTORE LOC TO HIGHEST                01160000
                                    205 *                                                                       01170000
                                    206 **********************************************************************  01180000
                                    207 **********************************************************************  01190000
                                    208 ** SECOND CARD OF OUR IPL DECK                                          01200000
                                    209 **    IT CONTAINS THREE CCW'S                                           01210000
                                    210 **    THESE CCW'S READ THE THREE CARDS CONTAINING EXECUTABLE CODE       01220000
                                    211 **********************************************************************  01230000
                                    212 **********************************************************************  01240000
000220                              213          DS    0D                                                       01250000
000220 0000000000000000             214 CARD1    DC    80XL1'00'          SECOND IPL CARD                       01260000
000270                      00220   215          ORG   CARD1                                                    01270000
                                    216 *                                                                       01280000
                                    217 **********************************************************************  01290000
                                    218 *        CCW                                                            01300000
                                    219 **********************************************************************  01310000
                                    220 *                                                                       01320000
000220 02                           221 CCW3     DC    X'02'              READ                                  01330000
000221 000400                       222          DC    AL3(1024)          ADDRESS FOR DATA                      01340000
000224 60                           223          DC    X'60'              CC + SLI                              01350000
000225 00                           224          DC    X'00'                                                    01360000
000226 0050                         225          DC    AL2(80)            LENGTH                                01370000
                                    226 *                                                                       01380000
                                    227 **********************************************************************  01390000
                                    228 *        CCW                                                            01400000
                                                                                                               PAGE    6

  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 17.10 08/19/11

                                    229 **********************************************************************  01410000
                                    230 *                                                                       01420000
000228 02                           231 CCW4     DC    X'02'              READ                                  01430000
000229 000450                       232          DC    AL3(1024+80)       ADDRESS FOR DATA                      01440000
00022C 60                           233          DC    X'60'              CC + SLI                              01450000
00022D 00                           234          DC    X'00'                                                    01460000
00022E 0050                         235          DC    AL2(80)            LENGTH                                01470000
                                    236 *                                                                       01480000
                                    237 **********************************************************************  01490000
                                    238 *        CCW                                                            01500000
                                    239 **********************************************************************  01510000
                                    240 *                                                                       01520000
000230 02                           241 CCW5     DC    X'02'              READ                                  01530000
000231 0004A0                       242          DC    AL3(1024+160)      ADDRESS FOR DATA                      01540000
000234 20                           243          DC    X'20'              SLI                                   01550000
000235 00                           244          DC    X'00'                                                    01560000
000236 0050                         245          DC    AL2(80)            LENGTH                                01570000
                                    246 *                                                                       01580000
                                    247 *                                                                       01590000
                                    248 *                                                                       01600000
                                    249 *                                                                       01610000
000238                      00270   250          ORG   ,                  RESTORE LOC TO HIGHEST                01620000
                                    251 *                                                                       01630000
                                    252 **********************************************************************  01640000
                                    253 **********************************************************************  01650000
                                    254 ** THIRD, FOURTH AND FIFTH CARDS OF IPL DECK                            01660000
                                    255 **    IT CONTAINS THE EXECUTABLE PROGRAM                                01670000
                                    256 **********************************************************************  01680000
                                    257 **********************************************************************  01690000
000270                              258          DS    0D                                                       01700000
000270                              259 CARD2    DS    0X                 SECOND IPL CARD                       01710000
                                    260 **********************************************************************  01720000
                                    261 *        EXECUTABLE PROGRAM BEINGS HERE                                 01730000
                                    262 **********************************************************************  01740000
000270                              263 BEGIN    DS    0H                                                       01750000
000270 05A0                         264          BALR  R10,0              ESTABLISH BASE REG                    01760000
                            00272   265          USING *,R10                                                    01770000
                                    266 *                                                                       01780000
                                    267 **********************************************************************  01790000
                                    268 *        GET DEVICE PHYSICAL ADDRESSES R3=RDR R4=PRT                    01800000
                                    269 **********************************************************************  01810000
                                    270 *                                                                       01820000
000272 1F33                         271          SLR   R3,R3              CLEAR R3                              01830000
000274 BF33 0002      00002         272          ICM   R3,B'0011',2       GET IPL DEVICE (CARD RDR)             01840000
                                                                                                               PAGE    7

  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 17.10 08/19/11

000278 4140 000E      0000E         273          LA    R4,X'E'            ASSUME PRINTER AT 00E                 01850000
                                    274 *                                                                       01860000
                                    275 **********************************************************************  01870000
                                    276 *        PUT THE I/O BUFFER ADDRESS INTO THE CCW'S                      01880000
                                    277 **********************************************************************  01890000
                                    278 *                                                                       01900000
00027C 4110 A0C0      00332         279          LA    R1,RDBUF           READ BUFFER                           01910000
000280 BE17 A067      002D9         280          STCM  R1,B'0111',RDCCW+1 ADDRESS TO READ CCW                   01920000
000284 BE17 A06F      002E1         281          STCM  R1,B'0111',PRCCW+1 ADDRESS TO PRINT CCW                  01930000
                                    282 *                                                                       01940000
                                    283 **********************************************************************  01950000
                                    284 *        PROGRAM MAIN LOOP                                              01960000
                                    285 **********************************************************************  01970000
                                    286 *                                                                       01980000
000288                              287 RDLP     DS    0H                                                       01990000
000288 4110 A066      002D8         288          LA    R1,RDCCW           GET ADDR OF READ CCW                  02000000
00028C 5010 0048      00048         289          ST    R1,72              PUT INTO CAW                          02010000
                                    290 *                                                                       02020000
000290 9C00 3000      00000         291          SIO   0(R3)              ISSUE READ                            02030000
000294 4770 A080      002F2         292          BNZ   ERR1               BRANCH IF ERROR                       02040000
                                    293 *                                                                       02050000
                                    294 **********************************************************************  02060000
                                    295 *        WAIT FOR READ I/O TO COMPLETE                                  02070000
                                    296 **********************************************************************  02080000
                                    297 *                                                                       02090000
000298                              298 RDTIO    DS    0H                                                       02100000
000298 9D00 3000      00000         299          TIO   0(R3)              CHECK FOR I/O COMPLETION              02110000
00029C 4780 A036      002A8         300          BZ    PRT                GO PRINT IF GOOD                      02120000
0002A0 4710 A084      002F6         301          BC    1,ERR2             BRAHCH IF ERR                         02130000
0002A4 47F0 A026      00298         302          B     RDTIO              WAIT AGAIN                            02140000
                                    303 *                                                                       02150000
                                    304 **********************************************************************  02160000
                                    305 *        CHECK FOR SUCCESSFUL COMPLETION OF I/O                         02170000
                                    306 *                                                                       02180000
                                    307 *        EXPECT ONLY CHANNEL END + DEVICE END                           02190000
                                    308 *                                                                       02200000
                                    309 *        ANYTHING ELSE WE QUIT                                          02210000
                                    310 *                                                                       02220000
                                    311 **********************************************************************  02230000
                                    312 *                                                                       02240000
0002A8                              313 PRT      DS    0H                                                       02250000
0002A8 D501 A0BE 0044 00330 00044   314          CLC   CEDE,68            CE+DE                                 02260000
0002AE 4770 A076      002E8         315          BNE   ERR0               NO - QUIT                             02270000
                                    316 *                                                                       02280000
                                                                                                               PAGE    8

  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 17.10 08/19/11

                                    317 **********************************************************************  02290000
                                    318 *        SET UP CAW FOR PRINT                                           02300000
                                    319 **********************************************************************  02310000
                                    320 *                                                                       02320000
0002B2 4110 A06E      002E0         321          LA    R1,PRCCW           POINT TO PRINT CCW                    02330000
0002B6 5010 0048      00048         322          ST    R1,72              SAVE ADDRESS IN CAW                   02340000
                                    323 *                                                                       02350000
0002BA 9C00 4000      00000         324          SIO   0(R4)              PRINT LINE                            02360000
0002BE 4770 A088      002FA         325          BNZ   ERR3               BRANCH IF ERROR                       02370000
                                    326 *                                                                       02380000
                                    327 **********************************************************************  02390000
                                    328 *        WAIT FOR I/O TO COMPLETE                                       02400000
                                    329 **********************************************************************  02410000
                                    330 *                                                                       02420000
0002C2                              331 PRTTIO   DS    0H                                                       02430000
0002C2 9D00 4000      00000         332          TIO   0(R4)              CHECK FOR I/O COMPLETE                02440000
0002C6 4780 A016      00288         333          BZ    RDLP               DONE - GO READ NEXT CARD              02450000
0002CA 4710 A08C      002FE         334          BC    1,ERR4             BRANCH IF ERROR                       02460000
                                    335 *                                                                       02470000
                                    336 **********************************************************************  02480000
                                    337 *        LOOP BACK AND READ NEXT CARD                                   02490000
                                    338 **********************************************************************  02500000
                                    339 *                                                                       02510000
0002CE 47F0 A050      002C2         340          B     PRTTIO             WAIT AGAIN                            02520000
                                    341 *                                                                       02530000
                                    342 *                                                                       02540000
                                    343 **********************************************************************  02550000
                                    344 *        CCW'S TO READ AND PRINT                                        02560000
                                    345 **********************************************************************  02570000
                                    346 *                                                                       02580000
                                    347 *                                                                       02590000
0002D8                              348          DS    0D                                                       02600000
0002D8 0200000000000050             349 RDCCW    DC    X'02',AL3(0),X'0000',AL2(80)                             02610000
0002E0 0900000000000050             350 PRCCW    DC    X'09',AL3(0),X'0000',AL2(80)                             02620000
                                    351 *                                                                       02630000
                                    352 *                                                                       02640000
                                    353 **********************************************************************  02650000
                                    354 *        ERROR ROUTINES                                                 02660000
                                    355 *           LOAD PSW WITH WAIT BIT SET TO ONE                           02670000
                                    356 **********************************************************************  02680000
                                    357 *                                                                       02690000
                                    358 *                                                                       02700000
0002E8 D201 A09C 0044 0030E 00044   359 ERR0     MVC   PSWERR0+6(2),68                                          02710000
0002EE 8200 A096      00308         360          LPSW  PSWERR0                                                  02720000
                                                                                                               PAGE    9

  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 17.10 08/19/11

0002F2 8200 A09E      00310         361 ERR1     LPSW  PSWERR1                                                  02730000
0002F6 8200 A0A6      00318         362 ERR2     LPSW  PSWERR2                                                  02740000
0002FA 8200 A0AE      00320         363 ERR3     LPSW  PSWERR3                                                  02750000
0002FE 8200 A0B6      00328         364 ERR4     LPSW  PSWERR4                                                  02760000
                                    365 *                                                                       02770000
                                    366 *                                                                       02780000
                                    367 **********************************************************************  02790000
                                    368 *        WAIT PSW'S                                                     02800000
                                    369 **********************************************************************  02810000
                                    370 *                                                                       02820000
                                    371 *                                                                       02830000
000308                              372          DS    0D                                                       02840000
000308 0002000000000000             373 PSWERR0  DC    X'00',X'02',X'0000',X'00',X'000000'                      02850000
000310 0002000000EE0001             374 PSWERR1  DC    X'00',X'02',X'0000',X'00',X'EE0001'                      02860000
000318 0002000000EE0002             375 PSWERR2  DC    X'00',X'02',X'0000',X'00',X'EE0002'                      02870000
000320 0002000000EE0003             376 PSWERR3  DC    X'00',X'02',X'0000',X'00',X'EE0003'                      02880000
000328 0002000000EE0004             377 PSWERR4  DC    X'00',X'02',X'0000',X'00',X'EE0004'                      02890000
                                    378 *                                                                       02900000
                                    379 *                                                                       02910000
                                    380 **********************************************************************  02920000
                                    381 *        CHANNEL END + DEVICE END                                       02930000
                                    382 **********************************************************************  02940000
                                    383 *                                                                       02950000
                                    384 *                                                                       02960000
000330 0C00                         385 CEDE     DC    X'0C00'            CHANNEL END + DEVICE END              02970000
                                    386 *                                                                       02980000
                                    387 *                                                                       02990000
                                    388 **********************************************************************  03000000
                                    389 *        I/O BUFFER AREA                                                03010000
                                    390 **********************************************************************  03020000
                                    391 *                                                                       03030000
                                    392 *                                                                       03040000
                            000C2   393 CARD2LEN EQU   *-CARD2                                                  03050000
000332                              394 RDBUF    DS    0C            I/O BUFFER                                 03060000
000332                      00332   395          ORG   ,                                                        03070000
                                    396 *                                                                       03080000
                                    397 *                                                                       03090000
                                    398 **********************************************************************  03100000
                                    399 *        BUFFER AREA TO MAKE SURE WE HAVE AT LEAST 80 BYTES FOR THE     03110000
                                    400 *        LAST CARD WE WRINTE                                            03120000
                                    401 **********************************************************************  03130000
                                    402 *                                                                       03140000
                                    403 *                                                                       03150000
000332                              404          DS    CL80          *** EXTRA BUFFER AREA ***                  03160000
                                                                                                               PAGE   10

  LOC  OBJECT CODE    ADDR1 ADDR2  STMT   SOURCE STATEMENT                                       ASM 0201 17.10 08/19/11

                                    405 *                                                                       03170000
                                    406 *                                                                       03180000
                                    407 **********************************************************************  03190000
                                    408 *        REGISTER EQUATES                                               03200000
                                    409 **********************************************************************  03210000
                                    410 *                                                                       03220000
                                    411 *                                                                       03230000
                            00000   412 R0       EQU   0                                                        03240000
                            00001   413 R1       EQU   1                                                        03250000
                            00002   414 R2       EQU   2                                                        03260000
                            00003   415 R3       EQU   3                                                        03270000
                            00004   416 R4       EQU   4                                                        03280000
                            00005   417 R5       EQU   5                                                        03290000
                            00006   418 R6       EQU   6                                                        03300000
                            00007   419 R7       EQU   7                                                        03310000
                            00008   420 R8       EQU   8                                                        03320000
                            00009   421 R9       EQU   9                                                        03330000
                            0000A   422 R10      EQU   10                                                       03340000
                            0000B   423 R11      EQU   11                                                       03350000
                            0000C   424 R12      EQU   12                                                       03360000
                            0000D   425 R13      EQU   13                                                       03370000
                            0000E   426 R14      EQU   14                                                       03380000
                            0000F   427 R15      EQU   15                                                       03390000
                                    428 *                                                                       03400000
                                    429 *                                                                       03410000
                                    430          END   ,                                                        03420000

[Next – Assemble and Execute]

Leave a Reply

Your email address will not be published. Required fields are marked *