SSEM Programs:
Mediaeval Clock

(The "dog kennel" on the right hand side of the code is the University of Manchester logo.)

Written by: John Deane of Australia.
Obtained from: The 1998 SSEM Programming Competition.
Description: "Mediaeval analog clock which displays the hour as the number of zeroes counted from the left in location 30. The fraction of the hour is displayed in location 31 where each 0 from the left indicates 1/32 hour (about 2 minutes)."
Parameter Lines: 27: initial value for the timing interval counter. See code below.
Result Lines: 30: hours display
31: 1/32 hour display
(run time display)


01: BINS 11011000000000100000000010000000
02: BINS 00111000000000010000000101000000
03: BINS 00000000000000110000001000100000
04: BINS 00111000000000000000010010010000
05: BINS 11111000000000100010100000001010
06: BINS 00000000000001100101000010000101
07: BINS 00000000000000100111001010100111
08: BINS 00000000000000010101001010100101
09: BINS 11111000000001100101001010100101
10: BINS 00000000000000110101001010100101
11: BINS 00111000000001000111111111111111
12: BINS 10111000000000000100000000000001
13: BINS 00111000000000100100000111000001
14: BINS 11111000000001100100001000100001
15: BINS 01111000000000100100010000010001
16: BINS 00000000000001100100100000001001
17: BINS 00000000000000100111100000001111
18: BINS 00000000000000010000000000000000
19: BINS 01111000000001100110001111000111
20: BINS 01011000000000010010001010101010
21: BINS 00000000000000110010001010010010
22: BINS 10111000000000000010001010010010
23: BINS 00111000000000100001110011000111
24: BINS 01111000000001100000000000000000
25: BINS 10111000000000000000000000000000
26: BNUM 00000000000111111111111111111111
27: BNUM 01101110100110011111111111111111  -- timing counter for original machine
27: BNUM 10111111111111111111111111111111  -- timing counter to speed up simulation
28: BNUM 10000000000000000000000000000000
29: BNUM 00000000000000000000000000000000
30: BNUM 11111111111111111111111111111111
31: BNUM 11111111111111111111111111111111