home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / pdoseric.hdv / SOURCE / TRAILER.SRC.txt < prev    next >
Text File  |  2020-08-13  |  3KB  |  98 lines
  1. ;OBJECT TRAILER... ADAPTED FROM ML.INTEGRATOR
  2. ;
  3. ;*===========*
  4. ;* SECTION 2 *
  5. ;*===========*
  6. ;this can be called at end of BASIC program using CALL 2049
  7. ;
  8. QUITMLIN LDA       #<MLINTEG0
  9.          STA       TXTTAB+1
  10.          LDA       #>MLINTEG0
  11.          STA       TXTTAB
  12.          LDA       #$00
  13.          STA       MLINTEG0
  14.          STA       MLINTEG0+1
  15.          STA       MLINTEG0+2
  16.          JMP       DOSVEC
  17. ;
  18. ;*===========*
  19. ;* SECTION 3 *
  20. ;*===========*
  21. ;this section gets written over by your BASIC program
  22. ;only used if running under DOS 3.3 - it is a one line program
  23. ;
  24. PGRM     BRK
  25.          DW        PGRM1
  26.          DW        $000A
  27.          DFB       $BA       ;TOKEN FOR PRINT
  28.          DFB       $22,$04   ;"ctrl-D
  29. ;
  30. ;*** EDASM SETS HI BIT OF ASCII CHARACTERS - WE'LL GET RID OF THEM LATER
  31. RUNCMD   ASC       'RUN '
  32.          ASC       'DUMMYPGM.BAS'      ;CHANGE TO YOUR BASIC PGM NAME
  33. ;
  34.          DFB       $00       ;MARKER FOR END OF STATEMENT
  35. PGRM1    BRK
  36.          BRK
  37. ;
  38. ;*===========*
  39. ;* SECTION 4 *
  40. ;*===========*
  41. ;set up ptrs to new program and vector to quit exit
  42. ;
  43. MLINTEG  LDA       #<PGRM+1
  44.          STA       TXTTAB+1
  45.          LDA       #>PGRM+1
  46.          STA       TXTTAB
  47.          LDA       #<QUITMLIN
  48.          STA       MLINTEG0+2
  49.          LDA       #>QUITMLIN
  50.          STA       MLINTEG0+1
  51. ;
  52. ; you can add extra stuff here
  53. ; ex: &vectors, reset vectors, interface initialization, welcome message
  54. ;
  55. ;*===========*
  56. ;* SECTION 5 *
  57. ;*===========*
  58. ;used to run the basic program from PRODOS - setup filename at bottom
  59. ;
  60.          LDA       $BF00
  61.          CMP       #$4C
  62.          BNE       NOPRODOS
  63.          LDX       CMD
  64.          INX
  65.          LDA       #$8D
  66. STR      STA       BUF-1,X
  67.          DEX
  68.          BMI       RUNPRO
  69.          LDA       CMD,X
  70.          JMP       STR
  71. ;
  72. RUNPRO   JSR       $BE03     ;BI VECTOR
  73.          LDA       $BE0F     ;IF ERROR
  74.          JSR       $BE0C     ;PRINT MSG
  75.          RTS
  76. ;
  77. ; ***================================*** 
  78. ; *** SET UP PRODOS RUN COMMAND HERE ***
  79. ; ***================================***
  80. ; 
  81. CMD      DFB       16                  ; LENGTH OF STRING BELOW
  82.          ASC       'RUN DUMMYPGM.BAS'  ; (EDASM SETS HI BITS FOR US)
  83. ;
  84. ; ***-----------------***
  85. ; *** DOS 3.3 ROUTINE ***
  86. ; ***-----------------***
  87. NOPRODOS LDX       #$00      ;FOR DOS 3.3, CONVERT PGM NAME TO 
  88. ASCLOOP  LDA       RUNCMD,X  ;ASCII WITH HI BIT CLEAR.
  89.          BEQ       RUNIT
  90.          AND       #$7F
  91.          STA       RUNCMD,X
  92.          INX
  93.          BNE       ASCLOOP
  94. ;
  95. RUNIT    JMP       RUN
  96.          BRK
  97. ;
  98.