From 2c45de094b4851c3cabed4ab6a1c916d41a22e8a Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Thu, 11 Jul 2019 21:52:56 -0700 Subject: . Pseudocode is a little more truthful now about what variables are on the stack. --- subx/apps/survey.subx | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) (limited to 'subx') diff --git a/subx/apps/survey.subx b/subx/apps/survey.subx index a5e82759..5ae984d1 100644 --- a/subx/apps/survey.subx +++ b/subx/apps/survey.subx @@ -320,19 +320,19 @@ test-convert-computes-addresses: # global scratch space for compute-offsets in the data segment == data -compute-offsets:curr-segment-name: +compute-offsets:curr-segment-name: # slice 0/imm32/start compute-offsets:curr-segment-name:end: 0/imm32/end -compute-offsets:file-offset: +compute-offsets:file-offset: # int 0/imm32 -compute-offsets:segment-offset: +compute-offsets:segment-offset: # int 0/imm32 compute-offsets:word-slice: 0/imm32/start compute-offsets:word-slice:end: 0/imm32/end -compute-offsets:segment-start: +compute-offsets:segment-start: # slice 0/imm32/start 0/imm32/end @@ -340,15 +340,13 @@ compute-offsets:segment-start: compute-offsets: # in : (address buffered-file), segments : (address stream {string, segment-info}), labels : (address stream {string, label-info}) # pseudocode: - # var curr-segment-name : (address slice) = {0, 0} - # var file-offset = 0, segment-offset = 0 # var line = new-stream(512, 1) # while true # line loop # clear-stream(line) # read-line-buffered(in, line) # if (line->write == 0) break # end of file # while true # word loop - # var word-slice = next-word(line) + # word-slice = next-word(line) # if slice-empty?(word-slice) # end of line # break # if slice-starts-with?(word-slice, "#") # comment -- cgit 1.4.1-2-gfad0