home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
emulate
/
systems
/
pc370
/
demo
/
demoint.alc
< prev
next >
Wrap
Text File
|
1987-07-21
|
2KB
|
53 lines
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