          CTEXT  COMPMDD - MONITOR DISPLAY DRIVER.                       R152_OS        1
          IF     -DEF,QUAL$,1                                            R152_OS        2
          QUAL   COMPMDD                                                 R152_OS        3
          CODE   A                                                       R152_OS        4
          BASE   M                                                       R152_OS        5
 COMPMDD  SPACE  4,10                                                    R152_OS        6
***       MDD - MONITOR DISPLAY DRIVER.                                  R152_OS        7
*         B. R. HANSON-      81/09/10.                                   R152_OS        8
          SPACE  4,10                                                    R152_OS        9
***              MDD PROVIDES THE OPERATOR/ANALYST ACCESS TO THE         R152_OS       10
*         MAINTENANCE CHANNEL.                                           R152_OS       11
*                                                                        R152_OS       12
                                                                         R152_OS       13
***       MAINTENANCE REGISTER COMMANDS.                                 R152_OS       14
*                                                                        R152_OS       15
*         DR     DISPLAY MAINTENANCE REGISTERS EITHER AS A LIST OR ONE   R152_OS       16
*                AT A TIME.                                              R152_OS       17
*                SYNTAX = DR [I / M / P]                                 R152_OS       18
*                         DR [I / M / P]  RN                             R152_OS       19
*                                                                        R152_OS       20
*         ER     CHANGE VALUE OF A MAINTENANCE REGISTER.                 R152_OS       21
*                SYNTAX = ER [I / M / P] RN=REGISTER  RV=VALUE           R152_OS       22
*                                                                        R152_OS       23
*         DP     DISPLAY A, P, K, OR Q REGISTERS FOR EACH IOU IN THE MAC R152_OS       24
*                SYNTAX = DP [A / P / K / Q]                             R152_OS       25
*                                                                        R152_OS       26
*         UCR    DISPLAY EXPLANATION OF USER CONDITION REGISTER BITS.    R152_OS       27
*                SYNTAX = UCR  RV=UCR_VALUE                              R152_OS       28
*                                                                        R152_OS       29
*         MCR    DISPLAY EXPLANATION OF MONITOR CONDITION REGISTER BITS. R152_OS       30
*                SYNTAX = MCR  RV=MCR_VALUE                              R152_OS       31
*                                                                        R152_OS       32
*         IP     IDLE PP VIA THE MAINTENANCE CHANNEL.                    R152_OS       33
*                SYNTAX = IP  PP=PP_NUMBER                               R152_OS       34
*                                                                        R152_OS       35
*         RP     START PP EXECUTING AT A SPECIFIED ADDRESS.              R152_OS       36
*                SYNTAX = RP  PP=PP_NUMBER  AD=ADDRESS                   R152_OS       37
*                                                                        R152_OS       38
*         HP     HALT PROCESSOR (CPU).                                   R152_OS       39
*         SP     START PROCESSOR (CPU).                                  R152_OS       40
*                                                                        R152_OS       41
*         CI     UNCONDITIONALLY CLEAR THE MAINTENANCE INTERLOCK.  THIS  R152_OS       42
*                PROVIDES A WAY USE THE MAINTENANCE CHANNEL IF SOME OTHE R152_OS       43
*                PP PROGRAM HANGS WITH IT INTERLOCKED.                   R152_OS       44
*                                                                        R152_OS       45
*         CE     CLEAR ERRORS ON SPECIFIC PORT I, M, OR P.               R152_OS       46
*                SYNTAX = CE [I / M / P]                                 R152_OS       47
                                                                         R152_OS       48
***       CENTRAL MEMORY COMMANDS.                                       R152_OS       49
*                                                                        R152_OS       50
*         DC     DISPLAY CENTRAL MEMORY IN C170 FORMAT.                  R152_OS       51
*                SYNTAX = DC  AD=OCTAL_ADDRESS  WC=WORD_COUNT            R152_OS       52
*                                                                        R152_OS       53
*         DB     DISPLAY MEMORY IN C180 BYTE FORMAT.                     R152_OS       54
*                SYNTAX = DB  AD=HEX_ADDRESS  WC=WORD_COUNT              R152_OS       55
*                                                                        R152_OS       56
*         DH     DISPLAY MEMORY IN C180 WORD FORMAT.                     R152_OS       57
*                SYNTAX = DH  AD=HEX_WORD_ADDRESS  WC=WORD_COUNT         R152_OS       58
*                                                                        R152_OS       59
*         EC     CHANGE CONTENT OF C170 WORD.                            R152_OS       60
*                SYNTAX = EC  AD=OCTAL_WORD_ADDRESS  WV=OCTAL_VALUE      R152_OS       61
*                                                                        R152_OS       62
*         EB     CHANGE CONTENT OF C180 BYTE OR BYTES IN MEMORY.         R152_OS       63
*                SYNTAX = EB  AD=OCTAL_BYTE_ADDRESS  BYTE1  BYTE2  .. BY R152_OS       64
*                                                                        R152_OS       65
*         +      REPEAT LAST CM DISPLAY COMMAND AFTER INCREMENTING THE   R152_OS       66
*                ADDRESS.  THE DEFAULT INCREMENT IS BASED ON THE WORD_CO R152_OS       67
*                FROM THE PREVIOUS CM DISPLAY COMMAND.                   R152_OS       68
*                SYNTAX = +                                              R152_OS       69
*                         +  ADDRESS_INCREMENT                           R152_OS       70
*                                                                        R152_OS       71
*         -      REPEAT LAST CM DISPLAY COMMAND AFTER DECREMENTING THE   R152_OS       72
*                ADDRESS.  THE DEFAULT DECREMENT IS BASED ON THE WORD_CO R152_OS       73
*                FROM THE PREVIOUS CM DISPLAY COMMAND.                   R152_OS       74
*                SYNTAX = -                                              R152_OS       75
*                         -  ADDRESS_DECREMENT                           R152_OS       76
                                                                         R152_OS       77
***       MISC COMMANDS.                                                 R152_OS       78
*                                                                        R152_OS       79
*         SR     SET MDD DISPLAY REFRESH FLAG.                           R152_OS       80
*                SYNTAX = SR  [ON / OFF]                                 R152_OS       81
*                                                                        R152_OS       82
          EJECT                                                          R152_OS       83
**        MDD - MAINTENANCE DISPLAY DRIVER.                              R152_OS       84
*                                                                        R152_OS       85
*         CALLS  CMD, GTS, RDS.                                          R152_OS       86
                                                                         R152_OS       87
                                                                         R152_OS       88
 MDD      SUBR               ENTRY/EXIT                                  R152_OS       89
          RJM    GTS         CHECK SUMMARY STATUS                        R152_OS       90
          SHN    21-3                                                    R152_OS       91
          MJN    MDD1        IF INPUT AVAILABLE                          R152_OS       92
          RJM    RPT         CHECK FOR DISPLAY REPEAT                    R152_OS       93
          LDN    0                                                       R152_OS       94
          RJM    CPS         CHECK PORT STATUS                           R152_OS       95
          UJN    MDDX        RETURN                                      R152_OS       96
                                                                         R152_OS       97
 MDD1     RJM    RDS         READ STRING                                 R152_OS       98
          LDC    0                                                       R152_OS       99
 CMDP     EQU    *-1         COMMAND PROCESSOR POINTER                   R152_OS      100
          NJN    MDD2        IF OPTIONAL PROCESSOR                       R152_OS      101
          LDC    CMD         USE *CMD*                                   R152_OS      102
 MDD2     STD    T2          SET COMMAND PROCESSOR                       R152_OS      103
          LJM    0,T2        PROCESS COMMAND                             R152_OS      104
          SPACE  4,10                                                    R152_OS      105
**        SPECIAL ASCII CHARACTER CONSTANTS.                             R152_OS      106
*                                                                        R152_OS      107
                                                                         R152_OS      108
                                                                         R152_OS      109
 CR       EQU    15                                                      R152_OS      110
 LF       EQU    12                                                      R152_OS      111
 BS       EQU    10                                                      R152_OS      112
 FF       EQU    14B         SCREEN CLEAR                                R152_OS      113
 ESC      EQU    33                                                      R152_OS      114
 TOF      EQU    31                                                      R152_OS      115
 CMD      EJECT                                                          R152_OS      116
**        CMD - PROCESS COMMAND.                                         R152_OS      117
*                                                                        R152_OS      118
*         ENTRY  (NC) = ADDRESS OF NEXT CHARACTER IN LINE.               R152_OS      119
*                                                                        R152_OS      120
*         EXIT   COMMAND PROCESSED.                                      R152_OS      121
*                                                                        R152_OS      122
*         USES   T1, T2, VAL1 - VAL1+1.                                  R152_OS      123
*                                                                        R152_OS      124
*         CALLS  ASN, CLS, WTC.                                          R152_OS      125
                                                                         R152_OS      126
                                                                         R152_OS      127
 CMD      BSS    0           ENTRY                                       R152_OS      128
          RJM    CFI         CHECK FOR INCREMENT                         R152_OS      129
          ZJN    CMD2        IF INCREMENT                                R152_OS      130
          RJM    ASN         ASSEMBLE NAME                               R152_OS      131
          LDN    4                                                       R152_OS      132
          STD    T2          SET TABLE ENTRY SIZE                        R152_OS      133
          LDC    CMDS                                                    R152_OS      134
          RJM    SFN         SEARCH FOR NAME                             R152_OS      135
          ZJN    CMDE        IF ILLEGAL COMMAND                          R152_OS      136
          STM    CMDA        SET COMMAND ADDRESS                         R152_OS      137
          RJM    PRM         DECODE PARAMETER LIST                       R152_OS      138
          UJN    CMD3        PROCESS COMMAND                             R152_OS      139
                                                                         R152_OS      140
 CMD2     LDM    RDIS        REPEAT DISPLAY                              R152_OS      141
          ZJN    CMDE        IF NOT VALID                                R152_OS      142
          STM    CMDA                                                    R152_OS      143
          LDN    0                                                       R152_OS      144
 CMD3     STDL   T2                                                      R152_OS      145
          LDM    RFLG                                                    R152_OS      146
          ZJN    CMD4        IF NO REFRESH                               R152_OS      147
          RJM    CLS         CLEAR THE SCREEN                            R152_OS      148
 CMD4     LDDL   T2                                                      R152_OS      149
          LJM    0           PROCESS THE COMMAND                         R152_OS      150
 CMDA     EQU    *-1                                                     R152_OS      151
                                                                         R152_OS      152
 CMDE     LDC    =C/ *ILL*/                                              R152_OS      153
 CMDF     RJM    WTC                                                     R152_OS      154
          RJM    EOL                                                     R152_OS      155
                                                                         R152_OS      156
 CMDX     LDN    0                                                       R152_OS      157
                                                                         R152_OS      158
 CMDR     STM    RDIS        SET REPEAT DISPLAY ADDRESS                  R152_OS      159
          SHN    -14                                                     R152_OS      160
          STM    VAL4        SET ADDRESS DECODE                          R152_OS      161
          LJM    MDDX        RETURN                                      R152_OS      162
                                                                         R152_OS      163
 ERR      EQU    CMDX                                                    R152_OS      164
 CPS      SPACE  4,10                                                    R152_OS      165
**        CPS - CHECK PORT STATUS.                                       R152_OS      166
*                                                                        R152_OS      167
*         ENTRY  (A) <> 0, IMMEDIATE CHECK.                              R152_OS      168
*                                                                        R152_OS      169
*         EXIT   *RJM* TO (CPSA) IF PORT REQUESTED.                      R152_OS      170
*                                                                        R152_OS      171
*         CALLS  CPR.                                                    R152_OS      172
                                                                         R152_OS      173
                                                                         R152_OS      174
 CPS2     CON    0           NULL *RJM* ENTRY                            R152_OS      175
                                                                         R152_OS      176
 CPS      SUBR               ENTRY/EXIT                                  R152_OS      177
          NJN    CPS1        IF UNCONDITIONAL CHECK                      R152_OS      178
          SOM    CPSB                                                    R152_OS      179
          NJN    CPSX        IF NOT TIME TO CHECK STATUS                 R152_OS      180
          LDC    200                                                     R152_OS      181
          STM    CPSB                                                    R152_OS      182
 CPS1     RJM    CPR         CHECK IF PORT REQUESTED                     R152_OS      183
          ZJN    CPSX        IF PORT NOT WANTED BY SOMEONE ELSE          R152_OS      184
          RJM    HPR         IGNORE PORT REQUESTED                       R152_OS      185
          LJM    CMDX        RETURN                                      R152_OS      186
                                                                         R152_OS      187
 CPSB     CON    200                                                     R152_OS      188
 RDS      SPACE  4,10                                                    R152_OS      189
**        RDS - READ STRING.                                             R152_OS      190
*                                                                        R152_OS      191
*         EXIT   (NC) - FWA OF STRING.                                   R152_OS      192
*                (SZ) - LWA OF STRING.                                   R152_OS      193
*                TO CMDX, IF *ESC* CHARACTER TYPED.                      R152_OS      194
*                                                                        R152_OS      195
*         CALLS  NCH, OUT, WTC.                                          R152_OS      196
                                                                         R152_OS      197
                                                                         R152_OS      198
 RDS      SUBR               ENTRY/EXIT                                  R152_OS      199
                                                                         R152_OS      200
 RDS0     LDC    BUF                                                     R152_OS      201
          STD    NC                                                      R152_OS      202
          STD    SZ                                                      R152_OS      203
 RDS1     RJM    NCH         READ THE NEXT CHARACTER                     R152_OS      204
          STI    SZ                                                      R152_OS      205
          SBN    40                                                      R152_OS      206
          MJN    RDS2        IF CONTROL CHARACTER                        R152_OS      207
          AOD    SZ                                                      R152_OS      208
          SBD    NC                                                      R152_OS      209
          ADC    -72D                                                    R152_OS      210
          MJN    RDS1        IF LINE NOT TOO LONG                        R152_OS      211
          LDC    =C/ *OVL*/+10000                                        R152_OS      212
          UJN    RDS5        WRITE STRING AND RESTART LINE               R152_OS      213
                                                                         R152_OS      214
 RDS2     ADN    40-CR                                                   R152_OS      215
          ZJN    RDS3        IF (CR)                                     R152_OS      216
          SBN    ESC-CR                                                  R152_OS      217
          ZJN    RDS4        IF ESCAPE                                   R152_OS      218
          ADN    ESC-BS                                                  R152_OS      219
          NJN    RDS1        IF NOT BACKSPACE                            R152_OS      220
          SOD    SZ          DECREMENT CHARACTER COUNT                   R152_OS      221
          SBD    NC                                                      R152_OS      222
          MJN    RDS0        IF BEYOND LEFT MARGIN                       R152_OS      223
          UJN    RDS1        GET NEXT CHARACTER                          R152_OS      224
                                                                         R152_OS      225
 RDS3     STI    SZ          TERMINATE LINE WITH ZERO CHARACTER          R152_OS      226
          LDN    LF          ISSUE LINE FEED                             R152_OS      227
          RJM    OUT                                                     R152_OS      228
          LJM    RDSX        RETURN                                      R152_OS      229
                                                                         R152_OS      230
 RDS4     LDC    =C/ *ESC*/+10000                                        R152_OS      231
 RDS5     RJM    WTC         WRITE STRING                                R152_OS      232
          LJM    CMDX        IGNORE INPUT                                R152_OS      233
 RPT      SPACE  4,10                                                    R152_OS      234
**        RPT - REPEAT DISPLAY COMMAND.                                  R152_OS      235
*                                                                        R152_OS      236
*         ENTRY  (RFLG) = REPEAT FLAG.                                   R152_OS      237
*                (RDLY) = REMAINING TIME UNTIL REPEAT.                   R152_OS      238
*                (RDIS) = COMMAND ADDRESS.                               R152_OS      239
*                                                                        R152_OS      240
*         USES   T2.                                                     R152_OS      241
*                                                                        R152_OS      242
*         CALLS  OUT.                                                    R152_OS      243
                                                                         R152_OS      244
                                                                         R152_OS      245
 RPT      SUBR               ENTRY/EXIT                                  R152_OS      246
          LDM    RFLG                                                    R152_OS      247
          ZJN    RPTX        IF REPEAT NOT SET                           R152_OS      248
          SOML   RDLY                                                    R152_OS      249
          NJN    RPTX        IF NOT TIME YET                             R152_OS      250
          LDC    70000                                                   R152_OS      251
          STML   RDLY        RESET DELAY                                 R152_OS      252
          LDM    RDIS                                                    R152_OS      253
          ZJN    RPTX        IF NO REPEAT ADDRESS                        R152_OS      254
          STD    T2                                                      R152_OS      255
          LDN    TOF         TOP OF FORM                                 R152_OS      256
          RJM    OUT         RESET SCREEN                                R152_OS      257
          LJM    0,T2        REPEAT DISPLAY                              R152_OS      258
                                                                         R152_OS      259
 RFLG     CON    0           REPEAT FLAG                                 R152_OS      260
 RDLY     CON    7000        REPEAT DELAY                                R152_OS      261
 RDIS     CON    0           REPEAT DISPLAY PROCESSOR                    R152_OS      262
 VAL1     CON    0,0         VALUE 1 SAVE AREA                           R152_OS      263
 VAL2     CON    10          VALUE 2 SAVE AREA                           R152_OS      264
 VAL3     CON    0,0         INCREMENT VALUE                             R152_OS      265
 VAL4     CON    0           LAST NUMBER DECODE TYPE                     R152_OS      266
 CMDS     EJECT                                                          R152_OS      267
