Getting Started 13 230 ':::;OI.JF~C E 'T"t-!E' t)r-·(:::::ji-Act 'j:::. r.tH!~::.(! r"E·tijj""'!'·'iE,!::j t() ti'-iE' ;;~,:~O ~::;oi ... n:;::CE c! t.t t t:) i) '~. !').:1 (' i .::i t) '! E' 'j t-i 1:; f::j ::; I C: '! i =~ i:. 1-:;:- C] among the arguments RET 1 We~re finished, so return to BASIC END Multipl ication ! End of module ~90 IASSEMBLE Multiplication 600 ICALL Multiply(Index,Dimension,Subscript) E; i ~~] I:::! ('('.::i:) (~:;!J!:):.:::.c r H 'j f)t > =\1.3. '! tJi:::' code can be stored on mass storage with a statement like - It isn't necessary that a program be assembled in every BASIC program which uses it.
Object So if the example were instead made to read- :::;OUF~C[ ~::;Ui.JF"CE NAM Multipl ication ! Beginning of module ':::;01..) :::::CE: ':::;Ol..JRCE :::;OUF'CE Integers: BSS 2 :···if)i...it J.:: ::::;UB ~::;t c!(,,~j.!;;jl::' ,::j,('E··~ -f"()t-' i j"':1. E:'i;;!E:' !.~':::, C t-';::',:::1. t E'ij Indicates entry point follows I !"'!(j i C·:::L t E-::;, it 'j r-it ~:'!;~~::' r' ~)::!.r·'::L!Y!E:'t !::'r--:,::. ·::1.r'E' t··iFi . ..!t ~~: li···j·r Ii··rr H·iT ultiply: LDA =Integers L.DB ::: Input 1 ~~ssed in the order qiven by these '::;otJF:CE ':::;OI...iF:C[ I.xt. f) i) t : :::. '~":1, t E·iYi~:,!· ..
!t ::::' .::tt-lc1 ·::tr"'E' !;;;i'j =,)=:::'j'''l l'''~:irfiE':=, r"c!!~~t 'j I"'!~.::' tiE";;i i r"::::, t):) ·f!-::'1:. c i''': 'i i"'!!~ ·:::i.C t i.X::t. 'I l'}.::'i,l i.AI::' clf' t!''':E' l!·"it)i)t. r):::J.i,M,,::ti'fi , ::'1:.,:::'r';:, from BASIC and storing them A1Ere the routine can use them 1 ;;:.C ::;ClUF:CE L..Iit: ::: I j'"'it)i-At ;;:~ 1. :3U ~:;C)Uf:;::CE .J:::;!':'! C;l::'t. !').::J. '! i)~_~' L..Di=i Inteqer-·:::. L.DE I rltE:·!;;~e!····:::.+:l arithmetic ~:cu~jlator and 1.1:::C:l ':::;OURCE 1. '::;~::! :::;CiURCE 1.;:"(:i :::;iJUF:CE finally multiFl ies them H check for overflow is performed .::Lf"!i] '1 .~. -:- '1 :=,1''':'' ',' II ! .('('C!i"" ::::.;"!
'i ;:- :::,!:::' j I::: ::: t i::~'Cj and the routj~e is aborted i j'''! t.t":t:, E; r-'''::'!]1 :::,'i:.i:;·r'" i,'.!~-!~:'(i 'i t ::::,\'-IC!ij '! cl t::E' ~3 ::;'Tfi I r-!t E·!~~E·i""··:::· LliA == I [-1t E:'i;~E'!-':::' LI:E =Ci!Jt t=it~i:. ~?::~. ~:] ~:;C~Li ~:C:E: ~~5 ~~1 ':::; UJ F: C E amc~q the arquments ;:;:'6~:J '::;UUF:CE :;;:~?~) ':;CiUF~CE END Mu!tipl ication ! ~nc ot· mc~ule :'::;~::!~:i I :::;T C!F~ E 'I~ I~~ I r 'f r:' i I~ ~ t, ~ l~!:"-.: 11 !':"!LJL. 'r !! :~; 1 i;::1 Et'~I)