# HG changeset patch # User boisy # Date 1025924228 0 # Node ID 307e956c5124b20f56642916ded51f448f91a628 # Parent cab6c9f1691348942cdb0f828dab17222fe7bd6c Initial import of iniz.asm diff -r cab6c9f16913 -r 307e956c5124 level1/cmds/iniz.asm --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/level1/cmds/iniz.asm Sat Jul 06 02:57:08 2002 +0000 @@ -0,0 +1,76 @@ +******************************************************************** +* Iniz - Initialize a device +* +* $Id$ +* +* Ed. Comments Who YY/MM/DD +* ------------------------------------------------------------------ +* 2 Original Tandy/Microware version BGP 02/07/05 + + nam Iniz + ttl Initialize a device + +* Disassembled 02/07/05 21:52:55 by Disasm v1.6 (C) 1988 by RML + + ifp1 + use defsfile + endc + +tylg set Prgrm+Objct +atrv set ReEnt+rev +rev set $01 + + mod eom,name,tylg,atrv,start,size +u0000 rmb 2 +u0002 rmb 330 +size equ . + +name fcs /Iniz/ + fcb $02 + +start lda ,x + cmpa #C$CR + beq L001E + bsr L003F + bra L002E +L001C bsr L003F +L001E bsr L0032 + bcs L002A + lda ,x + cmpa #C$CR + bne L001C + ldb #E$EOF +L002A cmpb #E$EOF + bne L002E +L002E clrb + os9 F$Exit +L0032 clra + leax u0002,u + ldy #80 + os9 I$ReadLn + bcc L003E +L003E rts +L003F stx