**        COMMANDS AVAILABLE UNDER *MDD* BY DEFAULT.                     R152_OS      268
*                                                                        R152_OS      269
                                                                         R152_OS      270
                                                                         R152_OS      271
 DR       CMND   MRP,MRNT,DRL                                            R152_OS      272
 ER       CMND   MRW,MRNT,DRL                                            R152_OS      273
 CE       CMND   CER,MRNT,DRL                                            R152_OS      274
 DRL      BSS    0                                                       R152_OS      275
          PRM    MRPA                                                    R152_OS      276
 M        PRMV   MRPC                                                    R152_OS      277
 I        PRMV   MRPB                                                    R152_OS      278
 P        PRMV   MRPD                                                    R152_OS      279
 RN       PRM    MRPE,1                                                  R152_OS      280
 RV       PRM    MRBF,10                                                 R152_OS      281
          PRME                                                           R152_OS      282
                                                                         R152_OS      283
 RF       CMND   RFP,MRNT                                                R152_OS      284
 AD       PRM    RFPA,1                                                  R152_OS      285
 WC       PRM    RFPB,1                                                  R152_OS      286
          PRME                                                           R152_OS      287
                                                                         R152_OS      288
 DC       CMND   DCM,OWNT,CMPL                                           R152_OS      289
 DH       CMND   DHX,HPNT,CMPL                                           R152_OS      290
 DB       CMND   DHB,HPNT,CMPL                                           R152_OS      291
 CMPL     BSS    0                                                       R152_OS      292
 AD       PRM    VAL1,2                                                  R152_OS      293
 WC       PRM    VAL2,1                                                  R152_OS      294
          PRME                                                           R152_OS      295
                                                                         R152_OS      296
 EB       CMND   EBT,HPNT                                                R152_OS      297
 EBTP     BSS    0                                                       R152_OS      298
 AD       PRM    VAL1,2                                                  R152_OS      299
          PRME                                                           R152_OS      300
                                                                         R152_OS      301
 EC       CMND   ECM,OWNT                                                R152_OS      302
 AD       PRM    VAL1,2                                                  R152_OS      303
 WV       PRM    MRBF,5                                                  R152_OS      304
          PRME                                                           R152_OS      305
                                                                         R152_OS      306
 DP       CMND   DPP,OWNT                                                R152_OS      307
          PRM    DPPB                                                    R152_OS      308
 P        PRMV   0                                                       R152_OS      309
 Q        PRMV   1                                                       R152_OS      310
 K        PRMV   2                                                       R152_OS      311
 A        PRMV   3                                                       R152_OS      312
          PRME                                                           R152_OS      313
                                                                         R152_OS      314
 CI       CMND   CCI         CLEAR MAINTENANCE CHANNEL INTERLOCK         R152_OS      315
 IP       CMND   IPP,OWNT,PPCL  IDLE PP                                  R152_OS      316
 RP       CMND   RPP,OWNT,PPCL  RUN PP AT SPECIFIED ADDRESS              R152_OS      317
 PPCL     BSS    0                                                       R152_OS      318
 PP       PRM    PP,1                                                    R152_OS      319
 AD       PRM    RPPA,1                                                  R152_OS      320
          PRME                                                           R152_OS      321
                                                                         R152_OS      322
 HP       CMND   HLT                                                     R152_OS      323
 SP       CMND   RUN                                                     R152_OS      324
 SR       CMND   CMDX,OWNT                                               R152_OS      325
          PRM    RFLG                                                    R152_OS      326
 ON       PRMV   1                                                       R152_OS      327
 OF       PRMV   0                                                       R152_OS      328
          PRME                                                           R152_OS      329
                                                                         R152_OS      330
                                                                         R152_OS      331
 MC       CMND   MCR,HWNT,MCCL                                           R152_OS      332
 UC       CMND   UCR,HWNT,MCCL                                           R152_OS      333
 MCCL     BSS    0                                                       R152_OS      334
 RV       PRM    PP,1                                                    R152_OS      335
          PRME                                                           R152_OS      336
                                                                         R152_OS      337
 DM       CMND   DMMP,HWNT                                               R152_OS      338
                                                                         R152_OS      339
 PV       PRM    BA,3                                                    R152_OS      340
 WC       PRM    VAL2,1                                                  R152_OS      341
          PRM    BA+3,2                                                  R152_OS      342
 MP       PRMV   MPSV                                                    R152_OS      343
 JP       PRMV   JPSV                                                    R152_OS      344
 XP       PRMV   XPSV                                                    R152_OS      345
 PT       PRM    PTAV,2                                                  R152_OS      346
 BO       PRM    BA+1,2                                                  R152_OS      347
 PS       PRM    PSMV,1                                                  R152_OS      348
 PL       PRM    PTLV,1                                                  R152_OS      349
          PRME                                                           R152_OS      350
 CMDS     BSS    0                                                       R152_OS      351
 CMDS     HERE                                                           R152_OS      352
          CON    0,CMDE      ERROR PROCESSOR                             R152_OS      353
          PURGMAC CMND                                                   R152_OS      354
                                                                         R152_OS      355
 RFP      SPACE  4,10                                                    R152_OS      356
                                                                         R152_OS      357
                                                                         R152_OS      358
          EJECT                                                          R152_OS      359
 CCI      SPACE  4,10                                                    R152_OS      360
**        CCI - CLEAR CHANNEL INTERLOCK.                                 R152_OS      361
*                                                                        R152_OS      362
                                                                         R152_OS      363
                                                                         R152_OS      364
 CCI      CCF    *,MR      CLEAR MAINTENANCE CHANNEL FLAG                R152_OS      365
          PRINT  (CLEARED.)                                              R152_OS      366
          LJM    CMDX        RETURN                                      R152_OS      367
 CER      SPACE  4,10                                                    R152_OS      368
**        CER - CLEAR ERROR IN REGISTERS.                                R152_OS      369
*                                                                        R152_OS      370
                                                                         R152_OS      371
                                                                         R152_OS      372
 CER      BSS    0                                                       R152_OS      373
          LDM    MRPA                                                    R152_OS      374
          RJM    SMO         SETUP MAINTENANCE OPERATION                 R152_OS      375
          FUNCMR ,MRCE                                                   R152_OS      376
          LJM    CMDX        RETURN                                      R152_OS      377
 DCM      SPACE  4,10                                                    R152_OS      378
**        DCM - DISPLAY CENTRAL MEMORY.                                  R152_OS      379
*                                                                        R152_OS      380
                                                                         R152_OS      381
                                                                         R152_OS      382
 DCM      BSS    0                                                       R152_OS      383
 DCM0     LDN    2           SET OCTAL/DISPLAY DUMP                      R152_OS      384
          RJM    DMB         DISPLAY MEMORY BLOCK                        R152_OS      385
          LDC    DCM0+OCWD   REFRESH ADDRESS                             R152_OS      386
          LJM    CMDR        RETURN                                      R152_OS      387
 DHB      SPACE  4,10                                                    R152_OS      388
**        DHB - DISPLAY 64 BIT MEMORY FROM A BYTE ADDRESS                R152_OS      389
*                                                                        R152_OS      390
                                                                         R152_OS      391
                                                                         R152_OS      392
 DHB      LPN    1S1                                                     R152_OS      393
          ZJN    DHB0        IF ADDRESS NOT ENTERED                      R152_OS      394
          LDC    VAL1                                                    R152_OS      395
          RJM    TBA         TRANSLATE BYTE ADDRESS                      R152_OS      396
 DHB0     LDN    0           SET HEX BYTE DISPLAY                        R152_OS      397
          RJM    DMB         DISPLAY MEMORY BLOCK                        R152_OS      398
          LDC    DHB0+HXBT   REFRESH ADDRESS                             R152_OS      399
          LJM    CMDR        RETURN                                      R152_OS      400
 DHX      SPACE  4,10                                                    R152_OS      401
**        DHX - DISPLAY 64 BIT MEMORY IN HEX.                            R152_OS      402
*                                                                        R152_OS      403
                                                                         R152_OS      404
                                                                         R152_OS      405
 DHX      LDN    1           SET HEX WORD DISPLAY                        R152_OS      406
          RJM    DMB         DISPLAY MEMORY BLOCK                        R152_OS      407
          LDC    DHX+HXWD    REFRESH ADDRESS                             R152_OS      408
          LJM    CMDR        RETURN                                      R152_OS      409
 DV       SPACE  4,10                                                    R152_OS      410
**        DMM - DISPLAY PVA COMMAND                                      R152_OS      411
*                                                                        R152_OS      412
                                                                         R152_OS      413
                                                                         R152_OS      414
 DMMP     BSS    0           DISPLAY VIRTUAL MEMORY                      R152_OS      415
          SHN    21-6                                                    R152_OS      416
          PJN    DMM1        IF PAGE SIZE MASK NOT CHANGED               R152_OS      417
          RJM    DPS         DEFINE PAGE SIZE                            R152_OS      418
 DMM1     LDM    VAL3                                                    R152_OS      419
          SHN    21-13                                                   R152_OS      420
          PJN    DMM2        IF INCREMENT                                R152_OS      421
          LMN    0#1F                                                    R152_OS      422
 DMM2     SHN    21-6                                                    R152_OS      423
          STDL   T1                                                      R152_OS      424
          SHN    14-21                                                   R152_OS      425
          LPC    10000                                                   R152_OS      426
          ADM    VAL3+1                                                  R152_OS      427
          SHN    3                                                       R152_OS      428
          RADL   BA+2                                                    R152_OS      429
          SHN    -20                                                     R152_OS      430
          ADDL   T1                                                      R152_OS      431
          RADL   BA+1                                                    R152_OS      432
          LDN    0           CLEAR INCREMENT                             R152_OS      433
          STM    VAL3                                                    R152_OS      434
          STM    VAL3+1                                                  R152_OS      435
          LDD    BA+3        MAKE SYSTEM VIRTUAL ADDRESS                 R152_OS      436
          RJM    MSA         BASED ON JPS                                R152_OS      437
          NJN    DMM2.5      IF SEGMENT EXISTS                           R152_OS      438
          PRINT  (SEGMENT MISSING)                                       R152_OS      439
          LJM    CMDX        EXIT WITH NO REFRESH                        R152_OS      440
                                                                         R152_OS      441
 DMM2.5   RJM    SPT         SEARCH PAGE TABLE                           R152_OS      442
          STD    T3                                                      R152_OS      443
          SRD    T1                                                      R152_OS      444
          LDD    T2                                                      R152_OS      445
          SHN    6                                                       R152_OS      446
          ADD    T3                                                      R152_OS      447
          STM    VAL1+1                                                  R152_OS      448
          LPC    770000                                                  R152_OS      449
          ADD    T1                                                      R152_OS      450
          SHN    6                                                       R152_OS      451
          STM    VAL1                                                    R152_OS      452
          LDM    VAL2                                                    R152_OS      453
          STD    PP                                                      R152_OS      454
          LDD    BA                                                      R152_OS      455
          STM    NBUF                                                    R152_OS      456
          LDC    =C* SEGMENT *                                           R152_OS      457
          RJM    WTC                                                     R152_OS      458
          LDC    3+HPDT                                                  R152_OS      459
          RJM    PRN                                                     R152_OS      460
          RJM    EOL         PRINT END OF LINE                           R152_OS      461
 DMM3     LDDL   CM+1                                                    R152_OS      462
          STML   NBUF                                                    R152_OS      463
          LDDL   CM+2                                                    R152_OS      464
          SCN    7           ROUND BYTE ADDRESS DOWN                     R152_OS      465
          STML   NBUF+1                                                  R152_OS      466
          LDC    HMDT+8D                                                 R152_OS      467
          RJM    PRN                                                     R152_OS      468
          RJM    SPT         SEARCH PAGE TABLE                           R152_OS      469
          ZJN    DMM5        IF PAGE MISSING                             R152_OS      470
          CRML   NBUF,ON                                                 R152_OS      471
          LDC    16D+HBDT                                                R152_OS      472
          RJM    PRN                                                     R152_OS      473
          RJM    DAT                                                     R152_OS      474
          RJM    EOL                                                     R152_OS      475
          LDN    10                                                      R152_OS      476
          RAML   CM+2                                                    R152_OS      477
          SHN    -20                                                     R152_OS      478
          RAML   CM+1                                                    R152_OS      479
          SOD    PP                                                      R152_OS      480
          NJN    DMM3        IF MORE TO DISPLAY                          R152_OS      481
 DMM4     LDC    DMM1+HXBT   REENTRY ADDRESS                             R152_OS      482
          LJM    CMDR        RETURN                                      R152_OS      483
                                                                         R152_OS      484
 DMM5     PRINT  (PAGE MISSING)                                          R152_OS      485
          UJN    DMM4        EXIT                                        R152_OS      486
 XPSV     CON    0,0                                                     R152_OS      487
 DPP      SPACE  4,10                                                    R152_OS      488
**        DPP - DISPLAY PP REGISTERS.                                    R152_OS      489
*                                                                        R152_OS      490
                                                                         R152_OS      491
                                                                         R152_OS      492
 DPP      LDM    ELIO                                                    R152_OS      493
          STD    EC          SET PORT CODE                               R152_OS      494
          READMR MRBF,,DEMR                                              R152_OS      495
 DPP0     LDC    0                                                       R152_OS      496
 DPPB     EQU    *-1                                                     R152_OS      497
          STM    MRBF+6                                                  R152_OS      498
          LDN    0                                                       R152_OS      499
          STD    PP          START WITH PP 0                             R152_OS      500
 DPP1     LDD    PP                                                      R152_OS      501
          LMN    40                                                      R152_OS      502
          STM    MRBF+4                                                  R152_OS      503
          LOCKMR SET                                                     R152_OS      504
          WRITMR MRBF,,DEMR                                              R152_OS      505
          LDC    ISTR                                                    R152_OS      506
          RJM    RMR         READ IOU STATUS REGISTER                    R152_OS      507
          LOCKMR CLEAR                                                   R152_OS      508
          LDM    NBUF+4      EXTRACT ADDRESS FROM REGISTER               R152_OS      509
          SHN    10                                                      R152_OS      510
          LMM    NBUF+5                                                  R152_OS      511
          SHN    10                                                      R152_OS      512
          LMM    NBUF+6                                                  R152_OS      513
          SHN    14                                                      R152_OS      514
          STM    NBUF        SAVE UPPER 12 BITS                          R152_OS      515
          SHN    14                                                      R152_OS      516
          STM    NBUF+1      SAVE LOWER 6 BITS                           R152_OS      517
          LDC    6+OMDT      DISPLAY 6-DIGIT OCTAL NUMBER                R152_OS      518
          RJM    PRN                                                     R152_OS      519
          AOD    PP          ADVANCE PP NUMBER                           R152_OS      520
          LPN    17                                                      R152_OS      521
          SBN    12                                                      R152_OS      522
          NJN    DPP2        IF MORE PP-S TO DUMP ON THIS LINE           R152_OS      523
          RJM    EOL         WRITE AN END OF LINE                        R152_OS      524
          LDN    20-12                                                   R152_OS      525
          RAD    PP                                                      R152_OS      526
          SBN    40                                                      R152_OS      527
          MJN    DPP2        IF ANOTHER BANK OF PP-S TO DISPLAY          R152_OS      528
          LDN    0                                                       R152_OS      529
          STM    MRBF+6                                                  R152_OS      530
          WRITMR MRBF,,DEMR                                              R152_OS      531
          LDC    DPP0        SET REFRESH ADDRESS                         R152_OS      532
          LJM    CMDR        RETURN                                      R152_OS      533
                                                                         R152_OS      534
 DPP2     LJM    DPP1        PRINT NEXT PP REGISTER VALUE                R152_OS      535
 EBT      SPACE  4,10                                                    R152_OS      536
