mirror of
https://github.com/moshix/mvs.git
synced 2026-05-02 22:42:59 +00:00
53 lines
1.5 KiB
Plaintext
53 lines
1.5 KiB
Plaintext
TESTINT CSECT
|
||
LR 12,15
|
||
USING TESTINT,12
|
||
LA 2,=C'HELLO IN EBCDIC$'
|
||
SVC 209
|
||
SVC 29 DROP EBCDIC TRANS.
|
||
LA 2,=C"HELLO IN ASCII$"
|
||
SVC 209
|
||
SVC 31 DROP CR
|
||
LA 2,=C"HELLO IN ASCII WITHOUT CR $"
|
||
SVC 209
|
||
SVC 30 TURN CR BACK ON
|
||
LA 2,=C"HELLO IN ASCII WITH CR$"
|
||
SVC 209
|
||
SVC 28 TURN EBCDIC BACK ON
|
||
LA 2,=C'HELLO IN EBCDIC AGAIN$'
|
||
SVC 209
|
||
LA 4,PCWTO
|
||
USING PCVT,4
|
||
LA 1,WTOMSG
|
||
SVC 32 CVT VA TO SEG:OFF
|
||
STCM 0,X'C',PCDS
|
||
STCM 0,X'3',PCDX SET DS:DX TO WTO MESSAGE AREA
|
||
SR 1,1
|
||
SVC 33 CVT BACK AND VERIFY JUST TO TEST SVC 33
|
||
CL 1,=A(WTOMSG)
|
||
BNE *+1 ABORT IF NOT EQUAL
|
||
LA 1,PCWTO
|
||
SVC 34 INTERRUPT
|
||
SVC 34 INTERRUPT AGAIN
|
||
SVC 0 EXIT
|
||
WTOMSG DC C"HELLO VIA SVC 34",X'0D0A',C"$"
|
||
PCWTO DS 0F PC REGISTER AREA FOR MS-DOS FUNCTION CALL 9 VIA SVC 34
|
||
DC C'PCVT' IDENTIFIER REQUIRED BY SVC 34
|
||
DC H'33' INTERRUPT #33 DECIMAL OR 21H
|
||
DC H'0' FLAG STATUS AFTER INTERRUPT
|
||
DC X'0900' AX MS-DOS WTO FUNCTION CALL 9 IN AH
|
||
DC 3H'0' BX-DX
|
||
DC 4H'0' DS,SI,ES,DI
|
||
PCVT DSECT
|
||
DS CL4 C'PCVT IDENTIFIER REQUIRED
|
||
PCIN DS H INTERRUPT NUMBER (STD. MS-DOS FUNCTIONS USE 33)
|
||
PCPF DS H FLAGS REGISTER
|
||
PCAX DS H AX
|
||
PCBX DS H BX
|
||
PCCX DS H CX
|
||
PCDX DS H DX
|
||
PCDS DS H DS
|
||
PCSI DS H SI
|
||
PCES DS H ES
|
||
PCDI DS H DI
|
||
END TESTINT
|
||
|