14 22FL ...#SEG  RESET8                       [R.WEYAND
   7 22_=    #OPT  K0RESET=0 
   9 23DW    #LIS  K0RESET>K0ALLGEO  
   9 23YG                   8HRESET8 
   7 24D6    # ENTRY POINTS  
  11 24XQ          SEGENTRY K1RESET,Z1RESET  
  10 25CB          MENDAREA 10,K100RESET 
  20 25X2    #     THIS SEGMENT TAKES THE SPECIFIED WIDTH PARAMETER AND STORES   
  20 26BL    #     IT IN THE AMXOR/ADCB FOR 7900 AND THE AMXOR/ALCB FOR 7007/7920
  21 26GH ...#     BUT IF THE CODE PARAMETER IS GIVEN AND WAS ISSUED FROM A VDU VIA  
  21 26LD ...#     A 7900,THE SEGMENT WILL RECORD THE REQUIRED CODE CONVERSION,CODE 1
  12 26Q* ...#     OR CODE 2,IN THE AMXOR/ADCB   
   5 26W=    XCHAR +5
   7 27*W    XWID  8HWIDTH   
   6 27TG    XMIN  +40   
   6 28*6    XMAX  +511  
   4 28G# ...#   
   7 28MG ...XCODE +4,4HCODE 
   5 28SQ    Z1RESET 
  10 29#B          PARABEG  1,XCHAR(1)   
  10 29S2          MHUNT    3,CPB,CUNI   
   9 2=?L          LDX   4  ANUM(3)  
   8 2=R= ...      BZE   4  XERR 
   8 2?=W ...      BNG   4  XCOD 
   8 2?QG          CHNUMCOD ,3   
  10 2#=6          TESTREP  CHNUMERR,XEND
  10 2#PQ          LDX   5  ACOMMUNE1(2) 
  17 2*9B          BXGE  5  XMIN(1),XCHC        [MIN ALLOWED IS 40   
   9 2*P2          LDX   5  XMIN(1)  
   8 2B8L          BRN      XCHCA
  17 2BN=    XCHC  BXL   5  XMAX(1),XCHCA       [MAX ALLOWED IS 511  
   9 2C7W          LDX   5  XMAX(1)  
   5 2CMG    XCHCA   
  10 2D76          LDCH  4  JSOURCE1(2)  
   8 2DLQ          SBN   4  10   
   8 2F6B          BZE   4  XCHMX
   7 2FL2          SBN   4  1
   8 2G5L          BZE   4  XCHMX
   8 2GK=          SBN   4  13   
   8 2H4W          BNZ   4  XEND 
  10 2HJG          MHUNTW   3,AMXOR,ADCB 
  17 2HPN ...      LDX   0  ICURSOR(3)       [IGNORE IF VDU, B1198   
   8 2HWW ...      BNG   0  XEND 
   9 2J46          DEX   5  ICHARS(3)
   6 2JHQ    XEND  ENDCOM
  10 2K3B    XCHMX MHUNTW   3,AMXOR,ALCB 
  17 2K6G ...      SMO      A1+FPTR(3)        [IGNORE IF VDU, B1198  
   9 2K9L ...      LDEX  0  FOURTHWD 
   8 2K#Q ...      SBN   0  10   
   8 2KCW ...      BZE   0  XEND 
   9 2KH2          DEX   5  CHARS(3) 
   8 2L2L          BRN      XEND 
   4 2L37 ...#   
   7 2L3N ...XCOD  FREECORE 3
  10 2L49 ...      PARABEG  1,XCODE(1)   
  10 2L4Q ...      MHUNT    3,CPB,CUNI   
   9 2L5? ...      LDX   4  ANUM(3)  
  19 2L5S ...      BNG   4  XERR                [FIRST PARAMETER NOT ^CODE^  
  20 2L64 ...      BZE   4  XERR                [FIRST PARAMETER NOT ^CODE^N^^   
  18 2L6* ...      CHNUMCOD ,3                  [CONVERT ^CODE NUMBER^   
  21 2L6W ...      TESTREP  CHNUMERR,XEND       [ERROR IF CONVERSION NOT SUCCESSFUL  
  10 2L7C ...      LDCH  0  JSOURCE1(2)  
   8 2L7Y ...      SBN   0  #30  
  16 2L8F ...      BNZ   0  XEND                [NOT MOP ON 7900 
  10 2L92 ...      MHUNTW   3,AMXOR,ADCB 
  10 2L9H ...      SMO      A1+FPTR(3)   
   9 2L=4 ...      LDEX  0  FOURTHWD 
   8 2L=K ...      SBN   0  10   
  16 2L?6 ...      BNZ   0  XEND                [NOT A 7181/1 VDU
   8 2L?M ...      LDCT  0  #400 
  16 2L#8 ...      LDX   5  ACOMMUNE1(2)        [^CODE NUMBER^   
   7 2L#P ...      SBN   5  1
  15 2L*= ...      BNZ   5  XCOD2               [NOT ^CODE1^ 
  21 2L*R ...      ORS   0  ICONTU(3)           [CODE 1 : UNSET CODE 2 FLAG IF SET   
   9 2LB# ...      ERS   0  ICONTU(3)
   8 2LBT ...      BRN      XEND 
   7 2LCB ...XCOD2 SBN   5  1
  17 2LCX ...      BNZ   5  XERR1               [NOT ^CODE2^ : ERROR 
  18 2LDD ...      ORS   0  ICONTU(3)           [CODE 2 : SET CODE 2 FLAG
   8 2LD_ ...      BRN      XEND 
   4 2LFG ...#   
   9 2LG=    XERR  COMERR   JPARMIS  
  17 2LQ4 ...XERR1 COMERR   ERMCH               ['N' NOT RECOGNISED  
   4 2L_W    #END
   8 ____ ...35574353000300000000