**        EBT - ENTER HEX BYTE MEMORY.                                   R152_OS      537
*                                                                        R152_OS      538
                                                                         R152_OS      539
                                                                         R152_OS      540
 EBT      LPN    1S1                                                     R152_OS      541
          NJN    EBT0        IF ADDRESS SPECIFIED                        R152_OS      542
          LJM    CMDE        SET ERROR                                   R152_OS      543
                                                                         R152_OS      544
 EBT0     LDC    0#FF00                                                  R152_OS      545
          STML   EBTA+1                                                  R152_OS      546
          LDM    VAL1+1                                                  R152_OS      547
          LPN    7                                                       R152_OS      548
          STD    T6                                                      R152_OS      549
          LDC    VAL1                                                    R152_OS      550
          RJM    TBA         TRANSLATE BYTE ADDRESS                      R152_OS      551
 EBT1     LDC    1+MRNT                                                  R152_OS      552
          RJM    DNV                                                     R152_OS      553
          NJN    EBT2        IF ANOTHER BYTE TO WRITE                    R152_OS      554
          LDD    ST          LOAD STATUS WORD                            R152_OS      555
          SCN    10          CLEAR BIT                                   R152_OS      556
          ADN    10          SET CENTRAL MEMORY WRITE BIT                R152_OS      557
          STD    ST                                                      R152_OS      558
          LJM    CMDX        RETURN                                      R152_OS      559
                                                                         R152_OS      560
 EBT2     LDD    CM+1                                                    R152_OS      561
          LMC    1S17                                                    R152_OS      562
          CRML   NBUF,ON     READ WORD TO BE PATCHED                     R152_OS      563
          LDD    T6                                                      R152_OS      564
          SHN    -1                                                      R152_OS      565
          STD    T2                                                      R152_OS      566
          LDD    T6                                                      R152_OS      567
          LPN    1                                                       R152_OS      568
          STD    T1                                                      R152_OS      569
          NJN    EBT3        IF ODD BYTE                                 R152_OS      570
          LDM    ABUF                                                    R152_OS      571
          SHN    8D                                                      R152_OS      572
          STML   ABUF                                                    R152_OS      573
 EBT3     LDML   NBUF,T2     CHANGE DESIRED BYTE                         R152_OS      574
          LPML   EBTA,T1                                                 R152_OS      575
          LMML   ABUF                                                    R152_OS      576
          STML   NBUF,T2                                                 R152_OS      577
          LDD    CM+1                                                    R152_OS      578
          LMC    1S17                                                    R152_OS      579
          CWML   NBUF,ON     REWRITE WORD                                R152_OS      580
          AOD    T6                                                      R152_OS      581
          SBN    8D                                                      R152_OS      582
          MJN    EBT4        IF NOT AT WORD BOUNDARY                     R152_OS      583
          STD    T6                                                      R152_OS      584
          AOD    CM+1                                                    R152_OS      585
 EBT4     LJM    EBT1        GET NEXT PARCEL                             R152_OS      586
                                                                         R152_OS      587
 EBTA     BSS    0           BYTE MASKS                                  R152_OS      588
          LOC    0                                                       R152_OS      589
          CON    0#FF                                                    R152_OS      590
          CON    -0#FF                                                   R152_OS      591
          LOC    *O                                                      R152_OS      592
 ECM      SPACE  4,10                                                    R152_OS      593
**        ECM - ENTER CENTRAL MEMORY.                                    R152_OS      594
*                                                                        R152_OS      595
                                                                         R152_OS      596
                                                                         R152_OS      597
 ECM      LPN    1S2                                                     R152_OS      598
          RJM    SMP         SET MEMORY PARAMETERS                       R152_OS      599
          RJM    LCA         LOAD CM ADDRESS                             R152_OS      600
          CWM    MRBF,ON                                                 R152_OS      601
          LDD    ST        LOAD STATUS WORD                              R152_OS      602
          SCN    10                                                      R152_OS      603
          ADN    10          SET CENTRAL MEMORY WRITE BIT                R152_OS      604
          STD    ST                                                      R152_OS      605
          LJM    CMDX        RETURN                                      R152_OS      606
                                                                         R152_OS      607
 ECM1     LJM    CMDE        RETURN ERROR                                R152_OS      608
 MCR      SPACE  4,10                                                    R152_OS      609
**        MCR - DISPLAY DECODED MCR BITS.                                R152_OS      610
**        UCR - DISPLAY DECODED UCR BITS.                                R152_OS      611
*                                                                        R152_OS      612
                                                                         R152_OS      613
                                                                         R152_OS      614
 MCR      LDC    MCRB        MCR BIT LIST                                R152_OS      615
          UJN    UCR1        DECODE MCR BITS                             R152_OS      616
                                                                         R152_OS      617
 UCR      LDC    UCRB+10000  UCR BIT LIST                                R152_OS      618
 UCR1     STD    T7                                                      R152_OS      619
          SHN    -14                                                     R152_OS      620
          ADC    PMCR                                                    R152_OS      621
          STD    RN                                                      R152_OS      622
          LDD    CM+2                                                    R152_OS      623
          LPN    1S1                                                     R152_OS      624
          NJN    UCR2        IF PARAMETER 1 SPECIFIED                    R152_OS      625
          LDM    ELPR                                                    R152_OS      626
          STD    EC                                                      R152_OS      627
          LDD    RN                                                      R152_OS      628
          RJM    RMR         READ MCR/UCR                                R152_OS      629
          LDM    NBUF+6                                                  R152_OS      630
          SHN    10                                                      R152_OS      631
          ADM    NBUF+7                                                  R152_OS      632
          STD    PP          SAVE MCR/UCR VALUE                          R152_OS      633
 UCR2     LDD    T7                                                      R152_OS      634
          RJM    TBR         TRANSLATE BIT REGISTER                      R152_OS      635
          LJM    CMDX        COMPLETE COMMAND                            R152_OS      636
                                                                         R152_OS      637
 UCRB     CON    =C*UCR = *                                              R152_OS      638
          LOC    0                                                       R152_OS      639
          CON    =C*PRIV FAULT*                                          R152_OS      640
          CON    =C*UNIMP INST*                                          R152_OS      641
          CON    =C*FREE FLAG*                                           R152_OS      642
          CON    =C*PIT*                                                 R152_OS      643
          CON    =C*I-RING POP*                                          R152_OS      644
          CON    =C*CRIT F FLG*                                          R152_OS      645
          CON    =C*KEYPT*                                               R152_OS      646
          CON    =C*DIVIDE FLT*                                          R152_OS      647
          CON    =C*DEBUG*                                               R152_OS      648
          CON    =C*A-OVL*                                               R152_OS      649
          CON    =C*E-OVL*                                               R152_OS      650
          CON    =C*E-UND*                                               R152_OS      651
          CON    =C*FP LOSS*                                             R152_OS      652
          CON    =C*FP INDEF*                                            R152_OS      653
          CON    =C*ARITH LOSS*                                          R152_OS      654
          CON    =C*BAD BDP*                                             R152_OS      655
          LOC    *O                                                      R152_OS      656
                                                                         R152_OS      657
 MCRB     CON    =C*MCR =*                                               R152_OS      658
          LOC    0                                                       R152_OS      659
          CON    =C*DUE*                                                 R152_OS      660
          CON    0                                                       R152_OS      661
          CON    =C*SHRT WARN*                                           R152_OS      662
          CON    =C*I-SPEC*                                              R152_OS      663
          CON    =C*A-SPEC*                                              R152_OS      664
          CON    =C*170 XJ*                                              R152_OS      665
          CON    =C*ACCESS FLT*                                          R152_OS      666
          CON    =C*E-SPEC*                                              R152_OS      667
          CON    =C*EXT INT*                                             R152_OS      668
          CON    =C*PAGE FAULT*                                          R152_OS      669
          CON    =C*180 XJ*                                              R152_OS      670
          CON    =C*SIT*                                                 R152_OS      671
          CON    =C*INV SEG/RN0*                                         R152_OS      672
          CON    =C*CALL/RTN FLT*                                        R152_OS      673
          CON    =C*SOFT ERROR*                                          R152_OS      674
          CON    =C*TRAP EXCPT*                                          R152_OS      675
          LOC    *O                                                      R152_OS      676
 HLT      SPACE  4,10                                                    R152_OS      677
**        HLT - HALT PROCESSOR.                                          R152_OS      678
*                                                                        R152_OS      679
                                                                         R152_OS      680
                                                                         R152_OS      681
 HLT      FUNCMR ELPR,MRHP                                               R152_OS      682
          LJM    CMDX                                                    R152_OS      683
 IPP      SPACE  4,10                                                    R152_OS      684
**        IPP - IDLE PP.                                                 R152_OS      685
*                                                                        R152_OS      686
                                                                         R152_OS      687
                                                                         R152_OS      688
 IPP      LDN    4                                                       R152_OS      689
          RJM    PPF         IDLE PP                                     R152_OS      690
          LJM    CMDX        RETURN                                      R152_OS      691
 MRP      SPACE  4,10                                                    R152_OS      692
**        MRP - MAINTENANCE REGISTER DISPLAY PROCESSOR.                  R152_OS      693
*                                                                        R152_OS      694
*                                                                        R152_OS      695
                                                                         R152_OS      696
                                                                         R152_OS      697
 MRP      LDM    MRPA        FETCH PROCESSOR ADDRESS                     R152_OS      698
          RJM    SMO         SETUP MR OPERATION                          R152_OS      699
          LPN    1S2                                                     R152_OS      700
          ZJN    MRP1        IF REGISTER NOT SPECIFIED                   R152_OS      701
          LDC    MRPE                                                    R152_OS      702
          STM    MRPA                                                    R152_OS      703
 MRP1     LDM    MRPA        GET REGISTER LIST                           R152_OS      704
          RJM    DMR         READ AND DISPLAY REGISTERS                  R152_OS      705
          LDC    MRPD                                                    R152_OS      706
          SBM    MRPA                                                    R152_OS      707
          NJN    MRP5                                                    R152_OS      708
          LDM    CPUT2                                                   R152_OS      709
          SBN    1                                                       R152_OS      710
          ZJN    MRP3                                                    R152_OS      711
          SBN    1                                                       R152_OS      712
          ZJN    MRP4                                                    R152_OS      713
          LDC    MRPH                                                    R152_OS      714
          UJN    MRP4.5                                                  R152_OS      715
 MRP3     LDC    MRPF                                                    R152_OS      716
          UJN    MRP4.5                                                  R152_OS      717
 MRP4     LDC    MRPG                                                    R152_OS      718
          RJM    DMR                                                     R152_OS      719
          LDC    MRPF                                                    R152_OS      720
 MRP4.5   RJM    DMR                                                     R152_OS      721
 MRP5     LDC    MRP1        REPEAT ADDRESS                              R152_OS      722
          LJM    CMDR        RETURN                                      R152_OS      723
 MRPA     SPACE  4,10                                                    R152_OS      724
**        MAINTENANCE REGISTER TABLES.                                   R152_OS      725
*                                                                        R152_OS      726
                                                                         R152_OS      727
                                                                         R152_OS      728
 MRPA     CON    MRPB        REGISTER LIST ADD  RESS                     R152_OS      729
                                                                         R152_OS      730
          CON    ELIO        IOU PORT CODE ADDRESS                       R152_OS      731
 MRPB     BSS    0           IOU MAINTENANCE REGISTERS                   R152_OS      732
 00       MR     (SS)                                                    R152_OS      733
 12       MR     (OI)                                                    R152_OS      734
 18       MR     (MASK REGISTER)                                         R152_OS      735
 21       MR     (OS BOUNDS)                                             R152_OS      736
 30       MR     (EC)                                                    R152_OS      737
 40       MR     (STATUS)                                                R152_OS      738
 80       MR     (FS1)                                                   R152_OS      739
 81       MR     (FS2)                                                   R152_OS      740
 A0       MR     (TM)                                                    R152_OS      741
          CON    7777                                                    R152_OS      742
                                                                         R152_OS      743
          CON    ELCM        MEMORY PORT CODE ADDRESS                    R152_OS      744
 MRPC     BSS    0           MEMORY MAINTENANCE REGISTERS                R152_OS      745
 00       MR     (SS)                                                    R152_OS      746
 12       MR     (OI)                                                    R152_OS      747
 20       MR     (EC)                                                    R152_OS      748
 21       MR     (MEM BOUNDS)                                            R152_OS      749
 A0       MR     (CEL)                                                   R152_OS      750
 A4       MR     (UEL1)                                                  R152_OS      751
 A8       MR     (UEL2)                                                  R152_OS      752
          CON    7777                                                    R152_OS      753
                                                                         R152_OS      754
          CON    ELPR        PROCESSOR PORT CODE ADDRESS                 R152_OS      755
 MRPD     BSS    0           PROCESSOR MAINTENANCE REGISTERS             R152_OS      756
 00       MR     (SS)                                                    R152_OS      757
 30       MR     (DEC)                                                   R152_OS      758
 31       MR     (S)                                                     R152_OS      759
 40       MR     (P)                                                     R152_OS      760
 41       MR     (MPS)                                                   R152_OS      761
 42       MR     (MCR)                                                   R152_OS      762
 43       MR     (UCR)                                                   R152_OS      763
 48       MR     (PTA)                                                   R152_OS      764
 51       MR     (MDW)                                                   R152_OS      765
 61       MR     (JPS)                                                   R152_OS      766
 62       MR     (SIT)                                                   R152_OS      767
 80       MR     (PFS)                                                   R152_OS      768
          CON    7777                                                    R152_OS      769
                                                                         R152_OS      770
          CON    ELPR        PORT CODE FOR REGISTER DISPLAY              R152_OS      771
 MRPE     BSS    0           SINGLE REGISTER DISPLAY                     R152_OS      772
 00       MR     ( )                                                     R152_OS      773
          CON    7777        END OF TABLE                                R152_OS      774
                                                                         R152_OS      775
 MRPF     BSS    0                                                       R152_OS      776
 93       MR     (MCEL)                                                  R152_OS      777
          CON    7777                                                    R152_OS      778
                                                                         R152_OS      779
 MRPG     BSS    0                                                       R152_OS      780
 81       MR     (PFS1)                                                  R152_OS      781
 92       MR     (CCEL)                                                  R152_OS      782
          CON    7777                                                    R152_OS      783
                                                                         R152_OS      784
 MRPH     BSS    0                                                       R152_OS      785
 81       MR     (PFS1)                                                  R152_OS      786
 82       MR     (PFS2)                                                  R152_OS      787
 83       MR     (PFS3)                                                  R152_OS      788
 84       MR     (PFS4)                                                  R152_OS      789
 85       MR     (PFS5)                                                  R152_OS      790
 86       MR     (PFS6)                                                  R152_OS      791
 87       MR     (PFS7)                                                  R152_OS      792
 88       MR     (PFS8)                                                  R152_OS      793
 89       MR     (PFS9)                                                  R152_OS      794
          CON    7777                                                    R152_OS      795
                                                                         R152_OS      796
 MRW      SPACE  4,10                                                    R152_OS      797
**        MRW - WRITE MAINTENANCE REGISTER.                              R152_OS      798
*                                                                        R152_OS      799
*                                                                        R152_OS      800
                                                                         R152_OS      801
                                                                         R152_OS      802
 MRW      LDM    MRPA                                                    R152_OS      803
          RJM    SMO         SETUP MAINTENANCE REGISTER OPERATION        R152_OS      804
          LPN    1S2+1S3                                                 R152_OS      805
          LMN    1S2+1S3                                                 R152_OS      806
          NJN    MRW1        IF NOT ENOUGH PARAMETERS                    R152_OS      807
          WRITMR MRBF                                                    R152_OS      808
          LDD    ST          LOAD STATUS WORD                            R152_OS      809
          SCN    4           CLEAR BIT                                   R152_OS      810
          ADN    4           SET MAINT. REGISTER WRITE BIT               R152_OS      811
          STD    ST                                                      R152_OS      812
          LDC    MRPE                                                    R152_OS      813
          STM    MRPA                                                    R152_OS      814
          RJM    DMR         DISPLAY REGISTER                            R152_OS      815
          LJM    CMDX        RETURN                                      R152_OS      816
                                                                         R152_OS      817
 MRW1     LJM    CMDE        PROCESS ERROR                               R152_OS      818
 RPP      SPACE  4,10                                                    R152_OS      819
**        RPP - RUN PP AT ADDRESS.                                       R152_OS      820
*                                                                        R152_OS      821
                                                                         R152_OS      822
                                                                         R152_OS      823
 RPP      LPN    1S2                                                     R152_OS      824
          ZJN    MRW1        IF NO ADDRESS GIVEN                         R152_OS      825
          LDN    20                                                      R152_OS      826
          ACN    0+40        ACTIVATE CHANNEL 0                          R152_OS      827
          RJM    PPF         DEADSTART PP                                R152_OS      828
          LDC    0                                                       R152_OS      829
 RPPA     EQU    *-1         ADDRESS FROM COMMAND                        R152_OS      830
          SBN    1                                                       R152_OS      831
          OAN    0           OUTPUT TO CHANNEL 0                         R152_OS      832
          DCN    0+40                                                    R152_OS      833
          LJM    CMDX        RETURN                                      R152_OS      834
 RUN      SPACE  4,10                                                    R152_OS      835
**        RUN - START PROCESSOR EXECUTING.                               R152_OS      836
*                                                                        R152_OS      837
                                                                         R152_OS      838
                                                                         R152_OS      839
 RUN      FUNCMR ELPR,MRSP                                               R152_OS      840
          LJM    CMDX        RETURN                                      R152_OS      841
 RFP      SPACE  4,10                                                    R152_OS      842
