Library/BASIC/SetParams

Home » Personal collection » Acorn ADFS disks » Greaseweazled » dfs_box04_disk01b_adfs_welcome_disk_interleaved.adf » Library/BASIC/SetParams

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Personal collection » Acorn ADFS disks » Greaseweazled » dfs_box04_disk01b_adfs_welcome_disk_interleaved.adf
Filename:	Library/BASIC/SetParams
Read OK:	✔
File size:	0934 bytes
Load address:	0800
Exec address:	8023

Duplicates

There are 7 duplicate copies of this file in the archive:

AEW website » acp_pres » acp_pres_3_5_discs_Electron-Adfs-E00_A-E00.adf » Library/BASIC/SetParams
AEW website » database » database_3_5_discs_Classic-Card-And-Board-Games-2_A-CCB2.adf » LIBRARY/BASIC/SetParams
Personal collection » Acorn ADFS disks » Electron » PRES_E00.ADF » Library/BASIC/SetParams
Personal collection » Acorn ADFS disks » Electron » PRES_E00_backup.ADF » Library/Basic/SetParams
Personal collection » Acorn ADFS disks » Electron » Utilities_1.ADF » LIBRARY/Basic/SetParams
Personal collection » Acorn ADFS disks » Electron » Utilities_2.ADF » LIBRARY/Basic/SetParams
Personal collection » Acorn ADFS disks » Greaseweazled » adfs_E00.adf » Library/BASIC/SetParams
Personal collection » Acorn ADFS disks » Greaseweazled » dfs_box04_disk01b_adfs_welcome_disk_interleaved.adf » Library/BASIC/SetParams

File contents

   10 REM SETPARAMS   V1.00  G A RADFORD  1984 Oct 16
   20 REM Copyright (c) ACORN 1984
   30 REM   Program "SetParams".  Sets the O.S. Byte addressed by *FX 255 to
   40 REM mimic the BBC keyboard DIL switches, and in particular, to enable the
   50 REM setting of disc drive parameters.  In addition, a machine-code file
   60 REM "BootParams" is produced which can be executed, or included in a boot
   70 REM file, to set up the O.S.Byte.
   80 
   90REM    The make-up of the byte is :-
  100 
  110REM   Bits D2, D1, D0 - screen mode. e.g. 0, 0, 1 selects mode 1
  120REM   Bit  D3         - autoboot on SHIFT BREAK =1, on BREAK = 0
  130REM   Bits D4 & D5    - stepping rate. (0,0), (0,1), (1,0), (1,1) for
  140REM                                      30     20     12     6   mSec
  150REM   Bit  D6         - write precompensation. 1 for enabled.
  160REM   Bit  D7         - reserved.
  170 
  180REM   Note that the byte is set to &FF at switch-on, and is not altered 
  190REM by the O.S. after that.  The senses of the bits have been assigned
  200REM so that the byte is optimised for a Chinon drive at switch-on.
  210 
  220 MODE6 
  230 OSBYTE = &FFF4
  240 
  250 PRINT ',  "  ELECTRON DISC DRIVE SPEED SELECTION"
  260 PRINT "                V1.00",''
  270 INPUT "Standard drive speed is 6 mS."'"Select 6, 12, 20 or 30 mS.      " Speed% 
  280 
  290 X% = 100                        : REM X% contains the O.S. byte value
  300 IF Speed% = 6  THEN X% = &30
  310 IF Speed% = 12 THEN X% = &20
  320 IF Speed% = 20 THEN X% = &10
  330 IF Speed% = 30 THEN X% =   0
  340 IF X% > 50 THEN PRINT ',"Invalid entry",' : GOTO 270 
  350 
  360 INPUT ''"Type Y for Write Precompensation   "WP$,'
  370 IF WP$ = "Y" OR WP$ = "y" THEN X% = X% + &40
  380 
  390 INPUT '"Enter screen mode   "Mode%
  400 IF Mode% < 0 OR Mode% > 6 THEN PRINT ',"Invalid entry",' : GOTO 390
  410 X% = X% + Mode% + &80
  420 
  430 INPUT ''"Type Y to autoboot on SHIFT BREAK,"'"N on BREAK only   "Autoboot$
  440 IF Autoboot$ = "Y" OR Autoboot$ = "y" THEN X% = X% + 8 ELSE IF Autoboot$ <> "N" AND Autoboot$ <> "n" THEN PRINT '"Invalid entry"': GOTO 430
  450 
  460 REM   Set up the code for the "BootParams" file.  It is located in the
  470 REM centre of the stack so that nothing is corrupted after a BREAK.
  480  
  490 REM  LDX  X%
  500 REM  LDA  #255
  510 REM  LDY  #0
  520 REM  JSR  OSBYTE
  530 REM  RTS
  540 
  550 ?&180 = &A2
  560 ?&181 = X%
  570 !&182 = &00A0FFA9
  580 !&186 = &60FFF420
  590 *SAVE "$.BootParams" 180 18A
  600 
  610 REM Now set the O.S. byte
  620 
  630 A% = &FF
  640 Y% = 0
  650 CALL OSBYTE
  660 END


