User Tools

Site Tools


ibm:ibm1130-lib:dmsr2v12:jkkbface_lst

JKKBFACE

Table Of Contents
  • [00004] KFACE- RESIDENT COMMA 2 AUG 67
  • [00124] CONCATENATED COMMON AREA (CATCO)
  • [00147] KFACE- CATCO DUP SWITCHES
  • [00319] KFACE DUP KEYBOARD INTERFACE
jkkbface.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:06 2020
 
Source File: \jkkbface.asm 
KFACE-    RESIDENT COMMA   2 AUG 67
 
                             2 |       ABS                                           J1100020
0005                         3 | $CIBA EQU     /5   ADDR OF CIB ON MASTER CARTRIDGE  J1100030
0006                         4 | $CH12 EQU     /6   CHANNEL 12 INDR,NON-ZERO=CHAN 12 J1100040
0007                         5 | $COMN EQU     /7   WORD COUNT OF COMMON             J1100050
000E                         6 | $CORE EQU     /E   CORE SIZE,/1000=4K,/2000=8K,ETC) J1100060
000F                         7 | $CTSW EQU     /F   MCR SW,NON-ZERO=// RECD TRAPPED  J1100070
0010                         8 | $DADR EQU     /10  SCTR ADDR OF PROG TO BE FETCHED  J1100080
0011                         9 | $DABL EQU     /11  IOCC FOR SCA RESET (ODD ADDR)    J1100090
0012                        10 | $DREQ EQU     /12  INDR FOR REQUESTED V. DISK I/O   J1100100
0013                        11 | $IBSY EQU     /13  PRINC I/O BUSY INDR,NON-ZERO=BSY J1100110
0014                        12 | $HASH EQU     /14  WORK AREA FOR MONITOR PROGRAMS   J1100120
0028                        13 | $PRET EQU     /28  ADDR PREOPERATIVE ERROR TRAP     J1100130
002C                        14 | $IREQ EQU     /2C  ADDR OF INT REQUEST SUBROUTINE   J1100140
002D                        15 | $ULET EQU     /2D  ADDR OF LET, LOGICAL DRIVE 0     J1100150
0032                        16 | $IOCT EQU     /32  IOCS CTR,0=NO I/O IN PROGRESS    J1100160
0033                        17 | $LAST EQU     /33  LAST CD INDR,NON-ZERO=LAST CARD  J1100170
0034                        18 | $NDUP EQU     /34  INHIBIT DUP SW,NON-ZERO=NO DUP   J1100180
0035                        19 | $NXEQ EQU     /35  INHIBIT EXEC SW,NON-ZERO=NO EXEQ J1100190
0036                        20 | $PBSY EQU     /36  PRINC PTR BUSY INDR,NON-ZERO=BSY J1100200
0037                        21 | $PGCT EQU     /37  PAGE NO. FOR PAGE HEADINGS       J1100210
0038                        22 | $EXIT EQU     /38  ADDR CALL EXIT ENTRY POINT       J1100220
0039                        23 | $LINK EQU     /39  ADDR CALL LINK ENTRY POINT       J1100230
003F                        24 | $DUMP EQU     /3F  ADDR OF CALL DUMP, ENTRY POINT   J1100240
0077                        25 | $DCDE EQU     /77  DRIVE CODE FOR CORE LOAD BLDR    J1100250
0078                        26 | $PHSE EQU     /78  NO. OF PHASE CURRENTLY IN CORE   J1100260
0079                        27 | $UFIO EQU     /79  ARM POSITION IN UNFORMATTED AREA J1100270
007A                        28 | $WSDR EQU     /7A  WORKING STORAGE DRIVE CODE       J1100280
007B                        29 | $WRD1 EQU     /7B  LOAD ADDR FOR CURR USER CORE LD  J1100290
007C                        30 | $KCSW EQU     /7C  INHIBIT INPUT/PRINT OVERLAP SW   J1100300
007D                        31 | $UFDR EQU     /7D  UNFORMATTED I/O DRIVE CODE       J1100310
007E                        32 | $CPTR EQU     /7E  CHANNEL 12 INDICATOR FOR CP      J1100320
007F                        33 | $1132 EQU     /7F  CHANNEL 12 INDICATOR FOR 1132    J1100330
0080                        34 | $1403 EQU     /80  CHANNEL 12 INDICATOR FOR 1403    J1100340
0081                        35 | $PST1 EQU     /81  ADDR POSTOP ERROR TRAP,LEVEL 1   J1100350
0085                        36 | $PST2 EQU     /85  ADDR POSTOP ERROR TRAP,LEVEL 2   J1100360
0089                        37 | $PST3 EQU     /89  ADDR POSTOP ERROR TRAP,LEVEL 3   J1100370
008D                        38 | $PST4 EQU     /8D  ADDR POSTOP ERROR TRAP,LEVEL 4   J1100380
0091                        39 | $STOP EQU     /91  ADDR PROGRAM STOP KEY TRAP       J1100390
0095                        40 | $FPAD EQU     /95  FILE PROTECT ADDR (ADJ),LOG DR 0 J1100400
009A                        41 | $CYLN EQU     /9A  ARM POSITION FOR LOGICAL DRIVE 0 J1100410
009F                        42 | $ACDE EQU     /9F  AREA CODE FOR LOGICAL DRIVE 0    J1100420
00A4                        43 | $DCYL EQU     /A4  1ST DEF CYL ADDR, LOGICAL DR 0   J1100430
00B3                        44 | $I200 EQU     /B3  ENTRY POINT TO ILS FOR LEVEL 2   J1100440
00B8                        45 | $I205 EQU     /B8                                   J1100450
00B9                        46 | $IBT2 EQU     $I205+1 ADDR OF IBT FOR LEVEL 2       J1100460
00C4                        47 | $I400 EQU     /C4  ENTRY POINT TO ILS FOR LEVEL 4   J1100470
00D3                        48 | $I405 EQU     /D3                                   J1100480
00D4                        49 | $IBT4 EQU     $I405+1 ADDR OF IBT FOR LEVEL 4       J1100490
00D5                        50 | $I410 EQU     /D5                                   J1100500
00EE                        51 | $DBSY EQU     /EE  DISK BUSY INDR,NON-ZERO=DK BUSY  J1100510
01CB                        52 | $BYSW EQU     /1CB BYPASS SW,NOP IF FETCHING SOCAL  J1100520
00F2                        53 | DZ000 EQU     /0F2 DISKZ ENTRY POINT                J1100530
01E0                        54 | $ZEND EQU     /1E0 ADDR 1+LAST WORD OF DISKZ        J1100540

 
7FA0                        56 | C     EQU     /7FA0     CATCO POINTER SET TO MIDDLE J1100560
                            57 | *************************************************** J1100570
                            58 | *                                                 * J1100580
                            59 | *  INDEX REG 1 IS SET TO .C. WHEN CATCO IS FORMED * J1100590
                            60 | *  FOR USE BY ALL OF DUP FUNCTIONS. ANY DUP ROUT  * J1100600
                            61 | *  USING XR 1 FOR OTHER REASONS MUST RESTORE.     * J1100610
                            62 | *  ALL VALUES IN CATCO HAVE LABELS EQUATED TO THE * J1100620
                            63 | *  VALUE THAT INDICATES THEIR RELATIVE LOCATION   * J1100630
                            64 | *  FROM .C.                                       * J1100640
                            65 | *                                                 * J1100650
                            66 | *************************************************** J1100660
                            67 | *                                                 * J1100670
                            68 | *             CATCO DCOM IMAGE                    * J1100680
                            69 | *   EQUIVALENCES USED TO REFERENCE CATCO WITH XR1 * J1100690
                            70 | *                                                 * J1100700
                            71 | *************************************************** J1100710
