/ CP/M / CPM_CDROM.iso / enterprs / c128 / util / mer128.arc / DEMO.S

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 70 2a a0 6d 45 52 4c | 49 4e a0 31 32 38 a0 64 |.p*.mERL|IN.128.d|
|00000010| 45 4d 4f 0d 20 6f 72 67 | 20 24 38 30 30 30 0d 2a |EMO. org| $8000.*|
|00000020| 0d 62 73 6f 75 74 20 65 | 71 75 20 24 66 66 64 32 |.bsout e|qu $ffd2|
|00000030| 20 3b 6f 55 54 50 55 54 | a0 53 55 42 52 4f 55 54 | ;oUTPUT|.SUBROUT|
|00000040| 49 4e 45 0d 62 75 66 6c | 65 6e 20 65 71 75 20 32 |INE.bufl|en equ 2|
|00000050| 30 20 3b 6c 45 4e 47 54 | 48 a0 4f 46 a0 53 54 52 |0 ;lENGT|H.OF.STR|
|00000060| 49 4e 47 a0 54 4f a0 50 | 52 49 4e 54 0d 67 65 74 |ING.TO.P|RINT.get|
|00000070| 69 6e 20 65 71 75 20 24 | 66 66 65 34 20 3b 67 45 |in equ $|ffe4 ;gE|
|00000080| 54 a0 49 4e 50 55 54 a0 | 53 55 42 52 4f 55 54 49 |T.INPUT.|SUBROUTI|
|00000090| 4e 45 0d 6b 65 79 20 65 | 71 75 20 24 66 66 39 66 |NE.key e|qu $ff9f|
|000000a0| 20 3b 6b 45 59 42 4f 41 | 52 44 a0 53 43 41 4e a0 | ;kEYBOA|RD.SCAN.|
|000000b0| 53 55 42 52 4f 55 54 49 | 4e 45 0d 2a 0d 73 74 61 |SUBROUTI|NE.*.sta|
|000000c0| 72 74 20 6c 64 78 20 23 | 30 20 3b 73 45 54 a0 78 |rt ldx #|0 ;sET.x|
|000000d0| a0 54 4f a0 30 0d 6c 6f | 6f 70 20 6c 64 61 20 73 |.TO.0.lo|op lda s|
|000000e0| 74 72 69 6e 67 2c 78 20 | 3b 67 45 54 a0 41 a0 43 |tring,x |;gET.A.C|
|000000f0| 48 41 52 41 43 54 45 52 | a0 46 52 4f 4d a0 73 74 |HARACTER|.FROM.st|
|00000100| 72 69 6e 67 0d 20 6a 73 | 72 20 62 73 6f 75 74 20 |ring. js|r bsout |
|00000110| 3b 73 45 4e 44 a0 49 54 | a0 54 4f a0 54 48 45 a0 |;sEND.IT|.TO.THE.|
|00000120| 53 43 52 45 45 4e 0d 20 | 69 6e 78 20 20 3b 69 4e |SCREEN. |inx  ;iN|
|00000130| 43 52 45 4d 45 4e 54 a0 | 78 0d 20 63 70 78 20 23 |CREMENT.|x. cpx #|
|00000140| 62 75 66 6c 65 6e 20 3b | 63 4f 4d 50 41 52 45 a0 |buflen ;|cOMPARE.|
|00000150| 78 a0 54 4f a0 56 41 4c | 55 45 a0 49 4e a0 62 75 |x.TO.VAL|UE.IN.bu|
|00000160| 66 6c 65 6e 0d 20 62 6e | 65 20 6c 6f 6f 70 20 3b |flen. bn|e loop ;|
|00000170| 69 46 a0 4e 4f 54 a0 45 | 51 55 41 4c 2c a0 47 4f |iF.NOT.E|QUAL,.GO|
|00000180| a0 42 41 43 4b a0 54 4f | a0 6c 6f 6f 70 0d 73 63 |.BACK.TO|.loop.sc|
|00000190| 61 6e 20 6a 73 72 20 6b | 65 79 20 3b 73 43 41 4e |an jsr k|ey ;sCAN|
|000001a0| a0 54 48 45 a0 4b 45 59 | 42 4f 41 52 44 0d 20 6a |.THE.KEY|BOARD. j|
|000001b0| 73 72 20 67 65 74 69 6e | 20 3b 61 4e 59 a0 49 4e |sr getin| ;aNY.IN|
|000001c0| 50 55 54 3f 0d 20 62 65 | 71 20 73 63 61 6e 20 3b |PUT?. be|q scan ;|
|000001d0| 69 46 a0 4e 4f 54 2c a0 | 47 4f a0 42 41 43 4b a0 |iF.NOT,.|GO.BACK.|
|000001e0| 54 4f a0 73 63 61 6e 0d | 20 63 6d 70 20 23 24 30 |TO.scan.| cmp #$0|
|000001f0| 64 20 3b 77 41 53 a0 72 | 45 54 55 52 4e a0 50 52 |d ;wAS.r|ETURN.PR|
|00000200| 45 53 53 45 44 3f 0d 20 | 62 65 71 20 64 6f 6e 65 |ESSED?. |beq done|
|00000210| 20 3b 69 46 a0 53 4f 2c | a0 47 4f a0 54 4f a0 64 | ;iF.SO,|.GO.TO.d|
|00000220| 6f 6e 65 0d 20 6a 6d 70 | 20 73 63 61 6e 20 3b 69 |one. jmp| scan ;i|
|00000230| 46 a0 4e 4f 54 2c a0 47 | 4f a0 42 41 43 4b a0 54 |F.NOT,.G|O.BACK.T|
|00000240| 4f a0 73 63 61 6e 0d 64 | 6f 6e 65 20 72 74 73 20 |O.scan.d|one rts |
|00000250| 20 3b 61 4c 4c a0 44 4f | 4e 45 0d 73 74 72 69 6e | ;aLL.DO|NE.strin|
|00000260| 67 20 74 78 74 20 27 70 | 52 45 53 53 a0 72 45 54 |g txt 'p|RESS.rET|
|00000270| 55 52 4e a0 54 4f a0 65 | 58 49 54 27 0d          |URN.TO.e|XIT'.   |
+--------+-------------------------+-------------------------+--------+--------+