(DOKU-MAP.E  VC-20)                                       
                                                            
  PCODE-1.E  DATUM: 9.12.1985 VC-20                         
  ·········                                                 
  ORG     4609                                              
                    AUS      826                            
  IBUF    4631      TEMPFLG  907                            
  OBUF    4639                                              
  INIT    4647      PNT      908                            
  IOERR   4755      COMP     922                            
  HLT     4897      RET      933                            
  TABOP   5030      USWAP    944                            
  NEXT5   5226                                              
  NEXT0   5249      ENDADR:  ???                            
  POP12   5270                                              
  AL3     5294      INIT:                                   
  SUMP    5352      ·····                                   
  SUMT    5372      ORG      8165                           
  SUMB    5392      (IN BASIC MIT POKE:)                    
  TRUE    6492                                              
  INCT    6654               48,117 (30000 STACKANFANG)     
  START   8165               8,0,32 (LDC $2000)             
  PCODE   8167               22     (SYS)                   
                                                            
  ENDADR: 6805                                              
                                                            
  PCODE-2.E  DATUM: 9.12.1985                               
  ·········                                                 
  ORG     6806                                              
                                                            
  START   8165                                              
  LAST    8251                                              
                                                            
                                                            
  FETCH.E    DATUM: 9.12.1985                               
  ·······                                                   
  ORG     $2000                                             
                                                            
  BOOT    8192                                              
  RETURN  8403                                              
  GEN     8428                                              
  ADR     8483                                              
  BYTE    8485                                              
  PC      8487                                              
  NUMBER  8489                                              
  ZNR     8491                                              
  CHAR    8495                                              
  POS     8497                                              
  FLOAT   8499                                              
  ID      8504                                              
  INDEX   8519                                              
  LBYTE   8520                                              
  HBYTE   8521        [OFFSET=0]                            
  TSTFLG  8522        [IBUF  =4631]                         
  BEZTAB  8685        [OBUF  =4639]                         
  UINIT   9042        [HEAPTR=59  ]                         
  GETSYM  9116                                              
  UPOSI   9836                                              
                                                            
  ENDADR  9916                                              
  PCODE   9917  RUMPF1.4                                    
                                                            
  ENDE:   29921 PASCAL1.4