diff bootrom.disasm @ 18:123cb5021b64

boot ROM re: appears to be complete!
author Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
date Thu, 25 Apr 2013 05:47:59 +0000
parents d2206cb5f8b4
children 2d9c927cc24b
line wrap: on
line diff
--- a/bootrom.disasm	Thu Apr 25 04:07:10 2013 +0000
+++ b/bootrom.disasm	Thu Apr 25 05:47:59 2013 +0000
@@ -77,16 +77,21 @@
       e8:	000080f5
 ; end of the code copied to the internal RAM for booting type 1 images
 
+; The routine at 0xec effects the jump to the serially loaded code
+; upon the final '<b' command.
+
       ec:	e92d4010 	stmdb	sp!, {r4, lr}
-      f0:	e59fcd0c 	ldr	r12, [pc, #3340]	; 0xe04
+      f0:	e59fcd0c 	ldr	r12, =0x800518	; via 0xe04
       f4:	e59c4014 	ldr	r4, [r12, #20]
-      f8:	e59f0d08 	ldr	r0, [pc, #3336]	; 0xe08
+      f8:	e59f0d08 	ldr	r0, =0x1FCC	; via 0xe08
       fc:	e5dcc008 	ldrb	r12, [r12, #8]
      100:	e790c10c 	ldr	r12, [r0, r12, lsl #2]
      104:	e28c0005 	add	r0, r12, #5	; 0x5
+; wait for all UART Tx to go out
      108:	e5d0c000 	ldrb	r12, [r0]
      10c:	e31c0040 	tst	r12, #64	; 0x40
      110:	0afffffc 	beq	0x108
+; jump!
      114:	eb000513 	bl	0x1568		; IND_CALL
      118:	eafffffe 	b	0x118
 
@@ -164,7 +169,7 @@
      200:	e3a0c063 	mov	r12, #99	; 0x63 'c'
      204:	e5c0c001 	strb	r12, [r0, #1]
      208:	e59fcbf4 	ldr	r12, =0x800518	; via 0xe04
-     20c:	e5dc1010 	ldrb	r1, [r12, #16]
+     20c:	e5dc1010 	ldrb	r1, [r12, #16]	; byte from 800528
      210:	e5c01002 	strb	r1, [r0, #2]
      214:	e5dc2008 	ldrb	r2, [r12, #8]
      218:	e3a01003 	mov	r1, #3	; 0x3
@@ -665,6 +670,7 @@
      8dc:	e25cc001 	subs	r12, r12, #1	; 0x1
      8e0:	1a000145 	bne	0xdfc
 ; state 04
+; like in state 03, '<p' is ignored in this state
      8e4:	e250c001 	subs	r12, r0, #1	; 0x1
      8e8:	0a00003c 	beq	0x9e0
      8ec:	e25cc002 	subs	r12, r12, #2	; 0x2
@@ -675,29 +681,40 @@
      900:	0a000017 	beq	0x964
      904:	e25cc001 	subs	r12, r12, #1	; 0x1
      908:	1a00013b 	bne	0xdfc
-     90c:	e59f54f0 	ldr	r5, [pc, #1264]	; 0xe04
-     910:	e59f0500 	ldr	r0, [pc, #1280]	; 0xe18
+; '<b' in state 04
+     90c:	e59f54f0 	ldr	r5, =0x800518	; via 0xe04
+     910:	e59f0500 	ldr	r0, =0x800750	; via 0xe18
      914:	e595c014 	ldr	r12, [r5, #20]
      918:	e15c0000 	cmp	r12, r0
      91c:	3a000006 	bcc	0x93c
-     920:	e59f14f4 	ldr	r1, [pc, #1268]	; 0xe1c
+     920:	e59f14f4 	ldr	r1, =0x7F8AF	; via 0xe1c
      924:	e0810000 	add	r0, r1, r0
      928:	e15c0000 	cmp	r12, r0
      92c:	8a000002 	bhi	0x93c
+; all clear - respond with '<b'
      930:	e3a00008 	mov	r0, #8	; 0x8
      934:	ebfffe00 	bl	0x13c
+; and leap!
      938:	ebfffdeb 	bl	0xec
+; address bad
+; respond with >B
      93c:	e3a00009 	mov	r0, #9	; 0x9
      940:	ebfffdfd 	bl	0x13c
+; baud rate reset to 19200
      944:	e5d51008 	ldrb	r1, [r5, #8]
      948:	e3a00004 	mov	r0, #4	; 0x4
      94c:	eb0002a1 	bl	0x13d8
+; var reset
      950:	e1a00005 	mov	r0, r5
      954:	ebfffdf0 	bl	0x11c
+; state back to 01
      958:	e3a0c001 	mov	r12, #1	; 0x1
      95c:	e5c4c000 	strb	r12, [r4]
      960:	ea000125 	b	0xdfc
-     964:	e59f5498 	ldr	r5, [pc, #1176]	; 0xe04
+; '<a' in state 04
+; same handling as in states 02 and 03:
+; var reset, baud rate back to 19200, state back to 01, no response msg
+     964:	e59f5498 	ldr	r5, =0x800518	; via 0xe04
      968:	e1a00005 	mov	r0, r5
      96c:	ebfffdea 	bl	0x11c
      970:	e5d51008 	ldrb	r1, [r5, #8]
@@ -706,9 +723,11 @@
      97c:	e3a0c001 	mov	r12, #1	; 0x1
      980:	e5c4c000 	strb	r12, [r4]
      984:	ea00011c 	b	0xdfc
+; '<c' in state 04
+; >C error, reset everything like other errors
      988:	e3a00006 	mov	r0, #6	; 0x6
      98c:	ebfffdea 	bl	0x13c
-     990:	e59f546c 	ldr	r5, [pc, #1132]	; 0xe04
+     990:	e59f546c 	ldr	r5, =0x800518	; via 0xe04
      994:	e5d51008 	ldrb	r1, [r5, #8]
      998:	e3a00004 	mov	r0, #4	; 0x4
      99c:	eb00028d 	bl	0x13d8
@@ -717,18 +736,26 @@
      9a8:	e3a0c001 	mov	r12, #1	; 0x1
      9ac:	e5c4c000 	strb	r12, [r4]
      9b0:	ea000111 	b	0xdfc
+; '<w' in state 04
+; respond with >W error
      9b4:	e3a00004 	mov	r0, #4	; 0x4
      9b8:	ebfffddf 	bl	0x13c
-     9bc:	e59f5440 	ldr	r5, [pc, #1088]	; 0xe04
+; baud rate reset to 19200
+     9bc:	e59f5440 	ldr	r5, =0x800518	; via 0xe04
      9c0:	e5d51008 	ldrb	r1, [r5, #8]
      9c4:	e3a00004 	mov	r0, #4	; 0x4
      9c8:	eb000282 	bl	0x13d8
+; var init
      9cc:	e1a00005 	mov	r0, r5
      9d0:	ebfffdd1 	bl	0x11c
+; state back to 01
      9d4:	e3a0c001 	mov	r12, #1	; 0x1
      9d8:	e5c4c000 	strb	r12, [r4]
      9dc:	ea000106 	b	0xdfc
-     9e0:	e59f041c 	ldr	r0, [pc, #1052]	; 0xe04
+; '<i' in state 04
+; same handling as in states 02 and 03: vars reset, but UART left alone
+; and the state remains 04.
+     9e0:	e59f041c 	ldr	r0, =0x800518	; via 0xe04
      9e4:	ebfffdcc 	bl	0x11c
      9e8:	e3a00000 	mov	r0, #0	; 0x0
      9ec:	ebfffdd2 	bl	0x13c
@@ -736,6 +763,7 @@
      9f4:	e5c4c000 	strb	r12, [r4]
      9f8:	ea0000ff 	b	0xdfc
 ; state 03
+; '<p' is ignored in this state
      9fc:	e250c001 	subs	r12, r0, #1	; 0x1
      a00:	0a000037 	beq	0xae4
      a04:	e25cc002 	subs	r12, r12, #2	; 0x2
@@ -746,9 +774,11 @@
      a18:	0a00000c 	beq	0xa50
      a1c:	e25cc001 	subs	r12, r12, #1	; 0x1
      a20:	1a0000f5 	bne	0xdfc
+; got '<b' in state 03
+; send >B, same error handling as in state 02
      a24:	e3a00009 	mov	r0, #9	; 0x9
      a28:	ebfffdc3 	bl	0x13c
-     a2c:	e59f53d0 	ldr	r5, [pc, #976]	; 0xe04
+     a2c:	e59f53d0 	ldr	r5, =0x800518	; via 0xe04
      a30:	e5d51008 	ldrb	r1, [r5, #8]
      a34:	e3a00004 	mov	r0, #4	; 0x4
      a38:	eb000266 	bl	0x13d8
@@ -757,7 +787,9 @@
      a44:	e3a0c001 	mov	r12, #1	; 0x1
      a48:	e5c4c000 	strb	r12, [r4]
      a4c:	ea0000ea 	b	0xdfc
-     a50:	e59f53ac 	ldr	r5, [pc, #940]	; 0xe04
+; got '<a' in state 03
+; var reset, baud rate back to 19200, state back to 01, no response msg
+     a50:	e59f53ac 	ldr	r5, =0x800518	; via 0xe04
      a54:	e1a00005 	mov	r0, r5
      a58:	ebfffdaf 	bl	0x11c
      a5c:	e5d51008 	ldrb	r1, [r5, #8]
@@ -766,7 +798,8 @@
      a68:	e3a0c001 	mov	r12, #1	; 0x1
      a6c:	e5c4c000 	strb	r12, [r4]
      a70:	ea0000e1 	b	0xdfc
-     a74:	e59fc388 	ldr	r12, [pc, #904]	; 0xe04
+; got '<c' in state 03
+     a74:	e59fc388 	ldr	r12, =0x800518	; via 0xe04
      a78:	e3a010ff 	mov	r1, #255	; 0xff
      a7c:	e1dc01b0 	ldrh	r0, [r12, #16]
      a80:	e1c10000 	bic	r0, r1, r0
@@ -774,14 +807,17 @@
      a88:	e20cc0ff 	and	r12, r12, #255	; 0xff
      a8c:	e150000c 	cmp	r0, r12
      a90:	1a000004 	bne	0xaa8
+; checksum match - respond with >c and advance to state 04
      a94:	e3a00005 	mov	r0, #5	; 0x5
      a98:	ebfffda7 	bl	0x13c
      a9c:	e3a0c004 	mov	r12, #4	; 0x4
      aa0:	e5c4c000 	strb	r12, [r4]
      aa4:	ea0000d4 	b	0xdfc
+; checksum mismatch: respond with >C, reset vars, reset the baud rate to 19200,
+; reset the state to 01
      aa8:	e3a00006 	mov	r0, #6	; 0x6
      aac:	ebfffda2 	bl	0x13c
-     ab0:	e59f534c 	ldr	r5, [pc, #844]	; 0xe04
+     ab0:	e59f534c 	ldr	r5, =0x800518	; via 0xe04
      ab4:	e1a00005 	mov	r0, r5
      ab8:	ebfffd97 	bl	0x11c
      abc:	e5d51008 	ldrb	r1, [r5, #8]
@@ -790,11 +826,17 @@
      ac8:	e3a0c001 	mov	r12, #1	; 0x1
      acc:	e5c4c000 	strb	r12, [r4]
      ad0:	ea0000c9 	b	0xdfc
+; got '<w' in state 03
      ad4:	ebffff15 	bl	0x730
      ad8:	e3500000 	cmp	r0, #0	; 0x0
-     adc:	0a000038 	beq	0xbc4
-     ae0:	ea00003a 	b	0xbd0
-     ae4:	e59f0318 	ldr	r0, [pc, #792]	; 0xe04
+; same outcome as in state 02
+     adc:	0a000038 	beq	0xbc4	; good
+     ae0:	ea00003a 	b	0xbd0	; bad
+; got '<i' in state 03
+; same as in state 02: the init routine is called (most notably the chksum
+; accum is reset), the baud rate var is reset to 04, but the UART is not
+; reprogrammed, and the state remains 03.
+     ae4:	e59f0318 	ldr	r0, =0x800518	; via 0xe04
      ae8:	ebfffd8b 	bl	0x11c
      aec:	e3a00000 	mov	r0, #0	; 0x0
      af0:	ebfffd91 	bl	0x13c
@@ -946,7 +988,7 @@
      ccc:	e3a0c002 	mov	r12, #2	; 0x2
      cd0:	e5c4c000 	strb	r12, [r4]
      cd4:	ea000048 	b	0xdfc
-; in the initial state, with [800108]==1, control comes here
+; state 01 dispatch
      cd8:	e250c001 	subs	r12, r0, #1	; 0x1
      cdc:	0a000040 	beq	0xde4
      ce0:	e25cc001 	subs	r12, r12, #1	; 0x1
@@ -954,6 +996,7 @@
      ce8:	e24cc001 	sub	r12, r12, #1	; 0x1
      cec:	e35c0003 	cmp	r12, #3	; 0x3
      cf0:	8a000041 	bhi	0xdfc
+; everything other than '<i' and '<p'
      cf4:	e59f5108 	ldr	r5, =0x800518	; via 0xe04
      cf8:	e1a00005 	mov	r0, r5
      cfc:	ebfffd06 	bl	0x11c
@@ -965,7 +1008,7 @@
      d0c:	e3a0c001 	mov	r12, #1	; 0x1
      d10:	e5c4c000 	strb	r12, [r4]
      d14:	ea000038 	b	0xdfc
-; '<p' handler ([800108]==1)
+; '<p' handler (state 01)
      d18:	e59f60e4 	ldr	r6, =0x800518	; via 0xe04
      d1c:	e5d6c000 	ldrb	r12, [r6]
      d20:	e35c0000 	cmp	r12, #0	; 0x0
@@ -2006,8 +2049,8 @@
 ; The filler ends at 0x1FCC.  Then we've got some data words:
 
 ; base addresses of the two UARTs
-    1fcc:	ffff5800
-    1fd0:	ffff5000
+    1fcc:	ffff5800	; MODEM
+    1fd0:	ffff5000	; IrDA
 ; UART baud rates
     1fd4:	0700	; /7	(115200?)
     1fd6:	0e00	; /14	(57600?)