Low border in GFA Basic

GFA BASIC-related articles in here please

Moderators: exxos, simonsunnyboy, Mug UK, Zorro 2, Moderator Team

Fantomas
Atariator
Atariator
Posts: 29
Joined: Sun May 01, 2005 8:41 am
Location: France
Contact:

Low border in GFA Basic

Postby Fantomas » Sun Jun 28, 2015 3:41 pm

Hi;

I m looking for 68000 rout that i can put in INL and call in GFA Basic to remove low border on ST ?
(with parameters, for exemple: ~C:low_border(1) to enable and ~C:low_border(0) to disable)

As anyone as this ?

Thanks :mrgreen:

User avatar
Zorro 2
Administrator
Administrator
Posts: 2190
Joined: Tue May 21, 2002 12:44 pm
Location: Saint Cloud (France)
Contact:

Re: Low border in GFA Basic

Postby Zorro 2 » Mon Jun 29, 2015 9:27 am

Hi Fantomas !

I join some GFA routs but I'm not found the "source" of low border remover. Sorry but you can inspire of them...

Maybe Simon Sunnyboy can help you :roll:
You do not have the required permissions to view the files attached to this post.
Member of NoExtra Team

Fantomas
Atariator
Atariator
Posts: 29
Joined: Sun May 01, 2005 8:41 am
Location: France
Contact:

Re: Low border in GFA Basic

Postby Fantomas » Mon Jun 29, 2015 9:52 am

Ok thanks Zorro, i ll try what u give me ;)

User avatar
simonsunnyboy
Moderator
Moderator
Posts: 4858
Joined: Wed Oct 23, 2002 4:36 pm
Location: Friedrichshafen, Germany
Contact:

Re: Low border in GFA Basic

Postby simonsunnyboy » Mon Jun 29, 2015 3:43 pm

It's certainly possible to create one as it is a derivate of Timer B code. However I currently lack the spare time to actively code it. Sorry :(
Simon Sunnyboy/Paradize - http://paradize.atari.org/ - STOT: http://www.npoi.de/stot/

Stay cool, stay Atari!

1x2600jr, 1x1040STFm, 1x1040STE 4MB+TOS2.06+SatanDisk, 1xF030 14MB+FPU+NetUS-Bee

Jabber: simonsunnyboy@atari-jabber.org

Fantomas
Atariator
Atariator
Posts: 29
Joined: Sun May 01, 2005 8:41 am
Location: France
Contact:

Re: Low border in GFA Basic

Postby Fantomas » Mon Jun 29, 2015 4:10 pm

Tanks for reply simonsunnyboy :mrgreen:

I'll try to code it when i ll have some time !

User avatar
Zorro 2
Administrator
Administrator
Posts: 2190
Joined: Tue May 21, 2002 12:44 pm
Location: Saint Cloud (France)
Contact:

Re: Low border in GFA Basic

Postby Zorro 2 » Thu Aug 27, 2015 2:16 pm

I find this :

Code: Select all

'
'
' OVERSCAN
'  PROGRAMED BY  CORSAIR OF THE  GIANTS, 01.08.1992
'   ENGLISH COMMENT BONUS SOFTWARE
'
bm%=28874
q|=170
init
main
exit                                    !PUT EVERYTHING BACK
EDIT                                    !QUIT!
'
PROCEDURE init
  OUT 4,18                              !SHUT UP MOUSE
  HIDEM                                 !...AND HIDE HIM
  super%=GEMDOS(&H20,L:0)               !SUPERVISOR MODE ON
  '
  org%=XBIOS(3)                         !ORG. SCREEN POINTER
  RESERVE FRE()-(32512+50*160)          !RESERVE MEMORY
  screen_%=MALLOC(32256+50*160)         !ALLOCATE MEMORY
  screen%=(screen_%+256)-screen_% MOD 256  !MUST BE ON 256 EVEN POINTER
  res%=XBIOS(4)                         !REMEMBER OLD RESOLUTION
  ~XBIOS(5,L:screen%,L:screen%,W:0)     !INSTALL SCREEN, SWITCH TO LOW RES
  SETCOLOR 15,0                         !SETCOLOR 15 TO BLACK
  mfp(0)                                !KILL SOME MFP INTERUPS (STEADY)
  '
  ' LET'S DRAW SOMETHING ON SCREEN
  ' ===========================
  CLS
  PRINT
  PRINT " THE LOW BORDER IS REMOVED BY CORSAIR" ! JUST SOME TEXT FOR BORDER
  PRINT " USE ARROW KEY'S UP, DOWN, + AND -"
  PRINT " TO GET SYNC STEADY "
  '
  BMOVE XBIOS(2),XBIOS(2)+32000,6400    ! COPY TEXT IN BORDER (!)
  COLOR 4
  DEFLINE 4,0,0,1
  LINE 50,199,319,199                   !DRAW LINE ON 200 SCREEN LINE
