RESET83

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