**        RFP - DISPLAY REGISTER FILE                                    R152_OS      843
*                                                                        R152_OS      844
                                                                         R152_OS      845
 RFP      BSS    0                                                       R152_OS      846
          LDM    ELPR        GET PROCESSOR CODE                          R152_OS      847
          STD    EC                                                      R152_OS      848
          LDN    0                                                       R152_OS      849
          STD    RN                                                      R152_OS      850
          READMR NBUF        READ STATUS SUMMARY REGISTER                R152_OS      851
          LDM    NBUF+7                                                  R152_OS      852
          SHN    21-3                                                    R152_OS      853
          MJN    RFP1        IF PROCESSOR IS HALTED                      R152_OS      854
          LDM    CPUT2                                                   R152_OS      855
          SBN    3                                                       R152_OS      856
          PJN    RFP2        IF AN S3 THEN ERROR                         R152_OS      857
          UJN    RFP4                                                    R152_OS      858
                                                                         R152_OS      859
 RFP1     LDM    CPUT2                                                   R152_OS      860
          SBN    3                                                       R152_OS      861
          ZJN    RFP3        IF AN S3 THEN GO AHEAD                      R152_OS      862
 RFP2     LDC    =C*PROCESSOR IN WRONG MODE*                             R152_OS      863
          LJM    CMDF                                                    R152_OS      864
                                                                         R152_OS      865
                                                                         R152_OS      866
 RFP3     FUNCMR ELPR,MRMC   MASTER CLEAR PROCESSOR                      R152_OS      867
 RFP4     LDM    RFPB                                                    R152_OS      868
          STD    T5                                                      R152_OS      869
          LDM    CPUT2       GET CPU TYPE                                R152_OS      870
          STD    T1                                                      R152_OS      871
          LDM    ELPR                                                    R152_OS      872
          SCN    17B                                                     R152_OS      873
          ADM    RFPC-1,T1                                               R152_OS      874
          STD    EC                                                      R152_OS      875
          LDM    RFPA        GET FIRST ADDRESS TO READ                   R152_OS      876
          STD    RN                                                      R152_OS      877
          STD    T6                                                      R152_OS      878
 RFP5     LDD    RN                                                      R152_OS      879
          STM    NBUF                                                    R152_OS      880
          LDN    MRDT+2      PRINT TWO DIGIT ADDRESS                     R152_OS      881
          RJM    PRN                                                     R152_OS      882
          LDC    MRRD        READ CODE                                   R152_OS      883
          ADD    EC                                                      R152_OS      884
          RJM    AMR                                                     R152_OS      885
          IAM    NBUF,MR     READ REGISTER                               R152_OS      886
          LDN    10          MUST READ A BLOCK OF 400(8) BYTES           R152_OS      887
          STD    W1                                                      R152_OS      888
 RFP6     LDN    37                                                      R152_OS      889
          IAM    BUF,MR      SKIP UNWANTED DATA                          R152_OS      890
          SOD    W1                                                      R152_OS      891
          NJN    RFP6        IF NOT DONE SKIPPING DATA                   R152_OS      892
          RJM    CMI         CLEAR MAINT. CHANNEL                        R152_OS      893
          LDN    MRDT+20                                                 R152_OS      894
          RJM    PRN         PRINT REGISTER VALUE                        R152_OS      895
          RJM    EOL                                                     R152_OS      896
          AOD    T6                                                      R152_OS      897
          STD    RN                                                      R152_OS      898
          SOD    T5          DECREMENT COUNT                             R152_OS      899
          NJN    RFP5        IF NOT DONE YET                             R152_OS      900
          LDC    RFP+MRNT                                                R152_OS      901
          LJM    CMDR                                                    R152_OS      902
                                                                         R152_OS      903
 RFPA     DATA   0           STARTING REGISTER NUMBER                    R152_OS      904
                                                                         R152_OS      905
 RFPB     DATA   12          REGISTER COUNT                              R152_OS      906
                                                                         R152_OS      907
 RFPC     DATA   1           CODE FOR AN S1                              R152_OS      908
          DATA   5           CODE FOR AN S2                              R152_OS      909
          DATA   7           CODE FOR AN S3                              R152_OS      910
                                                                         R152_OS      911
                                                                         R152_OS      912
                                                                         R152_OS      913
                                                                         R152_OS      914
          EJECT                                                          R152_OS      915
 ASN      SPACE  4,10                                                    R152_OS      916
**        ASN - ASSEMBLE NAME.                                           R152_OS      917
*                                                                        R152_OS      918
*         ENTRY  (NC) - NEXT CHARACTER IN LINE.                          R152_OS      919
*                                                                        R152_OS      920
*         EXIT   (A) - LENGTH OF NAME ASSEMBLED.                         R152_OS      921
*                (NC) = POSITIONED AFTER NAME.                           R152_OS      922
*                                                                        R152_OS      923
*         USES   T2, T3, T4.                                             R152_OS      924
*                                                                        R152_OS      925
*         CALLS  CLC, SKP.                                               R152_OS      926
                                                                         R152_OS      927
                                                                         R152_OS      928
 ASN      SUBR               ENTRY/EXIT                                  R152_OS      929
          RJM    SKP         SKIP DELIMITERS                             R152_OS      930
          ZJN    ASNX        RETURN IF EOLN                              R152_OS      931
          LDC    ASNA                                                    R152_OS      932
          STD    T3          ADDRESS TO ASSEMBLE NAME                    R152_OS      933
 ASN1     RJM    GAC         GET ALPHABETIC CHARACTER                    R152_OS      934
          MJN    ASNX        IF NOT ALPHABETIC                           R152_OS      935
          SHN    6                                                       R152_OS      936
          STI    T3          STORE IN BUFFER                             R152_OS      937
          RJM    GAC         GET ALPHABETIC CHARACTER                    R152_OS      938
          MJN    ASNX        IF NOT ALPHABETIC                           R152_OS      939
          RAI    T3                                                      R152_OS      940
          AOD    T3          INCREMENT BUFFER POINTER                    R152_OS      941
 ASN2     RJM    GAC                                                     R152_OS      942
          MJN    ASNX                                                    R152_OS      943
          UJN    ASN2                                                    R152_OS      944
                                                                         R152_OS      945
 ASNA     BSS    1                                                       R152_OS      946
 CFI      SPACE  4,10                                                    R152_OS      947
**        CFI - CHECK FOR INCREMENT.                                     R152_OS      948
*                                                                        R152_OS      949
*         ENTRY  (NC) = NEXT CHARACTER.                                  R152_OS      950
*                                                                        R152_OS      951
*         EXIT   (A) = 0, IF INCREMENT COMMAND                           R152_OS      952
*                (VAL3 - VAL3+1) = INCREMENT VALUE.                      R152_OS      953
*                                                                        R152_OS      954
*         CALLS  DNV.                                                    R152_OS      955
                                                                         R152_OS      956
                                                                         R152_OS      957
 CFI      SUBR               ENTRY/EXIT                                  R152_OS      958
          LDN    0           PRESET INCREMENT                            R152_OS      959
          STM    VAL3                                                    R152_OS      960
          STM    VAL3+1                                                  R152_OS      961
          LDI    NC          CHECK NEXT CHARACTER                        R152_OS      962
          SBN    1R++40                                                  R152_OS      963
          STD    RN                                                      R152_OS      964
          ZJN    CFI1        IF PLUS                                     R152_OS      965
          SBN    1R--1R+                                                 R152_OS      966
          NJN    CFIX        IF NOT MINUS                                R152_OS      967
 CFI1     AOD    NC          ADVANCE CHARACTER COUNT                     R152_OS      968
          LDM    VAL4        PREVIOUS DECODE TYPE                        R152_OS      969
          LPN    7                                                       R152_OS      970
          SHN    14                                                      R152_OS      971
          LMN    2                                                       R152_OS      972
          RJM    DNV         DECODE UP TO 24 BITS                        R152_OS      973
          ZJN    CFI1.5      IF NO VALUE SPECIFIED                       R152_OS      974
          LDM    VAL4                                                    R152_OS      975
          LPN    40                                                      R152_OS      976
          ZJN    CFI2        IF WORD ADDRESS                             R152_OS      977
          LDM    ABUF-1                                                  R152_OS      978
          SHN    21-2                                                    R152_OS      979
          STM    ABUF-1                                                  R152_OS      980
          SHN    2-21                                                    R152_OS      981
          SHN    14                                                      R152_OS      982
          LMM    ABUF                                                    R152_OS      983
          SHN    -3                                                      R152_OS      984
          STM    ABUF                                                    R152_OS      985
          UJN    CFI2                                                    R152_OS      986
                                                                         R152_OS      987
 CFI1.5   LDM    VAL2        USE DISPLAY COUNT                           R152_OS      988
          STM    ABUF                                                    R152_OS      989
 CFI2     LDD    RN          INCREMENT/DECREMENT FLAG                    R152_OS      990
          ZJN    CFI3        IF INCREMENT                                R152_OS      991
          LCN    0                                                       R152_OS      992
          LMM    ABUF-1      COMPLEMENT UPPER PART                       R152_OS      993
          STD    T1                                                      R152_OS      994
          LDC    7777                                                    R152_OS      995
          LMM    ABUF                                                    R152_OS      996
          ADN    1           FORM TWOS COMPLEMENT                        R152_OS      997
          STM    ABUF                                                    R152_OS      998
          SHN    -14                                                     R152_OS      999
          ADD    T1                                                      R152_OS     1000
          STM    ABUF-1                                                  R152_OS     1001
 CFI3     LDM    ABUF        SET INCREMENT VALUE                         R152_OS     1002
          STM    VAL3+1                                                  R152_OS     1003
          LDM    ABUF-1                                                  R152_OS     1004
          STM    VAL3                                                    R152_OS     1005
          LDN    0                                                       R152_OS     1006
          LJM    CFIX        RETURN                                      R152_OS     1007
 CLS      SPACE  4,10                                                    R152_OS     1008
**        CLS - CLEAR SCREEN OF CRT.                                     R152_OS     1009
*                                                                        R152_OS     1010
*         EXIT   SCREEN CLEARED AND READY FOR DISPLAY.                   R152_OS     1011
*                                                                        R152_OS     1012
*         USES   T1.                                                     R152_OS     1013
*                                                                        R152_OS     1014
*         CALLS  OUT.                                                    R152_OS     1015
                                                                         R152_OS     1016
                                                                         R152_OS     1017
 CLS      SUBR               ENTRY/EXIT                                  R152_OS     1018
          LDN    30B                                                     R152_OS     1019
          RJM    OUT         CLEAR SCREEN                                R152_OS     1020
          LDN    FF                                                      R152_OS     1021
          RJM    OUT                                                     R152_OS     1022
          LDC    200D                                                    R152_OS     1023
          STD    T0                                                      R152_OS     1024
          RJM    CTE                                                     R152_OS     1025
          PJN    *-2                                                     R152_OS     1026
          UJN    CLSX        RETURN                                      R152_OS     1027
 DAT      SPACE  4,10                                                    R152_OS     1028
**        DAT - DISPLAY ASCII TEXT.                                      R152_OS     1029
*                                                                        R152_OS     1030
*         ENTRY  (NBUF - NBUF+3) = CHARACTERS.                           R152_OS     1031
*                                                                        R152_OS     1032
*         USES   T2.                                                     R152_OS     1033
*                                                                        R152_OS     1034
*         CALLS  PAC.                                                    R152_OS     1035
                                                                         R152_OS     1036
                                                                         R152_OS     1037
 DAT      SUBR               ENTRY/EXIT                                  R152_OS     1038
          LDN    0                                                       R152_OS     1039
          STD    T2                                                      R152_OS     1040
 DAT1     LDML   NBUF,T2                                                 R152_OS     1041
          SHN    -8D                                                     R152_OS     1042
          RJM    PAC         PRINT UPPER CHARACTER                       R152_OS     1043
          LDM    NBUF,T2                                                 R152_OS     1044
          RJM    PAC         PRINT LOWER CHARACTER                       R152_OS     1045
          AOD    T2                                                      R152_OS     1046
          LMN    4                                                       R152_OS     1047
          NJN    DAT1        IF MORE TO DISPLAY                          R152_OS     1048
          UJN    DATX        RETURN                                      R152_OS     1049
 DDT      SPACE  4,10                                                    R152_OS     1050
**        DDT - DISPLAY DISPLAY-CODE TEXT.                               R152_OS     1051
*                                                                        R152_OS     1052
*         ENTRY  (NBUF - NBUF+4) = DISPLAY CODE TEXT.                    R152_OS     1053
*                                                                        R152_OS     1054
*         USES   T2.                                                     R152_OS     1055
*                                                                        R152_OS     1056
*         CALLS  PDC.                                                    R152_OS     1057
                                                                         R152_OS     1058
                                                                         R152_OS     1059
 DDT      SUBR               ENTRY/EXIT                                  R152_OS     1060
          LDN    1R +40                                                  R152_OS     1061
          RJM    OUT                                                     R152_OS     1062
          LDN    0                                                       R152_OS     1063
          STD    T2                                                      R152_OS     1064
 DDT1     LDM    NBUF,T2                                                 R152_OS     1065
          SHN    -6                                                      R152_OS     1066
          RJM    PDC         PRINT UPPER CHARACTER                       R152_OS     1067
          LDM    NBUF,T2                                                 R152_OS     1068
          LPN    77                                                      R152_OS     1069
          RJM    PDC         PRINT LOWER CHARACTER                       R152_OS     1070
          AOD    T2                                                      R152_OS     1071
          LMN    5                                                       R152_OS     1072
          NJN    DDT1        IF MORE TO DISPLAY                          R152_OS     1073
          UJN    DDTX        RETURN                                      R152_OS     1074
 DMB      SPACE  4,10                                                    R152_OS     1075
**        DMB - DISPLAY MEMORY BLOCK IN DESIRED FORM.                    R152_OS     1076
*                                                                        R152_OS     1077
*         ENTRY  (A) = MEMORY DISPLAY FORMAT.                            R152_OS     1078
*                      0 = HEX BYTE/ASCII.                               R152_OS     1079
*                      1 = HEX WORD/ASCII.                               R152_OS     1080
*                      2 = OCTAL/DISPLAY.                                R152_OS     1081
*                (VAL1 - VAL1+1) = STARTING ADDRESS.                     R152_OS     1082
*                (VAL2) = WORD COUNT.                                    R152_OS     1083
*                                                                        R152_OS     1084
*         USES   PP, T1.                                                 R152_OS     1085
*                                                                        R152_OS     1086
*         CALLS  DAT, DDT, EOL, LCA, PRN, SMP.                           R152_OS     1087
                                                                         R152_OS     1088
                                                                         R152_OS     1089
 DMB      SUBR               ENTRY/EXIT                                  R152_OS     1090
          STD    T1                                                      R152_OS     1091
          LDM    DMBB,T1     SET ROUTINE ADDRESS                         R152_OS     1092
          STM    DMBA                                                    R152_OS     1093
          RJM    SMP         SET MEMORY PARAMETERS                       R152_OS     1094
 DMB1     SOD    PP                                                      R152_OS     1095
          MJN    DMBX        IF MEMORY DISPLAYED                         R152_OS     1096
          LDD    CM          SET ADDRESS                                 R152_OS     1097
          STM    NBUF                                                    R152_OS     1098
          LDD    CM+1                                                    R152_OS     1099
          STM    NBUF+1                                                  R152_OS     1100
          LJM    DMB2        PROCESS MEMORY WORD                         R152_OS     1101
 DMBA     EQU    *-1                                                     R152_OS     1102
                                                                         R152_OS     1103
 DMBB     BSS    0                                                       R152_OS     1104
          LOC    0                                                       R152_OS     1105
          CON    DMB2        HEX BYTE/ASCII                              R152_OS     1106
          CON    DMB3        HEX WORD/ASCII                              R152_OS     1107
          CON    DMB5        OCTAL/DISPLAY                               R152_OS     1108
          LOC    *O                                                      R152_OS     1109
                                                                         R152_OS     1110
 DMB2     LDD    CM+1        CHANGE TO BYTE ADDRESS                      R152_OS     1111
          SHN    3                                                       R152_OS     1112
          STM    NBUF+1                                                  R152_OS     1113
          LPC    170000                                                  R152_OS     1114
          SHN    3                                                       R152_OS     1115
          LMD    CM                                                      R152_OS     1116
          SHN    3                                                       R152_OS     1117
          STM    NBUF                                                    R152_OS     1118
          LDN    HBDT/10000                                              R152_OS     1119
          UJN    DMB4        PROCESS LIKE HEX WORD DISPLAY               R152_OS     1120
                                                                         R152_OS     1121
 DMB3     LDN    HMDT/10000                                              R152_OS     1122
 DMB4     ADC    2000                                                    R152_OS     1123
          STM    DMBC        SET DISPLAY TYPE                            R152_OS     1124
          LDC    HPDT+6                                                  R152_OS     1125
          RJM    PRN         DISPLAY ADDRESS                             R152_OS     1126
          RJM    LCA         LOAD ADDRESS                                R152_OS     1127
          CRML   NBUF,ON     READ MEMORY WORD                            R152_OS     1128
 DMBC     LDC    HMDT+16D    HEX WORD MEMORY DUMP                        R152_OS     1129
*         LDC    HBDT+16D    HEX BYTE MEMORY DUMP                        R152_OS     1130
          RJM    PRN         DISPLAY CONTENTS OF ADDRESS                 R152_OS     1131
          RJM    DAT         DISPLAY ASCII TEXT                          R152_OS     1132
          UJN    DMB6        COMPLETE LINE AND INCREMENT ADDRESS         R152_OS     1133
                                                                         R152_OS     1134
 DMB5     LDC    OMDT+10                                                 R152_OS     1135
          RJM    PRN         DISPLAY ADDRESS IN OCTAL                    R152_OS     1136
          RJM    LCA         LOAD ADDRESS                                R152_OS     1137
          CRM    NBUF,ON                                                 R152_OS     1138
          LDC    OMDT+20D                                                R152_OS     1139
          RJM    PRN         DISPLAY CONTENTS OF ADDRESS                 R152_OS     1140
          RJM    DDT         DISPLAY TEXT                                R152_OS     1141
 DMB6     RJM    EOL         END LINE                                    R152_OS     1142
          AOD    CM+1                                                    R152_OS     1143
          SHN    -14                                                     R152_OS     1144
          RAD    CM                                                      R152_OS     1145
          LJM    DMB1        CHECK FOR MORE TOO DISPLAY                  R152_OS     1146
 DMR      SPACE  4,10                                                    R152_OS     1147