FF84                        72 | #NAME EQU     4-/80     NAME OF PROGRAM             J1100720
FF86                        73 | #DBCT EQU     6-/80     DISK BLOCK COUNT OF PROGRAM J1100730
FF87                        74 | #FCNT EQU     7-/80     FILES SW,ZERO = NO FILES    J1100740
FF88                        75 | #SYSC EQU     8-/80     NON-ZERO,SYSTEM CARTRIDGE   J1100750
FF89                        76 | #JBSW EQU     9-/80     JOB SW,NON-ZERO='T' MODE    J1100760
FF8A                        77 | #CBSW EQU     10-/80    CLB SW,NON-ZERO=STORECI     J1100770
FF8B                        78 | #LCNT EQU     11-/80    NO. OF LOCALS               J1100780
FF8C                        79 | #MPSW EQU     12-/80    NON-ZERO, CORE MAP DESIRED  J1100790
FF8D                        80 | #MDF1 EQU     13-/80    NO. OF DUP CTRL RCDS        J1100800
FF8E                        81 | #MDF2 EQU     14-/80    ADDR OF MODIF BUFFER        J1100810
FF8F                        82 | #NCNT EQU     15-/80    NO. OF NOCALS               J1100820
FF90                        83 | #ENTY EQU     16-/80    RELATIVE ENTRY ADDR OF PROG J1100830
FF91                        84 | #RP67 EQU     17-/80    IF NON-ZERO,1442 MOD 6,7    J1100840
                            85 | *                                                   J1100850
                            86 | *   NEGATIVE VALUE REPRESENTS DEFAULT CONDITION   * J1100860
FF92                        87 | #TODR EQU     18-/80    DR CODE OF 'TO' DRIVE       J1100870
FF93                        88 | #FRDR EQU     19-/80    DR CODE OF 'FROM' DRIVE     J1100880
                            89 | *                                                 * J1100890
FF94                        90 | #FHOL EQU     20-/80    ADDR OF LARGEST FXA HOLE    J1100900
FF95                        91 | #FSZE EQU     21-/80    BLK CNT LARGEST HOLE IN FXA J1100910
FF96                        92 | #UHOL EQU     22-/80    ADDR OF LARGEST UA HOLE     J1100920
FF97                        93 | #USZE EQU     23-/80    BLK CNT LARGEST HOLE IN UA  J1100930
FF98                        94 | #DCSW EQU     24-/80    NON-ZERO=DUP CALL           J1100940
FF99                        95 | #PIOD EQU     25-/80    PRINC. I/O INDICATOR        J1100950
FF9A                        96 | #PPTR EQU     26-/80    PRINC. PRINTER INDICATOR    J1100960
FF9B                        97 | #CIAD EQU     27-/80    WD NO. SCTR 0,CIL ADDR      J1100970
FF9C                        98 | #ACIN EQU     28-/80    AVAILABLE CARTRIDGE INDR2-8 J1100980
FF9D                        99 | #GRPH EQU     29-/80    2250 INDICATOR          2-8 J1100990
FF9E                       100 | #GCNT EQU     30-/80    NO. G2250 RECORDS       2-8 J1101000
FF9F                       101 | #LOSW EQU     31-/80    LOCAL-CALLS-LOCAL INDR  2-8 J1101010
FFA0                       102 | #X3SW EQU     32-/80    SPECIAL ILS SWITCH      2-8 J1101020
FFA1                       103 | #ECNT EQU     33-/80    NO. OF EQUAT RCDS       2-8 J1101030
FFA3                       104 | #ANDU EQU     35-/80    END OF UA (ADJ) LOG DR 0-4  J1101040
FFA8                       105 | #BNDU EQU     40-/80    END OF UA (BASE) LOG DR 0-4 J1101050
FFAD                       106 | #FPAD EQU     45-/80    FILE PROTECT ADDR (BASE)    J1101060
FFB2                       107 | #PCID EQU     50-/80    CART ID, PHYS DR 0-4        J1101070
FFB7                       108 | #CIDN EQU     55-/80    CART ID, LOG DR 0-4         J1101080
FFBC                       109 | #CIBA EQU     60-/80    CIB ADDR, LOG DR 0-4        J1101090
FFC1                       110 | #SCRA EQU     65-/80    SCRA, LOG DR 0-4            J1101100
FFC6                       111 | #FMAT EQU     70-/80    WS FORMAT, LOG DR 0-4       J1101110
FFCB                       112 | #FLET EQU     75-/80    FLET ADDR, LOG DR 0-4       J1101120
FFD0                       113 | #ULET EQU     80-/80    LET ADDR, LOG DR 0-4        J1101130
FFD5                       114 | #WSCT EQU     85-/80    WS BLK CNT, LOG DR 0-4      J1101140
FFDA                       115 | #CSHN EQU     90-/80    CUSHION END SCTR ADDR, 0-4  J1101150
0001                       116 | #DCOM EQU     1         SCTR ADDR OF DCOM           J1101160
0007                       117 | #HDNG EQU     7         SCTR WITH PAGE HEADING      J1101170
0FB0                       118 | @SBFR EQU     /FB0                              2-8 J1101180
CONCATENATED COMMON AREA (CATCO)
 
                           120 | *************************************************** J1101200
                           121 | *                                                 * J1101210
                           122 | *             CATCO IOAR HDRS FOR DUP PHASES        J1101220
                           123 | *                                                 * J1101230
                           124 | *************************************************** J1101240
