gsm: Create the RR paging response

GSM48.st

@@ -2510,6 +2510,24 @@ GSM48RRMessage subclass: GSM48RRClassmarkChange [
     ]
 ]
 
+GSM48RRMessage subclass: GSM48RRPagingResponse [
+    <category: 'OsmoGSM'>
+
+    GSM48RRPagingResponse class >> messageType [
+        <category: 'factory'>
+        ^ self msgPagingResponse
+    ]
+
+    GSM48RRPagingResponse class >> tlvDescription [
+        <category: 'parsing'>
+        ^ OrderedCollection new
+            add: GSM48KeySeqLuType asTLVDescription;
+            add: GSM48Classmark2 asTLVDescription;
+            add: GSM48MIdentity asTLVDescription;
+            yourself.
+    ]
+]
+
 GSM48SSMessage subclass: GSM48SSFacility [
     <category: 'OsmoGSM'>
 
@@ -2580,6 +2598,7 @@ Eval [
     GSM48RRImmediateAssignCommand initialize.
     GSM48RRChannelRelease initialize.
     GSM48RRClassmarkChange initialize.
+    GSM48RRPagingResponse initialize.
 
     GSM48SSFacility initialize.
     GSM48SSRegister initialize.