anchor.diff:  ' span        0 88 set-token 
   ' unloop      0 89 set-token 
   ' expect      0 8A set-token 
  -' alloc-mem   0 8B set-token \ alloc-mem  
  -' free-mem    0 8C set-token \ free-mem 
  +' alloc-mem   0 8B set-token
  +' free-mem    0 8C set-token
   ' key?        0 8D set-token 
   ' key         0 8E set-token 
   ' emit        0 8F set-token 
  
positive.code: \ *****************************************************************************
  \ * Copyright (c) 2004, 2008 IBM Corporation
  \ * All rights reserved.
  \ * This program and the accompanying materials
  \ * are made available under the terms of the BSD License
  
negative.code: ' is-selftest       0 11E set-token
  ' new-device        0 11F set-token
  ' diagnostic-mode?  0 120 set-token
  \ ' display-status  0 121 set-token    \ TODO
  ' memory-test-suite 0 122 set-token
  \ ' group-code      0 123 set-token    \ Obsolete
  ' mask              0 124 set-token
  ' get-msecs         0 125 set-token
  ' ms                0 126 set-token
  ' finish-device     0 127 set-token
  ' decode-phys       0 128 set-token
  \ ' push-package    0 129 set-token    \ TODO - from proposal 215
  \ ' pop-package     0 12A set-token    \ TODO - from proposal 215
  
  \ Tokens 0x12B to 0x12F are reserved
  
  \ ' map-low         0 130 set-token    \ TODO
  \ ' sbus-intr>cpu   0 131 set-token    \ TODO
  
  \ Tokens 0x132 to 0x14f are reserved
  
  ' #lines            0 150 set-token
  ' #columns          0 151 set-token
  ' line#             0 152 set-token
  ' column#           0 153 set-token
  ' inverse?          0 154 set-token
  ' inverse-screen?   0 155 set-token
  \ ' frame-buffer-busy? 0 156 set-token  \ Historical, not supported
  ' draw-character    0 157 set-token
  ' reset-screen      0 158 set-token
  ' toggle-cursor     0 159 set-token
  