home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug035.ark / EXECSAFE.ASM < prev    next >
Assembly Source File  |  1984-04-29  |  2KB  |  72 lines
  1. ; 8 SEPT; REMOVE DOUBLE QUOTE STUFF.
  2. ; MOSHELL
  3. ;
  4. ; THIS CODE READS IN 'EXEC.OBJ' AT 2800H AND STARTS IT UP.
  5. ; IT ALSO STASHES THE FILENAME OF THE FEX-FILE TO
  6. ; BE EXECUTED, FOR THE EXEC.OBJ TO WORK WITH.
  7. ; 
  8. TRFLAG    EQU    5095H
  9. FCBMOV    EQU    5051H
  10. SYSFCB    EQU    5CH
  11. DSKRD    EQU    5039H
  12. EXEC    EQU    5018H
  13. * THIS SECTION OF CODE READS IN EXEC AND TURNS ON THE DAZZLER FOR US
  14.     ORG    100H
  15.     LXI    SP,1000H
  16.     CALL    SURVIVAL    ;FIRST WE MAKE SURE ITS
  17.                 ;WORTHWHILE TO CONTINUE.
  18. * ASSUME A .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 NOT WANTED
  38. ;
  39.     XRA    A
  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.