mirror of
https://github.com/moshix/mvs.git
synced 2026-01-11 23:43:00 +00:00
31 lines
2.0 KiB
Plaintext
31 lines
2.0 KiB
Plaintext
your edit profile using the command RECOVERY ON.
|
|
PRINT DATA,ON,GEN PRINT OUT EVERYTHING
|
|
QUIZ CSECT START OF CODE SECTION
|
|
SAVE (14,12) SAVE REGS ON ENTRY
|
|
BASR R12,0 AND SET UP MY
|
|
USING *,R12 BASE REGISTER
|
|
ST R13,SAVEA+4 ENSURE SAVE AREA CHAIN
|
|
LA R13,SAVEA IS BUILT CORRECTLY
|
|
*
|
|
OPEN (OUTDCB,OUTPUT) OPEN OUTPUT FILE DD OUTDD
|
|
UNPK PM100,M100(6) M100 IS 6 BYTES,PM100 IS 12
|
|
TR PM100,TRTAB TRANLATE IT NOW
|
|
PUT OUTDCB,OUTAREA WRITE CONTENT FROM PM100
|
|
* TO OUTPUT FILE (OR PRINTER)
|
|
EXIT CLOSE (OUTDCB) CLOSE OUTPUT
|
|
L R13,SAVEA+4 PREVIOUS SAVE AREA ADRS
|
|
RETURN (14,12),RC=0 RETURN TO CALLER WITH RC=0
|
|
LTORG
|
|
SAVEA DS 18F SAVE AREA
|
|
OUTDCB DCB DSORG=PS,MACRF=PM,DDNAME=OUTDD DD NEESD TO BE OUTDCB
|
|
*---OUTPUT STRUCTURE -----------------------------------------
|
|
OUTAREA DS 0CL121 OUTPUT BUFFER
|
|
DC CL1' '
|
|
PM100 DS CL12 M100 TRANSLATION HOLDER
|
|
DC CL108' ' CAN YOU GUESS IT?
|
|
*---END OF OUTPUT STRUCTURE ------------------------------------
|
|
M100 DC X'C6FFEE0394EC' STRING TO BE TRANSLATED
|
|
*
|
|
* TRANSLATE TABLE BELOW
|
|
|