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 (file)
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 (file)
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 (file)
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 (file)
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 (file)
index 0000000..e69de29

diff --git a/sw/plot_hpgl/pdp8/PLOT.FT b/sw/plot_hpgl/pdp8/PLOT.FT
deleted file mode 100644 (file)
index ffa75b4..0000000
--- a/sw/plot_hpgl/pdp8/PLOT.FT
+++ /dev/null
@@ -1,45 +0,0 @@
-C PHILIPP'S FILE PLOTTER 2010!\r
-\r
-0100  DIMENSION NAME(3)\r
-\r
-C     565 0.01 INCH, DATA IN CM\r
-      CALL PLOTS(0.0254,0)\r
-\r
-C     CALL PLOTS(0.004,0)\r
-\r
-0150  XMAX=0\r
-0200  WRITE (4,300)\r
-0300  FORMAT (' FILE TO PLOT:')\r
-0400  READ (4,600) NAME\r
-0500  CALL USR(5,NAME,2,ERR)\r
-0501  IF (NAME(1) .EQ. ' ') GO TO 200 \r
-0600  FORMAT (3A6)\r
-\r
-\r
-\r
-1200  CALL CHKEOF(EOF)\r
-1300  READ (5,1000) PEN,X,Y\r
-1000  FORMAT (A3,2F13.5)\r
-1500  IF (EOF.NE.0) GO TO 7000\r
-\r
-C ROTATE\r
-C      TMP=Y\r
-C      Y=-X\r
-C      X=-TMP\r
-\r
-      TMP=Y\r
-      Y=-X\r
-      X=TMP\r
-\r
-2000  IF (PEN.EQ.'PU,') P=3\r
-2100  IF (PEN.EQ.'PD,') P=2\r
-      IF (X.GE.XMAX) XMAX=X\r
-      CALL XYPLOT(X,Y,P)\r
-\r
-1700  GO TO 1200\r
-\r
-7000  CALL XYPLOT(XMAX+1,0,-3);\r
-      CALL PLEXIT\r
-\r
-9999  GO TO 150\r
-\r

diff --git a/sw/plot_hpgl/pdp8/PLOT65.FT b/sw/plot_hpgl/pdp8/PLOT65.FT
new file mode 100644 (file)
index 0000000..ffa75b4
--- /dev/null
+++ b/sw/plot_hpgl/pdp8/PLOT65.FT
@@ -0,0 +1,45 @@
+C PHILIPP'S FILE PLOTTER 2010!\r
+\r
+0100  DIMENSION NAME(3)\r
+\r
+C     565 0.01 INCH, DATA IN CM\r
+      CALL PLOTS(0.0254,0)\r
+\r
+C     CALL PLOTS(0.004,0)\r
+\r
+0150  XMAX=0\r
+0200  WRITE (4,300)\r
+0300  FORMAT (' FILE TO PLOT:')\r
+0400  READ (4,600) NAME\r
+0500  CALL USR(5,NAME,2,ERR)\r
+0501  IF (NAME(1) .EQ. ' ') GO TO 200 \r
+0600  FORMAT (3A6)\r
+\r
+\r
+\r
+1200  CALL CHKEOF(EOF)\r
+1300  READ (5,1000) PEN,X,Y\r
+1000  FORMAT (A3,2F13.5)\r
+1500  IF (EOF.NE.0) GO TO 7000\r
+\r
+C ROTATE\r
+C      TMP=Y\r
+C      Y=-X\r
+C      X=-TMP\r
+\r
+      TMP=Y\r
+      Y=-X\r
+      X=TMP\r
+\r
+2000  IF (PEN.EQ.'PU,') P=3\r
+2100  IF (PEN.EQ.'PD,') P=2\r
+      IF (X.GE.XMAX) XMAX=X\r
+      CALL XYPLOT(X,Y,P)\r
+\r
+1700  GO TO 1200\r
+\r
+7000  CALL XYPLOT(XMAX+1,0,-3);\r
+      CALL PLEXIT\r
+\r
+9999  GO TO 150\r
+\r