home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / PROJECT / SOURCE / EDIT.SRC2 < prev    next >
Encoding:
Text File  |  1992-07-13  |  7.6 KB  |  225 lines  |  [04] ASCII Text (0x0000)

  1. ;
  2. ; EDIT.SRC2
  3. ;
  4. ;
  5. DURDONE             JMP   KEYMODE
  6. ;
  7. PROCTIE             LDA   TIE
  8.                     BEQ   TIEDONE
  9.                     BPL   ADD2TIE      ;IF TIE > 0 ADD, IF <0 SUBTRACT
  10.                     SEC   
  11.                     LDA   DURACC
  12.                     SBC   DURTN
  13.                     STA   DURACC
  14.                     LDA   DURACC+1
  15.                     SBC   DURTN+1
  16.                     STA   DURACC+1
  17.                     RTS   
  18. ;
  19. ADD2TIE             CLC   
  20.                     LDA   DURACC
  21.                     ADC   DURTN
  22.                     STA   DURACC
  23.                     LDA   DURACC+1
  24.                     ADC   DURTN+1
  25.                     STA   DURACC+1
  26.                     RTS   
  27. ;================================================== *KEY*
  28. EQUALS              LDA   #$00
  29.                     STA   TIE
  30.                     LDA   DURACC
  31.                     STA   DURTN
  32.                     LDA   DURACC+1
  33.                     STA   DURTN+1
  34. ;
  35. TIEDONE             LDA   #$00
  36.                     STA   DURACC
  37.                     STA   DURACC+1
  38.                     LDA   DURTN        ;CONVERT DUR TO 2 BYTE VLQ
  39.                     AND   #$7F
  40.                     LDY   #$01
  41.                     STA   (PTR),Y
  42.                     LDA   DURTN
  43.                     ROL   A   
  44.                     LDA   DURTN+1
  45.                     ROL   A   
  46.                     ORA   #$80
  47.                     LDY   #$00
  48.                     STA   (PTR),Y
  49.                     RTS   
  50. ;================================================== *KEY*
  51. PLUS                LDA   #$01
  52.                     STA   TIE
  53.                     BNE   DURDONE
  54. ;================================================== *KEY*
  55. MINUS               LDA   #$FF
  56.                     STA   TIE
  57.                     BNE   DURDONE
  58. ;================================================== *KEY*
  59. DOT                 LDA   #$01
  60.                     STA   MODE
  61.                     JMP   KEYMODE
  62. ;================================================== *KEY*
  63. NINE                LDA   #$02
  64.                     STA   MODE
  65.                     JMP   KEYMODE
  66. ;================================================== *KEY*
  67. FIVE                LDA   #$03                
  68.                     STA   MODE
  69.                     JMP   KEYMODE
  70. ;================================================== *KEY*
  71. PKEY                JSR   PLAY
  72.                     JSR   CLEANUP
  73.                     RTS   
  74. ;================================================== *KEY*
  75. RBRKT               INC   SPEEDSAV
  76.                     BPL   RBRKT1
  77.                     DEC   SPEEDSAV
  78. RBRKT1              JMP   PLAY
  79. ;================================================== *KEY*
  80. LBRKT               DEC   SPEEDSAV
  81.                     BNE   LBRKT1
  82.                     INC   SPEEDSAV   
  83. LBRKT1              JMP   PLAY
  84. ;================================================== *KEY*
  85. GRTRTHAN            LDY   #$02         ;ADD 1 TO NOTE
  86.                     LDA   (PTR),Y
  87.                     CLC   
  88.                     ADC   #$01
  89.                     BMI   GRTRRTS      ;DONT STORE IF >127
  90.                     STA   (PTR),Y
  91.                     JMP   EXIT
  92. GRTRRTS             RTS   
  93. ;================================================== *KEY*
  94. LESSTHAN            LDY   #$02
  95.                     LDA   (PTR),Y
  96.                     SEC   
  97.                     SBC   #$01
  98.                     BEQ   LESSRTS
  99.                     STA   (PTR),Y
  100.                     JMP   EXIT
  101. LESSRTS             RTS   
  102. ;================================================== *KEY*
  103. CTRLN               LDY   #$02         ;SET NOTE = 0
  104.                     LDA   #$00
  105.                     STA   (PTR),Y
  106.                     JMP   EXIT
  107. ;================================================== *KEY*
  108. CTRLV               LDY   #$03         ;SET V = 0
  109.                     LDA   #$00
  110.                     STA   (PTR),Y
  111.                     JMP   EXIT
  112. ;================================================== *KEY*
  113. VKEY                LDY   #$03         ;SET V=$40
  114.                     LDA   #$40
  115.                     STA   (PTR),Y
  116. ;==================================================
  117. EXIT                JSR   DISPNOTE
  118.                     JMP   WAITKEY
  119. ;==================================================
  120. LINEOUT             JSR   PROCDLY      ;PROCESS DELAY
  121.                     LDA   MEASFLAG     ;CALL DISPLAY ROUTINE
  122.                     BNE   DISPIT       ;ONLY IF FLAG <> 0 (MEASURE MODE) OR
  123.                     LDA   SPEED        ;SPEED = 0 (NOT PLAYBACK MODE)
  124.                     BEQ   DISPIT
  125.                     RTS   
  126. ;
  127. DISPIT              JMP   DISPLAY
  128. ;==================================================
  129. PROCDLY             LDA   MEASFLAG        ;IF FLAG = 0, EXIT
  130.                     BNE   SUBDLY
  131.                     RTS   
  132. ;
  133. SUBDLY              LDA   MCTR         ;IF FLAG <> 0, SUBTRACT DELAY FROM MEAS
  134.                     SEC  
  135.                     SBC   DURL
  136.                     STA   MCTR
  137.                     LDA   MCTR+1
  138.                     SBC   DURH
  139.                     STA   MCTR+1
  140.                     BMI   PRNTBAR        ;IF END OF MEASURE, PRINT BAR
  141.                     RTS   
  142. ;
  143. PRNTBAR             LDX   #$40         ;PRINT INVERSE ==='S FOR MEASURE MARKER
  144.                     LDA   #$3D
  145. ;
  146. PRNTBAR1            JSR   $FDED
  147.                     DEX   
  148.                     BNE   PRNTBAR1
  149. ;
  150. ADDMEAS             LDA   MCTR
  151.                     CLC   
  152.                     ADC   MEASLEN
  153.                     STA   MCTR
  154.                     LDA   MCTR+1
  155.                     ADC   MEASLEN+1
  156.                     STA   MCTR+1
  157.                     BMI   ADDMEAS      ;ADD UNTIL POSITIVE AGAIN
  158. ;
  159.                     LDA   MEASLEN      ;THEN SUBTRACT ONE MORE MEASURE
  160.                     SEC                ;AND PRINT RESULT
  161.                     SBC   MCTR
  162.                     STA   $50
  163.                     LDA   MEASLEN+1
  164.                     SBC   MCTR+1
  165.                     STA   $51
  166.                     LDA   DURH
  167.                     CMP   $51
  168.                     BNE   CONVDEC
  169.                     LDA   DURL
  170.                     CMP   $50
  171.                     BNE   CONVDEC
  172. ;
  173. CREXIT              LDA   #$8D         ;CARRIAGE RETURN
  174.                     JSR   $FDED
  175.                     LDA   $C000
  176.                     RTS   
  177. ;==================================================
  178. CONVDEC             JSR   HEXDEC
  179.                     JSR   PRNTDEC
  180.                     CLV   
  181.                     BVC   CREXIT
  182. ;
  183. ;================================================== *KEY*
  184. MKEY                LDA   #$01
  185.                     STA   MEASFLAG
  186.                     LDA   MEASLEN
  187.                     STA   MCTR
  188.                     LDA   MEASLEN+1
  189.                     STA   MCTR+1
  190.                     RTS   
  191. ;================================================== *KEY*
  192. NKEY                LDA   #$00
  193.                     STA   MEASFLAG
  194.                     RTS   
  195. ;
  196. ;==================================================
  197. ADD4                CLC   
  198.                     LDA   #$04
  199.                     ADC   MISCPTR
  200.                     STA   MISCPTR
  201.                     LDA   #$00
  202.                     ADC   MISCPTR+1
  203.                     STA   MISCPTR+1
  204.                     RTS   
  205. ;==================================================
  206. FINDEND             LDA   #$00
  207.                     STA   MISCPTR
  208.                     LDA   #$20
  209.                     STA   MISCPTR+1
  210. ENDLOOP1            LDY   #$00
  211.                     LDA   (MISCPTR),Y
  212.                     BNE   ENDLOOP2
  213.                     INY   
  214.                     LDA   (MISCPTR),Y
  215.                     CMP   #$FF
  216.                     BNE   ENDLOOP2
  217.                     JSR   ADD4
  218.                     RTS   
  219. ;
  220. ENDLOOP2            JSR   ADD4
  221.                     CLV   
  222.                     BVC   ENDLOOP1
  223. ;
  224.                     CHN   EDIT.SRC3
  225.