**        DMR - DUMP MAINTENANCE REGISTER.                               R152_OS     1148
*                                                                        R152_OS     1149
*         ENTRY  (A) - LIST OF REGISTERS TO DISPLAY.                     R152_OS     1150
*                (PC) - PORT CODE OF REGISTERS TO DISPLAY.               R152_OS     1151
*                                                                        R152_OS     1152
*         EXIT   REGISTERS DISPLAYED.                                    R152_OS     1153
*                                                                        R152_OS     1154
*         USES   T5.                                                     R152_OS     1155
*                                                                        R152_OS     1156
*         CALLS  EOL, PRN, RMR, WTC.                                     R152_OS     1157
                                                                         R152_OS     1158
                                                                         R152_OS     1159
 DMR      SUBR               ENTRY/EXIT                                  R152_OS     1160
          STD    T5                                                      R152_OS     1161
          RJM    SMO         SETUP MAINTENANCE REGISTER OPERATION        R152_OS     1162
 DMR1     LDI    T5                                                      R152_OS     1163
          STM    NBUF        SAVE REGISTER NUMBER                        R152_OS     1164
          ADC    -400                                                    R152_OS     1165
          PJN    DMRX        IF END OF LIST                              R152_OS     1166
          LDN    MRDT+2                                                  R152_OS     1167
          RJM    PRN         PRINT 2 HEX DIGIT REGISTER NUMBER           R152_OS     1168
          LDM    NBUF                                                    R152_OS     1169
          RJM    RMR                                                     R152_OS     1170
          LDN    MRDT+20                                                 R152_OS     1171
          RJM    PRN         DISPLAY 20 DIGIT REGISTER                   R152_OS     1172
          AOD    T5                                                      R152_OS     1173
          LDI    T5                                                      R152_OS     1174
          RJM    WTC                                                     R152_OS     1175
          RJM    EOL                                                     R152_OS     1176
          AOD    T5                                                      R152_OS     1177
          LJM    DMR1                                                    R152_OS     1178
 DPS      SPACE  4,10                                                    R152_OS     1179
**        DPS - DEFINE PAGE SIZE.                                        R152_OS     1180
*                                                                        R152_OS     1181
*         ENTRY  (PSMV) = CONTENTS OF PAGE SIZE MASK REGISTER.           R152_OS     1182
*                                                                        R152_OS     1183
*         EXIT   (PSMV) = PAGE SIZE MASK.                                R152_OS     1184
*                (SPTA) = SHIFT INSTRUCTION TO EXTRACT PAGE NUMBER.      R152_OS     1185
                                                                         R152_OS     1186
                                                                         R152_OS     1187
 DPS      SUBR               ENTRY/EXIT                                  R152_OS     1188
          LDC    SHNI+100                                                R152_OS     1189
          STM    SPTA        SET SHIFT INTO PAGE TABLE SEARCH            R152_OS     1190
          LDM    PSMV                                                    R152_OS     1191
          LMC    0#7F                                                    R152_OS     1192
          STD    T2                                                      R152_OS     1193
          STM    PSMV        SET PAGE SIZE MASK                          R152_OS     1194
 DPS1     SOM    SPTA        ADD TO SHIFT COUNT                          R152_OS     1195
          LDD    T2                                                      R152_OS     1196
          SHN    21-0        REMOVE LOWEST BIT                           R152_OS     1197
          STD    T2                                                      R152_OS     1198
          NJN    DPS1        IF MORE BITS PRESENT                        R152_OS     1199
          UJN    DPSX        RETURN                                      R152_OS     1200
 LBA      SPACE  4,10                                                    R152_OS     1201
**        LBA - LOAD BYTE ADDRESS.                                       R152_OS     1202
*                                                                        R152_OS     1203
*         ENTRY  (A) = POINTER TO BYTE ADDRESS.                          R152_OS     1204
*                                                                        R152_OS     1205
*         EXIT   (W4 - W5) = R-REGISTER VALUE.                           R152_OS     1206
*                (A) = CM ADDRESS.                                       R152_OS     1207
*                (W6) = OFFSET FROM R-REGISTER.                          R152_OS     1208
                                                                         R152_OS     1209
                                                                         R152_OS     1210
 LBA      SUBR               ENTRY/EXIT                                  R152_OS     1211
          STD    W6                                                      R152_OS     1212
          LDI    W6                                                      R152_OS     1213
          SHN    7                                                       R152_OS     1214
          STD    W5          SET UPPER PART OF R-REGISTER                R152_OS     1215
          SHN    6                                                       R152_OS     1216
          STD    W4          R-REGISTER BITS 12-18                       R152_OS     1217
          LRD    W4                                                      R152_OS     1218
          LDML   1,W6                                                    R152_OS     1219
          SHN    -3                                                      R152_OS     1220
          STDL   W6          SET OFFSET                                  R152_OS     1221
          LMC    RR                                                      R152_OS     1222
          UJN    LBAX        RETURN                                      R152_OS     1223
 PVC      SPACE  4,10                                                    R152_OS     1224
**        PVC - PRESET VIRTUAL ADDRESS CONSTANTS.                        R152_OS     1225
*                                                                        R152_OS     1226
*         ENTRY  NONE.                                                   R152_OS     1227
*                                                                        R152_OS     1228
*         EXIT   (PTAV - PTAV+1) = PAGE TABLE ADDRESS.                   R152_OS     1229
*                (JPSV - JPSV+1) = JPS VALUE.                            R152_OS     1230
*                (MPSV - MPSV+1) = MPS VALUE.                            R152_OS     1231
*                (PSMV) = PAGE SIZE MASK.                                R152_OS     1232
*                (PTLV) = PAGE TABLE LENGTH MASK.                        R152_OS     1233
*                                                                        R152_OS     1234
*         CALLS  DPS.                                                    R152_OS     1235
*                                                                        R152_OS     1236
*         MACROS READMR.                                                 R152_OS     1237
                                                                         R152_OS     1238
                                                                         R152_OS     1239
 PVC      SUBR               ENTRY/EXIT                                  R152_OS     1240
          LDN    PVCAL                                                   R152_OS     1241
          STD    T5                                                      R152_OS     1242
 PVC1     LDM    PVCA+1,T5                                               R152_OS     1243
          STD    T4          SET DATA ADDRESS                            R152_OS     1244
          LDM    PVCA,T5     GET REGISTER NUMBER                         R152_OS     1245
          STD    RN                                                      R152_OS     1246
          READMR RDATA,ELPR                                              R152_OS     1247
          LDM    RDATA+4     FORM 32 BIT VALUE                           R152_OS     1248
          SHN    10                                                      R152_OS     1249
          LMM    RDATA+5                                                 R152_OS     1250
          STIL   T4                                                      R152_OS     1251
          LDM    RDATA+6                                                 R152_OS     1252
          SHN    10                                                      R152_OS     1253
          LMM    RDATA+7                                                 R152_OS     1254
          STML   1,T4                                                    R152_OS     1255
          LCN    2                                                       R152_OS     1256
          RAD    T5                                                      R152_OS     1257
          PJN    PVC1        IF MORE REGISTERS TO READ                   R152_OS     1258
          RJM    DPS         DEFINE PAGE SIZE                            R152_OS     1259
          LJM    PVCX        RETURN                                      R152_OS     1260
                                                                         R152_OS     1261
 PVCA     BSS    0           TABLE OF REGISTERS                          R152_OS     1262
          LOC    0                                                       R152_OS     1263
          CON    PPTA,PTAV                                               R152_OS     1264
          CON    PJPS,JPSV                                               R152_OS     1265
          CON    PMPS,MPSV                                               R152_OS     1266
          CON    PPSM,PSMV-1                                             R152_OS     1267
 PVCAL    CON    PPTL,PTLV-1                                             R152_OS     1268
          LOC    *O                                                      R152_OS     1269
                                                                         R152_OS     1270
 PTAV     CON    0,0         PAGE TABLE ADDRESS                          R152_OS     1271
 JPSV     CON    0,0         JOB PROCESS STATE POINTER                   R152_OS     1272
 PSMV     CON    0           PAGE SIZE MASK                              R152_OS     1273
 PTLV     CON    0           PAGE TABLE LENGTH VALUE                     R152_OS     1274
 MSA      SPACE  4,10                                                    R152_OS     1275
**        MSA - MAKE SYSTEM VIRTUAL ADDRESS.                             R152_OS     1276
*                                                                        R152_OS     1277
*         ENTRY  (A) - ADDRESS OF EXCHANGE PACKAGE ADDRESS.              R152_OS     1278
*                (BA - BA+2) = PROCESS VIRTUAL ADDRESS.                  R152_OS     1279
*                                                                        R152_OS     1280
*         EXIT   (CM - CM+2) = SYSTEM VIRTUAL ADDRESS.                   R152_OS     1281
*                                                                        R152_OS     1282
*         CALLS  LBA.                                                    R152_OS     1283
                                                                         R152_OS     1284
                                                                         R152_OS     1285
 MSA1     LDN    0           FLAG INVALID/MISSING SEGMENT                R152_OS     1286
                                                                         R152_OS     1287
 MSA      SUBR               ENTRY/EXIT                                  R152_OS     1288
          RJM    LBA         LOAD BYTE ADDRESS                           R152_OS     1289
          ADN    16D         SEGMENT TABLE LENGTH                        R152_OS     1290
          CRDL   T1                                                      R152_OS     1291
          ADN    34D-16D     SEGMENT TABLE ADDRESS                       R152_OS     1292
          CRDL   T2                                                      R152_OS     1293
          ADN    1                                                       R152_OS     1294
          CRDL   T3                                                      R152_OS     1295
          LDDL   T1                                                      R152_OS     1296
          SBD    BA                                                      R152_OS     1297
          MJN    MSA1        IF NOT A VALID SEGMENT                      R152_OS     1298
          LDN    T2                                                      R152_OS     1299
          RJM    LBA         LOAD ADDRESS OF SEGMENT TABLE               R152_OS     1300
          ADD    BA                                                      R152_OS     1301
          CRDL   W0          FETCH ASID                                  R152_OS     1302
          LDDL   W1                                                      R152_OS     1303
          ZJN    MSA1        IF NOT A VALID ASID                         R152_OS     1304
          STDL   CM                                                      R152_OS     1305
          LDDL   BA+1        COPY REMAINDER OF PVA                       R152_OS     1306
          STDL   CM+1                                                    R152_OS     1307
          LDDL   BA+2                                                    R152_OS     1308
          STDL   CM+2                                                    R152_OS     1309
          LDN    1                                                       R152_OS     1310
          UJN    MSAX        RETURN                                      R152_OS     1311
 SPT      SPACE  4,10                                                    R152_OS     1312
**        SPT - SEARCH PAGE TABLE.                                       R152_OS     1313
*                                                                        R152_OS     1314
*         ENTRY  (CM - CM+2) = SYSTEM VIRTUAL ADDRESS.                   R152_OS     1315
*                                                                        R152_OS     1316
*         EXIT   (A) = ADDRESS OF WORD.                                  R152_OS     1317
*                                                                        R152_OS     1318
*         CALLS  LBA.                                                    R152_OS     1319
                                                                         R152_OS     1320
                                                                         R152_OS     1321
 SPT      SUBR               ENTRY/EXIT                                  R152_OS     1322
          LDDL   CM+1                                                    R152_OS     1323
          SHN    20-11                                                   R152_OS     1324
          SCN    77          EXTRACT PAGE NUMBER                         R152_OS     1325
          STDL   T3                                                      R152_OS     1326
          LDDL   CM+2                                                    R152_OS     1327
          SHN    -11                                                     R152_OS     1328
          RADL   T3                                                      R152_OS     1329
 SPTA     SHN    -0                                                      R152_OS     1330
          LMDL   CM          EXCLUSIVE OR WITH ASID                      R152_OS     1331
          SHN    1                                                       R152_OS     1332
          STDL   T2          PAGE TABLE INDEX                            R152_OS     1333
          LDDL   T3                                                      R152_OS     1334
          LPML   PSMV                                                    R152_OS     1335
          STD    T5          BYTE NUMBER/2**9                            R152_OS     1336
          LDDL   T3                                                      R152_OS     1337
          SBD    T5          PAGE NUMBER                                 R152_OS     1338
          STDL   T4                                                      R152_OS     1339
          LDC    PTAV                                                    R152_OS     1340
          RJM    LBA         SET ADDRESS OF PAGE TABLE                   R152_OS     1341
          LDM    PTLV                                                    R152_OS     1342
          SHN    11                                                      R152_OS     1343
          LMC    777                                                     R152_OS     1344
          STDL   T3          SET PAGE TABLE LENGTH MASK                  R152_OS     1345
          LDN    32D                                                     R152_OS     1346
          STD    T1          SET SEARCH LIMIT                            R152_OS     1347
 SPT1     LDDL   T2          PAGE TABLE INDEX                            R152_OS     1348
          LPDL   T3          PAGE TABLE LENGTH MASK                      R152_OS     1349
          ADDL   W6          PAGE TABLE OFFSET FROM R                    R152_OS     1350
          LMC    RR                                                      R152_OS     1351
          CRDL   W0          PAGE TABLE ENTRY                            R152_OS     1352
          LDDL   W0                                                      R152_OS     1353
          SHN    21-17                                                   R152_OS     1354
          PJN    SPT2        IF INVALID PAGE                             R152_OS     1355
          SHN    2                                                       R152_OS     1356
          SCN    0#F                                                     R152_OS     1357
          STDL   W0          EXTRACT ASID                                R152_OS     1358
          LDDL   W1                                                      R152_OS     1359
          SHN    4-20                                                    R152_OS     1360
          RADL   W0          COMPLETE ASID                               R152_OS     1361
          LMDL   CM                                                      R152_OS     1362
          NJN    SPT2        IF NOT CORRECT ASID                         R152_OS     1363
          LDDL   W1          EXTRACT PAGE NUMBER                         R152_OS     1364
          LPN    77                                                      R152_OS     1365
          SHN    20-6                                                    R152_OS     1366
          STDL   W1                                                      R152_OS     1367
          LDDL   W2                                                      R152_OS     1368
          SHN    -6                                                      R152_OS     1369
          RADL   W1                                                      R152_OS     1370
          LMDL   T4                                                      R152_OS     1371
          ZJN    SPT3        IF PAGE FOUND                               R152_OS     1372
 SPT2     AODL   T2          INCREMENT PAGE TABLE INDEX                  R152_OS     1373
          SOD    T1          DECREMENT SEARCH COUNT                      R152_OS     1374
          NJN    SPT1        IF MORE TO SEARCH                           R152_OS     1375
          LJM    SPTX        RETURN                                      R152_OS     1376
                                                                         R152_OS     1377
 SPT3     LDDL   W3          CREATE RMA                                  R152_OS     1378
          STD    T2                                                      R152_OS     1379
          SHN    -14                                                     R152_OS     1380
          STD    T1                                                      R152_OS     1381
          LDD    CM+2                                                    R152_OS     1382
          LPC    770                                                     R152_OS     1383
          SHN    11                                                      R152_OS     1384
          LMD    T5          INCLUDE UPPER BITS OF BYTE NUMBER           R152_OS     1385
          SHN    6                                                       R152_OS     1386
          LMC    RR                                                      R152_OS     1387
          LRD    T1                                                      R152_OS     1388
          LJM    SPTX        RETURN                                      R152_OS     1389
          SPACE  4,10                                                    R152_OS     1390
 DNV      SPACE  4,10                                                    R152_OS     1391
