 .PAGE 'GETACT'
;*********************************
;* GETACT: GET ACTIVE BUFFER #   *
;*   VARS: BUF0,BUF1,LINDX       *
;*   REGS: OUT: .A= ACT BUFFER # *
;*              .X= LINDX        *
;*   FLAGS:     .N=1: NO ACT-BUF *
;*********************************
;
GETACT
 LDX LINDX
 LDA BUF0,X
 BPL GA1
 LDA BUF1,X
GA1
 AND #$BF ; STRIP DIRTY BIT
 RTS
;
;*********************************
;* GAFLG: GET ACTIVE BUFFER #;   *
;*        SET LBUSED & FLAGS.    *
;*   REGS: OUT: .A= ACT BUFFER # *
;*              .X= LINDX        *
;*   FLAGS:     .N=1: NO ACT-BUF *
;*              .V=1: DIRTY BUF  *
;*********************************
;
GAFLGS
 LDX LINDX
GA2 STX LBUSED ;SAVE BUF #
 LDA BUF0,X
 BPL GA3
;
 TXA
 CLC
 ADC #MXCHNS
 STA LBUSED
 LDA BUF1,X
GA3
 STA T1
 AND #$1F
 BIT T1
 RTS
;
 .END
