home *** CD-ROM | disk | FTP | other *** search
/ Millennium Time Capsule / AC2000.BIN / disks / ac7_disk / gemma152 / gemexamp.les / include.asc < prev    next >
Encoding:
Text File  |  1997-07-14  |  1.5 KB  |  43 lines
  1. 50000 rem   ************** GEM setup code (was autoexec.bas) *********
  2. 50010 A=leek($5A0)
  3. 50020 B=hunt(A to A+5000,"GEMA")
  4. 50021 V=hunt(A to A+5000,"_VDO")
  5. 50022 VDO=leek(V+4)
  6. 50030 BSE=leek(B+4)
  7. 50040 key off 
  8. 50050 curs off 
  9. 50060 dim PARAM(4)
  10. 50070 PARAM(1)=1
  11. 50080 PARAM(2)=0
  12. 50090 PARAM(3)=0
  13. 50100 PARAM(4)=0
  14. 50110 trap 14,0, .w 1, .l varptr(PARAM(1)), .l leek(BSE+8)
  15. 50120 VB=leek(BSE+72)
  16. 50130 loke VB+0,leek(BSE+12)
  17. 50140 remloke $4CE+4,leek(BSE+12)
  18. 50150 remloke $4CE+8,leek(BSE+16)
  19. 50160 remloke $4CE+12,leek(BSE+20)
  20. 50170 remloke $4CE+16,leek(BSE+24)
  21. 50180 remloke $4CE+20,leek(BSE+28)
  22. 50190 remloke $4CE+24,leek(BSE+32)
  23. 50200 A=graf_mouse(0,0)
  24. 50210 v_show_c 
  25. 50220 trap 1,$49, .l leek(BSE+4)
  26. 50230 trap 1,$48, .l-1
  27. 50240 rem dreg(0) contains system memory free
  28. 50250 hide 
  29. 50260 if VDO=$30000 then trap 14,5, .l leek(BSE+48), .l leek(BSE+44), .w 3, .w deek(BSE+66) : doke $44C,3 : if VDO<$30000 then trap 14,5, .l leek(BSE+48), .l leek(BSE+44), .w deek(BSE+66) : doke $44C,deek(BSE+52)
  30. 50270 rem Poke 0 into the malloc buffer of GEMMA acc so it will realise we've nicked it's memory!!!
  31. 50280 loke BSE+4,0
  32. 50290 rem attempts to set colours to be like those of the desktop
  33. 50300 if mode<2 then for A=0 to (4^(2-mode))-1 : read C : colour A,C : next A
  34. 50310 data $777,$700,$70,$770,$7,$707,$77,$666,$444,$500,$50,$550,$5,$505,$55,$0
  35. 50320 if mode=1 then colour 3,$0
  36. 50340 remOSET=76
  37. 50350 remfor ADDR=$400 to $600 step 4
  38. 50360 remloke (BSE+OSET),ADDR
  39. 50370 remOSET=OSET+4
  40. 50380 remnext
  41. 50390 click off : poke $484,7
  42. 50400 return 
  43.