FFF0                       125 |       ORG     -/10                                  J1101250
FFF0                       126 | DCHDR BSS     2         DUP CONTROL            PH02 J1101260
FFF2                       127 | STHDR BSS     2         STORE                  PH03 J1101270
FFF4                       128 | FLHDR BSS     2         FILEQ                  PH04 J1101280
FFF6                       129 | DMHDR BSS     2         DUMP                   PH05 J1101290
FFF8                       130 | DLHDR BSS     2         DUMPLET                PH06 J1101300
FFFA                       131 | DTHDR BSS     2         DELETE                 PH07 J1101310
FFFC                       132 | DFHDR BSS     2         DEFINE                 PH08 J1101320
FFFE                       133 | DXHDR BSS     2         DUP EXIT               PH09 J1101330
0000                       134 | UCHDR BSS     2         DUP UPCOR              PH13 J1101340
0002                       135 | PIHDR BSS     2         PRINCIPAL I/O BLOCK    PH14 J1101350
0004                       136 | SIHDR BSS     2         PRINC I/O (W/O KB) BLK PH15 J1101360
0006                       137 | PTHDR BSS     2         PAPER TAPE I/O BLOCK   PH16 J1101370
0008                       138 | CIHDR BSS     2         CI PHASE READ BY CL BUILDER J1101380
000A                       139 | MUHDR BSS     2         MACRO UPDATE      PH206 2-8 J1101390
000C                       140 | D2HDR BSS     2         DUP CONTROL 2     PH205 2-8 J1101400
KFACE-    CATCO DUP SWITCHES
 
                           142 | *************************************************** J1101420
                           143 | *                                                   J1101430
                           144 | *             CATCO DUP SWITCHES                  * J1101440
                           145 | *      WORDS USED FOR COMMUNICATION OF DATA         J1101450
                           146 | *   BETWEEN DUP ROUTINES.                           J1101460
                           147 | *                                                 * J1101470
                           148 | *      INITIALIZED TO ZERO BY  .REST. OF DUPCO    * J1101480
                           149 | *                                                   J1101490
                           150 | *************************************************** J1101500
000E                       151 | CL1   EQU     *                                     J1101510
000E                       152 | ASMSW BSS     1         NON ZERO IF DEFINE VOID ASM J1101520
000F                       153 | BITSW BSS     1         NON ZERO TO ALLOW MDUMP-S   J1101530
0010                       154 | BLKSW BSS     1         NON ZERO IF BYPASSING REC   J1101540
0011                       155 | CIERR BSS     1         ERROR NO DETECTED BY PH 17  J1101550
0012                       156 | CISW  BSS     1         NON ZERO IF STORE CI        J1101560
0013                       157 | CLBSW BSS     1         NON ZERO IF PRECI EXECUTED  J1101570
0014                       158 | CNTNO BSS     1         RECORD NO BEING PCHD OR RD  J1101580
                           159 | *                                                 * J1101590
                           160 | *   .DATSW. IS FILLED WITH THE CNT FIELD OF THE   * J1101600
                           161 | *   DUP CONTROL RECORD.                           * J1101610
                           162 | *   USED PRIMARILY FOR DATA MOVEMENT, BUT ALSO IS * J1101620
                           163 | *   USED FOR COUNT OF RECORDS TO READ AFTER A     * J1101630
                           164 | *   STORE CI DUP CONTROL RECORD.                  * J1101640
0015                       165 | DATSW BSS     1         RECORDS VALUE IN CNT FIELD  J1101650
0016                       166 | DBADR BSS     1         DB ADDR OF REFERENCED PROG  J1101660
0017                       167 | DELSW BSS     1         ADDR OF REQ LET ENTRY - 1   J1101670
0018                       168 | DFNSW BSS     1         NON ZERO IF DEFINE FXA      J1101680
0019                       169 | DKSAD BSS     1         DK SCTR ADDR W/O DR CODE    J1101690
001A                       170 | DUMPP BSS  E  2         LAST LIMITS FOR PRNTR DUMP  J1101700
001C                       171 | FORSW BSS     1         NON ZERO IF DEFINE VOID FOR J1101710
001D                       172 | FRWS  BSS     1         NON ZERO IF FROM FLD IS WS  J1101720
001E                       173 | FXSW  BSS     1         NON ZERO IF FIXED AREA REQD J1101730
001F                       174 | HOLSW BSS     1         NON ZERO IF NO CONV REQD    J1101740
0020                       175 | IOSW  BSS     1         NON ZERO IF IN/OUT REQD     J1101750
                           176 | *                                                 * J1101760
                           177 | *   DUMPLET SWITCH - ZERO IF NOT DUMPLET/DUMPFLET * J1101770
                           178 | *       PLUS VALUE REQUIRES PRINT OF BOTH LET/FLET* J1101780
                           179 | *       NEG. VALUE REQUIRES PRINT OF FLET ONLY    * J1101790