RETURN
'
PROCEDURE main
  DO
    VSYNC                               !SYNC
    k|=BYTE{&HFFFC02}                   !READ A KEY (IF ANY)
    BMOVE 10000,10000,bm%               !WAIT FOR LAST SCAN LINE
    overscan                            !OPEN LOWER BORDER
    keys                                !GET KEY'S FOR ALTERATIONS
  LOOP UNTIL k|=57                      !WAIT FOR SPAC_BAR
RETURN
'
PROCEDURE overscan
  DO
  LOOP UNTIL BYTE{&HFF8209}>170         !EXTRA SYNCHRONISATION (steady)
  VOID SHL(1,q|-BYTE{&HFF8209})         !"MAGIC SYNCHRONISATION"
  CARD{&HFF8240}=&H700                  !BORDER COLOR RED
  BYTE{&HFF820A}=0                      !60 HZ
  {&HFF8240}={&HFF8240}                 !JUST WAIT
  BYTE{&HFF820A}=2                      !50 HZ
  CARD{&HFF8240}=&H777                  !BORDER COLOR WHITE
RETURN
'
PROCEDURE exit
  mfp(1)                                !MFP ON AGAIN
  OUT 4,8                               !MOUSE ON
  ~GEMDOS(&H20,L:super%)                !USER MODE
  ~XBIOS(5,L:org%,L:org%,W:res%)        !INSTALL ORG. RES AND POINTER
  ~MFREE(screen_%)                      !FREE MALLOC MEMORY
  RESERVE                               !FREE RESERVE MEMORY
RETURN
'
PROCEDURE keys
  SELECT k|
  CASE 72                               !
    SUB bm%,2
  CASE 80                               !
    ADD bm%,2
  CASE 74
    DEC q|                              !-
  CASE 78
    INC q|                              !+
  ENDSELECT
RETURN
'
PROCEDURE mfp(m|)
  ~XBIOS(26+m|,0)                       !TURN ON/OFF MFP INTERUPS
  ~XBIOS(26+m|,1)
  ~XBIOS(26+m|,2)
  ~XBIOS(26+m|,5)
  ~XBIOS(26+m|,6)
  ~XBIOS(26+m|,8)
  ~XBIOS(26+m|,9)
  ~XBIOS(26+m|,10)
  ~XBIOS(26+m|,11)
  ~XBIOS(26+m|,12)
  ~XBIOS(26+m|,13)
  ~XBIOS(26+m|,14)
  ~XBIOS(26+m|,15)
RETURN


It seems not running on STEEM but you can inspire...
Member of NoExtra Team

User avatar
simonsunnyboy
Moderator
Moderator
Posts: 4858
Joined: Wed Oct 23, 2002 4:36 pm
Location: Friedrichshafen, Germany
Contact:

Re: Low border in GFA Basic

Postby simonsunnyboy » Thu Aug 27, 2015 3:25 pm

As this is a polling solution, I would suspect it to be unstable on real STs aswell.

IIRC the Perihelion tutorials contained a working example for assembly language. I would combine that one with my Timer B routines to get a working solution.

BUT: keep those French special solutions coming, there is a lot of crazy GFABASIC knowledge still hidden in french only documents.
Simon Sunnyboy/Paradize - http://paradize.atari.org/ - STOT: http://www.npoi.de/stot/

Stay cool, stay Atari!

1x2600jr, 1x1040STFm, 1x1040STE 4MB+TOS2.06+SatanDisk, 1xF030 14MB+FPU+NetUS-Bee

Jabber: simonsunnyboy@atari-jabber.org


Social Media

     

Return to “GFA BASIC”

Who is online

Users browsing this forum: No registered users and 2 guests