**        DNV - DECODE NUMERIC VALUE.                                    R152_OS     1392
*                                                                        R152_OS     1393
*         ENTRY  (A) - NUMBER LENGTH + 10000*NUMBER TYPE.                R152_OS     1394
*                (NC) - NEXT CHARACTER IN LINE.                          R152_OS     1395
*                                                                        R152_OS     1396
*         EXIT   NUMBER IN ABUF.                                         R152_OS     1397
*                                                                        R152_OS     1398
*         USES   T2, T3, T4, T5, FC.                                     R152_OS     1399
*                                                                        R152_OS     1400
*         CALLS  CLB, SKP, TND.                                          R152_OS     1401
*                                                                        R152_OS     1402
*         MACROS PRINT.                                                  R152_OS     1403
                                                                         R152_OS     1404
                                                                         R152_OS     1405
 DNV      SUBR               ENTRY/EXIT                                  R152_OS     1406
          STD    T5          SAVE NUMBER LENGTH (MAX)                    R152_OS     1407
          SHN    -14                                                     R152_OS     1408
          LPN    7                                                       R152_OS     1409
          STD    T2          SET DECODE TYPE                             R152_OS     1410
          LDM    DNVC,T2     SET DIGIT MASK                              R152_OS     1411
          STM    DNVA                                                    R152_OS     1412
          LDM    DNVD,T2     SET UNPACKING ROUTINE                       R152_OS     1413
          STM    DNVB                                                    R152_OS     1414
          RJM    CLB         CLEAR BUFFER                                R152_OS     1415
          RJM    SKP         SKIP DELIMITERS                             R152_OS     1416
          ZJN    DNVX        IF END OF LINE                              R152_OS     1417
          LDD    NC                                                      R152_OS     1418
          STD    FC                                                      R152_OS     1419
 DNV1     RJM    TND         TRANSLATE NUMERIC DIGIT                     R152_OS     1420
          MJN    DNV3        IF NOT NUMBER                               R152_OS     1421
          STI    NC          SAVE DIGIT RETURNED                         R152_OS     1422
 DNVA     SCN    7           CHECK IF OUT OF RANGE                       R152_OS     1423
          NJN    DNV2        IF NUMBER TOO LARGE                         R152_OS     1424
          AOD    NC          ADVANCE CHARACTER POSITION                  R152_OS     1425
          UJN    DNV1        PROCESS NEXT CHARACTER                      R152_OS     1426
                                                                         R152_OS     1427
 DNV2     LJM    CMDE        RETURN ERROR                                R152_OS     1428
                                                                         R152_OS     1429
 DNV3     LDD    NC                                                      R152_OS     1430
          SBN    1                                                       R152_OS     1431
          STD    T4                                                      R152_OS     1432
          LDC    ABUF                                                    R152_OS     1433
          STD    T3                                                      R152_OS     1434
          SBD    T5                                                      R152_OS     1435
          STD    T5                                                      R152_OS     1436
          LDN    0                                                       R152_OS     1437
          STD    T2                                                      R152_OS     1438
 DNV4     LDI    T4          GET NEXT DIGIT                              R152_OS     1439
          LJM    **,T2                                                   R152_OS     1440
 DNVB     EQU    *-1                                                     R152_OS     1441
                                                                         R152_OS     1442
 DNV5     STD    T2          SAVE BYTE POSITION                          R152_OS     1443
          NJN    DNV6        IF CURRENT WORD NOT COMPLETED               R152_OS     1444
          SOD    T3          DECREMENT BUFFER POSITION                   R152_OS     1445
          SBD    T5                                                      R152_OS     1446
          MJN    DNV2        IF NUMBER TOO LARGE                         R152_OS     1447
 DNV6     SOD    T4                                                      R152_OS     1448
          SBD    FC                                                      R152_OS     1449
          PJN    DNV4        IF MORE DIGITS TO ASSEMBLE                  R152_OS     1450
          LDIL   T5                                                      R152_OS     1451
          NJN    DNV2        IF NUMBER OVERFLOW                          R152_OS     1452
          LDN    1                                                       R152_OS     1453
          LJM    DNVX        RETURN                                      R152_OS     1454
                                                                         R152_OS     1455
**        MRNT - MAINTENANCE REGISTER NUMBER TYPE.                       R152_OS     1456
                                                                         R152_OS     1457
 DNV7     SHN    22-4                                                    R152_OS     1458
          SHN    4                                                       R152_OS     1459
          RAI    T3                                                      R152_OS     1460
          AOD    T2                                                      R152_OS     1461
          LPN    1                                                       R152_OS     1462
          LJM    DNV5                                                    R152_OS     1463
                                                                         R152_OS     1464
**        OWNT - OCTAL WORD NUMBER TYPE.                                 R152_OS     1465
                                                                         R152_OS     1466
 DNV8     SHN    22-3                                                    R152_OS     1467
          SHN    22-3                                                    R152_OS     1468
          SHN    22-3                                                    R152_OS     1469
          SHN    11                                                      R152_OS     1470
          RAI    T3                                                      R152_OS     1471
 DNV9     AOD    T2                                                      R152_OS     1472
          LPN    3                                                       R152_OS     1473
          LJM    DNV5        CONTINUE                                    R152_OS     1474
                                                                         R152_OS     1475
**        HWNT - HEX WORD NUMBER TYPE.                                   R152_OS     1476
                                                                         R152_OS     1477
 DNV10    SHN    22-4                                                    R152_OS     1478
          SHN    22-4                                                    R152_OS     1479
          SHN    22-4                                                    R152_OS     1480
          SHN    14                                                      R152_OS     1481
          RAIL   T3                                                      R152_OS     1482
          UJN    DNV9        CONTINUE                                    R152_OS     1483
                                                                         R152_OS     1484
*         HEX PP WORD NUMBER TYPE.                                       R152_OS     1485
                                                                         R152_OS     1486
 DNV11    SHN    22-4                                                    R152_OS     1487
          SHN    22-4                                                    R152_OS     1488
          SHN    10                                                      R152_OS     1489
          RAI    T3                                                      R152_OS     1490
          AOD    T2                                                      R152_OS     1491
          SBN    3                                                       R152_OS     1492
          ZJN    DNV9        IF START NEXT WORD                          R152_OS     1493
          LJM    DNV6        CONTINUE                                    R152_OS     1494
                                                                         R152_OS     1495
                                                                         R152_OS     1496
 TBLI     SET    0                                                       R152_OS     1497
                                                                         R152_OS     1498
 MRNT     INDEX  DNV7,SCNI+17  MAINTENANCE REGISTER NUMBER TYPE          R152_OS     1499
 OWNT     INDEX  DNV8,SCNI+7   OCTAL WORD NUMBER TYPE                    R152_OS     1500
 HWNT     INDEX  DNV10,SCNI+17 HEX WORD NUMBER TYPE                      R152_OS     1501
 HPNT     INDEX  DNV11,SCNI+17 HEX PP WORD NUMBER TYPE                   R152_OS     1502
                                                                         R152_OS     1503
 DNVC     BSS    0           TABLE OF *SCN*-S                            R152_OS     1504
 TBLB     HERE                                                           R152_OS     1505
                                                                         R152_OS     1506
                                                                         R152_OS     1507
 DNVD     BSS    0           TABLE OF PROCESSOR ADDRESSES                R152_OS     1508
 TBLA     HERE                                                           R152_OS     1509
                                                                         R152_OS     1510
 OCWD     EQU    OWNT                                                    R152_OS     1511
 HXWD     EQU    HPNT                                                    R152_OS     1512
 HXBT     EQU    HPNT+400000                                             R152_OS     1513
 GAC      SPACE  4,10                                                    R152_OS     1514
**        GAC - GET ALPHABETIC CHARACTER.                                R152_OS     1515
*                                                                        R152_OS     1516
*         ENTRY  (NC) = ADDRESS OF THE NEXT CHARACTER.                   R152_OS     1517
*                                                                        R152_OS     1518
*         EXIT   (A) = CHARACTER (IF ALPHABETIC).                        R152_OS     1519
*                (A) = -1 (IF NOT).                                      R152_OS     1520
*                (NC) = INCREMENTED IF ALPHABETIC CHARACTER.             R152_OS     1521
*                                                                        R152_OS     1522
*         CALLS  CLC.                                                    R152_OS     1523
                                                                         R152_OS     1524
                                                                         R152_OS     1525
 GAC1     LCN    1           NOT ALPHABETIC CHARACTER                    R152_OS     1526
                                                                         R152_OS     1527
 GAC      SUBR               ENTRY/EXIT                                  R152_OS     1528
          RJM    CLC         CLASSIFY NEXT CHARACTER                     R152_OS     1529
          SBN    ALSY                                                    R152_OS     1530
          NJN    GAC1        IF NOT ALPHABETIC CHARACTER                 R152_OS     1531
          AOD    NC                                                      R152_OS     1532
          LDD    CH          GET ALPHABETIC UPPER CASE CHARACTER         R152_OS     1533
          SBN    40                                                      R152_OS     1534
          UJN    GACX        RETURN                                      R152_OS     1535
 PPF      SPACE  4,10                                                    R152_OS     1536
**        PPF - FUNCTION MCH TO DO SOMETHING TO PP.                      R152_OS     1537
*                                                                        R152_OS     1538
*         ENTRY  (A) = FUNCTION FOR PP.                                  R152_OS     1539
*                                                                        R152_OS     1540
*         EXIT   PP IN IDLE/LOAD/DUMP MODE.                              R152_OS     1541
*                                                                        R152_OS     1542
*         CALLS  DNV.                                                    R152_OS     1543
*                                                                        R152_OS     1544
*         MACROS WRITMR.                                                 R152_OS     1545
                                                                         R152_OS     1546
                                                                         R152_OS     1547
 PPF      SUBR               ENTRY/EXIT                                  R152_OS     1548
          STM    PPFA+6                                                  R152_OS     1549
          SHN    -14                                                     R152_OS     1550
          NJN    PPF1        IF PP NUMBER NOT NEEDED                     R152_OS     1551
          LDD    PP                                                      R152_OS     1552
          LMN    40                                                      R152_OS     1553
          STM    PPFA+4                                                  R152_OS     1554
 PPF1     READMR MRBF,ELIO,DEMR  SAVE REGISTER                           R152_OS     1555
          WRITMR PPFA,ELIO                                               R152_OS     1556
          WRITMR MRBF,ELIO                                               R152_OS     1557
          LJM    PPFX        RETURN                                      R152_OS     1558
                                                                         R152_OS     1559
 PPFA     BSSZ   4                                                       R152_OS     1560
          CON    40          AUTO BIT                                    R152_OS     1561
          CON    0                                                       R152_OS     1562
          CON    34          LOAD/DUMP/IDLE                              R152_OS     1563
          CON    40          ENABLE LOAD/DUMP/IDLE                       R152_OS     1564
 PRN      SPACE  4,10                                                    R152_OS     1565
**        PRN - PRINT NUMBER.                                            R152_OS     1566
*                                                                        R152_OS     1567
*         ENTRY  (A) - NUMBER OF DIGITS TO PRINT.                        R152_OS     1568
*                (PRNA) - ROUTINE TO UNPACK DIGITS.                      R152_OS     1569
*                                                                        R152_OS     1570
*         EXIT   NUMBER WRITTEN TO DISPLAY.                              R152_OS     1571
*                                                                        R152_OS     1572
*         USES   CH, T2, T3, T4.                                         R152_OS     1573
*                                                                        R152_OS     1574
*         CALLS  OUT, WND.                                               R152_OS     1575
                                                                         R152_OS     1576
                                                                         R152_OS     1577
 PRN      SUBR               ENTRY/EXIT                                  R152_OS     1578
          STD    T4          SET NUMBER OF DIGITS TO OUTPUT              R152_OS     1579
          SHN    -14                                                     R152_OS     1580
          STD    T2                                                      R152_OS     1581
          LDM    PRNB,T2     GET UNPACKING ROUTINE                       R152_OS     1582
          STM    PRNA        SET JUMP ADDRESS                            R152_OS     1583
          LDN    0           SET STARTING DIGIT FOR UNPACK               R152_OS     1584
          STD    T2                                                      R152_OS     1585
          LDC    NBUF        SET BUFFER POSITION                         R152_OS     1586
          STD    T3                                                      R152_OS     1587
 PRN1     LDIL   T3          READ BUFFER VALUE                           R152_OS     1588
          LJM    PRN4,T2     UNPACK DIGITS                               R152_OS     1589
 PRNA     EQU    *-1                                                     R152_OS     1590
                                                                         R152_OS     1591
 PRN2     STD    T2          SET NEXT DIGIT POSITION                     R152_OS     1592
          NJN    PRN3        IF NO ADVANCE OF POINTER                    R152_OS     1593
          AOD    T3                                                      R152_OS     1594
 PRN3     LDD    CH          GET CHARACTER TO OUTPUT                     R152_OS     1595
          RJM    WND         OUTPUT TO CC545                             R152_OS     1596
          SOD    T4          DECREMENT CHARACTER COUNT                   R152_OS     1597
          NJN    PRN1        IF MORE DIGITS TO PRINT                     R152_OS     1598
          LDN    1R +40                                                  R152_OS     1599
          RJM    OUT                                                     R152_OS     1600
          UJN    PRNX        RETURN                                      R152_OS     1601
                                                                         R152_OS     1602
**        MAINTENANCE REGISTER DIGITS.                                   R152_OS     1603
                                                                         R152_OS     1604
 PRN4     SHN    -4          GET UPPER DIGIT                             R152_OS     1605
          STD    CH          SAVE VALUE                                  R152_OS     1606
          LDD    T2                                                      R152_OS     1607
          LMN    1                                                       R152_OS     1608
          UJN    PRN2        CONTINUE PRINT                              R152_OS     1609
                                                                         R152_OS     1610
**        OCTAL MEMORY DIGIT.                                            R152_OS     1611
                                                                         R152_OS     1612
 PRN5     SHN    -3          GET UPPER DIGIT                             R152_OS     1613
          SHN    -3          GET UPPER MIDDLE DIGIT                      R152_OS     1614
          SHN    -3          GET LOWER MIDDLE DIGIT                      R152_OS     1615
          LPN    7                                                       R152_OS     1616
 PRN6     STD    CH          SAVE VALUE                                  R152_OS     1617
          AOD    T2                                                      R152_OS     1618
          LPN    3                                                       R152_OS     1619
          LJM    PRN2        CONTINUE PRINT                              R152_OS     1620
                                                                         R152_OS     1621
**        HEX MEMORY DIGIT.                                              R152_OS     1622
                                                                         R152_OS     1623
 PRN7     SHN    -4          GET UPPER DIGIT                             R152_OS     1624
          SHN    -4          GET UPPER MIDDLE DIGIT                      R152_OS     1625
          SHN    -4          GET LOWER MIDDLE DIGIT                      R152_OS     1626
          UJN    PRN6        SAVE VALUE AND ADVANCE POSITION             R152_OS     1627
                                                                         R152_OS     1628
 PRN8     SHN    -4                                                      R152_OS     1629
          SHN    -4                                                      R152_OS     1630
          LPN    17                                                      R152_OS     1631
          STD    CH                                                      R152_OS     1632
          AOD    T2                                                      R152_OS     1633
          SBN    3                                                       R152_OS     1634
          ZJN    PRN10                                                   R152_OS     1635
 PRN9     LDD    T2                                                      R152_OS     1636
 PRN10    LJM    PRN2        CONTINUE PRINT                              R152_OS     1637
                                                                         R152_OS     1638
 PRN11    SHN    -4                                                      R152_OS     1639
          SHN    -4                                                      R152_OS     1640
          SHN    -4                                                      R152_OS     1641
          STD    CH                                                      R152_OS     1642
          AOD    T2                                                      R152_OS     1643
          LPN    3                                                       R152_OS     1644
          STD    T2                                                      R152_OS     1645
          LPN    1                                                       R152_OS     1646
          ZJN    PRN9        CONTINUE PRINT                              R152_OS     1647
          LDN    1R +40                                                  R152_OS     1648
          RJM    OUT                                                     R152_OS     1649
          UJN    PRN9        CONTINUE PRINT                              R152_OS     1650
                                                                         R152_OS     1651
                                                                         R152_OS     1652
 TBLI     SET    0                                                       R152_OS     1653
                                                                         R152_OS     1654
 MRDT     INDEX  PRN4        MAINTENANCE REGISTER DISPLAY TYPE           R152_OS     1655
 OMDT     INDEX  PRN5        OCTAL MEMORY DISPLAY TYPE                   R152_OS     1656
 HMDT     INDEX  PRN7        HEX MEMORY DISPLAY TYPE                     R152_OS     1657
 HPDT     INDEX  PRN8        HEX PP DISPLAY TYPE                         R152_OS     1658
 HBDT     INDEX  PRN11       HEX BYTE DISPLAY TYPE                       R152_OS     1659
                                                                         R152_OS     1660
 PRNB     BSS    0           INDEXED TABLE                               R152_OS     1661
 TBLA     HERE                                                           R152_OS     1662
 PRM      SPACE  4,10                                                    R152_OS     1663