0021                       180 | LETSW BSS     1         NON ZERO,PRINT LET OR FLET* J1101800
0022                       181 | LSTLF BSS     1         LAST LET/FLET SECT PROCESSD J1101810
0023                       182 | MODSW BSS     1         NON ZERO IF STORE MOD FUNC  J1101820
0024                       183 | NAMSW BSS     1         NON ZERO IF NAME IN LET/F   J1101830
0025                       184 | NEGSW BSS     1         NON ZERO IF SHRINKING FXA   J1101840
0026                       185 | PGMHL BSS     1         WORD COUNT OF THE PROG HDR  J1101850
0027                       186 | PRSW  BSS     1         NON ZERO IF PRINTING OUTPUT J1101860
0028                       187 | PTSW  BSS     1         NON ZERO IF PAPER TAPE REQD J1101870
0029                       188 | SKWDS BSS     1         WDS TO SEARCH IN L/F SECT   J1101880
002A                       189 | STCSW BSS     1         NON ZERO IF STORE DATA CI   J1101890
002B                       190 | STSW  BSS     1         NON ZERO IF STORE TYPE      J1101900
002C                       191 | TEMP1 BSS  E  1         1ST WD OF BINEB OUTPUT      J1101910
002D                       192 | TEMP2 BSS     1         2ND WD OF BINEB OUTPUT      J1101920
002E                       193 | TOWS  BSS     1         NON ZERO IF TO FIELD IS WS  J1101930
002F                       194 | T3MSW BSS     1         TYPE 3,4 SOCAL LEVEL CELL   J1101940
0030                       195 | UASW  BSS     1         NON ZERO IF USER AREA REQD  J1101950
0031                       196 | WSSW  BSS     1         NON ZERO IF WORK STG REQD   J1101960
0032                       197 | XEQSW BSS     1         NON ZERO IF NOT RET FR GET  J1101970
0033                       198 | EBCSW BSS     1         NON ZERO IF EBC DATA OP 2E2 J1101980
0034                       199 | HDNSW BSS     1         NON ZERO IF NAME IN HDR 2-8 J1101990
0035                       200 | RPGSW BSS     1         NON Z IF DEFINE VOID RPG2-8 J1102000
0036                       201 | DFLSW BSS     1         NON ZERO IF *DFILE      2-8 J1102010
0037                       202 |       BSS     1         RESERVED FOR ADDITION   2-8 J1102020
0037                       203 | CL2   EQU     *-1                                   J1102030
KFACE-    CATCO DUP SWITCHES
 
                           205 | *************************************************** J1102050
                           206 | *                                                 * J1102060
                           207 | *             CATCO DUP SWITCHES                  * J1102070
                           208 | *  INITIALIZED BY DCTL AND NOT RESET BY .REST.    * J1102080
                           209 | *                                                 * J1102090
                           210 | *************************************************** J1102100
0038                       211 | IOREQ BSS     1         MON-ZERO,AUX I/O SET REQ    J1102110
0039                       212 | PH2   BSS     1         NON-ZERO IF DCTL IN CORE    J1102120
003A                       213 | PH3   BSS     1         NON-ZERO IF STORE IN CORE   J1102130
003B                       214 | PH4   BSS     1         NON-ZERO IF DUMP IN CORE    J1102140
                           215 | ************************************************2-8 J1102150
                           216 | *                                               2-8 J1102160
                           217 | *             CATCO SWITCH INITIALIZED TO ZERO  2-8 J1102170
                           218 | *   BY CCAT SUBR AND SET BY MACRO UPDATE PROGRAM2-8 J1102180
                           219 | *                                               2-8 J1102190
                           220 | ************************************************2-8 J1102200
003C                       221 | DUPCR BSS     1         NON ZERO IF DUP CTRL RCD2-8 J1102210
                           222 | *************************************************** J1102220
                           223 | *                                                 * J1102230
                           224 | *             CATCO DUP SWITCHES SET BY CCAT SUBR * J1102240
                           225 | *                                                 * J1102250
                           226 | *************************************************** J1102260
003D                       227 | ADDR2 BSS     1         KB INTERRUPT ADDRESS        J1102270
003E                       228 | KBREQ BSS     1         CONTENTS OF LOC 13          J1102280
                           229 | *      THE FOLLOWING SWITCH IS SET TO INDICATE THE  J1102290
                           230 | *       PRINCIPAL INPUT DEVICE                      J1102300
                           231 | *             -  IS PAPER TAPE                      J1102310
                           232 | *             0  IS CARD                            J1102320
                           233 | *             +  IS KEYBOARD                        J1102330
003F                       234 | INOUT BSS     1         PRINCIPAL INPUT SWITCH      J1102340
                           235 | *                                                   J1102350
0040                       236 | PTPON BSS     1         NON-ZERO IF PAPER TP ON SYS J1102360
                           237 | *************************************************** J1102370
                           238 | *                                                 * J1102380
                           239 | *             LEVEL 4 INTERRUPT BRANCH TABLE      * J1102390
                           240 | *             ADDRESSES. INITIALIZED BY CCAT,     * J1102400
                           241 | *             AND CARD/PAPER TAPE INTERFACES.     * J1102410
                           242 | *                                                 * J1102420
                           243 | *************************************************** J1102430
