Significant progress to getting pl1$pl1 to compile something, implemented many necess...
[multics_sim.git] / pointer.c
1 #include "pointer.h"
2
3 struct pointer pointer(int offset) {
4   struct pointer p = {0, 0, offset, 0};
5   return p;
6 }
7
8 struct itp_pointer itp_pointer(int pair, int offset) {
9   struct itp_pointer p = {041, 0, offset, pair, 0};
10   return p;
11 }
12
13 struct its_pointer its_pointer(int segment, int offset) {
14   struct its_pointer p = {043, 0, segment, 0, 0, 0, offset, 0};
15   return p;
16 }
17
18 struct packed_pointer packed_pointer(int segment, int offset) {
19   struct packed_pointer p = {offset, segment, 0};
20   return p;
21 }