AZKDJ -- AZ11 BOOTSTRAP FOR KDJ	MACRO V05.06  Monday 19-Apr-21 10:56  Page 1


      1						.TITLE	AZKDJ -- AZ11 BOOTSTRAP FOR KDJ11-B
      2						.IDENT	/V01.02/
      3
      4	000000					.ASECT
      5		010000 				.=10000
      6
      7	010000	012706 	010000 		START::	MOV	#START,SP		;INITIALIZE STACK POINTER
      8	010004	105737 	177560 			TSTB	@#177560		;KEY PRESSED?
      9	010010	100007 				BPL	10$			;IF PL NO
     10	010012	113705 	177562 			MOVB	@#177562,R5		;GET THE CHARACTER FROM KEYBOARD
     11	010016	042705 	177600 			BIC	#^C177,R5		;MASK IRRELEVANT BITS
     12	010022	022705 	000003 			CMP	#3,R5			;CTRL/C?
     13	010026	001417 				BEQ	30$			;IF EQ YES
     14	010030	005701 			10$:	TST	R1			;CSR SPECIFIED?
     15	010032	001002 				BNE	20$			;IF NE YES
     16	010034	012701 	177220 			MOV	#177220,R1		;NO, USE DEFAULT CSR
     17	010040	005011 			20$:	CLR	@R1			;RESET CONTROLLER
     18	010042	105711 				TSTB	@R1			;
     19	010044	100375 				BPL	20$			;
     20	010046	010061 	000002 			MOV	R0,2(R1)		;SELECT THE DRIVE
     21	010052	012711 	000001 			MOV	#1,@R1			;
     22	010056	005711 				TST	@R1			;UNIT ONLINE?
     23	010060	100007 				BPL	40$			;IF PL YES
     24	010062	012705 	000272 			MOV	#272,R5			;NO MEDIA IN DRIVE
     25	010066	042737 	000760 	177520 	30$:	BIC	#760,@#177520		;MAKE SURE ROM IS ENABLED
     26	010074	000137 	165762 			JMP	@#165762		;RESTART ROM
     27
     28	010100	005061 	000002 		40$:	CLR	2(R1)			;SEEK TO BLOCK 0
     29	010104	012711 	000002 			MOV	#2,@R1			;
     30	010110	012711 	000005 			MOV	#5,@R1			;READ BOOT BLOCK
     31	010114	105711 			50$:	TSTB	@R1			;
     32	010116	100376 				BPL	50$			;
     33	010120	012702 	000400 			MOV	#256.,R2		;SET WORD COUNT
     34	010124	005003 				CLR	R3			;POINT TO THE BEGINNING OF MEMORY
     35	010126	012721 	000015 			MOV	#15,(R1)+		;START READING FROM BUFFER
     36	010132	011123 			60$:	MOV	@R1,(R3)+		;MOVE A WORD
     37	010134	077202 				SOB	R2,60$			;LOOP UNTIL WE DONE
     38	010136	012741 	000110 			MOV	#110,-(R1)		;ENABLE NETWORK
     39	010142	012705 	000001 			MOV	#1,R5			;PRINT STARTING MESSAGE
     40	010146	004767 	177714 			CALL	30$			;
     41	010152	012737 	000340 	177776 		MOV	#340,@#177776		;MAKE SURE WE USING MAIN REGISTER SET
     42	010160	012737 	000077 	177524 		MOV	#77,@#177524		;DISPLAY BOOT/DIAGNOSTIC CODE 00
     43	010166	005007 				CLR	PC			;BOOT THE SYSTEM
     44
     45		000001 				.END
AZKDJ -- AZ11 BOOTSTRAP FOR KDJ	MACRO V05.06  Monday 19-Apr-21 10:56  Page 1-1
Symbol table

START   010000 G

. ABS.	010170    000	(RW,I,GBL,ABS,OVR)
      	000000    001	(RW,I,LCL,REL,CON)
Errors detected:  0

*** Assembler statistics


Work  file  reads: 0
Work  file writes: 0
Size of work file: 33 Words  ( 1 Pages)
Size of core pool: 9472 Words  ( 37 Pages)
Operating  system: RT-11

Elapsed time: 00:00:00.29
DK:AZKDJ,DK:AZKDJ=DK:AZKDJ