Mercurial > hg > Members > kono > nitros9-code

comparison level1/cmds/iniz.asm @ 829:a114971abd3b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Changed the name of a def because it collided with Level 2
author boisy
date Tue, 14 Jan 2003 03:06:30 +0000
parents 6653afab1671
children 80e125a9357d
comparison
equal deleted inserted replaced
828:064244c52232 829:a114971abd3b
20 tylg set Prgrm+Objct 20 tylg set Prgrm+Objct
21 atrv set ReEnt+rev 21 atrv set ReEnt+rev
22 rev set $01 22 rev set $01
23 edition set 4 23 edition set 4
24 24
25 LINESIZE equ 80 25 linebsiz equ 80
26 26
27 mod eom,name,tylg,atrv,start,size 27 mod eom,name,tylg,atrv,start,size
28 28
29 org 0 29 org 0
30 readbuf rmb LINESIZE+1 30 readbuf rmb linebsiz+1
31 stack rmb 64 31 stack rmb 64
32 size equ . 32 size equ .
33 33
34 name fcs /Iniz/ 34 name fcs /Iniz/
35 fcb edition 35 fcb edition
50 bcs Exit branch if error 50 bcs Exit branch if error
51 bra InizDev 51 bra InizDev
52 52
53 ReadnInz clra from stdin 53 ReadnInz clra from stdin
54 leax readbuf,u point to read buffer 54 leax readbuf,u point to read buffer
55 ldy #LINESIZE get LINESIZE bytes 55 ldy #linebsiz get linebsiz bytes
56 os9 I$ReadLn read it! 56 os9 I$ReadLn read it!
57 bcc InizDev branch if error 57 bcc InizDev branch if error
58 cmpb #E$EOF end of file? 58 cmpb #E$EOF end of file?
59 bne Exit branch if not 59 bne Exit branch if not
60 ExitOk clrb 60 ExitOk clrb