committing old stuff

code/Makefile

@@ -1,8 +1,11 @@
-test.rim: main.rel tty.rel pt.rel
-	ld6 -o test.rim main.rel tty.rel pt.rel
+test.rim: main.rel tty.rel pt.rel dt.rel
+	ld6 -o test.rim main.rel tty.rel pt.rel dt.rel
 
-test.sav: main.rel tty.rel pt.rel
-	ld6 -f sav -o test.sav main.rel tty.rel pt.rel
+test.sav: main.rel tty.rel pt.rel dt.rel
+	ld6 -f sav -o test.sav main.rel tty.rel pt.rel dt.rel
+
+dtboot.rim: dtboot.rel
+	ld6 -o dtboot.rim dtboot.rel
 
 %.rel: %.s
 	as6 -o $@ $<

code/bootstrap.txt

@@ -0,0 +1,65 @@
+PAPER TAPE RIM LOADER (AT 20):
+
+	LOC	20
+	CONO	PTR,60		; 710600 000060
+A:	CONSO	PTR,10		; 710740 000010
+	JRST	.-1		; 254000 000021
+	DATAI	PTR,B		; 710440 000026
+	CONSO	PTR,10		; 710740 000010
+	JRST	.-1		; 254000 000024
+B:	0			; 000000 000000
+	JRST	A		; 254000 000021
+
+DECTAPE RIM LOADER AT 0 (SHADOW) 014 INSTRUCTIONS
+
+MY DECTAPE LOADER:
+	CONO	DC,4010		; 720200 004010
+	CONO	UTC,220300	; 721200 220300
+	MOVE	17,12		; 200740 000012
+	CONSO	DC,1000		; 720340 001000
+	 JRST	.-1		; 254000 000003
+	BLKI	DC,17		; 720000 000017
+	 JRST	DONE		; 254000 000010
+	JRST	.-1		; 254000 000003
+DONE:	CONO	DC,0		; 720200 000000
+	HALT	300		; 254200 000300
+	777600000277		; 777600 000277
+
+
+PDP-10 RIM10 LOADER:
+
+003110' R1BLDR:
+000000 PHASE 0
+003110' 777762 000000 		IOWD $ADR,$ST
+003111' 710600 000060 $ST:	CONO PTR,60
+003112' 541400 000004 		HRRI $A,$RD+1
+003113' 710740 000010 $RD:	CONSO PTR,10
+003114' 254000 000003 		JRST .-1
+003115' 710470 000007 		DATAI PTR,@$TBL1-$RD+1($A)
+003116' 256010 000007 		XCT $TBL1-$RD+1($A)
+003117' 256010 000012 		XCT $TBL2-$RD+1($A)
+003120' 364400 000000 $A: 	SOJA $A,
+003121' 312740 000016 $TBL1:	CAME $CKSM,$ADR
+003122' 270756 000001 		ADD $CKSM,1($ADR)
+003123' 331740 000016 		SKIPL $CKSM,$ADR
+003124' 254200 000001 $TBL2:	JRST 4,$ST
+003125' 253700 000003 		AOBJN $ADR,$RD
+003126' 254000 000002 $ADR:	JRST $ST+1
+000017 $CKSM:
+003127' DEPHASE
+
+
+MAC DECtape RIM loader:
+000000	JFCL
+000001	MOVSI	(JFCL)
+000002	CONO	635550
+000003	CONO	PI,11577
+000004	CONO	UTC,223110
+000005	CONO	DC,4010
+000006	CONSO	DC,1000
+000007	JRST	6
+000010	DATAI	DC,13
+000011	AOJGE	13,6
+000012	TRNE	13,-1
+000013	.
+000014	JRST	6

code/dtboot.s

@@ -0,0 +1,23 @@
+DC==200
+UTC==210
+UTS==214
+
+DACI==04010
+
+SL==220000
+RD==300
+
+LOC	0
+ENTRY:
+	CONO	DC,DACI
+	CONO	UTC,SL+RD
+	MOVE	17,[ IOWD 200,300 ]
+	CONSO	DC,1000
+	 JRST	.-1
+	BLKI	DC,17
+	 JRST	DONE
+	JRST	.-4
+DONE:	CONO	DC,0
+	HALT	300
+
+END ENTRY

code/main.s

@@ -10,7 +10,9 @@ PTP==100
 
 EXTERN PUTC,PUTS
 EXTERN GETCH,GETC
+EXTERN PUTN
 EXTERN PTPUT
+EXTERN DTTEST
 
 ENTRY:	JRST	START
 
@@ -19,16 +21,30 @@ SP:	XWD	-100,PDL-1
 
 START:	MOVE	PDP,SP
 
+	;; NUMBER TEST
+;	MOVE	AC1,[-1234]
+;	PUSHJ	PDP,PUTN
+;	MOVE	AC1,[1234]
+;	PUSHJ	PDP,PUTN
+
+	;; DECTAPE TEST
+	JRST	DTTEST
+
+	;; UUO TEST
 ;	UUO1	123
 
+	;; ENABLE CLOCK PI ON CHANNEL 1
 ;	CONO	CPA,2001
+	;; ENABLE PI ON CHANNEL 1
 ;	CONO	PRS,2300
 ;	JRST	.
 
+	;; WRITE MESSAGE TO TTY
 	MOVSI	AC2,440700
 	HRRI	AC2,MSG
 	PUSHJ	PDP,PUTS
 
+	;; WRITE FROM TTY TO PTP
 	PUSHJ	PDP,GETC
 ;	CONO	PTP,20
 	PUSHJ	PDP,PTPUT

code/tty.s

@@ -7,6 +7,7 @@ PDP==17
 
 INTERNAL PUTC,PUTS
 
+; PRINT CHAR IN AC1 ON TTY
 PUTC:
 	CONSZ	TTY,20		; wait until not busy
 	 JRST	.-1
@@ -31,6 +32,7 @@ PUTS:
 
 INTERNAL GETCH,GETC
 
+; READ CHAR FROM TTY INTO AC1
 GETCH:
 	CONSO	TTY,40		; wait for flag
 	 JRST	.-1
@@ -42,3 +44,24 @@ GETC:
 	PUSHJ	PDP,GETCH
 	PUSHJ	PDP,PUTC
 	POPJ	PDP,
+
+BASE:	10
+DIGITS:	EXP "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"
+; PRINT NUMBER IN AC!
+INTERNAL PUTN
+PUTN:
+	JUMPGE	AC1,UPUTN
+	PUSH	PDP,AC1
+	MOVEI	AC1, "-"
+	PUSHJ	PDP,PUTC
+	POP	PDP,AC1
+	MOVM	AC1,AC1
+UPUTN:
+	IDIV	AC1,BASE
+	JUMPE	AC1,UPR1
+	PUSH	PDP,AC2
+	PUSHJ	PDP,UPUTN
+	POP	PDP,AC2
+UPR1:
+	MOVE	AC1,DIGITS(AC2)
+	JRST	PUTC