home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 12 / dc / mult.dc < prev   
Encoding:
Text File  |  1987-09-13  |  625 b   |  18 lines
  1.     0 LDA 12            ; load A
  2.     1 SUB 14            ; subtract count
  3.     2 JMS 10            ; if minus jump to 10
  4.     3 LDA 15            ; load result
  5.     4 ADD 13            ; add B
  6.     5 STA 15            ; store to result
  7.     6 LDA 14            ; load count
  8.     7 ADD 16            ; add 1
  9.     8 STA 14            ; store to count
  10.     9 JMP 0             ; jump to begin
  11.     10 LDA 15           ; load result
  12.     11 JMP 11           ; end
  13.     12 DEF 5            ; A
  14.     13 DEF -2           ; B
  15.     14 DEF 1            ; count
  16.     15 DEF 0            ; result
  17.     16 DEF 1            ; constant 1
  18.