0049                       244 |       ORG     /0049                                 J1102440
0049                       245 | IBT   BSS     9         9 WD INTRPT BRANCH TABLE    J1102450
                           246 | *************************************************** J1102460
                           247 | *                                                 * J1102470
                           248 | *             CATCO I/O ADDRESSES REQUIRED BY DUP * J1102480
                           249 | *                                                 * J1102490
                           250 | *************************************************** J1102500
0052                       251 | P1442 BSS  E  2         SYS 1442 IOAR HEADER        J1102510
0054                       252 | PRPAR BSS     2         DEFAULT LIMITS TO PRINT     J1102520
0056                       253 | PHDUP BSS     1         LAST DUP PHASE IN CORE      J1102530
0057                       254 | CRBUF BSS     1         81 WD BFR FOR DUP CTRL RCDS J1102540
0058                       255 | DCADR BSS     1         ADDR FOR DUP CTRL IOAR HDR  J1102550
0059                       256 | HDBUF BSS     1         ADDR OF PAGE HEADING BFR    J1102560
005A                       257 | IOBLK BSS     1         ADDR OF DUP I/O PHASE       J1102570
005B                       258 | SDBUF BSS     1         STORE/DUMP BUFFER           J1102580
005C                       259 | LETAR BSS     1         ADDR OF LET SEARCH BUFFER   J1102590
005D                       260 | PEBUF BSS     1         41 WD BFR FOR PACKED EBCDIC J1102600
005E                       261 | THIS  BSS     1         ADDR OF DOUBLE BFR, BFR 1   J1102610
005F                       262 | NEXT  BSS     1         ADDR OF DOUBLE BFR, BFR 2   J1102620

 
00F2                       264 | DISKZ EQU     DZ000     DISKZ ENTRY POINT           J1102640
01DE                       265 | B     EQU     $ZEND-2                               J1102650
01DE                       266 | DMPLC EQU     B         IOAR CORE ADDR FOR DMPLT    J1102660
01DE                       267 | EXITC EQU     B         IOAR CORE ADDR FOR DEXIT    J1102670
01DE                       268 | MUPC  EQU     B         IOAR CORE ADDR FOR MUP  2-8 J1102680
11E0                       269 | DCTL  EQU     B+/1002   ENTRY ADDRESS OF DCTL       J1102690
11DE                       270 | DCTLC EQU     B+/1000   IOAR CORE ADDR FOR DCTL     J1102700
21DE                       271 | WSDC  EQU     B+/2000   IOAR CORE ADDR FOR STORE    J1102710
41DE                       272 | DUMPC EQU     B+/4000   IOAR CORE ADDR FOR DDUMP    J1102720
7DB0                       273 | DUPCO EQU     /7DB0     ADDR OF RESIDENT DUPCO      J1102730
7F1E                       274 | CATCO EQU     /7F20-2   ADDR OF DCOM IOAR HEADER    J1102740
                           275 | *                                                 * J1102750
                           276 | *  DUPCO ENTRY POINTS...USED WITH INDIRECT BSI    * J1102760
                           277 | *                                                 * J1102770
7DB0                       278 |       ORG     DUPCO                                 J1102780
7DB0                       279 | BINEB BSS     1         CONVERSION BINARY TO EBCDIC J1102790
7DB1                       280 | WRTDC BSS     1         WRITE DCOM(S) SUBROUTINE    J1102800
7DB2                       281 | ENTER BSS     1         SAVE XR-S AND CONDITIONS    J1102810
7DB3                       282 | GET   BSS     1         READ FROM DISK USING DISKZ  J1102820
7DB4                       283 | LEAVE BSS     1         HANDLES ALL EXITS FROM DUP  J1102830
7DB5                       284 | LINE  BSS     1         SPACES PRINTER 1 LINE       J1102840
7DB6                       285 | MASK  BSS     1         INHIBITS KB INT REQUEST     J1102850
7DB7                       286 | MDUMP BSS     1         PRINTS SELECTED CORE LOC-S  J1102860
7DB8                       287 | PAGE  BSS     1         SKIPS TO NEXT PAGE          J1102870
7DB9                       288 | PHID  BSS     1         RECORDS PHASE ID            J1102880
7DBA                       289 | PHIDM BSS     1         RECORDS PHASE AND MODIFIER  J1102890
7DBB                       290 | PRINT BSS     1         USE SYS PR SUBR TO PRINT    J1102900
7DBC                       291 | PUT   BSS     1         WRITES TO DISK USING DISKZ  J1102910
7DBD                       292 | REST  BSS     1         RESTORE CATCO,GO TO DCTL    J1102920
7DBE                       293 | RTURN BSS     1         RESTORE XR-S AND CONDITIONS J1102930
                           294 | *                                                 * J1102940
                           295 | *  INPUT/OUTPUT PARAMETERS , CORE ADDRESSES       * J1102950
                           296 | *                                                 * J1102960
