|
|
1.1 ! root 1: .th SWITCH III 3/15/72 ! 2: .sh NAME ! 3: switch \*- switch on value ! 4: .sh SYNOPSIS ! 5: .lp +7 7 ! 6: (switch value in r0) ! 7: .lp +7 7 ! 8: .ft B ! 9: jsr r5,switch; swtab ! 10: .lp +7 7 ! 11: .ft R ! 12: (not-found return) ! 13: .lp +7 7 ! 14: .ft B ! 15: ... ! 16: .lp +7 7 ! 17: swtab: val1; lab1; ! 18: .lp +7 7 ! 19: ... ! 20: .lp +7 7 ! 21: valn; labn ! 22: .lp +7 7 ! 23: ..; 0 ! 24: .i0 ! 25: .dt ! 26: .ft R ! 27: .sh DESCRIPTION ! 28: .it Switch ! 29: compares the value of r0 against each of the val\s8\fI\di\fR\u\s10; if ! 30: a match is found, control is transferred to the corresponding ! 31: lab\s8\fI\di\fR\u\s10 (after popping the stack once). ! 32: If no match has been found by the time a null lab\s8\fI\di\fR\u\s10 ! 33: occurs, ! 34: .it switch ! 35: returns. ! 36: .sh BUGS
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.