home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / emulate / systems / pc370 / demo / demoint.alc < prev    next >
Text File  |  1987-07-21  |  2KB  |  53 lines
  1. TESTINT  CSECT
  2.     LR    12,15
  3.     USING TESTINT,12
  4.     LA    2,=C'HELLO IN EBCDIC$'
  5.     SVC   209
  6.     SVC   29 DROP EBCDIC TRANS.
  7.     LA    2,=C"HELLO IN ASCII$"
  8.     SVC   209
  9.     SVC   31 DROP CR
  10.     LA    2,=C"HELLO IN ASCII WITHOUT CR $"
  11.     SVC   209
  12.     SVC   30 TURN CR BACK ON
  13.     LA    2,=C"HELLO IN ASCII WITH CR$"
  14.     SVC   209
  15.     SVC   28 TURN EBCDIC BACK ON
  16.     LA    2,=C'HELLO IN EBCDIC AGAIN$'
  17.     SVC   209
  18.     LA    4,PCWTO
  19.     USING PCVT,4
  20.     LA    1,WTOMSG
  21.     SVC   32 CVT VA TO SEG:OFF
  22.     STCM  0,X'C',PCDS
  23.     STCM  0,X'3',PCDX     SET DS:DX TO WTO MESSAGE AREA
  24.     SR    1,1
  25.     SVC   33 CVT BACK AND VERIFY JUST TO TEST SVC 33
  26.     CL    1,=A(WTOMSG)
  27.     BNE   *+1 ABORT IF NOT EQUAL
  28.     LA    1,PCWTO
  29.     SVC   34 INTERRUPT
  30.     SVC   34 INTERRUPT AGAIN
  31.     SVC   0  EXIT
  32. WTOMSG   DC    C"HELLO VIA SVC 34",X'0D0A',C"$"
  33. PCWTO    DS    0F PC REGISTER AREA FOR MS-DOS FUNCTION CALL 9 VIA SVC 34
  34.     DC    C'PCVT' IDENTIFIER REQUIRED BY SVC 34
  35.     DC    H'33'   INTERRUPT #33 DECIMAL OR 21H
  36.     DC    H'0'    FLAG STATUS AFTER INTERRUPT
  37.     DC    X'0900' AX MS-DOS WTO FUNCTION CALL 9 IN AH
  38.     DC    3H'0'   BX-DX
  39.     DC    4H'0'   DS,SI,ES,DI
  40. PCVT     DSECT
  41.     DS    CL4     C'PCVT IDENTIFIER REQUIRED
  42. PCIN     DS    H       INTERRUPT NUMBER (STD. MS-DOS FUNCTIONS USE 33)
  43. PCPF     DS    H       FLAGS REGISTER
  44. PCAX     DS    H       AX
  45. PCBX     DS    H       BX
  46. PCCX     DS    H       CX
  47. PCDX     DS    H       DX
  48. PCDS     DS    H       DS
  49. PCSI     DS    H       SI
  50. PCES     DS    H       ES
  51. PCDI     DS    H       DI
  52.     END   TESTINT
  53.