X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Ftools%2FBINSTA.PA;fp=sw%2Ftools%2FBINSTA.PA;h=3dde8b977f4fcee86e3932b970924fa87932c4e0;hb=7af5ad59491ddf2066641aef1e0025a337c0f247;hp=0000000000000000000000000000000000000000;hpb=919757fd611e482003ce51f366f6783cab73dea3;p=pdp8.git

diff --git a/sw/tools/BINSTA.PA b/sw/tools/BINSTA.PA
new file mode 100644
index 0000000..3dde8b9
--- /dev/null
+++ b/sw/tools/BINSTA.PA
@@ -0,0 +1,168 @@
+/ BIN LOADER, RUNNABLE FROM OS/8
+
+	DEV=400		/DEVICE 40 FOR BOOT
+
+	AUTO1=10
+	AUTO2=11
+
+*30	
+	6743		/ RK05 BOOTSTRAP - FOR CONVENIENCE
+	JMP	.
+	
+*200	
+	CLA 	CLL	
+	TAD 	PTR1
+	DCA	AUTO1
+	TAD 	PTR2
+	DCA	AUTO2
+	TAD	CTRP
+	DCA	CTR
+LOOP,
+	TAD I	AUTO1
+	DCA I	AUTO2
+	ISZ	CTR
+	JMP	LOOP
+
+	CAF		/ THAT'S NEW!
+	JMP I	LOADER
+
+			
+LOADER, 7777		/ STARTING ADDRESS
+CTRP,	-200		/ LOADER SIZE
+CTR,	0		/ COUNTER
+PTR1,	3777		/ LOADER SOURCE ADDR -1
+PTR2,	7577		/ LOADER TARGET ADDR -1
+LFIELD,	0		/ LOADER TARGET FIELD
+
+*4000		/THIS WILL GO TO THE LAST PAGE!	
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	1212
+	7402
+	7402
+	7402
+	7402
+	7402
+	7402
+	0000
+	3212
+	4260
+	1300
+	7750
+	5237
+	2212
+	7040
+	5227
+	1212
+	7640
+	5230
+	1214
+	0274
+	1341
+	7510
+	2226
+	7750
+	5626
+	1214
+	0256
+	1257
+	3213
+	5230
+	0070
+	6201
+	0000
+	0000
+	6001 DEV
+	5262
+	6006 DEV
+	3214
+	1214
+	5660
+	6011
+	5270
+	6016
+	5265
+	0300
+	4343
+	7041
+	1215
+	7402
+	6002 DEV
+	6014
+	6214
+	1257
+	3213
+
+/	7604	/ LOAD SR 
+	CLA CMA	
+	7700
+	1353
+	1352
+	3261
+	4226
+	5313
+	3215
+	1213
+	3336
+	1214
+	3376
+	4260
+	3355
+	4226
+	5275
+	4343
+	7420
+	5336
+	3216
+	1376
+	1355
+	1215
+	5315
+	6201
+	3616
+	2216
+	7600
+	5332
+	0000
+	1376
+	7106
+	7006
+	7006
+	1355
+	5743
+	5262
+	0006
+	0000
+	0000
+	0000
+	0000
+	0000
+	0000
+	0000
+	0000
+	0000
+	0000
+	0000
+	0000
+	0000
+	0000
+	0000
+	0000
+	0000
+	0000
+	0000
+	5301
+$
\ No newline at end of file