home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / KAYPRO / TROMPAT1.LBR / MM530PAT.AQM / MM530PAT.ASM
Assembly Source File  |  2000-06-30  |  1KB  |  61 lines
  1. ; MM530PAT.ASM   PATCH FOR MASMENU.COM VERSION 5.30
  2. ; 6/4/86 GSD
  3. ;
  4. ; THIS PATCH:
  5. ;
  6. ;    1. ENSURES THAT THE 25th LINE ON THE SCREEN IS ERASED
  7. ;    2. forces a Warm Boot so that the $$$.SUB file will
  8. ;       be correctly processed.
  9. ;    3. ASSEMBLES WITH DRI'S MAC ASSEMBLER
  10. ;
  11. ; USE DDT TO PATCH MASMENU.COM:
  12. ;
  13. ; A>DDT MASMENU.COM
  14. ; NEXT PC
  15. ; 3CC0 0100
  16. ; #IMM530PAT.HEX
  17. ; #R
  18. ; #G0
  19. ; A>SAVE 59 MM530PAT.COM
  20. ;
  21. ;
  22. BDOS    equ    0005H    ; BDOS ENTRY
  23. ESC    equ    01BH    ; ASCII ESCAPE CHARACTER
  24. ;
  25.     ORG     13DH    ; ID STRING
  26.     DB     '5.30'
  27.  
  28.     ORG     100H    ; start of TPA
  29. ;
  30.     JMP    inisub    ; branch to patch code
  31. ;
  32.     org    32e8h    ; old exit routine
  33.  
  34.     jmp    unisub
  35.  
  36.     org    32bdH    ; end of program pointer
  37.  
  38.     DW    ENDPRG    ; change pointer to protect patch
  39.  
  40.     ORG     3bb9H    ; start of patch area
  41. ;
  42. inisub:    lxi    d,line25    ; 25 line screen message
  43.     mvi    c,9        ; BDOS PRINT STRING FUNCTION
  44.     call    BDOS        ; disable the status line
  45.     jmp    32bfH        ; execute masmenu
  46.  
  47. ;
  48. unisub:
  49.     lxi    d,line24    ; 24 line screen message
  50.     mvi    c,9        ; BDOS PRINT STRING FUNCTION
  51.     call    BDOS        ; enable the status line
  52.     rst    0        ; Warm Boot
  53.  
  54. line25:    DB    ESC,'C7$'
  55. line24:    DB    ESC,'B7$'
  56. ;
  57. ENDPRG    equ    $        ; end marker
  58. ;
  59.     END
  60.  
  61.