{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: TRUEDORM)}}
====== TRUEDORM ======
(GIN Macro)

**Defined in:** [[george:source:LLSMACROS|LLSMACROS]]

**Used in:** [[george:source:CHARGESC867|CHARGESC867]], [[george:source:COMPROB867|COMPROB867]], [[george:source:COOR865|COOR865]]

<code - TRUEDORM.mac.txt>
 9632 ...#MAC  TRUEDORM  
 9633 ...[   
 9634 ...[     MACRO TO MAKE THE JOBS PROGRAM TRULY DORMANT  
 9635 ...[     %A - PTR TO JOB BLOCK(IF ABSENT,THE JOB BLOCK WILL BE FOUND)  
 9636 ...[   
 9637 ...#STR  %A
 9638 ...      LDX   2  %A   
 9639 ...#STR  %A
 963= ...#SKI
 963? ...      LDN   2  0
 963# ...      CALL  1  (ATRUED) 
 963* ...#NOR
</code>