fork download
copy 
  1. D0 EQU 0x101
  2. D1 EQU 0x102 
  3. D2 EQU 0x103 
  4. PRODH EQU 0xFF4
  5. PRODL EQU 0xFF3
  6.  
  7. ORG 0x00
  8. GOTO BEGIN
  9. ORG 0x50
  10. BEGIN:
  11.  
  12. MOVLB 0x02
  13. MOVLW 0x06
  14. MOVWF D2
  15. INCF D2,0, 1
  16. MOVWF D1, 1
  17. DECF D1, 1
  18. INCF D1,0
  19. MOVWF D2
  20. ADDLW 0x13
  21. MULWF D2
  22. MOVFF PRODH,D0
  23. SUBFWB D2,0
  24. NEGF D1
  25. MOVFF PRODH,D2
  26. ADDWF D2,1
  27. SUBWF D1,0
  28. ADDWFC D2,0
  29. SUBFWB D0,0
  30. SUBWFB D2,1
  31.  
  32. END
  33.  
Success #stdin #stdout 0.03s 25868KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
D0 EQU 0x101
D1 EQU 0x102 
D2 EQU 0x103 
PRODH EQU 0xFF4
PRODL EQU 0xFF3

ORG 0x00
GOTO BEGIN
ORG 0x50
BEGIN:

MOVLB 0x02
MOVLW 0x06
MOVWF D2
INCF D2,0, 1
MOVWF D1, 1
DECF D1, 1
INCF D1,0
MOVWF D2
ADDLW 0x13
MULWF D2
MOVFF PRODH,D0
SUBFWB D2,0
NEGF D1
MOVFF PRODH,D2
ADDWF D2,1
SUBWF D1,0
ADDWFC D2,0
SUBFWB D0,0
SUBWFB D2,1

END
https://ideone.com/XyFc2d
language:
PHP (php 7.3.5)
created:
4 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!