home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / SUPERT87.ZIP / QDATE.370 < prev    next >
Encoding:
Text File  |  1986-12-15  |  3.8 KB  |  46 lines
  1.  
  2. QDATE    CSECT                                                          00010000
  3.          SAVE  (14,12),,SAVE.QDATE     *    STANDARD                    00020000
  4.          LR    2,15                    *                                00030000
  5.          USING QDATE,2                 *       OS                       00040000
  6.          LR    R3,R1                                                    00050000
  7.          ST    13,SAVEAREA+4           *                                00060000
  8.          LA    13,SAVEAREA             *     ENTRY                      00070000
  9.          ST    7,8(13)                 *                                00080000
  10.          LA    13,SAVEAREA             *    LINKAGE                     00090000
  11.          B     START                                                    00100000
  12. EQUATES  DS    0D                                                       00110000
  13. SAVEAREA DS    18F                                                      00120000
  14. R0       EQU   0                                                        00130000
  15. R1       EQU   1                                                        00140000
  16. R2       EQU   2                       BASE REGISTER                    00150000
  17. R3       EQU   3                                                        00160000
  18. R4       EQU   4                                                        00170000
  19. R5       EQU   5                                                        00180000
  20. R6       EQU   6                                                        00190000
  21. R7       EQU   7                                                        00200000
  22. R8       EQU   8                                                        00210000
  23. R9       EQU   9                                                        00220000
  24. R10      EQU   10                                                       00230000
  25. R11      EQU   11                                                       00240000
  26. R12      EQU   12                                                       00250000
  27. R13      EQU   13                                                       00260000
  28. R14      EQU   14                                                       00270000
  29. R15      EQU   15                                                       00280000
  30. START    EQU   *                                                        00290000
  31.          L     R4,0(R3)                                                 00300000
  32.          TIME  BIN                                                      00310000
  33.          ST    R1,THEDATE                                               00320000
  34.          CVB   R7,DBLEWORD                                              00330000
  35.          ST    R7,0(R4)                                                 00340000
  36. RETURN   EQU   *                                                        00350000
  37.          L     R13,SAVEAREA+4            *    OS RETURN                 00360000
  38.          LM    R2,R12,28(R13)           *    LINKAGE                    00370000
  39.          MVI   12(R13),X'FF'                                            00380000
  40.          BCR   R15,R14                                                  00390000
  41. DBLEWORD DS    0D                                                       00400000
  42.          DC    F'0'                                                     00410000
  43. THEDATE  DC    F'0'                                                     00420000
  44.          LTORG                                                          00430000
  45.          END   QDATE                                                    00440000
  46. >