home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol064 / move.src < prev    next >
Encoding:
Text File  |  1984-04-29  |  902 b   |  72 lines
  1. M    SET              0
  2. C    SET              0
  3. F    SET              0
  4. ;TYPE 
  5. ;BYTE=0..255;
  6. ;VAR
  7. ;X,Y:BYTE;
  8. ;
  9. ;
  10. ;{procedure to move the cursor to any given x,y coordinates on the
  11. ;terminal screen...command is for a soroc or televideo terminal}
  12. ;
  13. ;
  14. ;PROCEDURE MOVE_CURSOR (X,Y:BYTE);
  15. ;BEGIN
  16. L150
  17.     NAME MOVE_CURSOR
  18.     ENTRY MOVE_CURSOR
  19. MOVE_CURSOR:
  20.     ENTR    D,2,0
  21. ;    WRITE(CHR(27),'=',CHR(Y+31),CHR(X+31));
  22.     STMT    D,1
  23.     LXI    H,27
  24.     STMT    M,1
  25.     PUSH    H
  26.     LXI    H,769
  27.     XTHL
  28.     LXI    B,1
  29.     PUSH    B
  30.     MOV    H,L
  31.     PUSH    H
  32.     INX    S
  33.     LXI    H,769
  34.     PUSH    H
  35.     LXI    B,1
  36.     PUSH    B
  37.     LXI    H,61
  38.     MOV    H,L
  39.     PUSH    H
  40.     INX    S
  41.     MOV    H,A
  42.     MOV    L,8(IX)
  43.     LXI    D,31
  44.     DADD    D,0
  45.     STMT    M,1
  46.     PUSH    H
  47.     LXI    H,769
  48.     XTHL
  49.     LXI    B,1
  50.     PUSH    B
  51.     MOV    H,L
  52.     PUSH    H
  53.     INX    S
  54.     MOV    H,A
  55.     MOV    L,9(IX)
  56.     LXI    D,31
  57.     DADD    D,0
  58.     STMT    M,1
  59.     PUSH    H
  60.     LXI    H,769
  61.     XTHL
  62.     LXI    B,1
  63.     PUSH    B
  64.     MOV    H,L
  65.     PUSH    H
  66.     INX    S
  67.     LXI    B,20
  68.     CALL    L111
  69. ;END;
  70.     STMT    D,2
  71.     EXIT    D,2
  72.