From: Philipp Hachtmann <hachti@hachti.de>
Date: Mon, 28 Sep 2015 16:43:47 +0000 (+0200)
Subject: autobin: Added the glorious autobin loader
X-Git-Url: http://gitweb.hachti.de/?p=pdp8.git;a=commitdiff_plain;h=52f719ef632149639c1c52de398a39ad3d332791

autobin: Added the glorious autobin loader

Signed-off-by: Philipp Hachtmann <hachti@hachti.de>
---

diff --git a/sw/autobin/.gitignore b/sw/autobin/.gitignore
new file mode 100644
index 0000000..cfbe413
--- /dev/null
+++ b/sw/autobin/.gitignore
@@ -0,0 +1,5 @@
+*.lst
+*.rim
+*.BN
+*.err
+*.bin
diff --git a/sw/autobin/Makefile b/sw/autobin/Makefile
new file mode 100644
index 0000000..7aed720
--- /dev/null
+++ b/sw/autobin/Makefile
@@ -0,0 +1,15 @@
+
+
+PAL=palbart
+
+autobin.rim: binloader.rim auto.rim
+	@echo BUILD
+	@cat binloader.rim auto.rim > autobin.rim
+
+%.rim:%.pal
+	@echo PAL-R
+	@$(PAL) -r -l $<
+
+
+clean:
+	@rm -f *.err *.lst *.rim *.bin
diff --git a/sw/autobin/auto.pal b/sw/autobin/auto.pal
new file mode 100644
index 0000000..9e2bf39
--- /dev/null
+++ b/sw/autobin/auto.pal
@@ -0,0 +1,11 @@
+
+*7612 / SWITCH REGISTER
+    7777	/ "LOW SPEED"
+
+*7706
+    TAD	7612
+
+*7756 / RIM LOADER ENTRY POINT!
+    JMP	7777	/JUMP INTO BINLOADER
+
+$0
diff --git a/sw/autobin/binloader.pal b/sw/autobin/binloader.pal
new file mode 100644
index 0000000..0712876
--- /dev/null
+++ b/sw/autobin/binloader.pal
@@ -0,0 +1,97 @@
+/ The original bin loader
+
+*7617	1212
+*7620	7402
+*7621	7402
+*7622	7402
+*7623	7402
+*7624	7402
+*7625	7402
+*7626	0000
+*7627	3212
+*7630	4260
+*7631	1300
+*7632	7750
+*7633	5237
+*7634	2212
+*7635	7040
+*7636	5227
+*7637	1212
+*7640	7640
+*7641	5230
+*7642	1214
+*7643	0274
+*7644	1341
+*7645	7510
+*7646	2226
+*7647	7750
+*7650	5626
+*7651	1214
+*7652	0256
+*7653	1257
+*7654	3213
+*7655	5230
+*7656	0070
+*7657	6201
+*7660	0000
+*7661	0000
+*7662	6031
+*7663	5262
+*7664	6036
+*7665	3214
+*7666	1214
+*7667	5660
+*7670	6011
+*7671	5270
+*7672	6016
+*7673	5265
+*7674	0300
+*7675	4343
+*7676	7041
+*7677	1215
+*7700	7402
+*7701	6032
+*7702	6014
+*7703	6214
+*7704	1257
+*7705	3213
+*7706	7604
+*7707	7700
+*7710	1353
+*7711	1352
+*7712	3261
+*7713	4226
+*7714	5313
+*7715	3215
+*7716	1213
+*7717	3336
+*7720	1214
+*7721	3376
+*7722	4260
+*7723	3355
+*7724	4226
+*7725	5275
+*7726	4343
+*7727	7420
+*7730	5336
+*7731	3216
+*7732	1376
+*7733	1355
+*7734	1215
+*7735	5315
+*7736	6201
+*7737	3616
+*7740	2216
+*7741	7600
+*7742	5332
+*7743	0000
+*7744	1376
+*7745	7106
+*7746	7006
+*7747	7006
+*7750	1355
+*7751	5743
+*7752	5262
+*7753	0006
+*7777	5301
+$
\ No newline at end of file
diff --git a/sw/autobin/rkboot.pal b/sw/autobin/rkboot.pal
new file mode 100644
index 0000000..e69de29
diff --git a/sw/plot_hpgl/pdp8/PLOT.FT b/sw/plot_hpgl/pdp8/PLOT.FT
deleted file mode 100644
index ffa75b4..0000000
--- a/sw/plot_hpgl/pdp8/PLOT.FT
+++ /dev/null
@@ -1,45 +0,0 @@
-C PHILIPP'S FILE PLOTTER 2010!
-
-0100  DIMENSION NAME(3)
-
-C     565 0.01 INCH, DATA IN CM
-      CALL PLOTS(0.0254,0)
-
-C     CALL PLOTS(0.004,0)
-
-0150  XMAX=0
-0200  WRITE (4,300)
-0300  FORMAT (' FILE TO PLOT:')
-0400  READ (4,600) NAME
-0500  CALL USR(5,NAME,2,ERR)
-0501  IF (NAME(1) .EQ. ' ') GO TO 200 
-0600  FORMAT (3A6)
-
-
-
-1200  CALL CHKEOF(EOF)
-1300  READ (5,1000) PEN,X,Y
-1000  FORMAT (A3,2F13.5)
-1500  IF (EOF.NE.0) GO TO 7000
-
-C ROTATE
-C      TMP=Y
-C      Y=-X
-C      X=-TMP
-
-      TMP=Y
-      Y=-X
-      X=TMP
-
-2000  IF (PEN.EQ.'PU,') P=3
-2100  IF (PEN.EQ.'PD,') P=2
-      IF (X.GE.XMAX) XMAX=X
-      CALL XYPLOT(X,Y,P)
-
-1700  GO TO 1200
-
-7000  CALL XYPLOT(XMAX+1,0,-3);
-      CALL PLEXIT
-
-9999  GO TO 150
-
diff --git a/sw/plot_hpgl/pdp8/PLOT65.FT b/sw/plot_hpgl/pdp8/PLOT65.FT
new file mode 100644
index 0000000..ffa75b4
--- /dev/null
+++ b/sw/plot_hpgl/pdp8/PLOT65.FT
@@ -0,0 +1,45 @@
+C PHILIPP'S FILE PLOTTER 2010!
+
+0100  DIMENSION NAME(3)
+
+C     565 0.01 INCH, DATA IN CM
+      CALL PLOTS(0.0254,0)
+
+C     CALL PLOTS(0.004,0)
+
+0150  XMAX=0
+0200  WRITE (4,300)
+0300  FORMAT (' FILE TO PLOT:')
+0400  READ (4,600) NAME
+0500  CALL USR(5,NAME,2,ERR)
+0501  IF (NAME(1) .EQ. ' ') GO TO 200 
+0600  FORMAT (3A6)
+
+
+
+1200  CALL CHKEOF(EOF)
+1300  READ (5,1000) PEN,X,Y
+1000  FORMAT (A3,2F13.5)
+1500  IF (EOF.NE.0) GO TO 7000
+
+C ROTATE
+C      TMP=Y
+C      Y=-X
+C      X=-TMP
+
+      TMP=Y
+      Y=-X
+      X=TMP
+
+2000  IF (PEN.EQ.'PU,') P=3
+2100  IF (PEN.EQ.'PD,') P=2
+      IF (X.GE.XMAX) XMAX=X
+      CALL XYPLOT(X,Y,P)
+
+1700  GO TO 1200
+
+7000  CALL XYPLOT(XMAX+1,0,-3);
+      CALL PLEXIT
+
+9999  GO TO 150
+