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