
                     * PAG
                     **********************************************************
                     *  JUMP - STARTS EXECUTION OF A PROGRAM IN MEMORY        *
                     **********************************************************
                     * OPT PAG
                     *
                     * 'JUMP' 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.JUMP.CMD
                     
                     * STANDARD PRE-NAMED LABEL EQUATES
                     
               C840  SYSFCB  EQU    $C840
               CD03  WARMS   EQU    $CD03
               CD3F  RPTERR  EQU    $CD3F
               CD42  GETHEX  EQU    $CD42
                     
                     
  C100                       ORG    $C100
                     
  C100 20   01       CMDADR  BRA    JUM1
  C102 01                    FCB    $01       VERSION NUMBER
  C103 BD   CD42     JUM1    JSR    GETHEX    READ HEXADECIMAL NUMBER
  C106 25   05               BCS    JUM2      JUMP ON ERROR
  C108 5D                    TSTB             TEST FIRST CHARACTER RED
  C109 27   02               BEQ    JUM2      JUMP ON ERROR
  C10B 6E   84               JMP    0,X       IF OK JUMP TO THE RED CHARACTER
                     * ERROR IN THE ADRESS
  C10D 8E   C840     JUM2    LDX    #SYSFCB
  C110 C6   1A               LDB    #$1A      SYNTAX ERROR
  C112 E7   01               STB    1,X       STORE ERROR CODE
  C114 BD   CD3F             JSR    RPTERR    REPORT ERROR
  C117 7E   CD03             JMP    WARMS     EXIT
                     
                             END    CMDADR

0 ERROR(S) DETECTED

SYMBOL TABLE:

CMDADR C100   GETHEX CD42   JUM1   C103   JUM2   C10D   RPTERR CD3F   
SYSFCB C840   WARMS  CD03   




