home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / SUPERT87.ZIP / BPAGE.370 < prev    next >
Encoding:
Text File  |  1986-12-15  |  3.3 KB  |  40 lines
  1.  
  2. BPAGE    CSECT                                                          00010000
  3.          SAVE  (14,12),,SAVE.BPAGE     *    STANDARD                    00020000
  4.          LR    2,15                    *                                00030000
  5.          USING BPAGE,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.          STIMER WAIT,BINTVL=SECOND                                      00290000
  31.          STLINENO LINE=24                                               00300000
  32. RETURN   EQU   *                                                        00310000
  33.          L     R13,SAVEAREA+4            *    OS RETURN                 00320000
  34.          LM    R2,R12,28(R13)           *    LINKAGE                    00330000
  35.          MVI   12(R13),X'FF'                                            00340000
  36.          BCR   R15,R14                                                  00350000
  37. SECOND   DC    X'00000010'                                              00360000
  38.          LTORG                                                          00370000
  39.          END   BPAGE                                                    00380000
  40. >