Added the bin directory for assembled programs.
This commit is contained in:
@@ -0,0 +1,48 @@
|
||||
010000: 020003 sys open; curdir; 0 " Open up the currect directory
|
||||
010001: 010046
|
||||
010002: 000000
|
||||
010003: 741100 spa
|
||||
010004: 020016 sys exit " Unable, so die now
|
||||
010005: 050053 dac fd " Save the fd
|
||||
010006: 210053 lac fd
|
||||
010007: 020004 sys read; buf; 64
|
||||
010010: 010060
|
||||
010011: 000100
|
||||
010012: 741100 spa " Skip if result was >= 0
|
||||
010013: 610043 jmp fileend " Result was -ve, so error result
|
||||
010014: 741200 sna " Skip if result was >0
|
||||
010015: 610043 jmp fileend " Result was zero, so nothing left to read
|
||||
010016: 050056 dac count
|
||||
010017: 210057 lac ibufptr " Point bufptr at the base of the buffer
|
||||
010020: 050024 dac bufptr
|
||||
010021: 450024 isz bufptr " Move up to the filename
|
||||
010022: 210054 lac d1
|
||||
010023: 020005 sys write; bufptr:0; 4 " Write a filename out to stdout
|
||||
010024: 000000
|
||||
010025: 000004
|
||||
010026: 210054 lac d1
|
||||
010027: 020005 sys write; newline; 1 " followed by a newline
|
||||
010030: 010052
|
||||
010031: 000001
|
||||
010032: 210024 lac bufptr " Add 7 to the bufptr
|
||||
010033: 350055 tad d7
|
||||
010034: 050024 dac bufptr
|
||||
010035: 777770 -8
|
||||
010036: 350056 tad count " Decrement the count of words by 8
|
||||
010037: 050056 dac count
|
||||
010040: 740200 sza " Anything left in the buffer to print?
|
||||
010041: 610021 jmp printloop " Yes, stuff left to print
|
||||
010042: 610006 jmp fileloop " Nothing in the buffer, try reading some more
|
||||
010043: 210053 lac fd
|
||||
010044: 020011 sys close
|
||||
010045: 020016 sys exit
|
||||
010046: 056040 curdir: <. 040; 040040; 040040; 040040 " i.e. "."
|
||||
010047: 040040
|
||||
010050: 040040
|
||||
010051: 040040
|
||||
010052: 012000 newline: 012000
|
||||
010053: 000000 fd: 0
|
||||
010054: 000001 d1: 1 " stdout fd
|
||||
010055: 000007 d7: 7
|
||||
010056: 000000 count: 0
|
||||
010057: 010060 ibufptr: buf " Constant pointer to the buffer
|
||||
Reference in New Issue
Block a user