**        PRM - DECODE PARAMETER LIST.                                   R152_OS     1664
*                                                                        R152_OS     1665
*         ENTRY  (T7) = POINTER TO COMMAND ENTRY.                        R152_OS     1666
*                KEYBOARD LINE IN *BUF*.                                 R152_OS     1667
*                                                                        R152_OS     1668
*         EXIT   (PARAMETER LIST DECODED.                                R152_OS     1669
*                                                                        R152_OS     1670
*        USES  T1-7, CM - CM+3, NC                                       R152_OS     1671
                                                                         R152_OS     1672
                                                                         R152_OS     1673
 PRM      SUBR               ENTRY/EXIT                                  R152_OS     1674
          LDM    2,T7                                                    R152_OS     1675
          ZJN    PRMX        IF NO PARAMETER SYNTAX                      R152_OS     1676
          STD    CM                                                      R152_OS     1677
          STD    CM+1                                                    R152_OS     1678
          LDM    3,T7                                                    R152_OS     1679
          STD    CM+3                                                    R152_OS     1680
          LDN    1                                                       R152_OS     1681
          STD    CM+2                                                    R152_OS     1682
 PRM0     LDD    CM+2        SET PARAMETER NUMBER                        R152_OS     1683
          SHN    14                                                      R152_OS     1684
          LMI    CM+1                                                    R152_OS     1685
          STIL   CM+1                                                    R152_OS     1686
          SHN    -13                                                     R152_OS     1687
          LPN    1                                                       R152_OS     1688
          ADN    2                                                       R152_OS     1689
          RAD    CM+1                                                    R152_OS     1690
          AOD    CM+2        INCREMENT PARAMETER NUMBER                  R152_OS     1691
          LDI    CM+1                                                    R152_OS     1692
          NJN    PRM0        ADVANCE THROUGH LIST                        R152_OS     1693
          STD    CM+2                                                    R152_OS     1694
          LDM    1,CM        PARAMETER NAME LIST                         R152_OS     1695
          STD    CM+1                                                    R152_OS     1696
          LJM    PRM11       ENTER LOOP                                  R152_OS     1697
                                                                         R152_OS     1698
 PRM1     RJM    SKP         CLASSIFY CHARACTER                          R152_OS     1699
          SBN    ALSY                                                    R152_OS     1700
          ZJN    PRM3        IF SYMBOL                                   R152_OS     1701
          ADN    ALSY-NBSY                                               R152_OS     1702
          ZJN    PRM2.6      IF ERROR                                    R152_OS     1703
 PRM2     LJM    CMDE        PROCESS ERROR                               R152_OS     1704
                                                                         R152_OS     1705
 PRM2.5   LDD    T5                                                      R152_OS     1706
          STD    NC                                                      R152_OS     1707
 PRM2.6   LDD    CM          SET CURRENT PARAMETER                       R152_OS     1708
          STD    T6                                                      R152_OS     1709
          LDM    1,T6                                                    R152_OS     1710
          STD    T7          SET CURRENT PARAMETER POINTER               R152_OS     1711
          LDI    T6                                                      R152_OS     1712
          SHN    21-13                                                   R152_OS     1713
          MJN    PRM2        IF PARAMETER MUST BE EQUIVALENCED           R152_OS     1714
          LJM    PRM6        IF NUMBER                                   R152_OS     1715
                                                                         R152_OS     1716
 PRM3     LDD    NC                                                      R152_OS     1717
          STD    T5                                                      R152_OS     1718
          RJM    ASN         ASSEMBLE NAME                               R152_OS     1719
          ZJN    PRM2.5      IF ERROR                                    R152_OS     1720
          LDN    3                                                       R152_OS     1721
          STD    T2          SET TABLE ENTRY SIZE                        R152_OS     1722
          LDD    CM+1                                                    R152_OS     1723
          RJM    SFN         SEARCH FOR NAME                             R152_OS     1724
          ZJN    PRM2.5      IF ERROR                                    R152_OS     1725
          STD    T6          SET NEW PARAMETER POINTER                   R152_OS     1726
          LDI    T6                                                      R152_OS     1727
          SHN    21-13                                                   R152_OS     1728
          PJN    PRM4        IF MULTIPLE EQUIVALENCES                    R152_OS     1729
          LDM    2,T6                                                    R152_OS     1730
          STD    T1                                                      R152_OS     1731
          LDM    2,T7                                                    R152_OS     1732
          STI    T1                                                      R152_OS     1733
 PRM4     RJM    SKP         SKIP SPACES                                 R152_OS     1734
          SBN    EQSY                                                    R152_OS     1735
          ZJN    PRM5        IF *=*                                      R152_OS     1736
          UJN    PRM10       NO VALUE TO BE SET                          R152_OS     1737
                                                                         R152_OS     1738
 PRM5     AOD    NC          INCREMENT PAST *=*                          R152_OS     1739
 PRM6     LDI    T6                                                      R152_OS     1740
          LPN    17                                                      R152_OS     1741
          NJN    PRM8        IF CAN BE EQUIVALENCED                      R152_OS     1742
 PRM7     LJM    CMDE        PROCESS ERROR                               R152_OS     1743
                                                                         R152_OS     1744
 PRM8     STD    T1                                                      R152_OS     1745
          LDD    CM+3                                                    R152_OS     1746
          SHN    14                                                      R152_OS     1747
          LMD    T1                                                      R152_OS     1748
          RJM    DNV         DECODE NUMBER                               R152_OS     1749
          LDI    T6                                                      R152_OS     1750
          LPN    17                                                      R152_OS     1751
          STD    T1          SET WORD LENGTH                             R152_OS     1752
          LDC    ABUF                                                    R152_OS     1753
          SBD    T1                                                      R152_OS     1754
          STD    T3                                                      R152_OS     1755
          LDM    2,T7        SET VARIABLE ADDRESS                        R152_OS     1756
          STD    T4                                                      R152_OS     1757
 PRM9     AOD    T3                                                      R152_OS     1758
          LDIL   T3                                                      R152_OS     1759
          STIL   T4                                                      R152_OS     1760
          AOD    T4                                                      R152_OS     1761
          SOD    T1                                                      R152_OS     1762
          NJN    PRM9        IF NOT DONE COPYING                         R152_OS     1763
 PRM10    LDIL   T6          CLEAR NOT REFERENCED BIT                    R152_OS     1764
          STI    T6                                                      R152_OS     1765
          SHN    -14                                                     R152_OS     1766
          ZJN    PRM7        IF ALREADY USED                             R152_OS     1767
          LMC    SHNI                                                    R152_OS     1768
          STM    PRMA                                                    R152_OS     1769
          LDN    1                                                       R152_OS     1770
 PRMA     SHN    0                                                       R152_OS     1771
          RADL   CM+2        SET USED BIT FOR PARAMETER                  R152_OS     1772
          LDI    CM                                                      R152_OS     1773
          SHN    -13                                                     R152_OS     1774
          LPN    1                                                       R152_OS     1775
          ADN    2                                                       R152_OS     1776
          RAD    CM                                                      R152_OS     1777
 PRM11    LDI    CM                                                      R152_OS     1778
          ZJN    PRM13       IF END OF PARAMETER LIST                    R152_OS     1779
          RJM    SKP                                                     R152_OS     1780
          ZJN    PRM13       IF END OF LIST                              R152_OS     1781
          LDD    T3                                                      R152_OS     1782
          ZJN    PRM12.5     IF ONE OR NO COMMAS                         R152_OS     1783
          SOD    T3                                                      R152_OS     1784
 PRM12    ZJN    PRM12.5                                                 R152_OS     1785
          SOD    T3                                                      R152_OS     1786
          LDI    CM                                                      R152_OS     1787
          SHN    -13                                                     R152_OS     1788
          LPN    1                                                       R152_OS     1789
          ADN    2                                                       R152_OS     1790
          RAD    CM                                                      R152_OS     1791
          LDD    T3                                                      R152_OS     1792
          UJN    PRM12       CHECK FOR MORE COMMAS                       R152_OS     1793
                                                                         R152_OS     1794
 PRM12.5  LJM    PRM1        GO BACK FOR NEXT PARAMETER                  R152_OS     1795
                                                                         R152_OS     1796
 PRM13    LDD    CM+2        GET PARAMETER COUNT                         R152_OS     1797
          LJM    PRMX        RETURN                                      R152_OS     1798
 SKP      SPACE  4,10                                                    R152_OS     1799
**        SKP - SKIP SEPARATORS.                                         R152_OS     1800
*                                                                        R152_OS     1801
*         EXIT   (A) = 0, IF END OF LINE.                                R152_OS     1802
*                    = 1, IF NUMBER OR ALPHABETIC.                       R152_OS     1803
*                (NC) = NEXT CHARACTER POSITION.                         R152_OS     1804
*                                                                        R152_OS     1805
*         CALLS  CLC.                                                    R152_OS     1806
                                                                         R152_OS     1807
                                                                         R152_OS     1808
 SKP2     SBN    1R,-1R                                                  R152_OS     1809
          NJN    SKP3         IF NOT COMMA                               R152_OS     1810
          AOD    NC                                                      R152_OS     1811
          AOD    T3                                                      R152_OS     1812
          UJN    SKP1                                                    R152_OS     1813
                                                                         R152_OS     1814
 SKP3     RJM    CLC         CLASSIFY CHARACTER                          R152_OS     1815
                                                                         R152_OS     1816
 SKP      SUBR               ENTRY/EXIT                                  R152_OS     1817
          LDN    0                                                       R152_OS     1818
          STD    T3                                                      R152_OS     1819
 SKP1     LDI    NC                                                      R152_OS     1820
          ZJN    SKPX        IF END OF LINE                              R152_OS     1821
          SBN    1R +40                                                  R152_OS     1822
          NJN    SKP2        IF NOT SPACE                                R152_OS     1823
          AOD    NC                                                      R152_OS     1824
          UJN    SKP1        CHECK NEXT CHARACTER                        R152_OS     1825
 TBR      SPACE  4,10                                                    R152_OS     1826
**        TBR - TRANSLATE BIT REGISTER.                                  R152_OS     1827
*                                                                        R152_OS     1828
*         ENTRY  (A) = BIT TEXT DEFINITION TABLE.                        R152_OS     1829
*                (PP) = REGISTER CONTENTS.                               R152_OS     1830
*                                                                        R152_OS     1831
*         EXIT   BIT DEFINITIONS PRINTED.                                R152_OS     1832
                                                                         R152_OS     1833
                                                                         R152_OS     1834
 TBR2     RJM    EOL         COMPLETE LINE                               R152_OS     1835
                                                                         R152_OS     1836
 TBR      SUBR               ENTRY/EXIT                                  R152_OS     1837
          STD    RN          SET TABLE ADDRESS                           R152_OS     1838
          LDDL   PP                                                      R152_OS     1839
          ZJN    TBRX        IF NO BITS DEFINED                          R152_OS     1840
          LDI    RN                                                      R152_OS     1841
          RJM    WTC         WRITE STRING                                R152_OS     1842
 TBR1     AOD    RN          POSITION IN TABLE                           R152_OS     1843
          LDDL   PP          CHECK NEXT BIT                              R152_OS     1844
          ZJN    TBR2        RETURN                                      R152_OS     1845
          SHN    1                                                       R152_OS     1846
          STDL   PP                                                      R152_OS     1847
          SHN    21-20                                                   R152_OS     1848
          PJN    TBR1        IF BIT NOT SET                              R152_OS     1849
          LDI    RN                                                      R152_OS     1850
          ZJN    TBR1        IF NO MESSAGE                               R152_OS     1851
          RJM    WTC         WRITE STRING                                R152_OS     1852
          LDN    1R,+40                                                  R152_OS     1853
          RJM    OUT                                                     R152_OS     1854
          UJN    TBR1        CHECK NEXT BIT                              R152_OS     1855
 TND      SPACE  4,10                                                    R152_OS     1856
**        TND - TRANSLATE NUMERIC DIGIT.                                 R152_OS     1857
*                                                                        R152_OS     1858
*         ENTRY  (NC) = ADDRESS OF NEXT CHARACTER IN LINE.               R152_OS     1859
*                                                                        R152_OS     1860
*         EXIT   (A) = VALUE OF NUMBER (IF PRESENT).                     R152_OS     1861
*                    = -1 (IF NOT PRESENT).                              R152_OS     1862
*                                                                        R152_OS     1863
*         USES   CH.                                                     R152_OS     1864
*                                                                        R152_OS     1865
*         CALLS  CLC.                                                    R152_OS     1866
                                                                         R152_OS     1867
                                                                         R152_OS     1868
 TND2     LCN    1           IF NOT A NUMBER                             R152_OS     1869
                                                                         R152_OS     1870
 TND      SUBR               ENTRY/EXIT                                  R152_OS     1871
          RJM    CLC         CLASSIFY CHARACTER                          R152_OS     1872
          SBN    NBSY                                                    R152_OS     1873
          ZJN    TND1        IF NUMBER                                   R152_OS     1874
          SBN    ALSY-NBSY                                               R152_OS     1875
          NJN    TND2        IF NOT ALPHABETIC                           R152_OS     1876
          LCN    1RA-10D+40                                              R152_OS     1877
 TND1     RAD    CH          CONVERT TO NUMBER                           R152_OS     1878
          UJN    TNDX        RETURN                                      R152_OS     1879
 WTC      SPACE  4,10                                                    R152_OS     1880
**        WTC - WRITE CODED STRING.                                      R152_OS     1881
*                                                                        R152_OS     1882
*         ENTRY (A) - ADDRESS OF STRING TO OUTPUT.                       R152_OS     1883
*                                                                        R152_OS     1884
*         T2, T3, T4.                                                    R152_OS     1885
*                                                                        R152_OS     1886
*         CALLS  EOL, OUT.                                               R152_OS     1887
                                                                         R152_OS     1888
                                                                         R152_OS     1889
 WTC2     LDD    T4                                                      R152_OS     1890
          ZJN    WTCX        IF NO EOLN TO BE PRINTED                    R152_OS     1891
          RJM    EOL                                                     R152_OS     1892
                                                                         R152_OS     1893
 WTC      SUBR               ENTRY/EXIT                                  R152_OS     1894
          STD    T3                                                      R152_OS     1895
          SHN    -14                                                     R152_OS     1896
          STD    T4                                                      R152_OS     1897
          LDN    0                                                       R152_OS     1898
          STD    T2                                                      R152_OS     1899
 WTC1     LDI    T3                                                      R152_OS     1900
          ZJN    WTC2        IF END OF LINE                              R152_OS     1901
          SHN    -6                                                      R152_OS     1902
          ADN    40          CONVERT TO REAL ASCII                       R152_OS     1903
          RJM    OUT                                                     R152_OS     1904
          LDI    T3                                                      R152_OS     1905
          LPN    77                                                      R152_OS     1906
          ADN    40          CONVERT TO REAL ASCII                       R152_OS     1907
          RJM    OUT                                                     R152_OS     1908
          AOD    T3                                                      R152_OS     1909
          UJN    WTC1        PROCESS NEXT TWO BYTES                      R152_OS     1910
          EJECT                                                          R152_OS     1911
 CLB      SPACE  4,10                                                    R152_OS     1912
**        CLB - CLEAR BUFFER.                                            R152_OS     1913
*                                                                        R152_OS     1914
*         ENTRY  NONE.                                                   R152_OS     1915
*                                                                        R152_OS     1916
*         EXIT   BUFFER CLEARED.                                         R152_OS     1917
*                                                                        R152_OS     1918
*         USES   T2.                                                     R152_OS     1919
                                                                         R152_OS     1920
                                                                         R152_OS     1921
 CLB      SUBR               ENTRY/EXIT                                  R152_OS     1922
          LDN    17                                                      R152_OS     1923
          STD    T2                                                      R152_OS     1924
 CLB1     LDN    0                                                       R152_OS     1925
          STM    NBUF,T2     CLEAR BUFFER ENTRY                          R152_OS     1926
          SOD    T2                                                      R152_OS     1927
          PJN    CLB1        IF MORE BUFFER TO CLEAR                     R152_OS     1928
          UJN    CLBX        RETURN                                      R152_OS     1929
 CLC      SPACE  4,10                                                    R152_OS     1930
**        CLC - CLASSIFY CHARACTER.                                      R152_OS     1931
*                                                                        R152_OS     1932
*         ENTRY  (NC) = ADDRESS OF NEXT CHARACTER IN LINE.               R152_OS     1933
*                                                                        R152_OS     1934
*         EXIT   (A) = CHARACTER TYPE.                                   R152_OS     1935
*                  0 = END OF LINE.                                      R152_OS     1936
*                  1 = CONTROL.                                          R152_OS     1937
*                  2 = EQUALS SIGN.                                      R152_OS     1938
*                  3 = NUMERIC.                                          R152_OS     1939
*                  4 = ALPHABETIC.                                       R152_OS     1940
*                (CH) = UPPERCASE CHARACTER, IF ALPHABETIC.              R152_OS     1941
*                    = BINARY VALUE, IF NUMERIC.                         R152_OS     1942
*                                                                        R152_OS     1943
*         USES   CH, T1.                                                 R152_OS     1944
                                                                         R152_OS     1945
                                                                         R152_OS     1946
 CLC1     AOD    T1          ALPHABETIC                                  R152_OS     1947
 CLC2     AOD    T1          NUMERIC                                     R152_OS     1948
 CLC3     AOD    T1          SEPERATOR                                   R152_OS     1949
 CLC4     AOD    T1          CONTROL CHARACTOR                           R152_OS     1950
                                                                         R152_OS     1951
 CLC      SUBR               ENTRY/EXIT                                  R152_OS     1952
          LDN    0                                                       R152_OS     1953
          STD    T1          ASSUME (CR)                                 R152_OS     1954
          LDI    NC          GET THE NEXT CHARACTER                      R152_OS     1955
          ZJN    CLCX        IF END OF LINE                              R152_OS     1956
          SBN    1R0-+40                                                 R152_OS     1957
          STD    CH          SAVE NUMERIC VALUE                          R152_OS     1958
          MJN    CLC4        IF BAD CHARACTER                            R152_OS     1959
          SBN    10D                                                     R152_OS     1960
          MJN    CLC2        IF NUMBER                                   R152_OS     1961
          SBN    1R=-1R9-1                                               R152_OS     1962
          ZJN    CLC3        IF *=*                                      R152_OS     1963
          SBN    1RA-1R=                                                 R152_OS     1964
          MJN    CLC3        IF SEPERATOR                                R152_OS     1965
          LDI    NC          CONVERT TO UPPER CASE                       R152_OS     1966
          LPC    137                                                     R152_OS     1967
          STD    CH                                                      R152_OS     1968
          LPN    37                                                      R152_OS     1969
          SBN    1                                                       R152_OS     1970
          MJN    CLC3        IF SEPERATOR                                R152_OS     1971
          SBN    1R[-1RA                                                 R152_OS     1972
          MJN    CLC1        IF ALPHABETIC                               R152_OS     1973
          UJN    CLC3        SEPERATOR                                   R152_OS     1974
                                                                         R152_OS     1975
 CRSY     EQU    0           END OF LINE SYMBOL                          R152_OS     1976
 CCSY     EQU    1           CONTROL CHARACTER SYMBOL                    R152_OS     1977
 EQSY     EQU    2           SEPARATER SYMBOL                            R152_OS     1978
 NBSY     EQU    3           NUMBER SYMBOL                               R152_OS     1979
 ALSY     EQU    4           ALPHABETIC SYMBOL                           R152_OS     1980
 EOL      SPACE  4,10                                                    R152_OS     1981
**        EOL - WRITE END OF LINE.                                       R152_OS     1982
*                                                                        R152_OS     1983
*         EXIT   TO *MDD1* IF INPUT PENDING.                             R152_OS     1984
*                                                                        R152_OS     1985
*         CALLS  OUT.                                                    R152_OS     1986
                                                                         R152_OS     1987
 EOL      SUBR               ENTRY/EXIT                                  R152_OS     1988
          LDN    CR                                                      R152_OS     1989
          RJM    OUT                                                     R152_OS     1990
          LDN    LF                                                      R152_OS     1991
          RJM    OUT                                                     R152_OS     1992
          LDN    1                                                       R152_OS     1993
          RJM    CPS         CHECK PORT STATUS                           R152_OS     1994
          LDM    SSMX        CHECK FOR INPUT                             R152_OS     1995
          SHN    21-3                                                    R152_OS     1996
          PJN    EOLX        IF NO INPUT                                 R152_OS     1997
          LJM    MDD1        PROCESS INPUT LINE                          R152_OS     1998
 LCA      SPACE  4,10                                                    R152_OS     1999
**        LCA - LOAD CM ADDRESS.                                         R152_OS     2000
*                                                                        R152_OS     2001
*         ENTRY  (CM,CM+1) = CM ADDRESS.                                 R152_OS     2002
*                                                                        R152_OS     2003
*         EXIT   (R-REGISTER) (A) = CM ADDRESS.                          R152_OS     2004
                                                                         R152_OS     2005
                                                                         R152_OS     2006
 LCA      SUBR               ENTRY/EXIT                                  R152_OS     2007
          LDD    CM                                                      R152_OS     2008
          SHN    6                                                       R152_OS     2009
          STD    T2                                                      R152_OS     2010
          LPC    770000                                                  R152_OS     2011
          SHN    6                                                       R152_OS     2012
          STD    T1                                                      R152_OS     2013
          LRD    T1                                                      R152_OS     2014
          LDD    CM+1                                                    R152_OS     2015
          LMC    400000                                                  R152_OS     2016
          UJN    LCAX        RETURN                                      R152_OS     2017
 NCH      SPACE  4,10                                                    R152_OS     2018
**        NCH - GET THE NEXT CHARACTER.                                  R152_OS     2019
*                                                                        R152_OS     2020
*         ENTRY  NONE                                                    R152_OS     2021
*                                                                        R152_OS     2022
*         EXIT   (CH) - NEXT CHARACTER.                                  R152_OS     2023
*                (A)- NEXT CHARACTER.                                    R152_OS     2024
*                                                                        R152_OS     2025
*         CALLS  CSS, OUT.                                               R152_OS     2026
                                                                         R152_OS     2027
                                                                         R152_OS     2028
 NCH2     LPC    177         TRIM ANY PARITY                             R152_OS     2029
          STD    CH                                                      R152_OS     2030
          RJM    OUT         ECHO TO TERMINAL                            R152_OS     2031
                                                                         R152_OS     2032
 NCH      SUBR               ENTRY/EXIT                                  R152_OS     2033
                                                                         R152_OS     2034
 NCH1     RJM    RCT         READ CHARACTER FROM TERMINAL                R152_OS     2035
          NJN    NCH2        IF VALID CHARACTER READ                     R152_OS     2036
          LDC    1000                                                    R152_OS     2037
          SBN    1                                                       R152_OS     2038
          NJN    *-1                                                     R152_OS     2039
*         LDN    0                                                       R152_OS     2040
          RJM    CPS         CHECK PORT STATUS                           R152_OS     2041
          UJN    NCH1        TRY AGAIN                                   R152_OS     2042
 OUT      SPACE  4,10                                                    R152_OS     2043
**        OUT - OUTPUT CHARACTERS.                                       R152_OS     2044
*                                                                        R152_OS     2045
*         ENTRY  (A) = CHARACTER TO OUTPUT.                              R152_OS     2046
*                                                                        R152_OS     2047
*         USES   T1.                                                     R152_OS     2048
*                                                                        R152_OS     2049
*         CALLS  CSS.                                                    R152_OS     2050
                                                                         R152_OS     2051
                                                                         R152_OS     2052
 OUT      SUBR               ENTRY/EXIT                                  R152_OS     2053
          RJM    WCT         WRITE CHARACTER TO TERMINAL                 R152_OS     2054
          UJN    OUTX        RETURN                                      R152_OS     2055
 PAC      SPACE  4,10                                                    R152_OS     2056
**        PAC - PRINT ASCII CHARACTER.                                   R152_OS     2057
*                                                                        R152_OS     2058
*         ENTRY  (A) = CHARACTER.                                        R152_OS     2059
*                                                                        R152_OS     2060
*         EXIT   CHARACTER PRINTED.                                      R152_OS     2061
*                                                                        R152_OS     2062
*         CALLS  OUT.                                                    R152_OS     2063
                                                                         R152_OS     2064
                                                                         R152_OS     2065
 PAC      SUBR               ENTRY/EXIT                                  R152_OS     2066
          LPC    0#7F                                                    R152_OS     2067
          SBN    40                                                      R152_OS     2068
          PJN    PAC1        IF PRINTABLE CHARACTER                      R152_OS     2069
          LDN    1R                                                      R152_OS     2070
 PAC1     ADN    40                                                      R152_OS     2071
          RJM    OUT         PRINT                                       R152_OS     2072
          UJN    PACX        RETURN                                      R152_OS     2073
 PDC      SPACE  4,10                                                    R152_OS     2074
**        PDC - PRINT DISPLAYCODE CHARACTER.                             R152_OS     2075
*                                                                        R152_OS     2076
*         ENTRY  (A) = DISPLAY CODE CHARACTER.                           R152_OS     2077
*                                                                        R152_OS     2078
*         EXIT   CHARACTER CONVERTED TO ASCII AND PRINTED.               R152_OS     2079
*                                                                        R152_OS     2080
*         CALLS  OUT.                                                    R152_OS     2081
                                                                         R152_OS     2082
                                                                         R152_OS     2083
 PDC      SUBR               ENTRY/EXIT                                  R152_OS     2084
          ZJN    PDC2        IF COLON                                    R152_OS     2085
          SBN    33                                                      R152_OS     2086
          PJN    PDC1        IF NOT ALPHABETIC                           R152_OS     2087
          ADC    1RA-1+33+40                                             R152_OS     2088
          UJN    PDC3        PRINT IT                                    R152_OS     2089
                                                                         R152_OS     2090
 PDC1     SBN    10D                                                     R152_OS     2091
          PJN    PDC2        IF NOT NUMERIC                              R152_OS     2092
          ADN    1R0+10D+40                                              R152_OS     2093
          UJN    PDC3        PRINT IT                                    R152_OS     2094
                                                                         R152_OS     2095
 PDC2     LDN    1R +40                                                  R152_OS     2096
 PDC3     RJM    OUT         OUTPUT ASCII CHARACTER                      R152_OS     2097
          UJN    PDCX        RETURN                                      R152_OS     2098
 RMR      SPACE  4,10                                                    R152_OS     2099
**        RMR - READ MAINTENANCE REGISTER.                               R152_OS     2100
*                                                                        R152_OS     2101
*         ENTRY  (A) - REGISTER TO READ.                                 R152_OS     2102
*                (PC) - CONNECT CODE.                                    R152_OS     2103
*                                                                        R152_OS     2104
*         EXIT   (NBUF,NBUF+8) = REGISTER VALUE.                         R152_OS     2105
*                                                                        R152_OS     2106
*         USES   RN.                                                     R152_OS     2107
*                                                                        R152_OS     2108
*         MACROS READMR.                                                 R152_OS     2109
                                                                         R152_OS     2110
                                                                         R152_OS     2111
 RMR      SUBR               ENTRY/EXIT                                  R152_OS     2112
          STD    RN          SET REGISTER NUMBER                         R152_OS     2113
          READMR NBUF                                                    R152_OS     2114
          UJN    RMRX        RETURN                                      R152_OS     2115
 SFN      SPACE  4,10                                                    R152_OS     2116
**        SFN - SEARCH FOR NAME.                                         R152_OS     2117
*                                                                        R152_OS     2118
*         ENTRY  (A) = TABLE ADDRESS.                                    R152_OS     2119
*                (T2) = ENTRY SIZE.                                      R152_OS     2120
*                                                                        R152_OS     2121
*         EXIT   (A) = MATCHING ENTRY IN TABLE.                          R152_OS     2122
*                                                                        R152_OS     2123
*         USES   T7.                                                     R152_OS     2124
                                                                         R152_OS     2125
                                                                         R152_OS     2126
 SFN      SUBR               ENTRY/EXIT                                  R152_OS     2127
          SBD    T2                                                      R152_OS     2128
          STD    T7                                                      R152_OS     2129
 SFN1     LDD    T2                                                      R152_OS     2130
          RAD    T7                                                      R152_OS     2131
          LDI    T7          GET NEXT COMMAND                            R152_OS     2132
          ZJN    SFNX        IF NO MATCH                                 R152_OS     2133
          LMM    ASNA        COMPARE TO CHARACTERS FROM LINE             R152_OS     2134
          NJN    SFN1        IF NO MATCH                                 R152_OS     2135
 SFN2     LDM    1,T7        GET TABLE PARAMETER                         R152_OS     2136
          UJN    SFNX        RETURN                                      R152_OS     2137
 SMO      SPACE  4,10                                                    R152_OS     2138
**        SMO - SETUP MAINTENANCE REGISTER OPERATION.                    R152_OS     2139
*                                                                        R152_OS     2140
*         ENTRY  (A) = ADDRESS OF MR TABLE.                              R152_OS     2141
*                                                                        R152_OS     2142
*         EXIT   (EC) = CONNECT CODE.                                    R152_OS     2143
*                (RN) = REGISTER NUMBER.                                 R152_OS     2144
                                                                         R152_OS     2145
                                                                         R152_OS     2146
 SMO      SUBR               ENTRY/EXIT                                  R152_OS     2147
          STD    T2                                                      R152_OS     2148
          LDM    -1,T2                                                   R152_OS     2149
          STM    MRPE-1                                                  R152_OS     2150
          STD    T2                                                      R152_OS     2151
          LDI    T2                                                      R152_OS     2152
          STD    EC                                                      R152_OS     2153
          LDM    MRPE        FETCH REGISTER NUMBER                       R152_OS     2154
          STD    RN                                                      R152_OS     2155
          LDDL   CM+2                                                    R152_OS     2156
          UJN    SMOX        RETURN                                      R152_OS     2157
 SMP      SPACE  4,10                                                    R152_OS     2158
**        SMP - SET MEMORY PARAMETERS.                                   R152_OS     2159
*                                                                        R152_OS     2160
*         ENTRY  (VAL1 - VAL1+1) = MEMORY ADDRESS.                       R152_OS     2161
*                (VAL3 - VAL3+1) = INCREMENT VALUE.                      R152_OS     2162
*                (VAL2) = WORD COUNT.                                    R152_OS     2163
*                                                                        R152_OS     2164
*         EXIT   (CM - CM+1) = MEMORY ADDRESS.                           R152_OS     2165
*                (PP) = WORD COUNT.                                      R152_OS     2166
*                (A) = MEMORY ADDRESS RELATIVE TO R.                     R152_OS     2167
*                                                                        R152_OS     2168
*         CALLS  LCA.                                                    R152_OS     2169
                                                                         R152_OS     2170
                                                                         R152_OS     2171
 SMP      SUBR               ENTRY/EXIT                                  R152_OS     2172
          LDM    VAL3+1      INCREMENT MEMORY ADDRESS                    R152_OS     2173
          RAM    VAL1+1                                                  R152_OS     2174
          STD    CM+1                                                    R152_OS     2175
          SHN    -14                                                     R152_OS     2176
          ADM    VAL3                                                    R152_OS     2177
          RAM    VAL1                                                    R152_OS     2178
          STD    CM                                                      R152_OS     2179
          LDN    0                                                       R152_OS     2180
          STM    VAL3        CLEAR INCREMENT                             R152_OS     2181
          STM    VAL3+1                                                  R152_OS     2182
          LDM    VAL2                                                    R152_OS     2183
          STD    PP                                                      R152_OS     2184
          RJM    LCA         LOAD CM ADDRESS                             R152_OS     2185
          UJN    SMPX        RETURN                                      R152_OS     2186
 TBA      SPACE  4,10                                                    R152_OS     2187
**        TBA - TRANSLATE BYTE ADDRESS.                                  R152_OS     2188
*                                                                        R152_OS     2189
*         ENTRY  (A) = PTR TO ADDRESS IN TWO WORDS.                      R152_OS     2190
*                                                                        R152_OS     2191
*         EXIT   (VAL1 - VAL1+1) = WORD ADDRESS.                         R152_OS     2192
*                (CM - CM+1) = WORD ADDRESS.                             R152_OS     2193
*                (RN) = WORD COUNT.                                      R152_OS     2194
*                (A) = MEMORY ADDRESS RELATIVE TO R.                     R152_OS     2195
*                                                                        R152_OS     2196
*         CALLS  SMP.                                                    R152_OS     2197
*                                                                        R152_OS     2198
*         USES   T1.                                                     R152_OS     2199
                                                                         R152_OS     2200
                                                                         R152_OS     2201
 TBA      SUBR               ENTRY/EXIT                                  R152_OS     2202
          STD    T1                                                      R152_OS     2203
          LDI    T1                                                      R152_OS     2204
          SHN    22-3                                                    R152_OS     2205
          STM    VAL1                                                    R152_OS     2206
          SHN    -3                                                      R152_OS     2207
          LPC    170000                                                  R152_OS     2208
          LMM    1,T1                                                    R152_OS     2209
          SHN    -3                                                      R152_OS     2210
          STM    VAL1+1                                                  R152_OS     2211
          RJM    SMP         SET MEMORY PARAMETERS                       R152_OS     2212
          UJN    TBAX        RETURN                                      R152_OS     2213
 WND      SPACE  4,10                                                    R152_OS     2214
**        WND - WRITE NUMERIC DATA.                                      R152_OS     2215
*                                                                        R152_OS     2216
*         ENTRY  (A) - DATA TO PRINT.                                    R152_OS     2217
*                                                                        R152_OS     2218
*         CALLS  OUT.                                                    R152_OS     2219
                                                                         R152_OS     2220
                                                                         R152_OS     2221
 WND      SUBR               ENTRY/EXIT                                  R152_OS     2222
          LPN    17          EXTRACT HEX DIGIT                           R152_OS     2223
          SBN    10D                                                     R152_OS     2224
          MJN    WND1        IF DECIMAL DIGIT                            R152_OS     2225
          ADN    1RA-1R0-10D                                             R152_OS     2226
 WND1     ADN    1R0+40+10D  FORM ASCII DIGIT                            R152_OS     2227
          RJM    OUT                                                     R152_OS     2228
          UJN    WNDX        RETURN                                      R152_OS     2229
          EJECT                                                          R152_OS     2230
**        BUFFERS.                                                       R152_OS     2231
                                                                         R152_OS     2232
 NBUF     BSS    10                                                      R152_OS     2233
 ABUF     BSS    1                                                       R152_OS     2234
 MRBF     BSS    10                                                      R152_OS     2235
          SPACE  4,10                                                    R152_OS     2236
          CODE   *                                                       R152_OS     2237
          BASE   *                                                       R152_OS     2238
 QUAL$    IF     -DEF,QUAL$                                              R152_OS     2239
          QUAL   *                                                       R152_OS     2240
 MDD      EQU    /COMPMDD/MDD                                            R152_OS     2241
 CLS      EQU    /COMPMDD/CLS                                            R152_OS     2242
 CMDP     EQU    /COMPMDD/CMDP                                           R152_OS     2243
 EOL      EQU    /COMPMDD/EOL                                            R152_OS     2244
 WTC      EQU    /COMPMDD/WTC                                            R152_OS     2245
 DMB      EQU    /COMPMDD/DMB                                            R152_OS     2246
 DMR      EQU    /COMPMDD/DMR                                            R152_OS     2247
 MRPA     EQU    /COMPMDD/MRPA                                           R152_OS     2248
 PVC      EQU    /COMPMDD/PVC                                            R152_OS     2249
 CMDR     EQU    /COMPMDD/CMDR                                           R152_OS     2250
 CMDX     EQU    /COMPMDD/CMDX                                           R152_OS     2251
 VAL1     EQU    /COMPMDD/VAL1                                           R152_OS     2252
 VAL2     EQU    /COMPMDD/VAL2                                           R152_OS     2253
 VAL3     EQU    /COMPMDD/VAL3                                           R152_OS     2254
 QUAL$    ENDIF                                                          R152_OS     2255
          ENDX                                                           R152_OS     2256
                                                                         R152_OS     2257
