home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / SOURCE / MULTIADJ.SC2.txt < prev    next >
Text File  |  2020-08-13  |  7KB  |  248 lines
  1. ; *****************************
  2. ; * MULTI.SRC2                *
  3. ; * (C) 1992, ERIC RANGELL    *
  4. ; *****************************
  5. ;
  6. ;
  7. ; PAGE FAULT LOGIC
  8. ;
  9. ; GO BACK UNTIL YOU FIND FILE POSITION WHERE NEXT PART TO BE LOADED
  10. ;
  11. PGFAULT  LDX   CURRTRK
  12.          LDA   CURADRL,X
  13.          STA   BACKPTR
  14.          LDA   CURADRH,X     ;GOT CURRENT ADDRESS OF FAULTING TRACK
  15.          STA   BACKPTR+1
  16.          JSR   DECRBACK
  17. ONEMORE  JSR   DECRBACK      ;SUBTRACT 2
  18.          LDY   #$00
  19.          LDA   (BACKPTR),Y   ;IF STS BYTE GO BACK ONE MORE
  20.          BMI   ONEMORE
  21.          INC   BACKPTR       ;ADD 1 
  22.          BNE   DONTADD1
  23.          INC   BACKPTR+1
  24. ;
  25. ;
  26. DONTADD1 LDX   CURRTRK       ;WE ARE POINTING TO 1ST BYTE OF INSTRUCTION
  27.          SEC                 ;WE WILL LOAD TRACK FROM THIS POSITION
  28.          LDA   BACKPTR
  29.          SBC   BUFRADRL,X    ;SUBTRACT STARTING ADRS OF TRACK
  30.          STA   BACKPTR       ;FROM BACKPTR
  31.          LDA   BACKPTR+1     ;TO GET RELATIVE OFFSET
  32.          SBC   BUFRADRH,X
  33.          STA   BACKPTR+1
  34.          CLC                 ;THEN ADD BACKPTR TO FILE POSN POINTER
  35.          LDA   BACKPTR
  36.          ADC   POSPTRL,X
  37.          STA   POSPTRL,X
  38.          LDA   BACKPTR+1
  39.          ADC   POSPTRM,X
  40.          STA   POSPTRM,X
  41.          LDA   #$00
  42.          ADC   POSPTRH,X
  43.          STA   POSPTRH,X
  44.          JMP   DOMLI
  45. ;
  46. MLIERROR JSR   $FDDA         ;PRINT RETURN CODE AND ABEND IF MLI ERROR
  47.          BRK
  48. ;
  49. DOMLI    LDA   CURRTRK       ;CREATE FILENAME FROM TRACK #: EX: T0, T1, T2
  50.          CLC
  51.          ADC   #$30
  52.          STA   FILENUM
  53. ;
  54.          JSR   MLI
  55.          DFB   $C8           ;OPEN FILE
  56.          DFB   >OPENPRM,<OPENPRM
  57.          BCS   MLIERROR
  58. ;
  59.          LDA   OPENREF
  60.          STA   POSNREF
  61.          STA   READREF
  62.          STA   CLOSREF
  63.          LDX   CURRTRK
  64.          LDA   POSPTRL,X
  65.          STA   POSNL
  66.          LDA   POSPTRM,X
  67.          STA   POSNM
  68.          LDA   POSPTRH,X
  69.          STA   POSNH
  70. ;
  71.          JSR   MLI
  72.          DFB   $CE ; SET POSITION
  73.          DFB   >POSNPARM,<POSNPARM
  74.          BCS   MLIERROR
  75. ;
  76.          LDX   CURRTRK
  77.          LDA   BUFRADRL,X
  78.          STA   READBUF
  79.          LDA   BUFRADRH,X
  80.          STA   READBUF+1
  81.          LDA   BUFRLENL,X
  82.          STA   READLEN
  83.          LDA   BUFRLENH,X
  84.          STA   READLEN+1
  85. ;
  86.          JSR   MLI
  87.          DFB   $CA    ; READ REQUEST
  88.          DFB   >READPARM,<READPARM
  89.          BCS   MLIERROR
  90. ;
  91.          JSR   MLI
  92.          DFB   $CC    ; CLOSE REQUEST
  93.          DFB   >CLOSPARM,<CLOSPARM
  94.          BCS   MLIERROR
  95. ;
  96. ; UPDATE POINTERS AFTER SUCCESSFUL READ FROM RAMDISK
  97. ;
  98.          LDX   CURRTRK
  99.          LDA   BUFRADRL,X
  100.          STA   CURADRL,X
  101.          LDA   BUFRADRH,X
  102.          STA   CURADRH,X
  103. ;
  104.          JSR   PRCSDLY       ;DO THE DELAY & JUMP BACK
  105.          JMP   MAINLINE
  106. ;
  107. ; 
  108. OPENPRM  DFB  $03
  109.          DFB  >FILENAME,<FILENAME        ;PATHNAME ADDRESS
  110.          DFB  >MLIBUFR,<MLIBUFR          ;FILE BUFFER ADDRESS
  111. OPENREF  DFB  $00                        ;REFERENCE NUMBER
  112. ;
  113. FILENAME DFB  $02
  114.          DFB  $54          ;FILENAME = T0, T1,T2
  115. FILENUM  DFB  $30
  116. ;
  117. POSNPARM DFB  $02
  118. POSNREF  DFB  $01            ;FILE REFERENCE #
  119. POSNL    DFB  $00            ;NEW FILE POSITION
  120. POSNM    DFB  $00
  121. POSNH    DFB  $00
  122. ;
  123. READPARM DFB  $04
  124. READREF  DFB  $01            ;FILE REFERENCE #
  125. READBUF  DFB  $00,$20        ;DATA BUFFER ADDRESS
  126. READLEN  DFB  $00,$08        ; REQUESTED LENGTH
  127.          DFB  $00,$00        ; ACTUAL LENGTH
  128. ;
  129. CLOSPARM DFB  $01
  130. CLOSREF  DFB  $01            ;REFERENCE #
  131. ;
  132. ;================================================
  133. ;ADJUSTMENT ROUTINES - TO MAKE MUSIC SOUND MORE HUMAN
  134. ;ADJUST DURATION AND VELOCITY VALUES BY UP TO 2 STANDARD DEVIATIONS
  135. ;FOR DURATION: IF DUR > 30, ADJUST BY UP TO +-15
  136. ;FOR VELOCITY: IF VEL >=20 AND VEL <=115, ADJUST BY UP TO +-10
  137. ;
  138. RND      EQU       $EFAE     ;PUTS RANDOM # IN FAC
  139. FACBYTE  EQU       $9F       ;MIDDLE BYTE OF FAC
  140. ;
  141. TEMPA    DFB       $00
  142. TEMPX    DFB       $00
  143. TEMPY    DFB       $00
  144. ;
  145. ADJDRTN  STA       TEMPA
  146.          STX       TEMPX
  147.          STY       TEMPY
  148.          LDA       SMALLEST+2          ;HI BYTE
  149.          BNE       ADJDRTN0            ;IF >0, DEFINITELY ADJUST
  150.          LDA       SMALLEST+3          ;ELSE CHECK LO BYTE
  151.          CMP       #30
  152.          BEQ       ADJDROUT
  153.          BCC       ADJDROUT
  154. ADJDRTN0 JSR       RND
  155.          LDA       FACBYTE
  156.          AND       #$0F                ;RANDOM # 0-15
  157.          LDX       FACBYTE
  158.          BMI       SUBTRIT
  159.          CLC
  160.          ADC       SMALLEST+3
  161.          STA       SMALLEST+3
  162.          LDA       #$00
  163.          ADC       SMALLEST+2
  164.          STA       SMALLEST+2
  165.          JMP       EXIT
  166. SUBTRIT  SEC
  167.          SBC       SMALLEST+3
  168.          STA       SMALLEST+3
  169.          LDA       #$00
  170.          SBC       SMALLEST+2
  171.          STA       SMALLEST+2
  172. ADJDROUT JMP       EXIT
  173. ;
  174. ; FOR ADJVOL, BYTE IS IN ASAVE.
  175. ; FIRST FIGURE OUT IF WE HAVE A VOL BYTE.
  176. ;  IF ADJ MADE, PUT BACK IN ASAVE.
  177. ADJVOL   STA       TEMPA
  178.          STX       TEMPX
  179.          STY       TEMPY
  180.          LDA       ASAVE
  181.          STA       INBYTE
  182.          LDA       STS
  183.          BEQ       CHK90
  184.          LDA       INBYTE
  185.          BPL       STS91
  186. CHK90    LDA       INBYTE
  187.          AND       #$F0
  188.          CMP       #$90
  189.          BNE       INVAL
  190.          LDA       #$91
  191.          STA       STS
  192.          JMP       EXIT
  193. INVAL    LDA       #$00
  194.          STA       STS
  195.          JMP       EXIT
  196. STS91    LDA       STS
  197.          CMP       #$91
  198.          BNE       STS92
  199.          LDA       #$92
  200.          STA       STS
  201.          JMP       EXIT
  202. STS92    LDA       STS
  203.          CMP       #$92
  204.          BNE       STSEXIT
  205.          LDA       #$91
  206.          STA       STS
  207.          LDA       INBYTE
  208.          BEQ       STSEXIT   ;NOTEOFF - EXIT
  209. ;
  210. ; WE GOT IT!
  211.          CMP       #20       ;CHECK IF IN BOUNDS
  212.          BCC       STSEXIT
  213.          CMP       #116
  214.          BCS       STSEXIT
  215.          JSR       RND
  216.          LDA       FACBYTE
  217.          AND       #$0F                ;RANDOM # 0-15
  218.          CMP       #$0A
  219.          BCS       INRANGE
  220.          SEC
  221.          SBC       #$06
  222. INRANGE  LDX       FACBYTE
  223.          BMI       SUBIT
  224.          CLC
  225.          ADC       ASAVE
  226.          STA       ASAVE
  227.          JMP       EXIT
  228. SUBIT    SEC
  229.          SBC       ASAVE
  230.          STA       ASAVE
  231. STSEXIT  JMP       EXIT
  232. ;
  233. EXIT     LDA       TEMPA
  234.          LDX       TEMPX
  235.          LDY       TEMPY
  236.          RTS
  237. ;
  238. INBYTE   DFB       $00
  239. STS      DFB       $91
  240. ;
  241. ;=================================================
  242. EOF      DFB  $FF            ;EOF MARKER
  243. ;
  244. ;ADJUST ORIGIN BELOW DEPENDING ON LENGTH OF CODE
  245. ;
  246.          ORG  START+$700
  247. MLIBUFR  DS   $400
  248.