home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / fct4.s < prev    next >
Text File  |  1995-03-17  |  955b  |  87 lines
  1. movescreen=-162
  2. openscreen=-198
  3. closescreen=-66
  4. closelib=-414
  5. openlib=-408
  6. execbase=4
  7.  
  8. joy2=$dff00c
  9. fyr=$dfe001
  10.  
  11. run:
  12. bsr openint
  13. bsr scropen
  14. move joy2,d6
  15.  
  16. loop:
  17. tst.b fyr
  18. bpl avslutning
  19. move joy2,d0
  20. sub d6,d0
  21. cmp #$0100,d0
  22. bne noup
  23. move.l #-1,d1
  24. bsr scrmove
  25. bra loop
  26. noup:
  27. cmp #$0001,d0
  28. bne loop
  29. move.l #1,d1
  30. bsr scrmove
  31. bra loop
  32.  
  33. avslutning:
  34. bsr scrclose
  35. bsr closeint
  36. rts
  37.  
  38. openint:
  39. move.l execbase,a6
  40. lea intname,a1
  41. jsr openlib(a6)
  42. move.l d0,intbase
  43. rts
  44.  
  45. closeint:
  46. move.l execbase,a6
  47. move.l intbase,a1
  48. jsr closelib(a6)
  49. rts
  50.  
  51. scropen:
  52. move.l intbase,a6
  53. lea screen_defs,a0
  54. jsr openscreen(a6)
  55. move.l d0,screenhd
  56. rts
  57.  
  58. scrclose:
  59. move.l intbase,a6
  60. move.l screenhd,a0
  61. jsr closescreen(a6)
  62. rts
  63.  
  64. scrmove:
  65. move.l intbase,a6
  66. move.l screenhd,a0
  67. clr.l d0
  68. jsr movescreen(a6)
  69. rts
  70.  
  71. even
  72. screen_defs:
  73. dc.w 0,0,320,200,2
  74. dc.b 1,3
  75. dc.w 2,15
  76. dc.l 0,titel,0,0
  77. intbase:
  78. dc.l 0
  79. screenhd:
  80. dc.l 0
  81. intname:
  82. dc.b "intuition.library",0,0,0,0
  83. even
  84. titel:
  85. dc.b "vaar skjerm",0,0
  86. even
  87.