MKPROG [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: MKPROG)}}
====== MKPROG ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_GLJ|MACROS GLJ]]

**Used in:** 

<code - MKPROG.mac.txt>
 5L8Q    #MAC  MKPROG
 5LNB    #SKIP IZUNSTABLE+IZSTABLE&IZ%A  
 5M82    (   
 5MML          LDX   0  BIT11
 5N7=          ANDX  0  JMISC(%B)           [JUMP IF PROG SWAPPED OUT
 5NLW          BNZ   0  MMKPROG  
 5P6G    )   
 5PL6    #SKIP IZUNSWAP&IZ%A 
 5Q5Q    (   
 5QKB          LDX   0  BIT10
 5R52          ANDX  0  JMISC(%B)
 5RJL          BZE   0  (GEOERR)            [ERROR UNLESS PROG SWAPPED IN
 5S4=          ADS   0  JMISC(%B)           [CHANGE FROM SWAPPEDIN TO UNSWAPPABLE
 5SHW    )   
 5T3G    #SKIP IZSWAP+IZUNSTABLE&IZ%A
 5TH6    (   
 5W2Q          LDX   0  BIT9 
 5WGB          ANDX  0  JMISC(%B)
 5X22          BZE   0  (GEOERR)            [ERROR UNLESS PROG UNSWAPPABLE   
 5XFL          SRL   0  1
 5X^=          SBS   0  JMISC(%B)           [CHANGE FROM UNSWAPPABLE TO SWAPPEDIN
 5YDW    )   
 5YYG    #SKIP IZSTABLE&IZ%A 
 5^D6    (   
 5^XQ          LDX   0  BIT10
 62CB          ANDX  0  JMISC(%B)
 62X2          BNZ   0  MMKPROG1            [J IF PROG SWAPPED IN
 63BL          SWAPOUT                      [WAIT FOR SWAP TO FINISH 
 63W=          BRN      MMKPROG  
 64*W    MMKPROG1
 64TG          ADS   0  JMISC(%B)
 65*6    )   
 65SQ    MMKPROG 
 66#B    #NOR
</code>