home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / jsage / znode3 / editors / beditor.lbr / EDSPSEC.ZZ0 / EDSPSEC.Z80
Encoding:
Text File  |  1993-06-08  |  1.4 KB  |  94 lines

  1.  
  2.     EXT    MHL5DC,MHL4HC,MFN3,AT,VPSTR,GXYMSG,STNDEND,MUD,RETUD,IVPSTR
  3.     EXT    GETDUOK,DUTDIR,COPY8,LDFIL
  4.     PUBLIC    INFO,INFOMSG,DISPLAY,DSPSEC
  5.  
  6.     MACLIB    ZPATCH.LIB
  7. ; DISPLAY THE SECTOR TO BE EDITED ON THE SCREEN
  8. ;
  9. DSPSEC:
  10.     PUSH    HL
  11.     LD    A,(LINE##)
  12.     SBC    2
  13.     LD    (ROW),A
  14. ;    CALL    CLS
  15.     CALL    AT
  16. ROW:    DB    0
  17. COL:    DB    1
  18.     LD    HL,(OUTBUF##)
  19.     call    IVPSTR
  20.     POP    HL
  21.     RET
  22. INFO:
  23.     LD    HL,FNM
  24.     LD    BC,25
  25.     LD    A,' '
  26.     CALL    LDFIL
  27.  
  28.     LD    HL,VNO
  29.     LD    DE,(VERSION##)
  30.     LD    (HL),D
  31.     LD    A,'.'
  32.     INC    HL
  33.     LD    (HL),A
  34.     INC    HL
  35.     LD    (HL),E
  36.     LD    DE,DRV
  37.     CALL    GETDUOK
  38.     JR    Z,DIRFM
  39.     CALL    RETUD
  40.     CALL    MUD
  41.     CALL    DUTDIR
  42.     JR    Z,COLON
  43.     LD    A,'/'
  44.     LD    (DE),A
  45.     INC    DE
  46. DIRFM:    CALL    RETUD
  47.     CALL    DUTDIR
  48.     JR    Z,FN
  49.     CALL    COPY8
  50. COLON:    LD    A,':'
  51.     LD    (DE),A
  52.     INC    DE    
  53. FN:    LD    HL,(FCB##)
  54.     INC    HL
  55.     EX    DE,HL
  56.     CALL    MFN3    
  57.     LD    HL,(RECNUM##)
  58.     INC    HL            ; BDOS numbers 0..n-1
  59.                     ; humans prefer 1..n
  60.     LD    DE,RN
  61.     CALL    MHL5DC
  62.     LD    DE,RHN
  63.     CALL    MHL4HC
  64.     LD    HL,(FILESIZE##)
  65.     INC    HL    
  66.     LD    DE,LFILE
  67.     CALL    MHL5DC
  68.     LD    DE,LHFILE
  69.     CALL    MHL4HC
  70.     LD    A,(LINE##)
  71.     SBC    A,4
  72.     LD    (ROWI),A
  73.     CALL    GXYMSG
  74. ROWI:    DB    1,1
  75. INFOMSG:
  76.     DB    'ZPATCH '
  77. VNO:    DB    '     '
  78. DRV:    DB    'A'
  79. FNM:    DB    '                         '
  80.     DB    1,'Rec. # ',2
  81. RN:    DB    '      ('
  82. RHN:    DB    '    H)'
  83.     DB    1,' of ',2
  84. LFILE:    DB    '      ('
  85. LHFILE: DB    '    H)',0dh,0ah,0dh,0ah,0        
  86.     RET        
  87. DISPLAY:
  88.     CALL    INFO
  89.     CALL    DSPSEC
  90.     RET        
  91.     end    
  92. LFILE:    DB    '      ('
  93. LHFILE: DB    '    H)',0dh