home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / ANNMIDI / SENDDUMP.BAS < prev    next >
BASIC Source File  |  2020-08-13  |  1KB  |  35 lines
  1. 10 N = 3: REM  NUMBER OF DUMP FILES
  2. 20 F$ = "CONCMATE.DU"
  3. 30 L(1) = 23552
  4. 40 L(2) = 23552
  5. 50 L(3) = 19998
  6. 100  FOR I = 1 TO 2
  7. 110 FI$ = F$ + STR$(I)
  8. 120  PRINT "LOADING "FI$
  9. 130  PRINT  CHR$(4)"BLOAD "FI$",A$2000"
  10. 140 S = 8192:E = S +L(I) -1
  11. 145  IF  PEEK(E) = 255  THEN E = E -1
  12. 150  POKE 60,S - INT(S/256) *256: POKE 61, INT(S/256)
  13. 155 A(I) = S - INT(S/256) *256:B(I) =  INT(S/256)
  14. 160  POKE 62,E - INT(E/256) *256: POKE 63, INT(E/256)
  15. 165 C(I) = E - INT(E/256) *256:D(I) =  INT(E/256)
  16. 170  IF I = 1  THEN  POKE 66,0: POKE 67,8
  17. 180  IF I = 2  THEN  POKE 66,0: POKE 67,6 *16 +4
  18. 183  PRINT  PEEK(60) + PEEK(61) *256, PEEK(62) + PEEK(63) *256, PEEK(66) + PEEK(67) *256
  19. 184  PRINT "MOVING TO AUX"
  20. 185  POKE 764,56: POKE 765,76: POKE 766,17: POKE 767,195: CALL 764
  21. 190  NEXT I
  22. 200  PRINT "LOADING "F$"3"
  23. 220  PRINT  CHR$(4)"BLOAD "F$"3,A$2000"
  24. 240 S = 8192:E = S +L(I) -1
  25. 245  IF  PEEK(E) = 255  THEN E = E -1
  26. 246  PRINT "S="S,"E="E
  27. 250  POKE 6,S - INT(S/256) *256: POKE 7, INT(S/256)
  28. 260  POKE 8,E - INT(E/256) *256: POKE 9, INT(E/256)
  29. 264  PRINT "LOADING SENDDUMP.OBJ"
  30. 265  PRINT  CHR$(4)"BLOAD SENDDUMP.OBJ"
  31. 266  POKE 60,0: POKE 61,3: POKE 62,255: POKE 63,3: POKE 66,0: POKE 67,3
  32. 267  POKE 764,56: POKE 765,76: POKE 766,17: POKE 767,195: CALL 764
  33. 269  POKE 12 *4096 +5 *16 +9,0: REM  TURN ON AN0
  34. 270  INPUT "PRESS RETURN TO START TRANSMITTING:";R$
  35. 280  CALL 768