home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / zip / telecomm / zmdm.zoo / hi5025.s < prev    next >
Text File  |  1991-04-27  |  2KB  |  74 lines
  1. /
  2. /  Make hi rez screen bios handle 50 lines of 8x8 characters
  3. /
  4. /  Adapted to Mark Williams C use from origional PD asm posting
  5. /  from atari corp.
  6. /
  7. /         Jwahar Bammi
  8. /             usenet: cwruecmp!bammi@decvax.UUCP
  9. /            csnet:  bammi@cwru.edu
  10. /            arpa:   bammi@cwru.edu
  11. /             CompuServe: 71515,155
  12. / 
  13. /
  14.         .shri
  15.  
  16.     .globl hi50_
  17.  
  18. hi50_:                  / switch to 8x8 font
  19. /    link    a6,$0          / routine preamble
  20.  
  21.     .word    0xA000          / get the important pointers (line A init)
  22.  
  23.     movea.l    4(a1),a1      / a1 -> 8x8 font header
  24.  
  25.     move.l  72(a1),-0x0A(a0)  / v_off_ad <- 8x8 offset table addr
  26.     move.l  76(a1),-0x16(a0)  / v_fnt_ad <- 8x8 font data addr
  27.  
  28.     moveq    $8,d0
  29.     move    d0,  -0x2E(a0)      / v_cel_ht <- 8    8x8 cell height    
  30.     move    -0x04(a0),d1    / vertical pixel resolution
  31.     ext.l    d1
  32.     divu    d0,d1        / d1 : # rows : 50
  33.     subq    $1,d1
  34.     move    d1, -0x2A(a0)      / v_cel_my <- 49   maximum cell "Y"
  35.     move    0x02(a0),d1    / ld_vwrap
  36.     mulu    d0,d1        / * v_cel_ht
  37.     move    d1,-0x28(a0)    / -> v_cel_my
  38.                 / offset to cell Y+1
  39.  
  40. /    unlk    a6          / routine postable
  41.     rts              / and return
  42.  
  43.    
  44. /
  45. / Make hi rez screen bios handle 25 lines of 8x16 characters
  46. /
  47.  
  48.     .globl hi25_
  49.  
  50. hi25_:                  / Switch to 8x16 font
  51. /    link    a6,$0          / routine preamble
  52.  
  53.     .word   0xA000          / get the important pointers
  54.     
  55.     movea.l    8(a1),a1      / a1 -> 8x16 font header
  56.  
  57.     move.l  72(a1),-0x0A(a0)  / v_off_ad <- 8x16 offset table addr
  58.     move.l  76(a1),-0x16(a0)  / v_fnt_ad <- 8x16 font data addr
  59.  
  60.     moveq    $16,d0
  61.     move    d0,-0x2E(a0)      / v_cel_ht <- 16    8x16 cell height
  62.     move    -4(a0),d1      / v_rez_vt
  63.     ext.l    d1
  64.     divu    d0,d1          / d1 = # rows: 25
  65.     subq    $1,d1
  66.     move    d1,  -0x2A(a0)      / v_cel_my <- 24    maximum cell "Y"
  67.     move    2(a0),d1    / ld_vwrap
  68.     mulu    d0,d1        / * v_cel_ht
  69.  
  70.     move    d1,-0x28(a0)      /  v_cel_wr <- 1280  vertical byte offset
  71.  
  72. /    unlk    a6          / routine postamble
  73.     rts              / bye
  74.