7D91                       297 | BUF6  EQU     DUPCO-/1F ADDR OF PAGE HEADING BUFFER J1102970
7C50                       298 | PRPNT EQU     BUF6-/141 IOAR ADDR FOR PRINC. PTR    J1102980
7A06                       299 | IOADR EQU     BUF6-/38B START OF I/O INTERFACE      J1102990
7A0A                       300 | GETHO EQU     IOADR+4   ENTRY FOR READING HOLL TYPE J1103000
7A0B                       301 | GETBI EQU     IOADR+5   ENTRY FOR READING BINARY    J1103010
7A0C                       302 | PACKB EQU     IOADR+6   ENTRY TO PACK BINARY        J1103020
7A0D                       303 | PCHBI EQU     IOADR+7   ENTRY TO PUNCH BINARY       J1103030
79B5                       304 | BUF1  EQU     IOADR-/51 ADDR OF NEXT BUFFER         J1103040
7963                       305 | BUF2  EQU     BUF1-/52  ADDR OF THIS BUFFER         J1103050
7925                       306 | BUF3  EQU     BUF2-/3E  ADDR OF PACKED EBC BUFFER   J1103060
78D3                       307 | BUF4  EQU     BUF3-/52  ADDR OF CONTROL RCD BUFFER  J1103070
7782                       308 | BUF5  EQU     IOADR-/284   ADDR OF LET SCTR BFR     J1103080
0640                       309 | BUF7  EQU     BUF5-/7142   ADDR OF STORE/DUMP BFR   J1103090
KFACE  DUP KEYBOARD INTERFACE
 
                           311 | *************************************************** J1103110
                           312 | *                                                 * J1103120
                           313 | *STATUS - VERSION 2, MODIFICATION 8               * J1103130
                           314 | *                                                 * J1103140
                           315 | *FUNCTION/OPERATION-                              * J1103150
                           316 | *   *KFACE SERVES AS THE I/O INTERFACE FOR DUP    * J1103160
                           317 | *    WHEN THE PRINCIPAL I/O DEVICE IS THE KEYBOARD* J1103170
                           318 | *    IT INPUTS UP TO 80 CHARACTERS FROM THE TYPE- * J1103180
                           319 | *    WRITER AND CONVERTS FROM UNPACKED TO PACKED  * J1103190
                           320 | *    EBCDIC. CONDITIONS AND REGISTERS ARE SAVED.  * J1103200
                           321 | *                                                 * J1103210
                           322 | *ENTRY POINTS-                                    * J1103220
                           323 | *   *KFACE HAS ONE ENTRY POINT, IK000, WHICH MAY  * J1103230
                           324 | *    BE REFERENCED BY  BSI  I  GETHO.             * J1103240
                           325 | *                                                 * J1103250
                           326 | *INPUT-N/A                                        * J1103260
                           327 | *                                                 * J1103270
                           328 | *OUTPUT-                                          * J1103280
                           329 | *   *CRBUF- 81 WORDS. THE FIRST WORD WILL CONTAIN * J1103290
                           330 | *    A WORD COUNT OF 80 FOLLOWED BY 80 WORDS OF   * J1103300
                           331 | *    UNPACKED EBCDIC.                             * J1103310
                           332 | *                                                 * J1103320
                           333 | *   *PEBUF- 41 WORDS. THE FIRST WORD WILL CONTAIN * J1103330
                           334 | *    A WORD COUNT OF 40 FOLLOWED BY 40 WORDS OF   * J1103340
                           335 | *    PACKED EBCDIC.                               * J1103350
                           336 | *                                                 * J1103360
                           337 | *EXTERNAL REFERENCES-                             * J1103370
                           338 | *   *THE FOLLOWING REFERENCES ARE MADE TO CATCO   * J1103380
                           339 | *   *IOADR                                        * J1103390
                           340 | *   *CRBUF                                        * J1103400
                           341 | *   *PEBUF                                        * J1103410
                           342 | *EXTERNAL ROUTINES-                               * J1103420
                           343 | *   *KBSYS- ISS USED TO INPUT FROM THE TYPEWRITER.* J1103430
                           344 | *   *ENTER- IN DPCO- USED TO SAVE REGISTERS.      * J1103440
                           345 | *   *RTURN- IN DPCO- USED TO RESTORE REGISTERS.   * J1103450
                           346 | *                                                 * J1103460
                           347 | *EXITS-                                           * J1103470
                           348 | *   *NORMAL- A BSC  I  IK000 IS EXECUTED TO RETURN* J1103480
                           349 | *    TO DCTL                                      * J1103490
                           350 | *                                                 * J1103500
                           351 | *   *ERROR- NONE OTHER THAN THOSE OF KBSYS        * J1103510
                           352 | *                                                 * J1103520
                           353 | *TABLES/WORK AREAS-N/A                            * J1103530
                           354 | *                                                 * J1103540
                           355 | *ATTRIBUTES-                                      * J1103550
                           356 | *   *ABSOLUTE. KFACE IS ASSEMBLED AT SYMBOLIC     * J1103560
                           357 | *    LOCATION .IOADR., IT IS BROUGHT INTO CORE BY * J1103570
                           358 | *    THE CCAT MODULE OF DUPCO AND IS THEN RESIDENT* J1103580
                           359 | *    AS LONG AS DUP MAINTAINS CONTROL.            * J1103590
                           360 | *                                                 * J1103600
                           361 | *NOTES-                                           * J1103610
                           362 | *   *KFACE HAS NO WAITS                           * J1103620
                           363 | *                                                 * J1103630
                           364 | *************************************************** J1103640
KFACE  DUP KEYBOARD INTERFACE
 
7A06                       366 |       ORG     IOADR                                 J1103660
7A06 0000                  367 |       DC      *-*       WD. CNT. SET BY SYSTEM LDR  J1103670
7A07 000B                  368 |       DC      11        PHASE ID FOR KFACE          J1103680
7A08 0000                  369 |       DC      *-*       ADDR OF SYSTEM I/O SUBR     J1103690
7A09 0000                  370 |       DC      *-*       ADDR OF SYSTEM CONVERSION   J1103700
                           371 | *                                                   J1103710
                           372 | **************************************************  J1103720
                           373 | *  THE FOLLOWING 5 WORDS ARE ADDRESSES OF THE I/O   J1103730
                           374 | *  INTERFACE ENTRY POINTS -- GETHO IS THE ONLY      J1103740
                           375 | *  LEGAL ENTRY                                      J1103750
                           376 | **************************************************  J1103760
                           377 | *                                                   J1103770
