Table of Contents

ACCTON Source

References

Source Listing

ACCTON.COPY.txt 
  1. *COPY ACCTON                                                            00001000
  2. ****************************************************************        00002000
  3. *                                                                       00003000
  4. *        COPY FILE PROVIDED FOR INSTALLATION USE                        00004000
  5. *                                                                       00005000
  6. ****************************************************************        00006000
  7.          USING RDEVBLOK,R8                                              00007000
  8.          L     R8,VMTERM     GET RDEVBLOK ADDRESS                       00008000
  9.          LTR   R8,R8     IS THERE ONE ??                                00009000
  10.          BZ    ACOEXIT   NO, RETURN                                     00010000
  11.          CLI   RDEVTYPC,CLASTERM TERMINAL?                     @VA04377 00010060
  12.          BNE   LOCGRAF        NO, CONTINUE                     @VA04377 00010120
  13.          CLI   RDEVTYPE,TYPBSC BSC?                            @VA04377 00010180
  14.          BNE   LOCGRAF        NO, CONTINUE                     @VA04377 00010240
  15.          LH    R9,VMTRMID     GET RESOURCE ID OF USER          @VA04377 00010300
  16.          N     R9,F4095       CLEAR LINE CODE PORTION          @VA04377 00010360
  17.          MH    R9,=AL2(NICSIZE*8) COMPUTE NICBLOK LIST INDEX   @VA04377 00010420
  18.          AL    R9,RDEVNICL    INDEX TO ACTUAL NICBLOK          @VA04377 00010480
  19.          USING NICBLOK,R9                                      @VA04377 00010540
  20.          TM    NICTYPE,NICOPRDR OPERATOR ID CARD?              @VA04377 00010600
  21.          DROP  R9                                              @VA04377 00010660
  22.          BO    DISPMSG        YES, PUT OUT MSG                 @VA04377 00010720
  23.          B     ACOEXIT        NO,RETURN                        @VA04377 00010780
  24. LOCGRAF  EQU   *                                               @VA04377 00010840
  25.          CLI   RDEVTYPC,CLASGRAF   IS IT A GRAF DEVICE ??               00011000
  26.          BNE   ACOEXIT   NO, RETURN                                     00012000
  27.          CLI   RDEVTYPE,TYP3277    IS IT A 3270 ??                      00013000
  28.          BNE   ACOEXIT    NO, RETURN                                    00014000
  29.          TM    RDEVFTR,FTROPRDR    DOES IT HAVE A READER ??             00015000
  30.          BZ    ACOEXIT        NO, RETURN                                00016000
  31. DISPMSG  EQU   *                                               @VA04377 00016500
  32.          LA    R0,ACOACCL     ACCES MSG SIZE                            00017000
  33.          LA    R1,ACOACCM     ACCESS MESSAGE                            00018000
  34.          CALL  DMKQCNWT,PARM=NORET+ALARM                                00019000
  35.          LA    R0,18          GET BUFFER FOR DATA                       00020000
  36.          CALL  DMKFREE        GET A BUFFER                              00021000
  37.          XC    0(18*8,R1),0(R1)    CLEAR BUFFER                         00022000
  38.          CALL  DMKQCNRD,PARM=INHIBIT    NO EDIT, NO DISPLAY             00023000
  39.          LTR   R2,R2          IS IT ZERO ??                             00024000
  40.          BNZ   ACORETN        NO, EXIT WITH ERROR                       00025000
  41.          LTR   R0,R0          ANY DATA ENTERED ??                       00026000
  42.          BP    ACOCHK         CHECK DATA ENTERED                        00027000
  43.          LA    R2,4           SET RETURN CODE 4                         00028000
  44. ACORETN  ST    R2,SAVER2      SET RETURN CODE                           00029000
  45.          LA    R0,18          SIZE                                      00030000
  46.          CALL  DMKFRET        RELEASE BUFFER                            00031000
  47. ACOEXIT  EXIT  RETURN TO CALLER                                         00032000
  48.          SPACE                                                          00033000
  49. ACOCHK   SR    R2,R2          ZERO RETURN                               00034000
  50. *        FURTHER CHECKING CAN BE ADDED HERE TO VERIFY DATA              00035000
  51.          B     ACORETN        RETURN TO CALLER                          00036000
  52.          SPACE                                                          00037000
  53. ACOACCM  DC    C'INSERT ID CARD:'                                       00038000
  54. ACOACCL  EQU   *-ACOACCM                                                00039000
  55.          USING VDEVBLOK,R8                                              00040000