
                     * PAG
                     **********************************************************
                     *  VERSION - VERSION OF COMMAND UTILITY                  *
                     **********************************************************
                     * OPT PAG
                     *
                     * 'VERSION' UTILITY COPYRIGHT (C), 1979 BY
                     *
                     *   TECHNICAL SYSTEMS CONSULTANTS, INC.
                     *   BOX 2570
                     *   WEST LAFAYETTE, INDIANA  47906
                     *   USA
                     
                     * BY FLD ON 27-11-2011 FOR VEGAS
                     * DISASSEMBLY BY DYNAMITE OF 1.VERSION.CMD
                     
                     * STANDARD PRE-NAMED LABEL EQUATES
                     
               C840  SYSFCB  EQU    $C840
               CD03  WARMS   EQU    $CD03
               CD1E  PSTRNG  EQU    $CD1E
               CD2D  GETFIL  EQU    $CD2D
               CD33  SETEXT  EQU    $CD33
               CD39  OUTDEC  EQU    $CD39
               CD3F  RPTERR  EQU    $CD3F
               D403  FMSCLS  EQU    $D403
               D406  FMS     EQU    $D406
                     
                     * ASCII CODE EQUATES
                     
               0004  EOT     EQU    $04
                     
                     * EXTERNAL LABEL EQUATES
                     
               0000  L0000   EQU    $0000
                     
                     
  C100                       ORG    $C100
                     
  C100 20   03       CMDADR  BRA    VERSI1
  C102 01                    FCB    $01
  C103 00            MEM1    FCB    $00
  C104 00            MEM2    FCB    $00
  C105 8E   C840     VERSI1  LDX    #SYSFCB
  C108 BD   CD2D             JSR    GETFIL    GET FILE SPECIFICATION
  C10B 25   3F               BCS    VERSI3    JUMP ON ERROR
  C10D 86   02               LDA    #2        CODE FOR CMD EXTENSION
  C10F BD   CD33             JSR    SETEXT    SET CMD EXTENSION
  C112 86   01               LDA    #1        CODE FOR OPEN FOR READ
  C114 A7   84               STA    0,X       STORE IN FCB
  C116 BD   D406             JSR    FMS       CALL FMS
  C119 26   31               BNE    VERSI3    JUMP ON ERROR
  C11B BD   D406             JSR    FMS       CALL FMS AGAIN
  C11E 26   2C               BNE    VERSI3    JUMP ON ERROR
  C120 81   02               CMPA   #2        COMPARE WITH 2
  C122 26   31               BNE    VERSI5    JUMP IF NOT
  C124 86   0A               LDA    #$0A      LOOK FOR BYTE $0A
  C126 A7   88 23            STA    35,X      STORE IN RANDOM BYTE TO LOAD
  C129 86   11               LDA    #$11      CODE FUNCTION FOR GET RANDOM BYTE
  C12B A7   84               STA    0,X       STORE IN FCB
  C12D BD   D406             JSR    FMS       CALL FMS
  C130 26   1A               BNE    VERSI3    JUMP ON ERROR
  C132 7F   C103             CLR    MEM1      CLEAR MEM1
  C135 B7   C104             STA    MEM2      STORE IN MEM2
  C138 8E   C173             LDX    #TXTVER   VERSION IS ...
  C13B BD   CD1E             JSR    PSTRNG    PINT STRING
  C13E 8E   C103             LDX    #MEM1     LOAD VERSION NUMBER (2 BYTES)
  C141 5F                    CLRB             CLEAR B
  C142 BD   CD39             JSR    OUTDEC    OUTPUT VERSION NUMBER
  C145 20   08               BRA    VERSI4    ALL DONE
  C147 BD   CD1E     VERSI2  JSR    PSTRNG
  C14A 20   03               BRA    VERSI4
  C14C BD   CD3F     VERSI3  JSR    RPTERR
  C14F BD   D403     VERSI4  JSR    FMSCLS
  C152 7E   CD03             JMP    WARMS
  C155 8E   C15A     VERSI5  LDX    #TXTERR
  C158 20   ED               BRA    VERSI2
  C15A 54 59 50 45   TXTERR  FCC    "TYPE DU FICHIER INTERDIT"
  C15E 20 44 55 20   
  C162 46 49 43 48   
  C166 49 45 52 20   
  C16A 49 4E 54 45   
  C16E 52 44 49 54   
  C172 04                    FCB    $04
  C173 20 56 45 52   TXTVER  FCC    " VERSION #"
  C177 53 49 4F 4E   
  C17B 20 23         
  C17D 04                    FCB    $04
                     
                             END    CMDADR

0 ERROR(S) DETECTED

SYMBOL TABLE:

CMDADR C100   EOT    0004   FMS    D406   FMSCLS D403   GETFIL CD2D   
L0000  0000   MEM1   C103   MEM2   C104   OUTDEC CD39   PSTRNG CD1E   
RPTERR CD3F   SETEXT CD33   SYSFCB C840   TXTERR C15A   TXTVER C173   
VERSI1 C105   VERSI2 C147   VERSI3 C14C   VERSI4 C14F   VERSI5 C155   
WARMS  CD03   




