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 / ADVENT1.ARK / MM522PAT.ASM < prev    next >
Assembly Source File  |  1986-09-19  |  1KB  |  60 lines
  1. ; MM522PAT.ASM  PATCH FOR MASMENU.COM VERSION 5.22  6/12/86 GSD
  2. ; 
  3. ;
  4. ; THIS PATCH:
  5. ;
  6. ;    1. ENSURES THAT WARM BOOT IS PERFORMED ON EXIT
  7. ;    2. ENSURES THAT THE 25th LINE ON THE SCREEN IS ERASED
  8. ;    3. ASSEMBLES WITH DRI'S MAC ASSEMBLER
  9. ;
  10. ; USE DDT TO PATCH MASMENU.COM:
  11. ;
  12. ; A>DDT MASMENU.COM
  13. ; NEXT PC
  14. ; 4300 0100
  15. ; #IMM522PAT.HEX
  16. ; #R
  17. ; #G0
  18. ; A>SAVE 66 MASMENU.COM
  19. ;
  20. ;
  21. BDOS    EQU    0005H    ; BDOS ENTRY
  22. ESC    EQU    01BH    ; ASCII ESCAPE CHARACTER
  23. ;
  24.     ORG     137H    ; ID STRING
  25.     DB     '5.22'
  26.  
  27.     ORG    100H
  28.     
  29.     JMP    INISUB
  30.  
  31.     ORG     398EH    ; POINTER TO LAST CODE AREA
  32. ;
  33.     DW    ENDMSG  ; PROTECT PATCHED CODE
  34. ;
  35.     ORG     39B9H    ; ORGINAL EXIT ROUTINE
  36. ;
  37.     JMP    UNISUB    ; GOTO NEW EXIT ROUTINE
  38. ;
  39.     ORG     428AH
  40. ;
  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    3990H        ; 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        ; FORCE Warm Boot
  53. ;
  54. line25:    DB    ESC,'C7$'
  55. line24:    DB    ESC,'B7$'
  56. ;
  57. ENDMSG    EQU    $
  58. ;
  59.     END
  60.