
                     * PAG
                     **********************************************************
                     *  VERIFY- VERIFY UTILITY                                *
                     **********************************************************
                     * OPT PAG
                     *
                     * 'VERIFY' UTILITY COPYRIGHT (C), 1979 BY
                     *
                     *   TECHNICAL SYSTEMS CONSULTANTS, INC.
                     *   BOX 2570
                     *   WEST LAFAYETTE, INDIANA  47906
                     *   USA
                     
                     * BY FLD ON 25-11-2011 FOR VEGAS
                     * DISASSEMBLY BY DYNAMITE OF 1.VERIFY.CMD
                     
                     * STANDARD PRE-NAMED LABEL EQUATES
                     
               CC02  EOLCHR  EQU    $CC02
               CD03  WARMS   EQU    $CD03
               CD15  GETCHR  EQU    $CD15
               CD1E  PSTRNG  EQU    $CD1E
               CD27  NXTCH   EQU    $CD27
               D435  VRFYFG  EQU    $D435
                     
                     * ASCII CODE EQUATES
                     
               0004  EOT     EQU    $04
                     
                     
  C100                       ORG    $C100
                     
  C100 20   01       CMDADR  BRA    VERIF1    SKIP VERSION NUMBER
  C102 01                    FCB    $01       VERSION NUMBER
  C103 BD   CD27     VERIF1  JSR    NXTCH     GET NEXT CHARACTER
  C106 25   2A               BCS    VERIF6    JUMP IF NOTHING
  C108 84   5F               ANDA   #$5F
  C10A 81   4F               CMPA   #$4F      COMPARE WITH O
  C10C 26   24               BNE    VERIF6    JUMP IF NOT O
  C10E BD   CD27             JSR    NXTCH     GET NEXT CHARACTER
  C111 25   1F               BCS    VERIF6    JUMP IF NOTHING
  C113 84   5F               ANDA   #$5F
  C115 81   4E               CMPA   #$4E      COMPARE WITH N
  C117 27   0F               BEQ    VERIF4    JUMP IF YES
  C119 81   46               CMPA   #$46      COMPARE WITH F
  C11B 26   15               BNE    VERIF6    JUMP IF NOTHING GOOD
                     * SET VERIF TO OF
  C11D 7F   D435             CLR    VRFYFG    CLEAR FLAG
  C120 8E   C16D     VERIF2  LDX    #TXTOFF   LOAD TEXT
  C123 BD   CD1E     VERIF3  JSR    PSTRNG    PRINT IT
  C126 20   34               BRA    VERIF9
                     * SET VERIF TO ON
  C128 86   FF       VERIF4  LDA    #$FF
  C12A B7   D435             STA    VRFYFG    STOTE TO THE FLAG
  C12D 8E   C17C     VERIF5  LDX    #TXTON    LOAD TEXT
  C130 20   F1               BRA    VERIF3    PRINT IT
                     * VERIFY PLAG
  C132 7D   D435     VERIF6  TST    VRFYFG
  C135 26   05               BNE    VERIF7    JUMP IF NOT ZERO
  C137 8E   C16D             LDX    #TXTOFF   LOAD TEXT
  C13A 20   03               BRA    VERIF8    JUMP
  C13C 8E   C17C     VERIF7  LDX    #TXTON
  C13F BD   CD1E     VERIF8  JSR    PSTRNG
  C142 8E   C18A             LDX    #TXTCHA   LOAD TEXT TO CHANGE
  C145 BD   CD1E             JSR    PSTRNG    PRINT IT
  C148 BD   CD15             JSR    GETCHR    GET CHARACTER
  C14B 84   5F               ANDA   #$5F
  C14D 81   4E               CMPA   #$4E      IS IT N
  C14F 27   0B               BEQ    VERIF9    JUMP TO CONTINUE
  C151 81   4F               CMPA   #$4F      IS IT O
  C153 26   DD               BNE    VERIF6    NOT ANY EXPECTED CHARACTER
  C155 73   D435             COM    VRFYFG    CHANGE FLAG
  C158 27   C6               BEQ    VERIF2    PRINT TEXT OFF
  C15A 20   D1               BRA    VERIF5    PRINT TEXT ON
  C15C BD   CD27     VERIF9  JSR    NXTCH     GET NEXT CHARACTER
  C15F 24   FB               BCC    VERIF9    LOOP UNTIL CR OR EOL
  C161 81   0D               CMPA   #$0D      COMPARE WITH CR
  C163 27   05               BEQ    VERIFA    FINISHED
  C165 B1   CC02             CMPA   EOLCHR    COMPARE WITH EOL
  C168 26   F2               BNE    VERIF9    LOOP
  C16A 7E   CD03     VERIFA  JMP    WARMS
  C16D 56 45 52 49   TXTOFF  FCC    "VERIFY EST OFF"
  C171 46 59 20 45   
  C175 53 54 20 4F   
  C179 46 46         
  C17B 04                    FCB    $04
  C17C 56 45 52 49   TXTON   FCC    "VERIFY EST ON"
  C180 46 59 20 45   
  C184 53 54 20 4F   
  C188 4E            
  C189 04                    FCB    $04
  C18A 43 48 41 4E   TXTCHA  FCC    "CHANGEMENT ? "
  C18E 47 45 4D 45   
  C192 4E 54 20 3F   
  C196 20            
  C197 04                    FCB    $04
                     
                             END    CMDADR

0 ERROR(S) DETECTED

SYMBOL TABLE:

CMDADR C100   EOLCHR CC02   EOT    0004   GETCHR CD15   NXTCH  CD27   
PSTRNG CD1E   TXTCHA C18A   TXTOFF C16D   TXTON  C17C   VERIF1 C103   
VERIF2 C120   VERIF3 C123   VERIF4 C128   VERIF5 C12D   VERIF6 C132   
VERIF7 C13C   VERIF8 C13F   VERIF9 C15C   VERIFA C16A   VRFYFG D435   
WARMS  CD03   




