github.com/moshix.mvs
1
0
Fork 0
mirror of https://github.com/moshix/mvs.git synced 2026-01-11 23:43:00 +00:00
Code Issues Releases Wiki Activity

translate instruction program for the quiz in video M100

Browse Source
This commit is contained in:
moshix 2018-11-25 09:35:21 -06:00 committed by GitHub
parent 67378ff59a
commit 525352dd7b
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
TRinstruction Normal file
View File

@ -0,0 +1,30 @@
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