home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / OBJTEST / ALLOCATE.bas next >
BASIC Source File  |  2020-08-13  |  399b  |  12 lines
  1. 10  INPUT "ALLOCATE HOW MANY PAGES:";P
  2. 20  POKE 768,10 *16 +9: POKE 769,P
  3. 30  POKE 770,32: POKE 771,15 *16 +5: POKE 772,11 *16 +14
  4. 40  POKE 773,9 *16: POKE 774,1: POKE 775,0
  5. 45  POKE 776,8 *16 +13: POKE 777,15: POKE 778,3
  6. 47  POKE 779,32: POKE 780,13 *16 +10: POKE 781,15 *16 +13
  7. 48  POKE 782,96
  8. 49  PRINT "YOU GOT BASE ADRS:";
  9. 50  CALL 768
  10. 60  PRINT "00"
  11. 70 H =  PEEK(768 +15) *256
  12. 80  REM  HIMEM:H