Hi all, I have a problem with this program, it doesnt work:
PRUEB CSECT
STM 14,12,12(13)
USING *,11
BALR 11,15
LA 4,PUTCCW
LA 5,X'009'
LA 2,GETCCW
LA 3,X'009'
HNDINT SET,(CON1,EXIT,009,WAIT)
WRT EQU *
DIAG 4,5,X'0058'
WAIT1 TIO 9
BC 2,WAIT1
WAITD CON1
RD EQU *
LA 6,BUFFER
LA 7,2047
LOOP MVI 0(6),X'00'
LA 6,1(6)
BCT 7,LOOP
DIAG 2,3,X'0058'
WAIT2 TIO 9
BC 2,WAIT2
WAITD CON1
CLI BUFFER,PF12
BE EXIT
CLI BUFFER,PF24
BE EXIT
B WRT
EXIT LM 14,12,12(13)
LA 15,0
HNDINT CLR,(CON1)
BR 14
PANEL DC X'C2'
DC X'11D1601D60'
DC C'HELLO, WORLD'
LPANEL EQU *-PANEL
PUTCCW DC X'29',AL3(PANEL),X'20',X'C0',AL2(LPANEL)
GETCCW DC X'2A',AL3(BUFFER),X'20',X'80',AL2(2048)
BUFFER DS CL2048
PF12 EQU X'7C'
PF24 EQU X'4C'
END
I hope someone can help me. Thanks in advance.
Roberto.