Scrolling

 BBS: Inland Empire Archive
Date: 10-01-92 (11:35)             Number: 198
From: ED KOWALSKI                  Refer#: NONE
  To: PATRICK BELL                  Recvd: NO  
Subj: Scrolling                      Conf: (1) 80xxx

 > Unfortunately, I can't put assembler directly into Turbo BASIC.

And in this case you probably don't have to

SUB Scroll(UpOrDown, Lines, TopRow, BotRow, LeftCol, RightCol, NewAttr)
  '
  '  On entry:
  '    * UpOrDown = 0 for scroll up, 1 for scroll down.
  '    * Lines are the num of lines ot scroll. 0 to clear
  '    * TopRow is the top row to be scrolled.
  '    * BotRow is the bottom row to be scrolled.
  '    * LeftCol is the left column of the section of the screen to be
  '      scrolled.
  '    * RightCol is the right column of the section of the screen to be
  '      scrolled.
  '    * NewAttr is the video attribute that the scrolled-in line will take.

  REG 3, (TopRow - 1) * 256 + (LeftCol - 1)            'ch, cl=0
  REG 4, (BotRow - 1) * 256 + (RightCol - 1)           'dh, dl
  REG 2, NewAttr * 256                                 'bh=video attr
  REG 1, (6 + UpOrDown) * 256 + Lines                  'ah=6 or 7, al=lines
  CALL INTERRUPT &H10

END SUB

I'm posting this just so you can see how good assembly looks. :-)

--- FD 1.99c
 * Origin: Cat's Quarter -- Saskatoon - SK -- (1:140/12.9)