7A0A 7A0E                  378 |       DC      IK000     ENTRY FOR GETHO             J1103780
7A0B 0000                  379 |       DC      *-*       DUMMY ENTRY                 J1103790
7A0C 0000                  380 |       DC      *-*       DUMMY ENTRY                 J1103800
7A0D 0000                  381 |       DC      *-*       DUMMY ENTRY                 J1103810
                           382 | *                                                   J1103820
                           383 | *                                                   J1103830
7A0E 0000                  384 | IK000 DC      *-*       GETHO ENTRY                 J1103840
7A0F 4480 7DBA             385 |       BSI  I  PHIDM     MODIFY PHASE ID             J1103850
7A11 0A00                  386 |       DC      /0A00     KEYBOARD INPUT MODIFIER     J1103860
7A12 4480 7DB2             387 |       BSI  I  ENTER     SAVE REGISTERS              J1103870
                           388 | *                                                   J1103880
7A14 C026                  389 |       LD      IK080     SET WORD COUNT OF 80        J1103890
7A15 D580 0057             390 |       STO  I1 CRBUF     *FOR KBSYS                  J1103900
                           391 | *                                                   J1103910
7A17 C022                  392 |       LD      IK040     SET WORD COUNT OF 40        J1103920
                           393 | * INPUT CONTROL RECORD VIA TYPEWRITER               J1103930
                           394 | *                                                   J1103940
7A18 D580 005D             395 |       STO  I1 PEBUF     *INTO PACKED BUFFER         J1103950
                           396 | *                                                   J1103960
7A1A C15D                  397 |       LD    1 PEBUF     FETCH ADDRESS OF THE PACKED J1103970
7A1B D00E                  398 |       STO     IK020     *BUFFER                     J1103980
                           399 | *                                                   J1103990
7A1C C157                  400 |       LD    1 CRBUF     FETCH ADDRESS OF THE INPUT  J1104000
7A1D D00A                  401 |       STO     IK010     *BUFFER, SAVE IT, SET EXT   J1104010
7A1E 18D0                  402 |       RTE     16        *WITH ADDR OF WORD COUNT    J1104020
7A1F C01C                  403 |       LD      I7002     FETCH FUNCTION CODE (7002)  J1104030
7A20 4480 7A08             404 |       BSI  I  IK000-6   INPUT CONTROL RECORD        J1104040
7A22 C400 0013             405 |       LD   L  $IBSY                                 J1104050
7A24 4C20 7A22             406 |       BSC  L  *-4,Z     WAIT FOR READ COMPLETE      J1104060
                           407 | *                                                   J1104070
7A26 6328                  408 |       LDX   3 40        LOOP WORD COUNT             J1104080
7A27 6500 0000             409 |       LDX  L1 *-*       SET WITH ADDR IN CRBUF      J1104090
7A28                       410 | IK010 EQU     *-1                                   J1104100
7A29 6600 0000             411 |       LDX  L2 *-*       SET WITH ADDR IN PEBUF      J1104110
7A2A                       412 | IK020 EQU     *-1                                   J1104120
7A2B 7101                  413 |       MDX   1 1         POINT TO 2ND WORD IN CRBUF  J1104130
7A2C 7201                  414 |       MDX   2 1         POINT TO 2ND WORD IN PEBUF  J1104140
                           415 | *                                                   J1104150
                           416 | * CONVERT UNPACKED EBCDIC IN CRBUF TO PACKED        J1104160
                           417 | * EBCDIC IN PEBUF                                   J1104170
                           418 | *                                                   J1104180
7A2D C101                  419 | IK030 LD    1 1         PACK TWO                    J1104190
7A2E 1888                  420 |       SRT     8         *CHARACTERS                 J1104200
7A2F C100                  421 |       LD    1 0         *INTO ONE WORD              J1104210
7A30 1088                  422 |       SLT     8                                     J1104220
7A31 D200                  423 |       STO   2 0                                     J1104230
7A32 7102                  424 |       MDX   1 2                                     J1104240
7A33 7201                  425 |       MDX   2 1                                     J1104250
7A34 73FF                  426 |       MDX   3 -1        SKIP IF 80 WDS PACKED TO 40 J1104260
7A35 70F7                  427 |       MDX     IK030     *BRANCH OTHERWISE           J1104270
                           428 | *                                                   J1104280
7A36 4480 7DBE             429 |       BSI  I  RTURN     RESTORE REGISTERS           J1104290
7A38 4C80 7A0E             430 |       BSC  I  IK000     RETURN TO DCTL              J1104300
                           431 | *                                                   J1104310
                           432 | **************************************************  J1104320
                           433 | *                                                   J1104330
                           434 | *  CONSTANTS                                        J1104340
                           435 | *                                                   J1104350
                           436 | **************************************************  J1104360
                           437 | *                                                   J1104370
7A3A 0028                  438 | IK040 DC      40        WD CNT -1 OF PEBUF          J1104380
7A3B 0050                  439 | IK080 DC      80        WD CNT -1 OF CRBUF          J1104390
7A3C 7002                  440 | I7002 DC      /7002     FUNCTION CODE FOR KBSYS     J1104400
                           441 | *                                                   J1104410
                           442 | **************************************************  J1104420
                           443 | **************************************************  J1104430
7A3D                       444 |       END     IK000                                 J1104440
 
There were no errors in this assembly
 
