home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / KELAUG / KELAUG11.MSA / FREEBIES_CODING_ASSEMB_2.S < prev    next >
Text File  |  1998-09-27  |  2KB  |  79 lines
  1. ; 
  2. ;   BEGINNER'S GUIDE TO ASSEMBLY
  3. ;           PART 2
  4. ;
  5. ;   An article by Gary Pinkett
  6. ;
  7. ; Basic notes here, read article in mag for better explanation.
  8. ;
  9.  
  10. *********** Set Up stuff. bsr = basics gosub *********
  11.  
  12. start    bsr    super        ;Enter SuperVisor Mode    
  13.     bsr    killmouse    ;Self Explanatory
  14.     bsr    savecols    ;Store original colours
  15.     bsr    setscr        ;Set up Screen
  16.     bsr    setpal        ;Set palette from picture
  17.     bsr    putpic        ;Put picture on screen
  18.  
  19. ************* Main loop **************
  20.  
  21. main    cmp.b    #$39,$fffc02    ;Check for Spacebar
  22.     bne    main        ;If space hasn't been pressed then goto main
  23.     bra    exit        ;goto exit
  24.  
  25. **************** Routines *****************
  26.  
  27. super    clr.l    -(sp)        ;Clear SP 
  28.     move.w    #$20,-(sp)    ;Move 20 into SP. Function: Super
  29.     trap    #1        ;Call Gemdos
  30.     add.l    #6,sp        ;Add 6 to SP. Restore Stack
  31.     rts            ;Return
  32.  
  33. setscr    move.w    #0,-(sp)    ;Set Resolution (0-Lowres,1=Medium Res,2=High Res,-1=Stay with current res)
  34.     move.l    screen,-(sp)    ;Set address of Physical Base
  35.     move.l    screen,-(sp)    ;Set address of Logical Base
  36.     move.w    #5,-(sp)    ;Move 5 into SP. Function: Set Screen
  37.     trap    #14        ;Call Xbios
  38.     add.l    #12,sp        ;Add 12 to SP. Restore Stack
  39.     rts            ;Return
  40.  
  41. setpal    move.l    #pic+2,-(sp)    ;Move pic+2 to SP, pic is picture (obvious)
  42.     move.w    #6,-(sp)    ;Move 6 into SP. Function: Set Palette
  43.     trap    #14        ;Call Xbios
  44.     addq.l    #6,sp        ;Add 6 to SP. Restore Stack
  45.     rts            ;Return
  46.  
  47. putpic    move.l    #$7d00,d0    ;$7d00=32000 (Geddit?)
  48.     move.l    #pic+34,a0    
  49.     move.l    #$f8000,a1    
  50. loop    move.b    (a0)+,(a1)+    ;Loop 32000 times, 
  51.     dbf    d0,loop        ;Why? Because it draws it line by line (160*200=32000)
  52.     rts            ;Return
  53.  
  54. restcols    movem.l    oldcols,d0-d7
  55.     movem.l    d0-d7,$ff8240
  56.     rts
  57.  
  58. savecols    movem.l    $ff8240,d0-d7
  59.     movem.l    d0-d7,oldcols
  60.     rts
  61.  
  62. exit    bsr    restcols
  63.     move.b    #8,$fffffc02.w
  64.     clr.w    -(sp)
  65.     trap    #1
  66.  
  67. killmouse    move.b    #$12,$fffffc02.w
  68.     rts
  69.  
  70. ************** Data ****************
  71.  
  72. screen    dc.l    $f8000 
  73. oldcols    ds.w    16
  74.  
  75. pic    incbin    "font.pi1"    ;Any PI1 picture (Not NEO) 
  76.  
  77.  
  78.  
  79.