L     P#2.0                       //同一个表中相邻流程存储空间地址的偏移量

      T     MD   100

      L     P#216.0                     //同一流程存储空间相邻表间的地??屏?

      T     MD   104

      L     P#0.0                       //流程表起始地址

      T     MD   108                    //表1指针

      T     MD   112                    //表2指针

      T     MD   116                    //表3指针

      T     MD   120                    //表4指针

      T     MD   124                    //表5指针     

      L     0

      T     MW   140                    //同一流程控制信息字1

      T     MW   142                    //同一流程控制信息字2

      T     MW   144                    //同一流程控制信息字3

      T     MW   146                    //同一流程控制信息字4

      T     MW   148                    //同一流程控制信息字5

      T     "PRO_NUM"                   //满足条件的流程个数

      T     "PRO_LAST_NUM"              //满足条件的最后一条流程的流程号

      T     "COLOR_WORD1"               //颜色处理字1

      T     "COLOR_WORD2"               //颜处理色字2

      T     "COLOR_WORD3"               //颜色处理字3

      T     "COLOR_WORD4"               //颜色处理字4

      T     "COLOR_WORD5"               //颜色处理字5

      L     "MULT_COLOR_WORD1"          //多流程颜色处理字1

      T     "COLOR_WORD1"

      L     "MULT_COLOR_WORD2"          //多流程颜色处理字2

      T     "COLOR_WORD2"

      L     "MULT_COLOR_WORD3"          //多流程颜色处理字3

      T     "COLOR_WORD3"

      L     "MULT_COLOR_WORD4"          //多流程颜色处理字4

      T     "COLOR_WORD4"

      L     "MULT_COLOR_WORD5"          //多流程颜色处理字5

      T     "COLOR_WORD5"

      A(    

      L     "PC_WORD"

      T     "PC_INT"

      SET   

      SAVE  

      CLR   

      A     BR

      )     

      A(    

      L     "PC_INT"

      L     0

      <>I   

      )     

      JNB   EXIT

      L     1

      T     MW   160                    //流程号显示辅助字

      L     108

NEXT: T     "LOOP_NUM"                  //循环次数

      CLR   

      OPN   "LABLE_INIT"

      L     "R_S_K1"

      L     DBW [MD 108]

      AW    

      XOW   

      JZ    SEAR

      JN    COMM

SEAR: L     MD   104

      L     MD   108

      +D    

      T     MD   112

      L     "R_S_K2"

      L     DBW [MD 112]

      AW    

      XOW   

      JZ    THRE

      JN    COMM

THRE: L     MD   104

      L     MD   112

      +D    

      T     MD   116

      L     "R_S_K3"

      L     DBW [MD 116]

      AW    

      XOW   

      JZ    FOUR

      JN    COMM

FOUR: L     MD   104

      L     MD   116

      +D    

      T     MD   120

      L     "R_S_K4"

      L     DBW [MD 120]

      AW    

      XOW   

      JZ    FIVE

      JN    COMM

FIVE: L     MD   104

      L     MD   120

      +D    

      T     MD   124

      L     "R_S_K5"

      L     DBW [MD 124]

      AW    

      XOW   

      JZ    CUN

COMM: L     MD   100

      L     MD   108

      +D    

      T     MD   108                    //条件不满足，移至下一条流程搜索

      L     1

      L     MW   160

      +I    

      T     MW   160

      L     "LOOP_NUM"                  //循环次数减一

      LOOP  NEXT

      JU    EXIT

CUN:  L     DBW [MD 108]

      T     MW   140

      L     MW   140

      L     "COLOR_WORD1"

      OW    

      T     "COLOR_WORD1"

      L     DBW [MD 112]

      T     MW   142

      L     MW   142

      L     "COLOR_WORD2"

      OW    

      T     "COLOR_WORD2"

      L     DBW [MD 116]

      T     MW   144

      L     MW   144

      L     "COLOR_WORD3"

      OW    

      T     "COLOR_WORD3"

      L     DBW [MD 120]

      T     MW   146

      L     MW   146

      L     "COLOR_WORD4"

      OW    

      T     "COLOR_WORD4"

      L     DBW [MD 124]

      T     MW   148

      L     MW   148

      L     "COLOR_WORD5"

      OW    

      T     "COLOR_WORD5"

      L     MW   160

      T     "PRO_LAST_NUM"

      L     1

      L     "PRO_NUM"

      +I    

      T     "PRO_NUM"

      JU    COMM

EXIT: NOP   0