home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / ANNMIDI:BACKOUT / INT0DRVR.SC6.txt < prev    next >
Text File  |  2020-08-13  |  3KB  |  99 lines
  1. ; INT0DRVR.SC6
  2. ;
  3. ; CALL THIS IMMEDIATELY AFTER CALLING TEMPOCHG
  4. ;
  5. METRONOM LDA #$03            ;DIVIDEND=60MEG SECONDS
  6.          STA DIVIDEND
  7.          LDA #$20
  8.          STA DIVIDEND+1
  9.          LDA #$00
  10.          STA DIVIDEND+2
  11.          STA DIVIDEND+3
  12.          LDA QUOTIENT+2      ;DIVISOR = PREVIOUS QUOTIENT
  13.          STA DIVISOR
  14.          LDA QUOTIENT+3
  15.          STA DIVISOR+1
  16.          JSR DIVISION
  17.          LDA QUOTIENT        ;DIVIDEND=PREV QUOTIENT
  18.          STA DIVIDEND
  19.          LDA QUOTIENT+1
  20.          STA DIVIDEND+1
  21.          LDA QUOTIENT+2
  22.          STA DIVIDEND+2
  23.          LDA QUOTIENT+3
  24.          STA DIVIDEND+3
  25.          LDA RESHI           ;DIVISOR=RESOLUTION
  26.          STA DIVISOR
  27.          LDA RESLO
  28.          STA DIVISOR+1
  29.          JSR DIVISION
  30.          LDA QUOTIENT+3
  31.          STA $50
  32.          LDA QUOTIENT+2
  33.          STA $51
  34.          JSR HEXDEC
  35.          LDA DEC3
  36.          STA METRTMP1
  37.          LDA DEC4
  38.          STA METRTMP2
  39.          LDA DEC5
  40.          STA METRTMP3
  41.          RTS
  42. SPEEDDEC LDA SPEED
  43.          STA $50
  44.          LDA #$00
  45.          STA $51
  46.          JSR HEXDEC
  47.          LDA DEC3
  48.          STA METRSPD1
  49.          LDA DEC4
  50.          STA METRSPD2
  51.          LDA DEC5
  52.          STA METRSPD3
  53.          RTS
  54. METRPOKE LDY #23
  55.          LDX #0
  56. METRPLOO LDA METRDISP,X
  57.          JSR POKE80
  58.          INX
  59.          CPX #11
  60.          BCC METRPLOO
  61.          RTS
  62. ;========================================================
  63. ; CONVERTS HEX IN ($50,$51) TO DECIMAL 
  64. ; FROM APPLE PROGRAMMERS HANDBOOK P. 225
  65. ;========================================================
  66. HEXDEC              LDA   #$0A
  67.                     STA   $53
  68.                     LDY   #$04
  69. HEXDEC0             LDX   #$10
  70.                     LDA   #$00
  71.                     STA   $52
  72.                     CLC   
  73. HEXDEC1             ROL   $50
  74.                     ROL   $51
  75.                     ROL   $52
  76.                     DEX   
  77.                     BMI   HEXDEC2
  78.                     LDA   $52
  79.                     SEC   
  80.                     SBC   $53
  81.                     BCC   HEXDEC1
  82.                     STA   $52
  83.                     BCS   HEXDEC1
  84. HEXDEC2             CLC   
  85.                     ROR   $52
  86.                     LDA   $52
  87.                     ORA   #$B0
  88.                     STA   DEC1,Y
  89.                     DEY   
  90.                     BPL   HEXDEC0
  91.                     RTS   
  92. DEC1                DFB $B0
  93. DEC2                DFB $B0
  94. DEC3                DFB $B0
  95. DEC4                DFB $B0
  96. DEC5                DFB $B0
  97. ;
  98.          CHN INT0DRVR.SC7
  99.