home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / USCX / DOSUT-03.ZIP / MEM640.ZAP < prev    next >
Text File  |  1983-07-20  |  813b  |  70 lines
  1. {{l100,1,5,1
  2. e10b,20
  3. w100,1,5,1
  4. nb:ibmbio.com
  5. l
  6. r
  7. R CX
  8. 1230
  9. A12d0,12ff
  10. PUSH    AX
  11. PUSH    ES
  12. PUSH    DI
  13. XOR     AX,AX
  14. MOV     ES,X
  15. MOV     DI,0472
  16. MOV     AX,4321
  17. ES:
  18. CMP     AX,[DI]
  19. {JZ      12F7
  20. MOV     DI,0413
  21. MOV     AX,0280
  22. STOSW
  23. MOV     AX,0240
  24. STOSW
  25. CALL    1300
  26. {MOV     DI,0472
  27. MOV     AX,4321
  28. STOSW
  29. POP     DI
  30. POP     ES
  31. POP     AX
  32. MOV     AL,02
  33. STOSB
  34. JMP     08DC
  35. PUSH    CX
  36. PUSH    DX
  37. PUSH    SI
  38. MOV     DX,8800
  39. MOV     AH,03
  40. MOV     AL,00
  41. MOV     ES,DX
  42. MOV     CX,8000
  43. SUB     DI,DI
  44. REPZ
  45. STOSB
  46. ADD     DX,0800
  47. DEC     AH
  48. JNZ     130A
  49. XOR     AX,AX
  50. MOV     ES,AX
  51. POP     SI
  52. POP     DX
  53. {POP     CX
  54. RET
  55. NOP
  56. NOP                                    Ph  bNOP
  57. NOP
  58. NOP
  59. NOP
  60.  
  61. E,3E7,B0,00
  62. A8D9
  63. JMP     12D0
  64.  
  65. W
  66. l100,1,5,1
  67. e10b,27
  68. w100,1,5,1
  69. Q
  70.