25-08-89/NIDIAG

Home » CEEFAX disks » telesoftware17.adl » 25-08-89/NIDIAG

25-08-89/NIDIAG

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 » CEEFAX disks » telesoftware17.adl
Filename:	25-08-89/NIDIAG
Read OK:	✔
File size:	0446 bytes
Load address:	FFFF0E00
Exec address:	FFFF802B

Duplicates

There is 1 duplicate copy of this file in the archive:

AEW website » bbc_pd » bbc_pd_5_25_discs_d-bbc108_D-BBC108.dsd » N.Nidiag
CEEFAX disks » telesoftware17.adl » 25-08-89/NIDIAG

File contents

   10REM    ************************
   20REM    *  Nicad Cell Checker  *
   30REM    *                      *
   40REM    *      (Diagram)       *
   50REM    *                      *
   60REM    * (c) E. Mark Jolliffe *
   70REM    *                      *
   80REM    *        1988          *
   90REM    ************************
  100MODE1:CLS
  110VDU23;8202;0;0;0;0;
  120COLOUR 0
  130VDU5
  140FOR  x=200 TO 1000 STEP 250
  150PROCres(x,200)
  160NEXT
  170FOR x=300 TO 1150 STEP 250
  180PROCcell(x,200)
  190NEXT
  200MOVE100,200:DRAW1050,200
  210MOVE100,450:DRAW300,450
  220MOVE100,550:DRAW550,550:DRAW550,450:DRAW450,450
  230MOVE100,650:DRAW800,650:DRAW800,450:DRAW700,450
  240MOVE100,750:DRAW1050,750:DRAW1050,450:DRAW950,450
  250VDU5:MOVE50,220:PRINT"0":MOVE10,470:PRINT"15":MOVE50,570:PRINT"7":MOVE10,670:PRINT"12":MOVE50,770:PRINT"4"
  260MOVE330,400:PRINT"A":MOVE580,400:PRINT"B":MOVE830,400:PRINT"C":MOVE1080,400:PRINT"D"
  270MOVE200,100:PRINT"Analogue port connections"
  280MOVE200,900:PRINT"NICHECK CIRCUIT DIAGRAM"
  290G=GET:MODE7
  300END
  310DEFPROCres(x,y)
  320MOVEx,y:DRAWx,y+50:DRAWx+20,y+70:DRAWx-20,y+90:DRAWx+20,y+110:DRAWx-20,y+130:DRAWx+20,y+150:DRAWx-20,y+170:DRAWx,y+190:DRAWx,y+250
  330ENDPROC
  340DEFPROCcell(x,y)
  350MOVEx,y:DRAWx,y+100:MOVEx,y+125:DRAWx,y+250:MOVEx-50,y+100:DRAWx+50,y+100
  360MOVEx-25,y+125:DRAWx+25,y+125:MOVEx-25,y+123:DRAWx+25,y+123
  370MOVEx+30,y+150:PRINT"+"
  380ENDPROC


!�    ************************
!�    *  Nicad Cell Checker  *
!�    *                      *
(!�    *      (Diagram)       *
2!�    *                      *
<!�    * (c) E. Mark Jolliffe *
F!�    *                      *
P!�    *        1988          *
Z!�    ************************
d�1:�
n�23;8202;0;0;0;0;
x� 0
��5
��  x=200 � 1000 � 250
��res(x,200)
��
�� x=300 � 1150 � 250
��cell(x,200)
��
��100,200:�1050,200
��100,450:�300,450
�'�100,550:�550,550:�550,450:�450,450
�'�100,650:�800,650:�800,450:�700,450
�)�100,750:�1050,750:�1050,450:�950,450
�I�5:�50,220:�"0":�10,470:�"15":�50,570:�"7":�10,670:�"12":�50,770:�"4"
<�330,400:�"A":�580,400:�"B":�830,400:�"C":�1080,400:�"D"
)�200,100:�"Analogue port connections"
'�200,900:�"NICHECK CIRCUIT DIAGRAM"
"
G=�:�7
,�
6��res(x,y)
@h�x,y:�x,y+50:�x+20,y+70:�x-20,y+90:�x+20,y+110:�x-20,y+130:�x+20,y+150:�x-20,y+170:�x,y+190:�x,y+250
J�
T��cell(x,y)
^;�x,y:�x,y+100:�x,y+125:�x,y+250:�x-50,y+100:�x+50,y+100
h3�x-25,y+125:�x+25,y+125:�x-25,y+123:�x+25,y+123
r�x+30,y+150:�"+"
|�
�

