Tachyon z/Assembler Option Summary PAGE 1 (c) Copyright 1995-2008 Tachyon Software LLC X390 3.1.00 2008/10/24 10.47 Command Line Parameters- -fal,lint lmax OO SN&D&F.obj ST&D&F.lst SL&D*.mac mxf tel xs,u txaivp.390 Process Statements- OVERRIDE(MXREF(FULL)) RXREF,XREF(SHORT,UNREFS) Options for this Assembly Source ------------------------- -------------------------------- AControl(AFpr,ALign,NoLibMac) (default) NoAData (default) AdataLevel(6) (default) CodePage(1047,819,NoList) (default) NoCompaT (default) DXref (default) Esd (default) Flag(0,AlignWarn,ConT,EXlitw,NoImpLen,PUsh,ReCord,NoSUbstr,Using0,Refpage0,Brpage0,NoREnt,UsingDup,UsingZero,UsingMult,Ra4,HLasm,T Runc,IndeX) Command Line NoFOld (default) IDR('X390ASM 3100') (default) NoINFO (default) LAnguage(EN) (default) NoLibExit (default) LineCount(60) (default) LineWidth(Nl) (default) List(MAX) Command Line NoMakeDepend (default) MakeFile(&D&F.mk) (default) MsgLevel(2,1) (default) MXref(Full) txaivp.390 Object(Omf) Command Line OPtable(Uni,NoList) (default) NoPControl (default) PRintctl(Ff) (default) ProcesS(NoBatch,NoCics,NoDbcs,NoDLI,NoGas,NoJcl,NoPestop,NoSql,Thread,NoWarn0) (default) NoProFile (default) RLd (default) RXref(NoAr,NoCr,Gr,NoFr,NoVr) txaivp.390 SiZe(MAX) (default) SEctalgn(8,8) (default) NoSUppress (default) SysadatA(&D&F.dat) (default) SysLib(&D*.mac) Command Line SysliN(&D&F.obj) Command Line NoSysParm (default) SysprinT(&D&F.lst) Command Line SyspuncH(&D&F.txt) (default) SystemId('Windows2000 5.0') (default) SysterM(1) (default) Term(Outer,Inner) (default) TEst(Long) Command Line NoTRanslate (default) TypeCheck(Magnitude,Register) (default) NoUsingLimit (default) UsingMap (default) Xref(Short,Unrefs) Command Line Tachyon z/Assembler Option Summary PAGE 2 (c) Copyright 1995-2008 Tachyon Software LLC X390 3.1.00 2008/10/24 10.47 DDNAMEs File/Path Names -------- --------------- SYSIN txaivp.390 SYSLIB *.MAC SYSLIN txaivp.obj SYSPRINT txaivp.lst SYSTERM (STDOUT) TXAIVP External Symbol Dictionary PAGE 3 Symbol Type Id Address Length Owner Id Flags Alias-of X390 3.1.00 2008/10/24 10.47 PC 00000001 00000000 00000000 00 TXAIVP SD 00000002 00000000 000000A8 00 TXAIVP PAGE 4 Active USINGs: None Loc Object Code Addr1 Addr2 Stmt Source Statement X390 3.1.00 2008/10/24 10.47 1 *PROCESS OVERRIDE(MXREF(FULL)) 2 *PROCESS RXREF,XREF(SHORT,UNREFS) TXAIVP Tachyon z/Assembler - Installation Verification Program PAGE 5 Active USINGs: None Loc Object Code Addr1 Addr2 Stmt Source Statement X390 3.1.00 2008/10/24 10.47 4 *********************************************************************** 5 * * 6 * TXAIVP.390 - Tachyon z/Assembler and Tachyon 390 Cross Assembler * 7 * Installation Verification Program * 8 * (C) Copyright 1995-2004, Tachyon Software LLC * 9 * * 10 * This program demonstrates the Tachyon z/Assembler or Tachyon * 11 * 390 Cross Assembler. If the assembler has been installed * 12 * correctly, this program should assemble without errors. * 13 * * 14 *********************************************************************** 16 Print Uhead,Data,Gen 17 Acontrol Flag(Align,Cont,Substr,NoImplen) 19 *********************************************************************** 20 * If the WTO macro is not yet defined, copy the definition. * 21 *********************************************************************** 22 &Member setc 'txaivp' 23 aif ('m'(1,*) eq lower(o'wto)).NoCopy 24 Copy &Member 25=.********************************************************************** 26=.* * 27=.* TXAIVP.MAC - Tachyon 390 Cross Assembler * 28=.* Installation Verification Program * 29=.* (C) Copyright 1995-2004, Tachyon Software LLC * 30=.* * 31=.********************************************************************** 33=************** General Register Equates ******************************* 00000000 34=R0 Equ 0,,,,GR General Register 0 00000001 35=R1 Equ 1,,,,GR General Register 1 00000002 36=R2 Equ 2,,,,GR General Register 2 00000003 37=R3 Equ 3,,,,GR General Register 3 00000004 38=R4 Equ 4,,,,GR General Register 4 00000005 39=R5 Equ 5,,,,GR General Register 5 00000006 40=R6 Equ 6,,,,GR General Register 6 00000007 41=R7 Equ 7,,,,GR General Register 7 00000008 42=R8 Equ 8,,,,GR General Register 8 00000009 43=R9 Equ 9,,,,GR General Register 9 0000000A 44=R10 Equ 10,,,,GR General Register 10 0000000B 45=R11 Equ 11,,,,GR General Register 11 0000000C 46=R12 Equ 12,,,,GR General Register 12 0000000D 47=R13 Equ 13,,,,GR General Register 13 0000000E 48=R14 Equ 14,,,,GR General Register 14 0000000F 49=R15 Equ 15,,,,GR General Register 15 50=*********************************************************************** 52 macro 53 .* This macro is a simple form of the MVS WTO macro. 54 .* It does not support any of the options of the real WTO 55 .* macro, but it does verify that the macro assembler works. 56 &lbl wto &msg 58 &len seta k'&msg TXAIVP Tachyon z/Assembler - Installation Verification Program PAGE 6 Active USINGs: None Loc Object Code Addr1 Addr2 Stmt Source Statement X390 3.1.00 2008/10/24 10.47 59 aif (&len lt 3).bad_msg 60 aif ('&msg'(1,1) ne '''' or '&msg'(&len,1) ne '''').bad_msg 62 cnop 0,4 63 &lbl bal 1,WtoSvc&sysndx 64 dc al2(WtoEnd&sysndx-*,0) 65 dc ce&msg 66 WtoEnd&sysndx equ * 67 WtoSvc&sysndx ds 0h 68 svc 35 69 mexit 70 .bad_msg mnote 8,'Message text is invalid or missing.' 71 mend 72 .NoCopy Anop TXAIVP Tachyon z/Assembler - Installation Verification Program PAGE 7 Active USINGs: None Loc Object Code Addr1 Addr2 Stmt Source Statement X390 3.1.00 2008/10/24 10.47 74 *********************************************************************** 75 * Entry linkage from MVS * 76 *********************************************************************** 00000000 00000000 000000A8 77 TXAivp Csect 0000005A 0000005A 000000A8 79 Storage Loctr 0000005A 000000000000 00000060 0000000000000000 80 MySaveArea Dc (SaveAreaSize/8)FD'0' 00000068 0000000000000000 00000070 0000000000000000 00000078 0000000000000000 00000080 0000000000000000 00000088 0000000000000000 00000090 0000000000000000 00000098 0000000000000000 000000A0 0000000000000000 00000000 00000000 000000A8 81 TxaIvp Loctr R:D 00000000 83 Caller Using (Save_Area,Sa_End),R13 00000000 90EC D00C 0000000C 84 Stm R14,R12,Caller.Sa_Regs 00000004 41C0 F000 00000000 85 LA R12,0(,R15) R:C 00000000 86 Using txaivp,R12 C 060 00000000 00000060 87 Using (Save_Area,Sa_End),MySaveArea 00000008 41E0 C060 00000000 88 La R14,Save_Area 0000000C 50D0 C064 00000004 89 St R13,Sa_Back 00000010 50E0 D008 00000008 90 St R14,Caller.Sa_Forward 00000014 18DE 91 Lr R13,R14 92 Drop Caller 94 Wto 'Hello World from &Sysasm &Sysver' 00000016 0700 95+ cnop 0,4 01-WTO 00000018 4510 C04C 0000004C 96+ bal 1,WtoSvc0001 01-WTO 0000001C 002F0000 97+ dc al2(WtoEnd0001-*,0) 01-WTO 00000020 C88593939640E696 98+ dc ce'Hello World from TACHYON Z/ASSEMBLER 3.1.00' 01-WTO 00000028 9993844086999694 + 00000030 40E3C1C3C8E8D6D5 + 00000038 40E961C1E2E2C5D4 + 00000040 C2D3C5D940F34BF1 + 00000048 4BF0F0 + 0000004B 99+WtoEnd0001 equ * 01-WTO 0000004C 100+WtoSvc0001 ds 0h 01-WTO 0000004C 0A23 101+ svc 35 01-WTO 103 *********************************************************************** 104 * Entry linkage back to MVS * 105 *********************************************************************** 0000004E 106 Exit Ds 0h 0000004E 58D0 C064 00000004 107 L R13,Sa_Back R:D 00000000 108 Caller Using (Save_Area,Sa_End),R13 00000052 98EC D00C 0000000C 109 Lm R14,R12,Caller.Sa_Regs 00000056 17FF 110 Xr R15,R15 00000058 07FE 111 Br R14 TXAIVP Tachyon z/Assembler - Installation Verification Program PAGE 8 Active USINGs: Caller.Save_Area(X'48'),R13 Save_Area(X'48'),R12+X'60' TXAivp,R12 Loc Object Code Addr1 Addr2 Stmt Source Statement X390 3.1.00 2008/10/24 10.47 113 Drop 115 *********************************************************************** 116 * Storage areas * 117 *********************************************************************** 000000A8 0000005A 000000A8 118 Storage Loctr 000000A8 120 Literals Ltorg 122 *********************************************************************** 123 * Standard Linkage Save Area * 124 *********************************************************************** 00000000 00000000 00000048 125 Save_Area Dsect 00000000 126 Sa_PL_I Ds F 00000004 127 Sa_Back Ds A 00000008 128 Sa_Forward Ds A 0000000C 129 Sa_Regs Ds ((Sa_End-*)/L'Sa_R14)F 00000048 00000048 0000000C 130 Org Sa_Regs 0000000C 131 Sa_R14 Ds F 00000010 132 Sa_R15 Ds F 00000014 133 Sa_R0 Ds F 00000018 134 Sa_R1 Ds F 0000001C 135 Sa_R2 Ds F 00000020 136 Sa_R3 Ds F 00000024 137 Sa_R4 Ds F 00000028 138 Sa_R5 Ds F 0000002C 139 Sa_R6 Ds F 00000030 140 Sa_R7 Ds F 00000034 141 Sa_R8 Ds F 00000038 142 Sa_R9 Ds F 0000003C 143 Sa_R10 Ds F 00000040 144 Sa_R11 Ds F 00000044 145 Sa_R12 Ds F 00000048 146 Sa_End Equ * 00000048 147 SaveAreaSize Equ Sa_End-Save_Area 00000000 149 End TXAIVP TXAIVP Symbol Cross Reference PAGE 9 Symbol Length Value Id Type Asm Program Defn References X390 3.1.00 2008/10/24 10.47 Caller *** Qualifier *** U 83 83U 84 90 92D 108U 109 MySaveArea 8 00000060 00000002 F FD 80 87U R12 1 0000000C U GR 46 84 85M 86U 109M R13 1 0000000D U GR 47 83U 89 91M 107M 108U R14 1 0000000E U GR 48 84 88M 90 91 109M 111B R15 1 0000000F U GR 49 85 110M Sa_Back 4 00000004 FFFFFFFF A A 127 89M 107 Sa_End 1 00000048 FFFFFFFF U 146 83U 87U 108U 129 147 Sa_Forward 4 00000008 FFFFFFFF A A 128 90M Sa_Regs 4 0000000C FFFFFFFF F F 129 84M 109 130 Sa_R14 4 0000000C FFFFFFFF F F 131 129 Save_Area 1 00000000 FFFFFFFF J 125 83U 87U 88 108U 147 SaveAreaSize 1 00000048 U 147 80 Storage 1 0000005A 00000002 J 79 118 TXAivp 1 00000000 00000002 J 77 81 86U 149 WtoEnd0001 1 0000004B 00000002 U 99 97 WtoSvc0001 2 0000004C 00000002 H H 100 96B TXAIVP Unreferenced CSECT Symbols PAGE 10 Defn Symbol X390 3.1.00 2008/10/24 10.47 106 Exit 120 Literals TXAIVP General Purpose Register Cross Reference PAGE 11 Register References (M=modified, B=branch, U=USING, D=DROP, N=index) X390 3.1.00 2008/10/24 10.47 0(0) 84 109M 1(1) 84 96M 109M 2(2) 84 109M 3(3) 84 109M 4(4) 84 109M 5(5) 84 109M 6(6) 84 109M 7(7) 84 109M 8(8) 84 109M 9(9) 84 109M 10(A) 84 109M 11(B) 84 109M 12(C) 84 85M 86U 109M 113D 13(D) 83U 89 91M 92D 107M 108U 113D 14(E) 84 88M 90 91 109M 111B 15(F) 84 85 109M 110M TXAIVP Dsect Cross Reference PAGE 12 Dsect Length Id Defn Con Member X390 3.1.00 2008/10/24 10.47 Save_Area 00000048 FFFFFFFF 125 PRIMARY INPUT TXAIVP MACRO and COPY Code Source Summary PAGE 13 Con Source Members X390 3.1.00 2008/10/24 10.47 1 *.MAC TXAIVP WTO TXAIVP MACRO and COPY Code Cross Reference PAGE 14 Macro Con Defn Called by References X390 3.1.00 2008/10/24 10.47 TXAIVP 1 COPY PRIMARY INPUT 24 WTO 1 52 PRIMARY INPUT 94 TXAIVP USING Map PAGE 15 Stmt Level Action Type Id Address Range Reg Max Last Text X390 3.1.00 2008/10/24 10.47 83 USING Labeled FFFFFFFF 00000000 00000048 13 0000C 90 Caller.(Save_Area,Sa_End),R13 86 USING Ordinary 00000002 00000000 00001000 12 00060 96 txaivp,R12 87 USING Dependent FFFFFFFF +00000060 00000048 12 00064 107 (Save_Area,Sa_End),MySaveArea 92 DROP 13 Caller 108 USING Labeled FFFFFFFF 00000000 00000048 13 0000C 109 Caller.(Save_Area,Sa_End),R13 113 DROP ALL TXAIVP Diagnostic Cross Reference and Assembler Summary PAGE 16 X390 3.1.00 2008/10/24 10.47 No statements flagged in this assembly. TACHYON Z/ASSEMBLER, VERSION 3.1.00 SYSTEM: Windows2000 5.0 JOBNAME: TACHYON0 STEPNAME: Administrator Primary input: lines 1 to 96 of txaivp.390 SYSLIB library records read: 47 SYSUT1 work file size: 21997 bytes SYSUT2 work file size: 2886 bytes SYSLIN file records written: 15 TXA000I Return code 0, elapsed time 0.02 seconds, processor time 0.015 seconds.