home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D10.D64 / c64switch (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.5 KB  |  79 lines
  1. 1000 :
  2. 1010 REM THIS PGM PERFORMS 2 FUNCTIONS
  3. 1020 REM (1) IT IS THE BASIC LOADER FOR
  4. 1030 REM     THE SCREEN SWITCH ML PGM &
  5. 1040 REM (2) IT INITIALISES 680-727
  6. 1050 REM     WITH VALUES TO BE USED IN
  7. 1055 REM     ZERO PAGE LOCATIONS 43-66
  8. 1060 REM     FOR THE SCREEN SWITCH ML
  9. 1065 REM     PGM.
  10. 1067 :
  11. 1070 POKE51,255:POKE52,159:POKE53,255:POKE54,158:POKE55,255:POKE56,159
  12. 1075 GOSUB10000        :REM LOAD ML PGM
  13. 1080 SA=PEEK(43)+PEEK(44)*256
  14. 1090 EA=PEEK(55)+PEEK(56)*256
  15. 1100 INPUT"ENTER REGION 0 ENDING ADDR ==>";R0
  16. 1110 IFR0<SAGOTO2050
  17. 1120 IFR0>EAORR0=EAGOTO2100
  18. 1130 AD=R0:GOSUB9000
  19. 1140 POKE51,LB:POKE52,HB :REM SETUP R0
  20. 1150 POKE53,LB:POKE54,HB :REM MEMORY
  21. 1160 POKE55,LB:POKE56,HB :REM LIMITS.
  22. 1170 FORI=0TO23:POKE680+I,PEEK(43+I):NEXT
  23. 1180 :
  24. 1190 REM SET REGION 1 POINTERS IN 704-727
  25. 1200 :
  26. 1210 POKER0+1,0       :REM FOR BASIC
  27. 1220 R1=R0+2          :REM RGN 1 ADDR
  28. 1230 AD=R1:GOSUB9000      :REM START OF
  29. 1240 POKE704,LB:POKE705,HB:REM BASIC.
  30. 1250 AD=R1+2:GOSUB9000    :REM START OF
  31. 1260 POKE706,LB:POKE707,HB:REM VARIABLS
  32. 1270 AD=R1+9:GOSUB9000
  33. 1280 POKE708,LB:POKE709,HB:REM ARRAYS
  34. 1290 POKE710,LB:POKE711,HB:REM START,END
  35. 1300 AD=EA:GOSUB9000
  36. 1310 POKE712,LB:POKE713,HB:REM STRINGS
  37. 1320 POKE714,LB:POKE715,HB:REM UTILITY
  38. 1330 POKE716,LB:POKE717,HB:REM MEM LIMIT
  39. 1340 FORI=718TO725:POKEI,0:NEXT
  40. 1350 AD=R1-1:GOSUB9000
  41. 1360 POKE726,LB:POKE727,HB:REM DATA STM
  42. 1370 :
  43. 1380 PRINT"REGION 0 &[160]1 INITIALISED"
  44. 1390 PRINT"REGION ACTIVATED = 0"
  45. 1400 SYS40704:END
  46. 2000 :
  47. 2010 REM  ERROR MESSAGES
  48. 2020 :
  49. 2050 PRINT"REGION 0 ENDING ADDR,";R0;"<[160]REGION 0 STARTING ADDR,";SA
  50. 2060 PRINT"PLEASE REENTER REGION 0 STARTING ADDR"
  51. 2070 GOTO1100
  52. 2080 :
  53. 2100 PRINT"REGION 0 ENDING ADDR,";R0;"> MEMORY LIMIT,";EA
  54. 2110 GOTO2060
  55. 2120 :
  56. 9000 HB=INT(AD/256):LB=AD-(HB*256):RETURN
  57. 10000 :
  58. 10010 REM  DATA STATEMENTS FOR ML PGM
  59. 10020 :
  60. 10100 DATA 120,173,20,3,141,171,159,173,21,3,141,172,159,169,39,141,20,3,169
  61. 10110 DATA 159,141,21,3,162,0,160,48,189,168,2,157,173,159,232,136,208
  62. 10120 DATA 246,88,96,165,197,201,64,240,122,201,3,240,7,201,4,240,3,76
  63. 10130 DATA 167,159,174,170,159,240,2,162,24,160,0,141,223,159,185,43,0
  64. 10140 DATA 157,173,159,232,200,192,24,144,244,173,223,159,201,3,240,8
  65. 10150 DATA 162,0,142,170,159,76,102,159,162,1,142,170,159,162,24,160,0
  66. 10160 DATA 189,173,159,153,43,0,232,200,192,24,144,244,165,43,141,129
  67. 10170 DATA 2,165,44,141,130,2,165,55,141,131,2,165,56,141,132,2,173,170
  68. 10180 DATA 159,9,176,141,228,159,172,134,2,162,0,189,224,159,240,13,41
  69. 10190 DATA 191,157,35,4,152,157,35,216,232,76,149,159,108,171,159,0,49
  70. 10200 DATA 234,1,8,146,49,174,49,79,69,253,79,253,79,255,79,126,4,2,0
  71. 10210 DATA 55,33,4,0,0,8,1,80,50,99,50,99,50,99,255,159,255,159,0,160
  72. 10220 DATA 249,156,0,0,144,0,0,0,0,80,51,0,4,210,199,206,189,176,0,117
  73. 10230 DATA 117,0,0,117,117,0,0,117,117,0,0,117,117,128,0,117,117,0,0,117
  74. 10240 DATA 117,0,0,255,255
  75. 10250 FORI= 40704TO 40959
  76. 10260 READJ:X=X+J:POKEI,J:NEXT
  77. 10270 IFX= 28726THENRETURN
  78. 10280 PRINT"DATA STATEMENTS INVALID":END
  79.