home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / emulate / systems / pc370 / demo / demopsw.alc < prev    next >
Text File  |  1987-04-27  |  1KB  |  60 lines
  1.     TITLE 'TESTPSW - TEST LPSW AND SVC, PCK, AND EXT INTERRUPTS'
  2. *********
  3. *
  4. *  PGM-ID.  TESTPSW.ALC
  5. *  AUTHOR.  DON HIGGINS
  6. *  DATE.    04/26/87
  7. *  REMARKS.
  8. *
  9. *     THIS PROGRAM TESTS PC/370 RELEASE 2 PSW SUPPORT:
  10. *
  11. *     1.  LOAD CLOCK.MOD WHICH USES TRANSPARENT SVC HANDLER AND AN
  12. *         EXTERNAL INTERRUPT HANDLER TO DISPLAY TIME OF DAY IN UPPER
  13. *         LEFT CORNER OF SCREEN.  EXTERNAL INTERRUPT OCCURS EVERY
  14. *         256 INSTRUCTIONS.
  15. *
  16. *
  17. *
  18. *********
  19. TESTPSW  CSECT
  20.     LR    R12,R15
  21.     USING TESTPSW,R12
  22.     LA    R2,=C'TESTPSW STARTED$'
  23.     SVC   WTO
  24.     L     R15,=V(DTIME)
  25.     BALR  R14,R15
  26.     LA    R1,=C'CLOCK.MOD'
  27.     SVC   LOAD
  28.     LTR   R15,R15
  29.     BNZ   ERR
  30.     LR    R15,R0
  31.     BALR  R14,R15 START UP CLOCK PROBLEM STATE MODE
  32.     LA    R3,50
  33. LOOP     EQU   *
  34.     LA    R2,=C'CLOCK RUNNING NOW$'
  35.     SVC   WTO
  36.     LA    R4,500
  37.     BCT   R4,*
  38.     BCT   R3,LOOP
  39.     LA    R2,=C'TESTPSW ENDED$'
  40.     SVC   WTO
  41.     SVC   EXIT
  42. ERR      EQU   *
  43.     SVC   TRACE
  44.     DC    C'BUG'
  45.     SVC   EXIT
  46.     LTORG
  47. EXIT     EQU   0
  48. TRACE    EQU   9
  49. LOAD     EQU   25
  50. WTO      EQU   209
  51. R0       EQU   0
  52. R1       EQU   1
  53. R2       EQU   2
  54. R3       EQU   3
  55. R4       EQU   4
  56. R12      EQU   12
  57. R14      EQU   14
  58. R15      EQU   15
  59.     END
  60.