page

; RCP-LT.Z80

;=============================================================================
;
;       L I S T    A N D    T Y P E    C O M M A N D S
;
;=============================================================================

;Command: LIST
;Modified: August 20, 1989, Gene Pizzetta -- now filters control chars from
;       console output
;Function:  Print out specified file on the LST: Device
;Forms:
;       LIST <afn>      Print file (NO Paging)
;Notes:
;       The flags which apply to TYPE do not take effect with LIST

        if     liston
list:
;
; CHECK FOR WHEEL APPROVAL IF OPTION ENABLED


       call    retsave
       ld      a,0ffh          ; Turn on printer flag
       jr      type0
        endif  ;liston

;Command: TYPE
;Function:  Print out specified file on the CON: Device
;Forms:
;       TYPE <afn>      Print file
;       TYPE <afn> P    Print file with paging flag
;Notes:
;       The flag PGDFLG defines the letter which toggles the paging
;               facility (P in the forms section above)
;       The flag PGDFLT determines if TYPE is to page by default
;               (PGDFLT=TRUE if TYPE pages by default); combined with
;               PGDFLG, the following events occur --
;                       If PGDFLT = TRUE, PGDFLG turns OFF paging
;                       If PGDFLT = FALSE, PGDFLG turns ON paging
;
type:
;
; CHECK FOR WHEEL APPROVAL IF OPTION ENABLED
;
;
       call    retsave
       xor     a               ; Turn off printer flag
;
; ENTRY POINT FOR CPR LIST FUNCTION (LIST)
;
type0:
        if     liston
       ld      (prflg),a       ; Set flag
        endif                  ; Liston

       ld      a,(fcb2+1)      ; Get page flag
       ld      (pgflg),a       ; Save it as a flag
       ld      a,1             ; Select dir files
       call    getdir          ; Allow ambiguous files (HL points to buffer)
       jp      z,prfnf         ; No files
       jr      typex2

                               ; Entry point for successive files
typex:
       ld      hl,(nxtfile)    ; Get ptr to next file
       ld      a,(hl)          ; Any files?
       or      a
       jp      z,exit

        if     liston
       ld      a,(prflg)       ; Check for list output
       or      a               ; 0=type
       jr      z,typex1
       ld      a,cr            ; Bol on printer
       call    lcout
       ld      a,ff            ; Form feed the printer
       call    lcout
       jr      typex2
        endif                  ; Liston

typex1:
;       LDA     PAGCNT          ; If we've just done so,
       push    hl
       ld      hl,(pagcnt)
       ld      a,(hl)
       pop     hl
       cp      nlines-2        ; Don't type another
       call    nz,pagebreak    ; Page break message
typex2:
       ld      de,fcb1+1       ; Copy into fcb1
       ld      b,11            ; 11 bytes
       call    blkmov
       ld      (nxtfile),hl    ; Set ptr to next file
       call    initfcb1        ; Init fcb1
       ld      c,15            ; Open file
       call    bdos
       inc     a               ; Set error flag
       jp      z,prfnf         ; Abort if error
;       MVI     A,NLINES-2      ; Set line count
;       STA     PAGCNT
       ld      hl,(pagcnt)
       ld      (hl),nlines-2
       ld      a,cr            ; New line
       call    lcout
       ld      a,lf
       call    lcout
       ld      bc,080h         ; Set char position and tab count
                               ; (b=0=tab, c=080h=char position)
;
;  MAIN LOOP FOR LOADING NEXT BLOCK
;
type2:
       ld      a,c             ; Get char count
       cp      80h
       jr      c,type3
;       PUSH    H               ; Read next block
       push    bc
       ld      de,fcb1         ; Pt to fcb
       ld      c,20            ; Read record
       call    bdos
       or      a               ; Set flags
       pop     bc
;       POP     H
       jr      nz,typex        ; End of file?
       ld      c,0             ; Set char count
       ld      hl,tbuff        ; Pt to first char
;
;  MAIN LOOP FOR PRINTING CHARS IN TBUFF
;
type3:
       ld      a,(hl)          ; Get next char
       and     7fh             ; Mask out msb
       cp      1ah             ; End of file (^z)?
       jr      z,typex         ; Next file if so
;
; OUTPUT CHAR TO CON: OR LST: DEVICE WITH TABULATION
;
type3x: cp      cr              ; Reset tab count?
       jr      z,type4
       cp      lf              ; Reset tab count?
       jr      z,type4
       cp      tab             ; Tab?
       jr      z,type5
       cp      ' '             ; is it any other control char?
       jr      c,type6         ; (yes, skip it)
;
;  OUTPUT CHAR AND INCREMENT CHAR COUNT
;
       call    lcout           ; Output char
       inc     b               ; Increment tab count
       jr      type6
;
;  OUTPUT <CR> OR <LF> AND RESET TAB COUNT
;
type4:
       call    lcout           ; Output <cr> or <lf>
       ld      b,0             ; Reset tab counter
       jr      type6
;
;  TABULATE
;
type5:
       ld      a,' '           ; <sp>
       call    lcout
       inc     b               ; Incr pos count
       ld      a,b
       and     7
       jr      nz,type5
;
; CONTINUE PROCESSING
;
type6:
       inc     c               ; Increment char count
       inc     hl              ; Pt to next char
       call    break           ; Check for abort
       jp      z,typex         ; Skip
       jr      type2
;
; SEND OUTPUT TO LST: OR CON:, AS PER THE FLAG
;   RETURN WITH Z IF ABORT
;
lcout:
       push    hl              ; Save regs
       push    bc
       ld      e,a             ; Char in e
       ld      c,2             ; Output to con:
        if     liston
prflg   equ     $+1             ; Pointer for in-the-code modification
       ld      a,0             ; 2nd byte is the print flag
       or      a               ; 0=type
       jr      z,lc1
       ld      c,5             ; Output to lst:
        endif                  ; Liston

lc1:
       push    de              ; Save char
       call    bdos            ; Output char in e
       pop     de              ; Get char
       ld      a,e
       cp      lf
       jr      nz,lc2
        if     liston
       ld      a,(prflg)       ; Output to lst:?
       or      a               ; Nz = yes
       jr      nz,lc2
        endif                  ; Liston
;
; CHECK FOR PAGING
;
;       LXI     H,PAGCNT        ; Count down
       ld      hl,(pagcnt)
       dec     (hl)
       jr      nz,lc2          ; Jump if not end of page
       ld      (hl),nlines-2   ; Refill counter
pgflg   equ     $+1             ; Pointer to in-the-code buffer
       ld      a,0             ; 2nd byte is the paging flag
       cp      pgdflg          ; Page default override option wanted?
;
        if     pgdflt          ; If paging is default
;
       jr      z,lc2           ; Pgdflg means no paging
;
        else
;
       jr      nz,lc2          ; Pgdflg means page
;
        endif                  ; Pgdflt
;
       call    pagebreak       ; Print page break message
       jp      z,typex         ; Z to skip
lc2:
       pop     bc              ; Restore regs
       pop     hl
       ret
;
; PRINT PAGE BREAK MESSAGE AND GET USER INPUT
;   ABORT IF ^C, RZ IF ^X
;
pagebreak:
       push    hl              ; Save hl
       call    print
       db      cr,lf,' Typing',' '+80h
       ld      hl,fcb1+1       ; Print file name
       call    prfn
       call    dash            ; Print dash
       call    conin           ; Get input
       pop     hl              ; Restore hl
       push    af
       call    crlf            ; New line
       pop     af
       jp      break1
;
; End RCP-LT.Z80



You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.