casetest.asm
来自「袖珍型的pascal编译器」· 汇编 代码 · 共 145 行
ASM
145 行
; number code beginning ENTER 2, 0 LOD -2 OUTP LOD -2 COPY LODI 1 EQU FJP ET2 COPY LODI 2 EQU FJP ET2 COPY LODI 3 EQU FJP ET2 UJP ET3ET2: LODI 1 OUTP LODI OUTP LODI o OUTP LODI r OUTP LODI OUTP LODI 2 OUTP UJP ET1ET3: COPY LODI 3 EQU FJP ET4 UJP ET5ET4: LODI 3 OUTP UJP ET1ET5: COPY LODI 4 EQU FJP ET6 UJP ET7ET6: LODI f OUTP LODI o OUTP LODI u OUTP LODI r OUTP UJP ET1ET7: COPY LODI 5 EQU FJP ET8 COPY LODI 6 EQU FJP ET8 COPY LODI 7 EQU FJP ET8 UJP ET9ET8: LODI 5 OUTP LODI OUTP LODI o OUTP LODI r OUTP LODI OUTP LODI 6 OUTP LODI OUTP LODI o OUTP LODI r OUTP LODI OUTP LODI 7 OUTP UJP ET1ET9: LODI I OUTP LODI OUTP LODI d OUTP LODI o OUTP LODI n OUTP LODI ' OUTP LODI t OUTP LODI OUTP LODI k OUTP LODI n OUTP LODI o OUTP LODI w OUTPET1: RED 1 LEAVE RET; casetest code beginning ENTER 1, 2 LODI X OUTP LODI = OUTP LODA 2 INP 2 STO; Calling: number LOD 2 CALL number RED 1 LODA 3 INP 1 STO LEAVE RET STOP
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?