Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on May 10th, 2012  |  syntax: None  |  size: 3.82 KB  |  hits: 16  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1.      1  00000     COPY   START                 0000                                  
  2.      2  00000    FIRST     STL               RETADR                                  
  3.      3  00003    CLOOP    JSUB                RDREC                                  
  4.      4  00006             +LDA               LENGTH                                  
  5.      5  0000a             COMP                 ZERO                                  
  6.      6  0000d              JEQ               ENDFIL                                  
  7.      7  00010             JSUB                WRREC                                  
  8.      8  00013                J                CLOOP                                  
  9.      9  00016   ENDFIL     LDA                  EOF                                  
  10.     10  00019              STA               BUFFER                                  
  11.     11  0001c              LDA                THREE                                  
  12.     12  0001f              STA               LENGTH                                  
  13.     13  00022             JSUB                WRREC                                  
  14.     14  00025              LDL               RETADR                                  
  15.                 ****Error: Label length exceeded
  16.    15
  17.  
  18.     16  0002c      EOF    BYTE               C'EOF'                                  
  19.     17  0002f    THREE    WORD                    3                                  
  20.     18  00032     ZERO    WORD                    0                                  
  21.     19  00035   RETADR    RESW                    1                                  
  22.     20  00038   LENGTH    RESW                    1                                  
  23.     21  0003b   BUFFER    RESB                 4096                                  
  24. .
  25.  
  26. .        SUBROUTINE TO READ RECORD INTO BUFFER
  27.  
  28. .
  29.  
  30.     22  0103b    RDREC     LDX                 ZERO                                  
  31.     23  0103e              LDA                 ZERO                                  
  32.     24  01041    RLOOP      TD                INPUT                                  
  33.     25  01044              JEQ                RLOOP                                  
  34.     26  01047               RD                INPUT                                  
  35.     27  0104a             COMP                 ZERO                                  
  36.     28  0104d              JEQ                 EXIT                                  
  37.     29  01050             STCH             BUFFER,X                                  
  38.     30  01053              TIX               MAXLEN                                  
  39.     31  01056              JLT                RLOOP                                  
  40.     32  01059     EXIT     STX               LENGTH                                  
  41.                 ****Error: Label length exceeded
  42.    33
  43.  
  44.     34  01060    INPUT    BYTE                X'F1'                                  
  45.     35  01061   MAXLEN    WORD                 4096                                  
  46. .
  47.  
  48. .        SUBROUTINE TO WRITE RECORD FROM BUFFER
  49.  
  50. .
  51.  
  52.     36  01064    WRREC     LDX                 ZERO                                  
  53.     37  01067    WLOOP      TD               OUTPUT                                  
  54.     38  0106a              JEQ                WLOOP                                  
  55.     39  0106d             LDCH             BUFFER,X                                  
  56.     40  01070               WD               OUTPUT                                  
  57.     41  01073              TIX               LENGTH                                  
  58.     42  01076              JLT                WLOOP                                  
  59.                 ****Error: Label length exceeded
  60.    43
  61.  
  62.     44  0107d   OUTPUT    BYTE                X'05'                                  
  63.     45  0107e              END                 COPY
create a new version of this paste RAW Paste Data