创建产生四倍的代码生成例程

Question

这是我的系统软件，介绍使用sic / xe进行系统编程

我需要采用下面给出的整个代码生成例程，并将其重写以产生四倍的代码，而不是目标代码。 我了解如何将目标代码转换为四倍，以及四倍如何工作，但是我不了解应如何重写代码生成例程以产生四倍。书中没有任何地方可以证明这一点。 我应该做的任何方向都很棒！

id-list：= id

  add S(id) to list
  add 1 to LISTCOUNT

id-list :: = id-list，id

  add S(id) to list 
  add 1 to LISTCOUNT

read :: = READ（id-list）

  generate [ +JSUB XREAD ]
  record external reference to XREAD
  generate [ WORD LISTCOUNT]
  for each item on list do
     begin
        remove S(ITEM) from list
        generate [WORD   S(ITEM)]
     end
  LISTCOUNT := 0

他们为此例程提供的目标代码

+ JSUB XREAD

WORD 1

字值