From 748fba0a9f75f9c0aeef3a985aa0b6ecc94fabf8 Mon Sep 17 00:00:00 2001
From: David du Colombier <0intro@gmail.com>
Date: Thu, 19 May 1994 00:00:00 +0000
Subject: [PATCH] Plan 9 from Bell Labs 1994-05-19

---
 carrera/l.s    | 4 ++++
 carrera/main.c | 1 +
 2 files changed, 5 insertions(+)

diff --git a/carrera/l.s b/carrera/l.s
index ea07a3e4611695c8302adffd0f0ae3d10ef59968..a7f2192b5816cbc7d5a027695e46c214fa342b74 100644
--- a/carrera/l.s
+++ b/carrera/l.s
@@ -835,3 +835,7 @@ frloop:
 	SRLV	$32, R6
 	XOR	R6, R1
 	RET
+
+TEXT	getprid(SB), $0
+	MOVW	M(PRID), R1
+	RET
diff --git a/carrera/main.c b/carrera/main.c
index 8cd55c76cdc5eba4ca67a4fff49129e1c98e1300..eeb98432a5a27efc261c15bd6f46e4cc8c461d63 100644
--- a/carrera/main.c
+++ b/carrera/main.c
@@ -55,6 +55,7 @@ main(void)
 	vecinit();
 	screeninit();
 	iprint("\n\nBrazil\n");
+	iprint("M(PRID) = 0x%.8lux\n", getprid());
 	pageinit();
 	procinit0();
 	initseg();