home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug035.ark / TRACE.ASM < prev    next >
Encoding:
Assembly Source File  |  1984-04-29  |  1.8 KB  |  72 lines
  1. ; 8 SEPT 79; REMOVE DOUBLE QUOTES.
  2. ; I ADD THE SURVIVAL MODULE AND SOME COMMENTS.
  3. ;
  4. ; THIS ROUTINE IS IDENTICAL TO 'EXEC.COM',WHICH LOADS IN
  5. ; 'EXEC.OBJ' THHE ACTUAL EXECUTOR OF FELIX PROGRAMS...
  6. ; EXCEPT THAT IT SETS THE 'TRACE' FLAG SO THAT EXEC WILL
  7. ; PRINT PC AND OP-CODE AS IT RUNS.
  8. ;
  9. TRFLAG    EQU    5095H
  10. FCBMOV    EQU    5051H
  11. SYSFCB    EQU    5CH
  12. DSKRD    EQU    5039H
  13. EXEC    EQU    5018H
  14. * THIS SECTION OF CODE READS IN EXEC AND TURNS ON THE DAZZLER FOR US
  15.     ORG    100H
  16.     LXI    SP,1000H
  17.     CALL    SURVIVAL    ;SEE IF THE REST IS WORTHWHILE.
  18. * ASSUME .FEX EXTENSION ON OBJECT FILE
  19.     LXI    H,SYSFCB+9
  20.     MVI    M,'F'
  21.     INX    H
  22.     MVI    M,'E'
  23.     INX    H
  24.     MVI    M,'X'
  25.     LXI    H,SYSFCB
  26.     LXI    D,DUMMY
  27.     CALL    FCBMOV    ;SAVE FCB OF FILE TO EXECUTE
  28.     XCHG
  29.     PUSH    H    ;SAVE @ OF THAT FCB
  30.     LXI    H,EXCFCB
  31.     CALL    FCBMOV    ;GET READY TO READ "EXEC.OBJ"
  32.     LHLD    EXEC+1    ;GET EXEC START ADDRESS
  33.     CALL    DSKRD    ;READ "EXEC.OBJ" THERE
  34.     POP    H
  35.     CALL    FCBMOV    ;RESET SYSTEM FCB TO FELIX PROGRAM
  36. ; 
  37. ; TRACE WANTED
  38. ;
  39.     MVI    A,0FFH
  40.     STA    TRFLAG
  41.     JMP    EXEC    ;EXECUTE THE FELIX PROGRAM SPECIFIED
  42. * DATA AREA
  43. DUMMY    DS    33    ;DUMMY FCB
  44. EXCFCB    DB    0,'EXEC    ','OBJ',0,0,0,0
  45.     ORG    EXCFCB+32
  46.     DB    0
  47. ; 16 JULY 79 : MOSHELL
  48. ;
  49. ;TACK ON CODE FOR ROUTINES THAT EXPECT THE 'FELIX' UTILITY
  50. ;PACKAGE TO BE IN RESIDENCE. CRIES 'HELP HELP' (ACTUALLY
  51. ;IN A DIGNIFIED WAY) WHEN THE DISPATCH TABLE
  52. ;AT 5000H IS MISSING. CALLS CPM BIOS...JUMPS TO WARM BOOT
  53. ;IF THE TABLE ISN'T THERE.
  54. ;
  55. ;THIS HAS NO ORG BECAUSE IT'S TACKED ON TO STUFF.
  56. ;
  57. BIOS    EQU    5
  58. CPM    EQU    0
  59. SURVIVAL:LDA    5000H    ;WHERE 'FELIX' STARTS.
  60.     CPI    0C3H    ;IS IT A JUMP?
  61.     JNZ    BAD    ;IF NOT WE'RE WITHOUT UTILITIES.
  62.     LDA    5003H
  63.     CPI    0C3H    ;IS THERE ANOTHER ONE?
  64.     RZ        ;IF SO WE ASSUME ALL'S WELL.
  65. BAD:    LXI    D,TEXT
  66.     MVI    C,9    ;CALL FOR TEXT-PRINT
  67.     CALL    BIOS
  68.     JMP    CPM
  69. TEXT: DB    'PLEASE LOAD THE FELIX UTILITIES BY'
  70.     DB    ' TYPING "FELIX" FIRST.',0DH,0AH,'$'
  71.     END
  72.