2 � SETPARAMS   V1.00  G A RADFORD  1984 Oct 16
 � Copyright (c) ACORN 1984
I �   Program "SetParams".  Sets the O.S. Byte addressed by *FX 255 to
(L � mimic the BBC keyboard DIL switches, and in particular, to enable the
2J � setting of disc drive parameters.  In addition, a machine-code file
<L � "BootParams" is produced which can be executed, or included in a boot
F$ � file, to set up the O.S.Byte.
P 
Z&�    The make-up of the byte is :-
d 
nB�   Bits D2, D1, D0 - screen mode. e.g. 0, 0, 1 selects mode 1
xB�   Bit  D3         - autoboot on SHIFT BREAK =1, on BREAK = 0
�G�   Bits D4 & D5    - stepping rate. (0,0), (0,1), (1,0), (1,1) for
�H�                                      30     20     12     6   mSec
�?�   Bit  D6         - write precompensation. 1 for enabled.
�#�   Bit  D7         - reserved.
� 
�J�   Note that the byte is set to &FF at switch-on, and is not altered 
�H� by the O.S. after that.  The senses of the bits have been assigned
�D� so that the byte is optimised for a Chinon drive at switch-on.
� 
� �6 
� OSBYTE = &FFF4
� 
�2 � ',  "  ELECTRON DISC DRIVE SPEED SELECTION"
! � "                V1.00",''
Q � "Standard drive speed is 6 mS."'"Select 6, 12, 20 or 30 mS.      " Speed% 
 
"H X% = 100                        : � X% contains the O.S. byte value
, � Speed% = 6  � X% = &30
6 � Speed% = 12 � X% = &20
@ � Speed% = 20 � X% = &10
J � Speed% = 30 � X% =   0
T0 � X% > 50 � � ',"Invalid entry",' : � �TNA 
^ 
h3 � ''"Type Y for Write Precompensation   "WP$,'
r, � WP$ = "Y" � WP$ = "y" � X% = X% + &40
| 
�# � '"Enter screen mode   "Mode%
�= � Mode% < 0 � Mode% > 6 � � ',"Invalid entry",' : � �tFA
� X% = X% + Mode% + &80
� 
�K � ''"Type Y to autoboot on SHIFT BREAK,"'"N on BREAK only   "Autoboot$
�| � Autoboot$ = "Y" � Autoboot$ = "y" � X% = X% + 8 � � Autoboot$ <> "N" � Autoboot$ <> "n" � � '"Invalid entry"': � �tnA
� 
�I �   Set up the code for the "BootParams" file.  It is located in the
�F � centre of the stack so that nothing is corrupted after a BREAK.
�  
� �  LDX  X%
� �  LDA  #255
� �  LDY  #0
 �  JSR  OSBYTE
 �  RTS
 
& ?&180 = &A2
0 ?&181 = X%
: !&182 = &00A0FFA9
D !&186 = &60FFF420
N! *SAVE "$.BootParams" 180 18A
X 
b � Now set the O.S. byte
l 
v
 A% = &FF
� Y% = 0
�
 � OSBYTE
� �
�

00000000  0d 00 0a 32 20 f4 20 53  45 54 50 41 52 41 4d 53  |...2 . SETPARAMS|
00000010  20 20 20 56 31 2e 30 30  20 20 47 20 41 20 52 41  |   V1.00  G A RA|
00000020  44 46 4f 52 44 20 20 31  39 38 34 20 4f 63 74 20  |DFORD  1984 Oct |
00000030  31 36 0d 00 14 1f 20 f4  20 43 6f 70 79 72 69 67  |16.... . Copyrig|
00000040  68 74 20 28 63 29 20 41  43 4f 52 4e 20 31 39 38  |ht (c) ACORN 198|
00000050  34 0d 00 1e 49 20 f4 20  20 20 50 72 6f 67 72 61  |4...I .   Progra|
00000060  6d 20 22 53 65 74 50 61  72 61 6d 73 22 2e 20 20  |m "SetParams".  |
00000070  53 65 74 73 20 74 68 65  20 4f 2e 53 2e 20 42 79  |Sets the O.S. By|
00000080  74 65 20 61 64 64 72 65  73 73 65 64 20 62 79 20  |te addressed by |
00000090  2a 46 58 20 32 35 35 20  74 6f 0d 00 28 4c 20 f4  |*FX 255 to..(L .|
000000a0  20 6d 69 6d 69 63 20 74  68 65 20 42 42 43 20 6b  | mimic the BBC k|
000000b0  65 79 62 6f 61 72 64 20  44 49 4c 20 73 77 69 74  |eyboard DIL swit|
000000c0  63 68 65 73 2c 20 61 6e  64 20 69 6e 20 70 61 72  |ches, and in par|
000000d0  74 69 63 75 6c 61 72 2c  20 74 6f 20 65 6e 61 62  |ticular, to enab|
000000e0  6c 65 20 74 68 65 0d 00  32 4a 20 f4 20 73 65 74  |le the..2J . set|
000000f0  74 69 6e 67 20 6f 66 20  64 69 73 63 20 64 72 69  |ting of disc dri|
00000100  76 65 20 70 61 72 61 6d  65 74 65 72 73 2e 20 20  |ve parameters.  |
00000110  49 6e 20 61 64 64 69 74  69 6f 6e 2c 20 61 20 6d  |In addition, a m|
00000120  61 63 68 69 6e 65 2d 63  6f 64 65 20 66 69 6c 65  |achine-code file|
00000130  0d 00 3c 4c 20 f4 20 22  42 6f 6f 74 50 61 72 61  |..<L . "BootPara|
00000140  6d 73 22 20 69 73 20 70  72 6f 64 75 63 65 64 20  |ms" is produced |
00000150  77 68 69 63 68 20 63 61  6e 20 62 65 20 65 78 65  |which can be exe|
00000160  63 75 74 65 64 2c 20 6f  72 20 69 6e 63 6c 75 64  |cuted, or includ|
00000170  65 64 20 69 6e 20 61 20  62 6f 6f 74 0d 00 46 24  |ed in a boot..F$|
00000180  20 f4 20 66 69 6c 65 2c  20 74 6f 20 73 65 74 20  | . file, to set |
00000190  75 70 20 74 68 65 20 4f  2e 53 2e 42 79 74 65 2e  |up the O.S.Byte.|
000001a0  0d 00 50 05 20 0d 00 5a  26 f4 20 20 20 20 54 68  |..P. ..Z&.    Th|
000001b0  65 20 6d 61 6b 65 2d 75  70 20 6f 66 20 74 68 65  |e make-up of the|
000001c0  20 62 79 74 65 20 69 73  20 3a 2d 0d 00 64 05 20  | byte is :-..d. |
000001d0  0d 00 6e 42 f4 20 20 20  42 69 74 73 20 44 32 2c  |..nB.   Bits D2,|
000001e0  20 44 31 2c 20 44 30 20  2d 20 73 63 72 65 65 6e  | D1, D0 - screen|
000001f0  20 6d 6f 64 65 2e 20 65  2e 67 2e 20 30 2c 20 30  | mode. e.g. 0, 0|
00000200  2c 20 31 20 73 65 6c 65  63 74 73 20 6d 6f 64 65  |, 1 selects mode|
00000210  20 31 0d 00 78 42 f4 20  20 20 42 69 74 20 20 44  | 1..xB.   Bit  D|
00000220  33 20 20 20 20 20 20 20  20 20 2d 20 61 75 74 6f  |3         - auto|
00000230  62 6f 6f 74 20 6f 6e 20  53 48 49 46 54 20 42 52  |boot on SHIFT BR|
00000240  45 41 4b 20 3d 31 2c 20  6f 6e 20 42 52 45 41 4b  |EAK =1, on BREAK|
00000250  20 3d 20 30 0d 00 82 47  f4 20 20 20 42 69 74 73  | = 0...G.   Bits|
00000260  20 44 34 20 26 20 44 35  20 20 20 20 2d 20 73 74  | D4 & D5    - st|
00000270  65 70 70 69 6e 67 20 72  61 74 65 2e 20 28 30 2c  |epping rate. (0,|
00000280  30 29 2c 20 28 30 2c 31  29 2c 20 28 31 2c 30 29  |0), (0,1), (1,0)|
00000290  2c 20 28 31 2c 31 29 20  66 6f 72 0d 00 8c 48 f4  |, (1,1) for...H.|
000002a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000002c0  20 20 20 20 20 20 33 30  20 20 20 20 20 32 30 20  |      30     20 |
000002d0  20 20 20 20 31 32 20 20  20 20 20 36 20 20 20 6d  |    12     6   m|
000002e0  53 65 63 0d 00 96 3f f4  20 20 20 42 69 74 20 20  |Sec...?.   Bit  |
000002f0  44 36 20 20 20 20 20 20  20 20 20 2d 20 77 72 69  |D6         - wri|
00000300  74 65 20 70 72 65 63 6f  6d 70 65 6e 73 61 74 69  |te precompensati|
00000310  6f 6e 2e 20 31 20 66 6f  72 20 65 6e 61 62 6c 65  |on. 1 for enable|
00000320  64 2e 0d 00 a0 23 f4 20  20 20 42 69 74 20 20 44  |d....#.   Bit  D|
00000330  37 20 20 20 20 20 20 20  20 20 2d 20 72 65 73 65  |7         - rese|
00000340  72 76 65 64 2e 0d 00 aa  05 20 0d 00 b4 4a f4 20  |rved..... ...J. |
00000350  20 20 4e 6f 74 65 20 74  68 61 74 20 74 68 65 20  |  Note that the |
00000360  62 79 74 65 20 69 73 20  73 65 74 20 74 6f 20 26  |byte is set to &|
00000370  46 46 20 61 74 20 73 77  69 74 63 68 2d 6f 6e 2c  |FF at switch-on,|
00000380  20 61 6e 64 20 69 73 20  6e 6f 74 20 61 6c 74 65  | and is not alte|
00000390  72 65 64 20 0d 00 be 48  f4 20 62 79 20 74 68 65  |red ...H. by the|
000003a0  20 4f 2e 53 2e 20 61 66  74 65 72 20 74 68 61 74  | O.S. after that|
000003b0  2e 20 20 54 68 65 20 73  65 6e 73 65 73 20 6f 66  |.  The senses of|
000003c0  20 74 68 65 20 62 69 74  73 20 68 61 76 65 20 62  | the bits have b|
000003d0  65 65 6e 20 61 73 73 69  67 6e 65 64 0d 00 c8 44  |een assigned...D|
000003e0  f4 20 73 6f 20 74 68 61  74 20 74 68 65 20 62 79  |. so that the by|
000003f0  74 65 20 69 73 20 6f 70  74 69 6d 69 73 65 64 20  |te is optimised |
00000400  66 6f 72 20 61 20 43 68  69 6e 6f 6e 20 64 72 69  |for a Chinon dri|
00000410  76 65 20 61 74 20 73 77  69 74 63 68 2d 6f 6e 2e  |ve at switch-on.|
00000420  0d 00 d2 05 20 0d 00 dc  08 20 eb 36 20 0d 00 e6  |.... .... .6 ...|
00000430  13 20 4f 53 42 59 54 45  20 3d 20 26 46 46 46 34  |. OSBYTE = &FFF4|
00000440  0d 00 f0 05 20 0d 00 fa  32 20 f1 20 27 2c 20 20  |.... ...2 . ',  |
00000450  22 20 20 45 4c 45 43 54  52 4f 4e 20 44 49 53 43  |"  ELECTRON DISC|
00000460  20 44 52 49 56 45 20 53  50 45 45 44 20 53 45 4c  | DRIVE SPEED SEL|
00000470  45 43 54 49 4f 4e 22 0d  01 04 21 20 f1 20 22 20  |ECTION"...! . " |
00000480  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 56  |               V|
00000490  31 2e 30 30 22 2c 27 27  0d 01 0e 51 20 e8 20 22  |1.00",''...Q . "|
000004a0  53 74 61 6e 64 61 72 64  20 64 72 69 76 65 20 73  |Standard drive s|
000004b0  70 65 65 64 20 69 73 20  36 20 6d 53 2e 22 27 22  |peed is 6 mS."'"|
000004c0  53 65 6c 65 63 74 20 36  2c 20 31 32 2c 20 32 30  |Select 6, 12, 20|
000004d0  20 6f 72 20 33 30 20 6d  53 2e 20 20 20 20 20 20  | or 30 mS.      |
000004e0  22 20 53 70 65 65 64 25  20 0d 01 18 05 20 0d 01  |" Speed% .... ..|
000004f0  22 48 20 58 25 20 3d 20  31 30 30 20 20 20 20 20  |"H X% = 100     |
00000500  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000510  20 20 20 3a 20 f4 20 58  25 20 63 6f 6e 74 61 69  |   : . X% contai|
00000520  6e 73 20 74 68 65 20 4f  2e 53 2e 20 62 79 74 65  |ns the O.S. byte|
00000530  20 76 61 6c 75 65 0d 01  2c 1d 20 e7 20 53 70 65  | value..,. . Spe|
00000540  65 64 25 20 3d 20 36 20  20 8c 20 58 25 20 3d 20  |ed% = 6  . X% = |
00000550  26 33 30 0d 01 36 1d 20  e7 20 53 70 65 65 64 25  |&30..6. . Speed%|
00000560  20 3d 20 31 32 20 8c 20  58 25 20 3d 20 26 32 30  | = 12 . X% = &20|
00000570  0d 01 40 1d 20 e7 20 53  70 65 65 64 25 20 3d 20  |..@. . Speed% = |
00000580  32 30 20 8c 20 58 25 20  3d 20 26 31 30 0d 01 4a  |20 . X% = &10..J|
00000590  1d 20 e7 20 53 70 65 65  64 25 20 3d 20 33 30 20  |. . Speed% = 30 |
000005a0  8c 20 58 25 20 3d 20 20  20 30 0d 01 54 30 20 e7  |. X% =   0..T0 .|
000005b0  20 58 25 20 3e 20 35 30  20 8c 20 f1 20 27 2c 22  | X% > 50 . . ',"|
000005c0  49 6e 76 61 6c 69 64 20  65 6e 74 72 79 22 2c 27  |Invalid entry",'|
000005d0  20 3a 20 e5 20 8d 54 4e  41 20 0d 01 5e 05 20 0d  | : . .TNA ..^. .|
000005e0  01 68 33 20 e8 20 27 27  22 54 79 70 65 20 59 20  |.h3 . ''"Type Y |
000005f0  66 6f 72 20 57 72 69 74  65 20 50 72 65 63 6f 6d  |for Write Precom|
00000600  70 65 6e 73 61 74 69 6f  6e 20 20 20 22 57 50 24  |pensation   "WP$|
00000610  2c 27 0d 01 72 2c 20 e7  20 57 50 24 20 3d 20 22  |,'..r, . WP$ = "|
00000620  59 22 20 84 20 57 50 24  20 3d 20 22 79 22 20 8c  |Y" . WP$ = "y" .|
00000630  20 58 25 20 3d 20 58 25  20 2b 20 26 34 30 0d 01  | X% = X% + &40..|
00000640  7c 05 20 0d 01 86 23 20  e8 20 27 22 45 6e 74 65  ||. ...# . '"Ente|
00000650  72 20 73 63 72 65 65 6e  20 6d 6f 64 65 20 20 20  |r screen mode   |
00000660  22 4d 6f 64 65 25 0d 01  90 3d 20 e7 20 4d 6f 64  |"Mode%...= . Mod|
00000670  65 25 20 3c 20 30 20 84  20 4d 6f 64 65 25 20 3e  |e% < 0 . Mode% >|
00000680  20 36 20 8c 20 f1 20 27  2c 22 49 6e 76 61 6c 69  | 6 . . ',"Invali|
00000690  64 20 65 6e 74 72 79 22  2c 27 20 3a 20 e5 20 8d  |d entry",' : . .|
000006a0  74 46 41 0d 01 9a 1a 20  58 25 20 3d 20 58 25 20  |tFA.... X% = X% |
000006b0  2b 20 4d 6f 64 65 25 20  2b 20 26 38 30 0d 01 a4  |+ Mode% + &80...|
000006c0  05 20 0d 01 ae 4b 20 e8  20 27 27 22 54 79 70 65  |. ...K . ''"Type|
000006d0  20 59 20 74 6f 20 61 75  74 6f 62 6f 6f 74 20 6f  | Y to autoboot o|
000006e0  6e 20 53 48 49 46 54 20  42 52 45 41 4b 2c 22 27  |n SHIFT BREAK,"'|
000006f0  22 4e 20 6f 6e 20 42 52  45 41 4b 20 6f 6e 6c 79  |"N on BREAK only|
00000700  20 20 20 22 41 75 74 6f  62 6f 6f 74 24 0d 01 b8  |   "Autoboot$...|
00000710  7c 20 e7 20 41 75 74 6f  62 6f 6f 74 24 20 3d 20  || . Autoboot$ = |
00000720  22 59 22 20 84 20 41 75  74 6f 62 6f 6f 74 24 20  |"Y" . Autoboot$ |
00000730  3d 20 22 79 22 20 8c 20  58 25 20 3d 20 58 25 20  |= "y" . X% = X% |
00000740  2b 20 38 20 8b 20 e7 20  41 75 74 6f 62 6f 6f 74  |+ 8 . . Autoboot|
00000750  24 20 3c 3e 20 22 4e 22  20 80 20 41 75 74 6f 62  |$ <> "N" . Autob|
00000760  6f 6f 74 24 20 3c 3e 20  22 6e 22 20 8c 20 f1 20  |oot$ <> "n" . . |
00000770  27 22 49 6e 76 61 6c 69  64 20 65 6e 74 72 79 22  |'"Invalid entry"|
00000780  27 3a 20 e5 20 8d 74 6e  41 0d 01 c2 05 20 0d 01  |': . .tnA.... ..|
00000790  cc 49 20 f4 20 20 20 53  65 74 20 75 70 20 74 68  |.I .   Set up th|
000007a0  65 20 63 6f 64 65 20 66  6f 72 20 74 68 65 20 22  |e code for the "|
000007b0  42 6f 6f 74 50 61 72 61  6d 73 22 20 66 69 6c 65  |BootParams" file|
000007c0  2e 20 20 49 74 20 69 73  20 6c 6f 63 61 74 65 64  |.  It is located|
000007d0  20 69 6e 20 74 68 65 0d  01 d6 46 20 f4 20 63 65  | in the...F . ce|
000007e0  6e 74 72 65 20 6f 66 20  74 68 65 20 73 74 61 63  |ntre of the stac|
000007f0  6b 20 73 6f 20 74 68 61  74 20 6e 6f 74 68 69 6e  |k so that nothin|
00000800  67 20 69 73 20 63 6f 72  72 75 70 74 65 64 20 61  |g is corrupted a|
00000810  66 74 65 72 20 61 20 42  52 45 41 4b 2e 0d 01 e0  |fter a BREAK....|
00000820  06 20 20 0d 01 ea 0f 20  f4 20 20 4c 44 58 20 20  |.  .... .  LDX  |
00000830  58 25 0d 01 f4 11 20 f4  20 20 4c 44 41 20 20 23  |X%.... .  LDA  #|
00000840  32 35 35 0d 01 fe 0f 20  f4 20 20 4c 44 59 20 20  |255.... .  LDY  |
00000850  23 30 0d 02 08 13 20 f4  20 20 4a 53 52 20 20 4f  |#0.... .  JSR  O|
00000860  53 42 59 54 45 0d 02 12  0b 20 f4 20 20 52 54 53  |SBYTE.... .  RTS|
00000870  0d 02 1c 05 20 0d 02 26  10 20 3f 26 31 38 30 20  |.... ..&. ?&180 |
00000880  3d 20 26 41 32 0d 02 30  0f 20 3f 26 31 38 31 20  |= &A2..0. ?&181 |
00000890  3d 20 58 25 0d 02 3a 16  20 21 26 31 38 32 20 3d  |= X%..:. !&182 =|
000008a0  20 26 30 30 41 30 46 46  41 39 0d 02 44 16 20 21  | &00A0FFA9..D. !|
000008b0  26 31 38 36 20 3d 20 26  36 30 46 46 46 34 32 30  |&186 = &60FFF420|
000008c0  0d 02 4e 21 20 2a 53 41  56 45 20 22 24 2e 42 6f  |..N! *SAVE "$.Bo|
000008d0  6f 74 50 61 72 61 6d 73  22 20 31 38 30 20 31 38  |otParams" 180 18|
000008e0  41 0d 02 58 05 20 0d 02  62 1c 20 f4 20 4e 6f 77  |A..X. ..b. . Now|
000008f0  20 73 65 74 20 74 68 65  20 4f 2e 53 2e 20 62 79  | set the O.S. by|
00000900  74 65 0d 02 6c 05 20 0d  02 76 0d 20 41 25 20 3d  |te..l. ..v. A% =|
00000910  20 26 46 46 0d 02 80 0b  20 59 25 20 3d 20 30 0d  | &FF.... Y% = 0.|
00000920  02 8a 0d 20 d6 20 4f 53  42 59 54 45 0d 02 94 06  |... . OSBYTE....|
00000930  20 e0 0d ff                                       | ...|
00000934

Library/BASIC/SetParams.m0

Library/BASIC/SetParams.m1

Library/BASIC/SetParams.m2

Library/BASIC/SetParams.m4

Library/BASIC/SetParams.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .