home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / kaypro / advent2.ark / NOBLANK.ASM < prev    next >
Assembly Source File  |  1986-09-20  |  1KB  |  59 lines
  1.     title    'Inhibit Video Blanking on 84 TurboROM'
  2.  
  3.  
  4. ;**********************************************************
  5. ;
  6. ;    Assemble it using ASM which is supplied with
  7. ;    your CP/M system.
  8. ;
  9. ;    "ASM NOBLANK<CR>"
  10. ;
  11. ;(this takes the file NOBLANK.ASM and generates a file NOBLANK.HEX)
  12. ;
  13. ;    Generate a COM file with LOAD which was also supplied with
  14. ;    your CP/M system.
  15. ;
  16. ;    "LOAD NOBLANK<CR>"
  17. ;
  18. ;(this takes the file NOBLANK.HEX and generates a file NOBLANK.COM)
  19. ;
  20. ;    You can now run NOBLANK
  21. ;********************************************************************
  22.  
  23. CLRSCR        equ    01AH        ;clear Kaypro screen
  24. CR        equ    00DH        ;carriage return
  25. LF        equ    00AH        ;line feed
  26. PRINT$STR    equ    9        ;CP/M string printer
  27. BDOS        equ    0005        ;standard BDOS entry point
  28. WBOOT        equ    0000        ;standard Warm Boot Entry 
  29. HRDPTR        equ    0ffech        ;pointer to high memory tables    
  30.  
  31.  
  32.     ORG    100H        ;standard runtime address
  33.     jmp    start        ;skip around messages
  34.  
  35. sign$on:
  36.     db    CLRSCR
  37.     db    'NOBLANK  Copyright (c) 1986 Advent Products, Inc.'
  38.     db    CR,LF,'$'
  39.     
  40.     ds    16
  41. stack    equ    $
  42.  
  43.  
  44. start:    lxi    sp,stack    ;set up our own stack
  45.     lxi    d,sign$on
  46.     mvi    c,PRINT$STR
  47.     call    BDOS
  48. ;
  49. ;    disable video blanking by setting DISBLK flag to non-zero
  50. ;
  51.     lhld    HRDPTR        ;get pointer to high memory tables 
  52.     lxi    d,0020h        ;offset to DISBLK flag
  53.     dad    d
  54.     mvi    m,0ffh        ; disable blanking
  55.  
  56.     jmp    WBOOT        ; exit this code
  57.  
  58.     end
  59.