home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / pg / pgxos / memo.cmd < prev    next >
OS/2 REXX Batch file  |  2006-10-19  |  2KB  |  81 lines
  1. MEMO.CMD copyright (c)  1989
  2.     by Paul Globman
  3.  
  4. Create MEMO.CO and load into bank #3.  Press F3 at the Menu for command input 
  5. and type MEMO<CR>.  The bottom line of the menu will blank and you may enter 
  6. notes which can later be retrieved from 2:MEMO.DO.  You can rename MEMO to M 
  7. for minimum keystrokes, or rename it CMD> for dedicated F3 (Caps lock).
  8.  
  9. Use HXFER.200 to create MEMO.CO
  10.  
  11. 52FF610052FFCDDBA03E082194FFCD70F83A76EFA7C2D232CD724FCDF654DA6068783DCA606832ABFF3E0221A2FFCD70F83E0421ABFFCD70F83E0421AEFFCD70
  12. F8AFCD70F8C364FF0B97FF333A5842415349432E434F06A5FF323A4D454D4F0070EF02B1FF0D0A
  13.  
  14. ;MEMO SOURCE
  15. ;
  16.     ORG 65362    ;telcom buffer
  17.     ENTRY
  18. ;
  19. ;LOADM XBASIC IN M/L....
  20. ;
  21.     CALL 41179    ;load XBAS-2
  22.     MVI A,8        ;LOADM command
  23.     LXI H,XB    ;VARPTR(X$)
  24.     CALL 63600    ;execute
  25.     LDA 61302    ;look at RD
  26.     ANA A        ;test A for 0
  27.     JNZ 32D2H    ;beep and MENU
  28. ;
  29. ;GET MEMO INPUT
  30. ;
  31. mm:    CALL 4F72H    ;erase btm line
  32.     CALL 54F6H    ;GET MEMO
  33.     JC 6860H    ;abort if break
  34.     MOV A,B
  35.     DCR A        ;test length
  36.     JZ 6860H    ;abrt if null
  37.     STA DATA    ;STORE LEN
  38. ;
  39. ;OPEN 2:MEMO.DO
  40. ;
  41.     MVI A,2        ;OPEN WRITE CMD
  42.     LXI H,MEMO
  43.     CALL 63600    ;DO THE OPEN
  44. ;
  45. ;WRITE DATA
  46. ;
  47.     MVI A,4        ;WRITE CMD
  48.     LXI H,DATA
  49.     CALL 63600    ;DO THE WRITE
  50. ;
  51. ;WRITE CRLF
  52. ;
  53.     MVI A,4        ;WRITE CMD
  54.     LXI H,CRLF
  55.     CALL 63600    ;DO THE WRITE
  56. ;
  57. ;CLOSE MEMO
  58. ;
  59.     XRA A        ;CLOSE CMD
  60.     CALL 63600
  61. ;
  62. ;NEXT MEMO
  63. ;
  64.     JMP MM        ;LOOP
  65. ;
  66. ;
  67. XB:    DB 11        ;VARPTR(X$)
  68.     DW XB+3        ;POINTER
  69.     DB '3:XBASIC.CO'    ;X$
  70. ;
  71. MEMO:    DB 6        ;VARPTR(MEMO$)
  72.     DW MEMO+3
  73.     DB '2:MEMO'    ;MEMO$
  74. ;
  75. DATA:    DB 0        ;VARPTR(DATA$)
  76.     DW EF70H    ;INPUT BUFFER
  77. ;
  78. CRLF:    DB 2        ;VARPTR(CRLF$)
  79.     DW CRLF+3
  80.     DB 13,10    ;CRLF$
  81.