Program transfer address = 7A0E
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
#ACIN FF9C    98
#ANDU FFA3   104
#BNDU FFA8   105
#CBSW FF8A    77
#CIAD FF9B    97
#CIBA FFBC   109
#CIDN FFB7   108
#CSHN FFDA   115
#DBCT FF86    73
#DCOM 0001   116
#DCSW FF98    94
#ECNT FFA1   103
#ENTY FF90    83
#FCNT FF87    74
#FHOL FF94    90
#FLET FFCB   112
#FMAT FFC6   111
#FPAD FFAD   106
#FRDR FF93    88
#FSZE FF95    91
#GCNT FF9E   100
#GRPH FF9D    99
#HDNG 0007   117
#JBSW FF89    76
#LCNT FF8B    78
#LOSW FF9F   101
#MDF1 FF8D    80
#MDF2 FF8E    81
#MPSW FF8C    79
#NAME FF84    72
#NCNT FF8F    82
#PCID FFB2   107
#PIOD FF99    95
#PPTR FF9A    96
#RP67 FF91    84
#SCRA FFC1   110
#SYSC FF88    75
#TODR FF92    87
#UHOL FF96    92
#ULET FFD0   113
#USZE FF97    93
#WSCT FFD5   114
#X3SW FFA0   102
$1132 007F    33
$1403 0080    34
$ACDE 009F    42
$BYSW 01CB    52
$CH12 0006     4
$CIBA 0005     3
$COMN 0007     5
$CORE 000E     6
$CPTR 007E    32
$CTSW 000F     7
$CYLN 009A    41
$DABL 0011     9
$DADR 0010     8
$DBSY 00EE    51
$DCDE 0077    25
$DCYL 00A4    43
$DREQ 0012    10
$DUMP 003F    24
$EXIT 0038    22
$FPAD 0095    40
$HASH 0014    12
$I200 00B3    44
$I205 00B8    45   46
$I400 00C4    47
$I405 00D3    48   49
$I410 00D5    50
$IBSY 0013    11  405
$IBT2 00B9    46
$IBT4 00D4    49
$IOCT 0032    16
$IREQ 002C    14
$KCSW 007C    30
$LAST 0033    17
$LINK 0039    23
$NDUP 0034    18
$NXEQ 0035    19
$PBSY 0036    20
$PGCT 0037    21
$PHSE 0078    26
$PRET 0028    13
$PST1 0081    35
$PST2 0085    36
$PST3 0089    37
$PST4 008D    38
$STOP 0091    39
$UFDR 007D    31
$UFIO 0079    27
$ULET 002D    15
$WRD1 007B    29
$WSDR 007A    28
$ZEND 01E0    54  265
'SBFR 0FB0   118
ADDR2 003D   227
ASMSW 000E   152
B     01DE   265  266  267  268  269  270  271  272
BINEB 7DB0   279
BITSW 000F   153
BLKSW 0010   154
BUF1  79B5   304  305
BUF2  7963   305  306
BUF3  7925   306  307
BUF4  78D3   307
BUF5  7782   308  309
BUF6  7D91   297  298  299
BUF7  0640   309
C     7FA0    56
CATCO 7F1E   274
CIERR 0011   155
CIHDR 0008   138
CISW  0012   156
CL1   000E   151
CL2   0037   203
CLBSW 0013   157
CNTNO 0014   158
CRBUF 0057   254  390  400
D2HDR 000C   140
DATSW 0015   165
DBADR 0016   166
DCADR 0058   255
DCHDR FFF0   126
DCTL  11E0   269
DCTLC 11DE   270
DELSW 0017   167
DFHDR FFFC   132
DFLSW 0036   201
DFNSW 0018   168
DISKZ 00F2   264
DKSAD 0019   169
DLHDR FFF8   130
DMHDR FFF6   129
DMPLC 01DE   266
DTHDR FFFA   131
DUMPC 41DE   272
DUMPP 001A   170
DUPCO 7DB0   273  278  297
DUPCR 003C   221
DXHDR FFFE   133
DZ000 00F2    53  264
EBCSW 0033   198
ENTER 7DB2   281  387
EXITC 01DE   267
FLHDR FFF4   128
FORSW 001C   171
FRWS  001D   172
FXSW  001E   173
GET   7DB3   282
GETBI 7A0B   301
GETHO 7A0A   300
HDBUF 0059   256
HDNSW 0034   199
HOLSW 001F   174
I7002 7A3C   440  403
IBT   0049   245
IK000 7A0E   384  378  404  430  444
IK010 7A28   410  401
IK020 7A2A   412  398
IK030 7A2D   419  427
IK040 7A3A   438  392
IK080 7A3B   439  389
INOUT 003F   234
IOADR 7A06   299  300  301  302  303  304  308  366
IOBLK 005A   257
IOREQ 0038   211
IOSW  0020   175
KBREQ 003E   228
LEAVE 7DB4   283
LETAR 005C   259
LETSW 0021   180
LINE  7DB5   284
LSTLF 0022   181
MASK  7DB6   285
MDUMP 7DB7   286
MODSW 0023   182
MUHDR 000A   139
MUPC  01DE   268
NAMSW 0024   183
NEGSW 0025   184
NEXT  005F   262
P1442 0052   251
PACKB 7A0C   302
PAGE  7DB8   287
PCHBI 7A0D   303
PEBUF 005D   260  395  397
PGMHL 0026   185
PH2   0039   212
PH3   003A   213
PH4   003B   214
PHDUP 0056   253
PHID  7DB9   288
PHIDM 7DBA   289  385
PIHDR 0002   135
PRINT 7DBB   290
PRPAR 0054   252
PRPNT 7C50   298
PRSW  0027   186
PTHDR 0006   137
PTPON 0040   236
PTSW  0028   187
PUT   7DBC   291
REST  7DBD   292
RPGSW 0035   200
RTURN 7DBE   293  429
SDBUF 005B   258
SIHDR 0004   136
SKWDS 0029   188
STCSW 002A   189
STHDR FFF2   127
STSW  002B   190
T3MSW 002F   194
TEMP1 002C   191
TEMP2 002D   192
THIS  005E   261
TOWS  002E   193
UASW  0030   195
UCHDR 0000   134
WRTDC 7DB1   280
WSDC  21DE   271
WSSW  0031   196
XEQSW 0032   197
ibm/ibm1130-lib/dmsr2v12/jkkbface_lst.txt ยท Last modified: 2023/08/06 13:34 by Site Administrator