00000000  0d 00 0a 21 f4 20 20 20  20 2a 2a 2a 2a 2a 2a 2a  |...!.    *******|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000020  2a 0d 00 14 21 f4 20 20  20 20 2a 20 20 4e 69 63  |*...!.    *  Nic|
00000030  61 64 20 43 65 6c 6c 20  43 68 65 63 6b 65 72 20  |ad Cell Checker |
00000040  20 2a 0d 00 1e 21 f4 20  20 20 20 2a 20 20 20 20  | *...!.    *    |
00000050  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000060  20 20 2a 0d 00 28 21 f4  20 20 20 20 2a 20 20 20  |  *..(!.    *   |
00000070  20 20 20 28 44 69 61 67  72 61 6d 29 20 20 20 20  |   (Diagram)    |
00000080  20 20 20 2a 0d 00 32 21  f4 20 20 20 20 2a 20 20  |   *..2!.    *  |
00000090  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000000a0  20 20 20 20 2a 0d 00 3c  21 f4 20 20 20 20 2a 20  |    *..<!.    * |
000000b0  28 63 29 20 45 2e 20 4d  61 72 6b 20 4a 6f 6c 6c  |(c) E. Mark Joll|
000000c0  69 66 66 65 20 2a 0d 00  46 21 f4 20 20 20 20 2a  |iffe *..F!.    *|
000000d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000000e0  20 20 20 20 20 20 2a 0d  00 50 21 f4 20 20 20 20  |      *..P!.    |
000000f0  2a 20 20 20 20 20 20 20  20 31 39 38 38 20 20 20  |*        1988   |
00000100  20 20 20 20 20 20 20 2a  0d 00 5a 21 f4 20 20 20  |       *..Z!.   |
00000110  20 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  | ***************|
00000120  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 00 64 08 eb 31 3a  |*********..d..1:|
00000130  db 0d 00 6e 15 ef 32 33  3b 38 32 30 32 3b 30 3b  |...n..23;8202;0;|
00000140  30 3b 30 3b 30 3b 0d 00  78 07 fb 20 30 0d 00 82  |0;0;0;..x.. 0...|
00000150  06 ef 35 0d 00 8c 19 e3  20 20 78 3d 32 30 30 20  |..5.....  x=200 |
00000160  b8 20 31 30 30 30 20 88  20 32 35 30 0d 00 96 0f  |. 1000 . 250....|
00000170  f2 72 65 73 28 78 2c 32  30 30 29 0d 00 a0 05 ed  |.res(x,200).....|
00000180  0d 00 aa 18 e3 20 78 3d  33 30 30 20 b8 20 31 31  |..... x=300 . 11|
00000190  35 30 20 88 20 32 35 30  0d 00 b4 10 f2 63 65 6c  |50 . 250.....cel|
000001a0  6c 28 78 2c 32 30 30 29  0d 00 be 05 ed 0d 00 c8  |l(x,200)........|
000001b0  16 ec 31 30 30 2c 32 30  30 3a df 31 30 35 30 2c  |..100,200:.1050,|
000001c0  32 30 30 0d 00 d2 15 ec  31 30 30 2c 34 35 30 3a  |200.....100,450:|
000001d0  df 33 30 30 2c 34 35 30  0d 00 dc 27 ec 31 30 30  |.300,450...'.100|
000001e0  2c 35 35 30 3a df 35 35  30 2c 35 35 30 3a df 35  |,550:.550,550:.5|
000001f0  35 30 2c 34 35 30 3a df  34 35 30 2c 34 35 30 0d  |50,450:.450,450.|
00000200  00 e6 27 ec 31 30 30 2c  36 35 30 3a df 38 30 30  |..'.100,650:.800|
00000210  2c 36 35 30 3a df 38 30  30 2c 34 35 30 3a df 37  |,650:.800,450:.7|
00000220  30 30 2c 34 35 30 0d 00  f0 29 ec 31 30 30 2c 37  |00,450...).100,7|
00000230  35 30 3a df 31 30 35 30  2c 37 35 30 3a df 31 30  |50:.1050,750:.10|
00000240  35 30 2c 34 35 30 3a df  39 35 30 2c 34 35 30 0d  |50,450:.950,450.|
00000250  00 fa 49 ef 35 3a ec 35  30 2c 32 32 30 3a f1 22  |..I.5:.50,220:."|
00000260  30 22 3a ec 31 30 2c 34  37 30 3a f1 22 31 35 22  |0":.10,470:."15"|
00000270  3a ec 35 30 2c 35 37 30  3a f1 22 37 22 3a ec 31  |:.50,570:."7":.1|
00000280  30 2c 36 37 30 3a f1 22  31 32 22 3a ec 35 30 2c  |0,670:."12":.50,|
00000290  37 37 30 3a f1 22 34 22  0d 01 04 3c ec 33 33 30  |770:."4"...<.330|
000002a0  2c 34 30 30 3a f1 22 41  22 3a ec 35 38 30 2c 34  |,400:."A":.580,4|
000002b0  30 30 3a f1 22 42 22 3a  ec 38 33 30 2c 34 30 30  |00:."B":.830,400|
000002c0  3a f1 22 43 22 3a ec 31  30 38 30 2c 34 30 30 3a  |:."C":.1080,400:|
000002d0  f1 22 44 22 0d 01 0e 29  ec 32 30 30 2c 31 30 30  |."D"...).200,100|
000002e0  3a f1 22 41 6e 61 6c 6f  67 75 65 20 70 6f 72 74  |:."Analogue port|
000002f0  20 63 6f 6e 6e 65 63 74  69 6f 6e 73 22 0d 01 18  | connections"...|
00000300  27 ec 32 30 30 2c 39 30  30 3a f1 22 4e 49 43 48  |'.200,900:."NICH|
00000310  45 43 4b 20 43 49 52 43  55 49 54 20 44 49 41 47  |ECK CIRCUIT DIAG|
00000320  52 41 4d 22 0d 01 22 0a  47 3d a5 3a eb 37 0d 01  |RAM"..".G=.:.7..|
00000330  2c 05 e0 0d 01 36 0e dd  f2 72 65 73 28 78 2c 79  |,....6...res(x,y|
00000340  29 0d 01 40 68 ec 78 2c  79 3a df 78 2c 79 2b 35  |)..@h.x,y:.x,y+5|
00000350  30 3a df 78 2b 32 30 2c  79 2b 37 30 3a df 78 2d  |0:.x+20,y+70:.x-|
00000360  32 30 2c 79 2b 39 30 3a  df 78 2b 32 30 2c 79 2b  |20,y+90:.x+20,y+|
00000370  31 31 30 3a df 78 2d 32  30 2c 79 2b 31 33 30 3a  |110:.x-20,y+130:|
00000380  df 78 2b 32 30 2c 79 2b  31 35 30 3a df 78 2d 32  |.x+20,y+150:.x-2|
00000390  30 2c 79 2b 31 37 30 3a  df 78 2c 79 2b 31 39 30  |0,y+170:.x,y+190|
000003a0  3a df 78 2c 79 2b 32 35  30 0d 01 4a 05 e1 0d 01  |:.x,y+250..J....|
000003b0  54 0f dd f2 63 65 6c 6c  28 78 2c 79 29 0d 01 5e  |T...cell(x,y)..^|
000003c0  3b ec 78 2c 79 3a df 78  2c 79 2b 31 30 30 3a ec  |;.x,y:.x,y+100:.|
000003d0  78 2c 79 2b 31 32 35 3a  df 78 2c 79 2b 32 35 30  |x,y+125:.x,y+250|
000003e0  3a ec 78 2d 35 30 2c 79  2b 31 30 30 3a df 78 2b  |:.x-50,y+100:.x+|
000003f0  35 30 2c 79 2b 31 30 30  0d 01 68 33 ec 78 2d 32  |50,y+100..h3.x-2|
00000400  35 2c 79 2b 31 32 35 3a  df 78 2b 32 35 2c 79 2b  |5,y+125:.x+25,y+|
00000410  31 32 35 3a ec 78 2d 32  35 2c 79 2b 31 32 33 3a  |125:.x-25,y+123:|
00000420  df 78 2b 32 35 2c 79 2b  31 32 33 0d 01 72 14 ec  |.x+25,y+123..r..|
00000430  78 2b 33 30 2c 79 2b 31  35 30 3a f1 22 2b 22 0d  |x+30,y+150:."+".|
00000440  01 7c 05 e1 0d ff                                 |.|....|
00000446

25-08-89/NIDIAG.m0

25-08-89/NIDIAG.m1

25-08-89/NIDIAG.m2

25-08-89/NIDIAG.m4

25-08-89/NIDIAG.m5

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