home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol142 / pacman.asm < prev    next >
Encoding:
Assembly Source File  |  1984-04-29  |  3.4 KB  |  136 lines
  1. ; *+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*
  2. ; *+ Version 1 -  SCREEN.CNT (Screen Control File) for PACMAN.COM/.DAT +*
  3. ; *+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*
  4. ;
  5. ;       Warning -> PACMAN.COM is for Z80 CPUs ONLY <- Warning
  6. ;
  7. ;   October 2, 1982 - Kelly Smith, CP/M-Net SYSOP, (805) 527-9321  
  8. ;
  9. ; Hah, Fooled you didn't I(?).  Bet you thought this was going to be 
  10. ; assembly language source for PACMAN...  Sorry, but this is a file 
  11. ; to  be  used  as the SCREEN CONTROL file for the  PACMAN.COM  and 
  12. ; PACMAN.DAT  files.   The  original files from FOG (First  Osborne 
  13. ; User's  Group) included a bunch of object code '.CNT' files  that 
  14. ; you  were  supposed to rename to SCREEN.CNT for  your  particular 
  15. ; terminal/computer  type...  I thought we might get more "mileage" 
  16. ; out  of the program if I set-up one source program that could  be 
  17. ; modified  to  suit  ANYONEs  needs.    Choose  your  'true/false' 
  18. ; terminal  parameter  switch...set to TRUE (and ONLY  ONE  may  be 
  19. ; TRUE), rename to 'SCREEN.CNT', assemble, load, and run PACMAN.COM
  20. ; (and note, that all files must be on the same 'logged-in' disk).
  21. ; 
  22. ; This PACMAN program has a larger maze than the PACMAN95.COM  that 
  23. ; has appeared on many RCPM systems...it's also a little bit easier 
  24. ; (i. e.,  slower) to play.  I have verified it's operation on both 
  25. ; the  Osborne I (be sure and run SETUP to turn the AUTO SCROLL  to 
  26. ; OFF)  and the KAYPRO II computers,  and it really works nice with 
  27. ; the cursor arrow keys (a particular challenge with the 52  column 
  28. ; wide screen display of the Osborne I computer).
  29. ; 
  30. ; Please  feel  free to add YOUR favorite flavor of terminal  CLEAR 
  31. ; SCREEN  and CURSOR POSITION command to this program...and  'bump' 
  32. ; the version number,  add your name and date,  so we can all  keep 
  33. ; track of the changes.   Send any updates to either my RCPM (CP/M-
  34. ; Net,  (805) 527-9321) or Trevor Marshall's (Technical RCPM, (805) 
  35. ; 492-5472)...Thanks
  36. ;
  37. ;
  38. ;
  39. true        equ    -1    ; define true
  40. false        equ    not true; define false
  41. ;
  42. adm3        equ    true    ; Televideo 950/ADM-3/Osborne I/Kaypro II
  43. vt52        equ    false    ; DEC VT52
  44. hazel        equ    false    ; Hazeltine
  45. ;
  46. bdos        equ    5    ; CP/M-80 BDOS entry address
  47. tpa        equ    0100h    ; standard origin for CP/M-80
  48. ;
  49. ;
  50. ;
  51.     org    tpa
  52. ;
  53. ; clear screen subroutine
  54. ;
  55.     if    adm3
  56.     mvi    e,'Z'-40h    ; clear screen
  57.     endif
  58.  
  59.     if    vt52
  60.     mvi    e,'['-40h
  61.     mvi    c,6
  62.     call    bdos
  63.     mvi    e,'H'
  64.     mvi    c,6
  65.     call    bdos
  66.     mvi    e,'['-40h
  67.     mvi    c,6
  68.     call    bdos
  69.     mvi    e,'J'
  70.     endif
  71.  
  72.     if    hazel
  73.     mvi    e,'~'
  74.     mvi    c,6
  75.     call    bdos
  76.     mvi    e,'\'-40h
  77.     endif
  78.  
  79.     mvi    c,6
  80.     call    bdos
  81.     ret            ; return from clear screen routine
  82. ;
  83. ;
  84. ;
  85.     org    tpa+40h        ; leave plenty of room for clear screen
  86. ;
  87. ; cursor addressing subroutine
  88. ;
  89.     push    h        ; save column and line co-ordinate pointers
  90.     push    d
  91.  
  92.     if    adm3
  93.     mvi    e,'['-40h    ; send first leadin character
  94.     mvi    c,6
  95.     call    bdos
  96.     mvi    e,'='        ; send second leadin character
  97.     endif
  98.  
  99.     if    vt52
  100.     mvi    e,'['-40h
  101.     mvi    c,6
  102.     call    bdos
  103.     mvi    e,'Y'
  104.     endif
  105.  
  106.     if    hazel
  107.     mvi    e,'~'
  108.     mvi    c,6
  109.     call    bdos
  110.     mvi    e,'Q'-40h
  111.     endif
  112.  
  113.     mvi    c,6
  114.     call    bdos
  115.     pop    h        ; get line pointer
  116.     mov    a,m        ; get line number
  117.     adi    32        ; add offset
  118.     mov    e,a        ; send line number
  119.     mvi    c,6
  120.     call    bdos
  121.     pop    h        ; get column point
  122.     mov    a,m        ; get column number
  123.     adi    32        ; add offset
  124.     mov    e,a        ; send column number
  125.     mvi    c,6
  126.     call    bdos
  127.     ret            ; return from cursor position routine
  128. ;
  129. ;
  130. ;
  131.     org    tpa+080h    ; leave plenty of room for cursor routine
  132. ;
  133. ;
  134. ;
  135.     end
  136.