ibm:vm370-lib:macro:dmstms.macro_src
Table of Contents
DMSTMS Source
References
- Fixes Applied : 0
- This Source Date : Saturday, December 9, 1978
- Last Fix ID : [Unmodified]
Source Listing
- DMSTMS.MACRO.txt
- MACRO 00001000
- DMSTMS &TRK,&DEN,&TRT 00002000
- GBLC &DMSMODE 00003000
- LCLC &DD,&MMM 00004000
- AIF (T'&TRK EQ 'O').NTRK 00005000
- AIF ('&TRK' NE '9').CHKS 00006000
- .NINE ANOP 00007000
- &DD SETC '11' 00008000
- &MMM SETC '000' 00009000
- AIF (T'&DEN EQ 'O').VTRT 00010000
- AIF ('&DEN' EQ '1600').VTRT 00011000
- AIF ('&DEN' EQ '6250').SETHI 00012000
- &MMM SETC '001' 00013000
- AIF ('&DEN' NE '800').ERR1 00014000
- .VTRT AIF (T'&TRT NE 'O').ERR1 00015000
- .EXIT ANOP 00016000
- &DMSMODE SETC '&DD&MMM.011' 00017000
- MEXIT 00018000
- .SETHI ANOP 00019000
- &MMM SETC '010' 00020000
- AGO .VTRT 00021000
- .CHKS AIF ('&TRK' NE '7').ERR1 00022000
- .SEVN ANOP 00023000
- &DD SETC '10' 00024000
- &MMM SETC '110' 00025000
- AIF (T'&DEN EQ 'O').CTRT 00026000
- AIF ('&DEN' EQ '800').CTRT 00027000
- &DD SETC '01' 00028000
- AIF ('&DEN' EQ '556').CTRT 00029000
- &DD SETC '00' 00030000
- AIF ('&DEN' NE '200').ERR1 00031000
- .CTRT AIF (T'&TRT EQ 'O').EXIT 00032000
- AIF ('&TRT' EQ 'O').EXIT 00033000
- &MMM SETC '010' 00034000
- AIF ('&TRT' EQ 'OC').EXIT 00035000
- &MMM SETC '111' 00036000
- AIF ('&TRT' EQ 'OT').EXIT 00037000
- &MMM SETC '100' 00038000
- AIF ('&TRT' EQ 'E').EXIT 00039000
- &MMM SETC '101' 00040000
- AIF ('&TRT' EQ 'ET').EXIT 00041000
- AGO .ERR1 00042000
- .NTRK AIF (T'&TRT NE 'O').SEVN 00043000
- AIF (T'&DEN EQ 'O').NDEN 00044000
- AIF ('&DEN' EQ '800').NINE 00045000
- AIF ('&DEN' EQ '1600').NINE 00046000
- AIF ('&DEN' EQ '6250').NINE 00047000
- AGO .SEVN 00048000
- .ERR1 MNOTE 8,'INVALID OR CONFLICTING MODE PARAMETERS' 00049000
- .NDEN ANOP 00050000
- &DMSMODE SETC '0' 00051000
- MEND 00052000
ibm/vm370-lib/macro/dmstms.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator