Subject: Re: Added "Stranded on Rigel 5" by Sean Walsh to BallyAlley.com
From:    Richard Degler
Date:    November 28, 2010


Both versions [of "Stranded on Rigel 5" by Sean Walsh] are exactly the
same, except for the comments on one and different Direct Command
loaders :


.STRANDED ON RIGEL 5
.BY SEAN WALSH
.ARCADIAN VOL.4 PG.72&73


for A=-24576to -22776;%(A)=KP;next A;%(20050)=-22886;:return ;run


... or as printed in the Arcadian :

A =  -24576;B=  -22784;for N=Ato B;%(N)=KP;next N;%(20050)=B-102;:return ;run

Not sure why there are extra spaces in the second version

After that, the Bally Basic program follows identically on the tape(s) 
beginning at Line 6 - with the line number digits already converted to words 
(saves space on tape, no difference in memory usage.) :


  6 W=20200;Y=W+13;R=W+3;F=-40;BC=0;FC=126;clear ;for A=-80to 80;line A,-
40,0;F=F+rnd (3)-2;if F<-40F=-40
   7 line A,F,1;if A>50box rnd (160)-80,rnd (70)-40,1,1,1
  10 next A;print "   STRANDED ON RIGEL 5";P=0;for A=17to 20;&(A)=7;next 
A;&(16)=92;&(22)=-1;if KPinput S
  80 gosub 900;O=0;K=20;gosub 749+(P>0)
 100 clear ;box -50,32,60,1,1;box -42,-5,1,74,1;P=0;box 0,0,3,87,1;box -
5,0,10,2,1;%(Y)=128;%(R)=8774
 105 CALLW;for A=0to 4
 110 @(A)=rnd (10)-1;for Q=0to A-1;if A=0next A
 111 if @(A)=@(Q)goto 110
 120 next Q;next A;print "input CODE";print 
 124 for P=1to 8;for A=5to 9
 125 @(A)=KP-48;if (@(A)<0)+(@(A)>9)goto 125
 126 TV=@(A)+48;next A;C=0;D=0;for A=0to 4;if @(A)=@(A+5)C=C+1
 140 for Q=5to 9;if @(A)=@(Q)D=D+1
 143 next Q;next A;CX=-36;print #0,D,"-",#0,C;if C=5goto 180
 161 for A=17to 20;&(A)=-1;next A;&(16)=33;&(22)=Pmul 31;next P
 170 %(Y)=129;%(R)=67;CALLW;N=9
 172 for A=32to Nstep -5;&(18)=-A;box -7,A,2,5,3;box -7,A,2,5,3;next A;box -
7,N,7,2,2;N=N-2;if N>2goto 172
 175 gosub 700;goto 190
 180 box 0,6,3,10,2;box 16,0,35,1,1;box 40,-30,50,5,1;box 40,-13,30,30,1;box 
40,4,20,5,1;box 40,14,5,16,1;box 40,-30,5,5,2
 190 gosub 900;CX=12;CY=40;print "CODE WAS:";CX=21;for A=0to 4;print 
#0,@(A),;next A;if KPif P=9goto 100
 500 K=0;gosub 750
 510 clear ;E=0;for A=1to 30;box rnd (160)-80,rnd (88)-44,1,1,1;next A;for 
T=1to 3;gosub 600;next T;V=80;H=V
 520 for N=1to rnd (8-S)mul 14;H=H+JX(1)mul 4;%(R)=20480+H;CALLW;if 
TR(1)&(22)=-1;gosub 580
 530 CALLW;next N;for A=48-Tmul 10to 40step 10;for B=-74to 80step 16;if 
PX(B,A)gosub 600;T=T+1;goto 520
 540 next B;T=T-1;next A;CALLW;goto 800
 580 for A=-32to 40step 10;box H-74,A,2,5,3;box H-74,A,2,5,3
 581 &(18)=A;if PX(H-74,A)box H-75,A+1,11,9,2;&(21)=-1;&(23)=9;gosub 900;return 
 590 next A;E=E+1;return 
 600 %(Y)=129;for A=0to 9;%(R)=2560mul T+Amul 16;CALLW;next A;%(Y)=128;if 
T#8return 
 610 for A=1to 40;MU=3;next A;gosub 700;goto 510
 700 for Z=1to 7;&(21)=-1;&(18)=99;&(19)=99;&(16)=1;&(23)=9;BC=7-Z;next Z;gosub 
900;O=O+1;if O<5return 
 710 clear ;print "YOUR 5 LIVES ARE GONE";print "YOU HAVE FAILED!";if KPgoto 80
 749 for A=0to 10;C=W+Amul 2;%(C)=@(A);next A
 750 C=Y+7;for A=31-Kto 50-K;C=C+2;%(C)=@(A);next A;return 
 800 for A=16to 19;&(A)=60;next A;&(21)=89;&(22)=-1;&(23)=61;for A=1to 15;print 
;next A;gosub 900;print "GREAT!
 810 print "EFFICIENCY IS",100-Omul 9-P-E+Smul 3,"%";if KPgoto 80
 900 for Z=16to 23;&(Z)=0;next Z;return

After Line 900 is the "end of program marker" and the "@(array)" which contains 
the "machine language" section as follows :

;         DW      $FF00           ; -256 [end of Basic program flag]

 

        ORG     $4EE8

; ****** Start from BALLY Basic with CALL20200 *** <-- Variable 'W' is pointed 
here
L4EE8:  PUSH    DE              ; store Basic Program pointer <-- copied 
starting from @(0)
        SYSSUK  STRDIS          ; UPI STRing DISplay
        DB      $4B             ; ... X = 75 <-- Variable 'R' is pointed here
        DB      $00             ; ... Y = 0
        DB      $28             ; ... Options = 40
        DW      L4EF2           ; ... String Address = 20210
        ;
        POP     DE              ; restore Basic Program pointer
        RET



; ****** Formatting Text string ***
L4EF2:  DB      $70,$F8,$4E     ; load IX with 20216 for Alternate Font 
Descriptor
        DB      $81,$00         ; ASCII $80 and/or $81 (Null Terminated) <-- 
Variable 'Y'

 

; L4EF7: 1 spare byte for ??
      DB      $30



; ****** Alternate Font Descriptor block *** (at 20216)
L4EF8: DB     $80             ; FonT BASE character = 128 (normally 32)
      DB      $09             ; ... Frame X Size width = 9
      DB      $0F             ; ... Frame Y Size height = 15
      DB      $02             ; ... X size for char in BYTEs = 2
      DB      $09             ; ... Y SIZe height in rows = 9
      DW      $4EFF           ; ... Pattern Table address = 20223

 

; ****** Special Two-character 9 x 15 Fonts *** <-- 20 words moved by Basic to 
20222
L4EFF:
; *** Char $80 Human, First shape
      DB      $38,$00         ; . . X X X . . . . . . . . . . . <-- @(11 to 30)
      DB      $FE,$00         ; X X X X X X X . . . . . . . . .
      DB      $FE,$00         ; X X X X X X X . . . . . . . . .
      DB      $BA,$00         ; . . . X . . . . . . . . . . . .
      DB      $38,$00         ; . . X X X . . . . . . . . . . .
      DB      $7C,$00         ; . X X X X X . . . . . . . . . .
      DB      $6C,$00         ; . X X . X X . . . . . . . . . .
      DB      $C6,$00         ; X X . . . X X . . . . . . . . .
      DB      $00,$00         ; . . . . . . . . . . . . . . . .


; *** Char $81 Lander, First shape
      DB      $07,$00         ; . . . . . X X X . . . . . . . .
      DB      $3F,$E0         ; . . X X X X X X X X X . . . . .
      DB      $32,$60         ; . . X X . . X . . X X . . . . .
      DB      $3F,$E0         ; . . X X X X X X X X X . . . . .
      DB      $15,$40         ; . . . X . X . X . X . . . . . .
      DB      $17,$40         ; . . . X . X X X . X . . . . . .
      DB      $3A,$E0         ; . . X X . . . . X X X . . . . .
      DB      $02,$00         ; . . . . . . X . . . . . . . . .
      DB      $07,$00         ; . . . . . X X X . . . . . . . .


;  3 filler bytes (not used)
        DB      $00,$00         ; . . . . . . . . . . . . . . . . <-- 3 
additional bytes
        DB      $00,$4E         ; . . . . . . . . . X . . X X X . <-- high byte 
of address


; *** Char $80 Human, Second shape
      DB      $04,$00         ; . . . . . X . . . . . . . . . . <-- @(31 to 50)
      DB      $04,$00         ; . . . . . X . . . . . . . . . .
      DB      $04,$00         ; . . . . . X . . . . . . . . . .
      DB      $0E,$00         ; . . . . X X X . . . . . . . . .
      DB      $1F,$00         ; . . . X X X X X . . . . . . . .
      DB      $1F,$00         ; . . . X X X X X . . . . . . . .
      DB      $1F,$00         ; . . . X X X X X . . . . . . . .
      DB      $3B,$80         ; . . X X . . . X X . . . . . . .
      DB      $7B,$C0         ; . X X X . . . X X X . . . . . .


; *** Char $81 Lander, Second shape
      DB      $1F,$00         ; . . . X X X X X . . . . . . . .
      DB      $7F,$C0         ; . X X X X X X X X X . . . . . .
      DB      $AA,$A0         ; X . X . X . X . X . X . . . . .
      DB      $7F,$C0         ; . X X X X X X X X X . . . . . .
      DB      $1F,$00         ; . . . X X X X X . . . . . . . .
      DB      $0E,$00         ; . . . . X X X . . . . . . . . .
      DB      $7F,$C0         ; . X X X X X X X X X . . . . . .
      DB      $64,$C0         ; . X X . . X . . X X . . . . . .
      DB      $F1,$E0         ; X X X X . . . X X X X . . . . .

 

; 14 filler bytes ??
        DB      $00,$00         ; . . . . . . . . . . . . . . . . <-- 3 
additional bytes
        DB      $00,$00         ; . . . . . . . . . . . . . . . .
        DB      $00,$00         ; . . . . . . . . . . . . . . . .
        DB      $00,$00         ; . . . . . . . . . . . . . . . .
        DB      $00,$00         ; . . . . . . . . . . . . . . . .
        DB      $00,$00         ; . . . . . . . . . . . . . . . .
        DB      $00,$00         ; . . . . . . . . . . . . . . . .

 

; end of file

        END


As you can see, the machine code portion is moved by the Basic program before 
being used, and either two-character font can also be copied into position.

Hope everyone has "Lucinda Terminal" font - the regular "Terminal" changed 
&nbsp; to á in the preview.
Used <pre>code</pre> instead of <code>text</code> as one eats all blank lines.

If this listing is too fragged up, and for my comments on the Basic listing, 
see :
http://tech.groups.yahoo.com/group/ballyalley/files/STRANDED.ASM 

Richard Degler