Advertisement
Guest User

Untitled

a guest
Jan 25th, 2018
74
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ORG 000
  2. RET:        WORD        ?
  3.             HLT
  4.             BR INT
  5.  
  6. ORG 041
  7. X:          WORD        0000
  8. BEGIN:      EI         
  9. LOOP:       CLA
  10.             DI
  11.             ADD X
  12.             INC
  13.             JSR ODZ
  14.             EI
  15.             MOV X
  16.             BR LOOP
  17.  
  18. ORG 666        
  19. VALUE:      WORD        FFE5
  20. TEMP:       WORD        ?
  21. ODZ:        WORD        ?
  22.             MOV TEMP
  23.             BEQ OK
  24.             BMI COMP
  25.             ADD VALUE
  26.             BMI OK
  27.             BPL MIN
  28. COMP:       SUB VALUE
  29.             BPL OK
  30. MIN:        CLA
  31.             ADD VALUE
  32.             BR (ODZ)
  33. OK:         CLA
  34.             ADD TEMP
  35.             BR (ODZ)
  36.            
  37. ORG 777
  38. TEMP_A:     WORD        ?
  39. TEMP_C:     WORD        ?
  40. CONST:      WORD        0007
  41. INT:        MOV TEMP_A
  42.             ROL
  43.             MOV TEMP_C
  44. CHECK1:     TSF 1
  45.             BR CHECK3
  46. WORK1:      CLA
  47.             ADD X
  48.             ADD X
  49.             ADD X
  50.             ADD X
  51.             ADD X
  52.             SUB CONST
  53.             OUT 1
  54.             CLF 1
  55.             BR RES
  56. CHECK3:     TSF 3
  57.             BR CLEAN
  58. WORK3:      CLA
  59.             IN 3
  60.             CLF 3
  61.             ADD X
  62.             JSR ODZ
  63.             MOV X
  64.             BR RES
  65. CLEAN:      CLF 2
  66.             CLF 4
  67.             CLF 5
  68.             CLF 6
  69.             CLF 7
  70.             CLF 8
  71.             CLF 9
  72. RES:        CLA
  73.             ADD TEMP_C
  74.             ROR
  75.             CLA
  76.             CMA
  77.             AND TEMP_A
  78.             HLT
  79.             EI
  80.             BR (RET)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement